Para dante agregar el signo
Agregar el símbolo y después bajar una fila y posicionarse en la columna A te mande el mail .con el archivo gracias
1 Respuesta
Respuesta de Dante Amor
1
Esta es el código completo
'Por. Dante Amor
Application.ScreenUpdating = False
If Not Intersect(Target, Range("C3:C4")) Is Nothing Then
totales
End If
'
If Not Intersect(Target, Range("D:E")) Is Nothing Then
If Target.Row > 13 Then
Application.EnableEvents = False
Cells(Target.Row, "G") = Cells(Target.Row, "D") * Cells(Target.Row, "E") * -1
Application.EnableEvents = True
End If
End If
'
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-------------------------------------------------------------------"
With Range("A" & Target.Row & ":G" & Target.Row).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.599963377788629
.PatternTintAndShade = 0
End With
Target.Offset(0, 2).Select
Application.EnableEvents = True
Else
Target.Interior.ColorIndex = xlNone
Target.Offset(0, 1).Select
End If
Else
Target.Offset(0, 1).Select
End If
End If
End If
'
If Not Intersect(Target, Range("E:E")) Is Nothing Then
If Target.Row > 13 Then
Cells(Target.Row, "F") = 1
Target.Offset(0, 2).Select
End If
End If
'
If Not Intersect(Target, Range("G:G")) Is Nothing Then
If Target.Row > 13 Then
Application.EnableEvents = False
Cells(Target.Row, "D").ClearContents
Cells(Target.Row, "E").ClearContents
Application.EnableEvents = True
Cells(Target.Row + 1, "A").Select
End If
End If
'
'If Not Intersect(Target, Range("F:F")) Is Nothing Then
' If Target.Row > 13 Then
' Cells(Target.Row + 1, "A").Select
' End If
'End If
End Sub
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Row > 13 Then
Application.OnKey "{Enter}", "Fecha"
End If
End If
'
If Not Intersect(Target, Range("G:G")) Is Nothing Then
If Target.Value = "" Then
Cells(Target.Row, "A").Select
End If
End If
End Sub
