Para dante agregar datos y colorar
Dante ahí te mande por mail el archivo con la explicación gracias
1 respuesta
Respuesta de Dante Amor
1
"necesito lo siguiente dante
Me posiciono en la columna de fecha en cualquier celda doy enter y salto a la columna de cliente
si ingreso un cliente todo normal como esta ahora ok
pero si ingreso un numero predeterminado como por ej el N 1 necesito
que me aparezca la palabra ganancia toda punteada hasta la columna F y toda
coloreada hasta la columna G asi como figura en el ejemplo y que se posicione
en la columna G ahí yo ingreso un importe cualquiera y depues de dar enter
baja a la fila de abajo y se posiciona en la columna A para poder ingresar otro
registro"
Te anexo la macro
If Not Intersect(Target, Range("B:E")) Is Nothing Then
If Target.Row > 13 Then
If Target.Column = 2 Then
If Target.Value = 1 Then
Application.EnableEvents = False
Target.Value = "GANANCIA-------------------------------------------------------------------"
Range("A" & Target.Row & ":G" & Target.Row).Interior.TintAndShade = 0.599963377788629
Target.Offset(0, 5).Select
Application.EnableEvents = True
End If
Else
Target.Offset(0, 1).Select
End If
End If
End If
