Llenar celdas en una macro de excel
Hola que tal tengo un problema m gustaría que m ayudaran a resolverlo la verdad noc de macros pero la necesito que hacer así que recurro a ustedes así que explico necesito crear una macro que llene las celdas de la fila A, B, Dy E estos datos se deben llenar siempre y cuando las celdas de la columna C contengan datos es decir si C1... C10 contienen datos la macro llenara las columnas A, B, DE y E hasta el numero 10 d las filas cada columna tendrá un valor diferente por ejem. La fila A tendrá rojo, la fila B tendrá rosa, la D azul y la E amarillo, esta macro se ejecutra después d que el usuario escriba valores en la columna C y después se ejecuta la macro donde llenara las columnas pero recuerda siempre y cuando C contenga un valor y si C esta en blanco no escribirá nada en ninguna celda, espero si m haya explicado muchas gracias por su ayuda.
1 respuesta
Respuesta de Elsa Matilde
1
Lo que no queda claro es de dónde se tomarán los datos para llenar las celdas A, B, DE y E.
Quizás lo puedas armar con fórmulas. Un ejemplo para A2:
=SI(C2>0;"DATO";"")
Ahora resta colocar lo que debe ir en lugar de DATO
Desde macros, el evento que se ejecuta cuando ingresas valores en celda, es Change.
Entrá al Editor, seleccioná con doble clic el objeto HOJA (del panel a tu izquierda) donde trabajarás y escribí esta rutina, que tendrás que ajustarla obviamente, reemplazando el texto "Dato?" por los valores que quieras colocar en cada celda de la misma fila
Private Sub Worksheet_Change(ByVal Target As Range)
'se establece rango de acción a partir de C2
If Target.Column = 3 And Target.Row > 1 Then
'se colocan datos en col A, B, D y E de la misma fila
Target.Offset(0, -2) = "DatoA"
Target.Offset(0, -1) = "DatoB"
Target.Offset(0, 1) = "DatoD"
Target.Offset(0, 2) = "DatoE"
End If
End Sub
Si necesitas alguna instrucción más podes visitar mi sitio de macros
Quizás lo puedas armar con fórmulas. Un ejemplo para A2:
=SI(C2>0;"DATO";"")
Ahora resta colocar lo que debe ir en lugar de DATO
Desde macros, el evento que se ejecuta cuando ingresas valores en celda, es Change.
Entrá al Editor, seleccioná con doble clic el objeto HOJA (del panel a tu izquierda) donde trabajarás y escribí esta rutina, que tendrás que ajustarla obviamente, reemplazando el texto "Dato?" por los valores que quieras colocar en cada celda de la misma fila
Private Sub Worksheet_Change(ByVal Target As Range)
'se establece rango de acción a partir de C2
If Target.Column = 3 And Target.Row > 1 Then
'se colocan datos en col A, B, D y E de la misma fila
Target.Offset(0, -2) = "DatoA"
Target.Offset(0, -1) = "DatoB"
Target.Offset(0, 1) = "DatoD"
Target.Offset(0, 2) = "DatoE"
End If
End Sub
Si necesitas alguna instrucción más podes visitar mi sitio de macros
