Ayuda con esta macro
Hola:
Estoy tratando de ejecutar la siguiente macro colocada dentro de la hoja excel pero me da error al realizar cambios en cualquier celda de la hoja de calculo. Esta es la macro:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$16" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$K$22" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$D$24" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$K$24" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$D$26" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$K$26" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$D$32" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$D$34" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$C$8" And Target.Value = "DEVENGADO" Then
Call Devengado
End If
End Sub
Si me pudieran ayudar!
Estoy tratando de ejecutar la siguiente macro colocada dentro de la hoja excel pero me da error al realizar cambios en cualquier celda de la hoja de calculo. Esta es la macro:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$16" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$K$22" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$D$24" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$K$24" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$D$26" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$K$26" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$D$32" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$D$34" Then
Target.Value = Ucase(Target.Value)
End If
If Target.Address = "$C$8" And Target.Value = "DEVENGADO" Then
Call Devengado
End If
End Sub
Si me pudieran ayudar!
1 Respuesta
Respuesta de calvuch
1
¿Qué error te indica?
Este es el mensaje de error que aparece:
Se ha producido el error 13 en tiempo de ejecución:
No coinciden los tipos
Si hago clic en depurar me marca con amarillo
If Target.Address = "$C$8" And Target.Value = "DEVENGADO" Then
Esta parte de la macro que señale al principio
Atento a tus comentarios.
Se ha producido el error 13 en tiempo de ejecución:
No coinciden los tipos
Si hago clic en depurar me marca con amarillo
If Target.Address = "$C$8" And Target.Value = "DEVENGADO" Then
Esta parte de la macro que señale al principio
Atento a tus comentarios.
el sub "Devengado" tiene argumentos ?
sub Devengado( lo que sea as integer)
Por lo general ese error aparece cuando a la función le pasas un valor como argumento de otro tipo, es decir si el argumento espera un valor y le pasas texto, pues no coinciden los tipos.
sub Devengado( lo que sea as integer)
Por lo general ese error aparece cuando a la función le pasas un valor como argumento de otro tipo, es decir si el argumento espera un valor y le pasas texto, pues no coinciden los tipos.
