Buscar valor en fila y copiar como valor lacolumna
Tengo que buscar un "valor" (a completar en un inputbox) en la fila 4 y cada vez que encuentre el valor que copie toda esa columna como valor y continué buscando en la fila 4 y haciendo lo mismo hasta que no encuentre nada.
1 Respuesta
Respuesta de toldeman
1
Prueba este código, copia hasta la fila 500, pero puedes modifícalo en el código:
Sub buscar_fila()
Dim c As variant
Dim columnaultima As Long
columnaultima = Cells(4, Columns.Count).End(xlToLeft).Column
c = InputBox(valor)
For i = 1 To columnaultima
If Cells(4, i) = c Then Range(Cells(1, i), Cells(500, i)) = c
Next
End Sub
Sub buscar_fila()
Dim c As variant
Dim columnaultima As Long
columnaultima = Cells(4, Columns.Count).End(xlToLeft).Column
c = InputBox(valor)
For i = 1 To columnaultima
If Cells(4, i) = c Then Range(Cells(1, i), Cells(500, i)) = c
Next
End Sub
