Reemplazar celdas por celdas

08/06/2005 - 01:58 por Juan Omar Castillo Ramos | Informe spam
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 similare

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????


Respuesta Responder a este mensaje
#2 Juan Omar Castillo Ramos
08/06/2005 - 16:13 | Informe spam
Y esto donde lo pongo??




"Fernando Arroyo" escribió en el mensaje
news:es9Hhn$
Prueba con el siguiente código:

Me marca
"Se ha producido un error 1004 en tiempo de ejecucion.
No se puede obtener la funcion match de la clase worksheet function"

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????


Respuesta Responder a este mensaje
#3 Fernando Arroyo
09/06/2005 - 09:16 | Informe spam
" Juan Omar Castillo Ramos" escribió en el mensaje news:O1w%
Y esto donde lo pongo??




"Fernando Arroyo" escribió en el mensaje
news:es9Hhn$
Prueba con el siguiente código:

Me marca
"Se ha producido un error 1004 en tiempo de ejecucion.
No se puede obtener la funcion match de la clase worksheet function"




A mí me funciona sin problemas:

http://www.excelesp.com/ejemplos/20050609a.xls

Un saludo.


Fernando Arroyo
MS MVP - Excel
Respuesta Responder a este mensaje
#4 Juan Omar Castillo Ramos
09/06/2005 - 20:46 | Informe spam
el problema es que ciertas celdas estan en blanco por eso da problemas
"Fernando Arroyo" escribió en el mensaje
news:%23Io%
" Juan Omar Castillo Ramos" escribió en el
mensaje news:O1w%
Y esto donde lo pongo??




"Fernando Arroyo" escribió en el mensaje
news:es9Hhn$
Prueba con el siguiente código:

Me marca
"Se ha producido un error 1004 en tiempo de ejecucion.
No se puede obtener la funcion match de la clase worksheet function"




A mí me funciona sin problemas:

http://www.excelesp.com/ejemplos/20050609a.xls

Un saludo.


Fernando Arroyo
MS MVP - Excel
Respuesta Responder a este mensaje
#5 Fernando Arroyo
10/06/2005 - 09:33 | Informe spam
" Juan Omar Castillo Ramos" escribió en el mensaje news:
el problema es que ciertas celdas estan en blanco por eso da problemas



Prueba con:

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


Un saludo.


Fernando Arroyo
MS MVP - Excel
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida