Foro Excel

HOLA A TODOS. TENGO UN PROBLEMA, NECESITO BUSCAR UN NUMERO EN UNA HOJA Y CUANDO LO ENCUENTRE QUE COPIE EN ESA FILA UN RANGO DE CELDAS, EJEMPLO TENGO EL NRO. 12345 QUE NECESITO UBICARLO EN LA HOJA , SE QUE ESTA EN LA COLUMNA "A", UNA VEZ ENCONTRADO DEBO COPIAR EN ESA FILA EL CONTENIDO DE LAS COLUMNAS SIGUIENTES.
GRACIAS DE ANTEMANO!!

Hola espero esto te ayude:

Código: Seleccionar todo

If Not Range("A:A").Find(4, lookat:=xlWhole) Is Nothing Then
  Range("A:A").Find(4, lookat:=xlWhole).Select
  Range(ActiveCell.Row & ":" & ActiveCell.Row).Copy
  '...Pegar????
  Application.CutCopyMode = False
End If

Donde el 4 es el valor a buscar, que puede ser una variable o una celda.

Salu2.xlsm

Adrian, te agradezco mucho !! estoy tratando de hacerlo funcionar, pero hay algo que no se hacer.

te adjunto una planillita de ejemplo, donde coloque un valor a buscar y valores a copiar. Si ejecutas la macro logra copiar en la fila correspondiente al valor a buscar, pero sobre la misma columna del valor que encuentra y en realidad tiene que ser: el valor encontrado esta en la columna A y debe copiar a partir de la B.
Te agradeceria mucho si me decis que es lo que hago mal.

gracias de todas formas.

Hola,

de acuerdo con los datos de tu archivo, esta macro puede funcionar:

Código: Seleccionar todo

Sub BUSCAR()

    Dim Encontrado As Range
   
    If IsNumeric(Cells(1, 1)) Then
        Set Encontrado = _
            Range("a6").CurrentRegion.Columns(1).Find(Cells(1, 1), , , 1)
        If Not Encontrado Is Nothing Then
            Encontrado(, 2).Resize(, 4) = Range("b3:e3").Value
            Set Encontrado = Nothing
        Else
            MsgBox "¡No se encontro el valor buscado!", vbInformation
        End If
    Else
        MsgBox "¡El valor a buscar debe ser numérico!", vbCritical
    End If

End Sub

Hola, y esto?

Código: Seleccionar todo

Sub BUSCAR()
Range("B3:E3").Select
Selection.Copy
busco = Cells(1, 1).Value
If Not Range("A:A").Find(busco, lookat:=xlWhole) Is Nothing Then
  Range("A:A").Find(busco, lookat:=xlWhole)[b].Offset(0, 1).Select[/b]
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  Range("A3").Select
    Application.CutCopyMode = False
End If
End Sub

Ojo que en el código que puse no van los [b] [\b] es que puse en negrita en el editor html y despues indique Code.

Sub BUSCAR()
Range("B3:E3").Select
Selection.Copy
busco = Cells(1, 1).Value
If Not Range("A:A").Find(busco, lookat:=xlWhole) Is Nothing Then
Range("A:A").Find(busco, lookat:=xlWhole).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
Application.CutCopyMode = False
End If
End Sub

ADRIAN Y MJROFRA, LES AGRADEZCO MUCHIIIIIIIISIMO !!!
YO SOY UN PRINCIPIANTE EN ESTO. PERO SOY ESPECIALISTA EN SEGUROS, CUALQUIER NECESIDAD O CONSULTA QUE QUIERAN A SU DISPOSICION.
MUCHISIMAS GRACIAS !!!!!

Muchas gracias a ti dual por tu respuesta .