Macro copea a celdas especificas de celdas variables
Buenas tardes experto espero t encuentres bien, y paso a lo siguiente quiero ver si me puedes ayudar con una macro que no logro hacer, es una macro para un llenado de una forma que tengo en la hoja4, quiero que al darle el numero de folio se llenen las cedad C, DE, E, F, G, H, I, J, QUE, L, M, N, O y P . Te escribo lo que llevo
Sub Llenado()
Sheets("hoja4").Select
Range("U10").Select
numero=Activecell.Value
Sheets("hoja5").Select
Range("B6").Select
[B:B].Find(What:=numero,After:=ActiveCell).Activate
Sheets("hoja4").Select
if Range("U10") = numero Then
'He logrado que compare el numero con la columna de numero y se posicione en el renglon en que se encuentra pero no se decirle que de ese reglon me copie o pase los valores de las columnas que estan a la derecha de la celda.
Rango(D18) = Renglon Selecionado Columna C
Rango(H18) = Renglon Selecionado Columna D
y Asi sucesivamente
End If
End Sub
Espero me puedad ayudar de antemano gracias por el tiempo que le prestas a mi consulta.
Sub Llenado()
Sheets("hoja4").Select
Range("U10").Select
numero=Activecell.Value
Sheets("hoja5").Select
Range("B6").Select
[B:B].Find(What:=numero,After:=ActiveCell).Activate
Sheets("hoja4").Select
if Range("U10") = numero Then
'He logrado que compare el numero con la columna de numero y se posicione en el renglon en que se encuentra pero no se decirle que de ese reglon me copie o pase los valores de las columnas que estan a la derecha de la celda.
Rango(D18) = Renglon Selecionado Columna C
Rango(H18) = Renglon Selecionado Columna D
y Asi sucesivamente
End If
End Sub
Espero me puedad ayudar de antemano gracias por el tiempo que le prestas a mi consulta.
1 Respuesta
Respuesta de Eduard Caballero
1