Selec. Columna al buscar y encontrar dato
Hola, es urgente! Necesito ayuda... Tengo un código para buscar un dato en la fila completa 4 (desde la A4:XFD4 [Hoja1]) y necesito que al encontrar el dato, tome la columna completa y me la copie en la Hoja2 en la columna A. El código que tengo a Brevedad es el siguiente:
<span style="white-space: pre;"> </span>Dato: "565099" 'que es una matricula de un coche
<span style="white-space: pre;"> </span>Rango de busqueda(A4:XFD4).....
<span style="white-space: pre;"> </span>If Not busco Is ........
<span style="white-space: pre;"> </span>Aqui el Codigo q necesito (aqui el codigo de busqueda es: busco.Offset(0, 1) = ...
<span style="white-space: pre;"> </span>End If
<span style="white-space: pre;"> </span>Dato: "565099" 'que es una matricula de un coche
<span style="white-space: pre;"> </span>Rango de busqueda(A4:XFD4).....
<span style="white-space: pre;"> </span>If Not busco Is ........
<span style="white-space: pre;"> </span>Aqui el Codigo q necesito (aqui el codigo de busqueda es: busco.Offset(0, 1) = ...
<span style="white-space: pre;"> </span>End If
1 Respuesta
Respuesta de Enrique Bernal
-1
Hola, es urgente! Necesito ayuda... Tengo un código para buscar un dato en la fila completa 4 (desde la A4:XFD4 [Hoja1]) y necesito que al encontrar el dato, tome la columna completa y me la copie en la Hoja2 en la columna A. El código que tengo a Brevedad es el siguiente:
<span style="white-space: pre;"> </span>Dato: "565099" 'que es una matricula de un coche
<span style="white-space: pre;"> </span>Rango de busqueda(A4:XFD4).....
<span style="white-space: pre;"> </span>If Not busco Is ........
<span style="white-space: pre;"> </span>Aqui el Codigo q necesito (aqui el codigo de busqueda es: busco.Offset(0, 1) = ...
<span style="white-space: pre;"> </span>End If
<span style="white-space: pre;"> </span>Dato: "565099" 'que es una matricula de un coche
<span style="white-space: pre;"> </span>Rango de busqueda(A4:XFD4).....
<span style="white-space: pre;"> </span>If Not busco Is ........
<span style="white-space: pre;"> </span>Aqui el Codigo q necesito (aqui el codigo de busqueda es: busco.Offset(0, 1) = ...
<span style="white-space: pre;"> </span>End If
Es la respuesta más ridícula que alguien me ha dado. No programas, intentas! Te voy a regalar esto para que trates de entenderlo:
Dato: "X"
Set busco = Hoja1.Range("D4:XFD4").Find(Dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not busco Is Nothing Then
<span style="white-space: pre;"> Hoja2.Range("U1:U31").Value = busco.EntireColumn.Value</span>
<span style="white-space: pre;">E</span>nd If
Hasta pronto! Y no decepciones a más personas...
Dato: "X"
Set busco = Hoja1.Range("D4:XFD4").Find(Dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not busco Is Nothing Then
<span style="white-space: pre;"> Hoja2.Range("U1:U31").Value = busco.EntireColumn.Value</span>
<span style="white-space: pre;">E</span>nd If
Hasta pronto! Y no decepciones a más personas...
