Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Reemplazar celdas por celdas

08/06/2005 - 01:58 por Juan Omar Castillo Ramos | Informe spam
Ayuda Hacer una pregunta
Buenos dias foro, aver si me explico bien.
Necesito reemplazar de todas las celdas de una hoja por valores en celdas de
otra hoja en el mismo libro.
ejemplo hoja uno

hoja 1
A B C
1 lapiz arroz hilo
2 maiz lapiz borrador
3 elote hilo clip

hoja 2
A B
1 1 lapiz
2 2 arroz
3 3 hilo
4 4 maiz
5 5 borrador
6 6 elote
7 7 Clip´

entonces la hoja 3 quedaria
A B C
1 1 2 3
2 4 1 5
3 6 3 7

la hoja 1 y 2 ya las tengo. hay alguna forma de reemplazar "automaticamente"
todos las datos de la hoja 1, con los numeros en la cloumna A
respectivamente que coincida con la descripcion de la hoza 2????
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Fernando Arroyo
08/06/2005 - 09:15 | Informe spam
Prueba con el siguiente código:

Sub prueba()
Dim rngC As Range
For Each rngC In [Hoja1!A1:C3]
rngC.Value = WorksheetFunction.Index([Hoja2!A1:A7], WorksheetFunction.Match(rngC.Value, [Hoja2!B1:B7], 0))
Next rngC
Set rngC = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

" Juan Omar Castillo Ramos" escribió en el mensaje news:
Buenos dias foro, aver si me explico bien.
Necesito reemplazar de todas las celdas de una hoja por valores en celdas de
otra hoja en el mismo libro.
ejemplo hoja uno

hoja 1
A B C
1 lapiz arroz hilo
2 maiz lapiz borrador
3 elote hilo clip

hoja 2
A B
1 1 lapiz
2 2 arroz
3 3 hilo
4 4 maiz
5 5 borrador
6 6 elote
7 7 Clip´

entonces la hoja 3 quedaria
A B C
1 1 2 3
2 4 1 5
3 6 3 7

la hoja 1 y 2 ya las tengo. hay alguna forma de reemplazar "automaticamente"
todos las datos de la hoja 1, con los numeros en la cloumna A
respectivamente que coincida con la descripcion de la hoza 2????


Preguntas similares

 

Busqueda sugerida :