1004 error con el método range
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim comparar As String
comparar = Range("D13").Value
If comparar = "carla" Then
comparar = "JEFE"
Else
If comparar = "juan" Then
comparar = "AUXILIAR "
Else
End If
Range("e8").Value = comparar
End If
Range("e8").Value = comparar
End Sub
Es una macro que se ejecuta cada que haga un cambio a una celda o eso es lo que intento hacer y si hace el cambio pero de inmediato excel deja de funcionar y me manda el error
1 respuesta
Respuesta de Adriel Ortiz Mangia
[Hola
Te paso la macro
Valora la respuesta para finalizar como Excelente o bueno saludos!
Private Sub Worksheet_Change(ByVal Target As Range)
'
'***Act. Adriel Ortiz
'
If Target.Address(False, False) = "D13" Then
'
Select Case Target
Case "carla"
Range("E8").Value = "JEFE"
Case "juan"
Range("E8").Value = "AUXILIAR"
Case Else
Range("E8").Value = ""
End Select
End If
End Sub
