Poner datos en celdas
Hola Gfellay, recibe un cordial saludo por este medio.
Solicito tu ayuda para crear una macro, ya que por medio de fórmula si lo logro hacer pero el archivo se vuelve pesado por la cantidad de datos y fórmulas.
Quisiera lograr lo siguiente:
¿Qué cuándo en la columna D? Ponga PAGADA, ¿en la celda O? Me debe poner "SI", ¿en la celda P? Poner "SI", ¿en las celdas Q? ¿Y R? ¿El importe de E?
¿Cuándo en la columna D? Ponga CRÉDITO, ¿en la celda O? Me debe poner "NO", ¿en la celda P? Poner "SI", ¿en la celda Q? ¿Y R? ¿El importe de E?.
En las Columna siempre voy a poner PAGADA o CRÉDITO.
¿Cuándo me refiero a O?, ¿P?, ¿Q? ¿Y R? Hago referencia a las celdas O2, P2, Q2 y R2; O3, P3, Q3 y R3 y así sucesivamente ya que voy a ir ingresando los datos.
Agradezco de antemano tu apoyo.
Saludos
Solicito tu ayuda para crear una macro, ya que por medio de fórmula si lo logro hacer pero el archivo se vuelve pesado por la cantidad de datos y fórmulas.
Quisiera lograr lo siguiente:
¿Qué cuándo en la columna D? Ponga PAGADA, ¿en la celda O? Me debe poner "SI", ¿en la celda P? Poner "SI", ¿en las celdas Q? ¿Y R? ¿El importe de E?
¿Cuándo en la columna D? Ponga CRÉDITO, ¿en la celda O? Me debe poner "NO", ¿en la celda P? Poner "SI", ¿en la celda Q? ¿Y R? ¿El importe de E?.
En las Columna siempre voy a poner PAGADA o CRÉDITO.
¿Cuándo me refiero a O?, ¿P?, ¿Q? ¿Y R? Hago referencia a las celdas O2, P2, Q2 y R2; O3, P3, Q3 y R3 y así sucesivamente ya que voy a ir ingresando los datos.
Agradezco de antemano tu apoyo.
Saludos
1 respuesta
Respuesta de Gustavo Omar Fellay
1
Creo que es mejor con fmlas pero si querés hacerlo con macros, hacé click derecho sobre la solapa del nombre de hoja y seleccioná Ver código; allí escribí
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then 'columna D
If Target.Value = "PAGADA" Then 'asumo lo que dijiste que las únicas opciones son Pagada ó Credito como dijiste
Cells(Target.Row, 15) = "SI"
Cells(Target.Row, 16) = "SI"
Cells(Target.Row, 17) = Cells(Target.Row, 5)
Cells(Target.Row, 18) = Cells(Target.Row, 5)
Else 'asumo que es Credito
Cells(Target.Row, 15) = "NO"
Cells(Target.Row, 16) = "SI"
Cells(Target.Row, 17) = Cells(Target.Row, 5)
Cells(Target.Row, 18) = Cells(Target.Row, 5)
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then 'columna D
If Target.Value = "PAGADA" Then 'asumo lo que dijiste que las únicas opciones son Pagada ó Credito como dijiste
Cells(Target.Row, 15) = "SI"
Cells(Target.Row, 16) = "SI"
Cells(Target.Row, 17) = Cells(Target.Row, 5)
Cells(Target.Row, 18) = Cells(Target.Row, 5)
Else 'asumo que es Credito
Cells(Target.Row, 15) = "NO"
Cells(Target.Row, 16) = "SI"
Cells(Target.Row, 17) = Cells(Target.Row, 5)
Cells(Target.Row, 18) = Cells(Target.Row, 5)
End If
End If
End Sub
