Error 13 en Macro Adaptada

[mastoca]

Hola Amigos:

necesito un poco de ayuda con una macro de internet que adapte para trabajar con planillas en la empresa, es para dar formato al RUT que usamos en chile, la macro funciona bien, hace exactamente lo que necesito que haga, el problema se genera al limpiar la planilla para usarla nuevamente, cree un boton que ingresa los datos a una base de datos y borra el contenido de la planilla para empesar a usarla con datos nuevos... cuando uso el boton o cuando selecciono las celdas y le doy suprimir, o borrar contenido, me aparece el famoso error... "Se ha producido el error '13' en tiempo de ejecucion" y mas abajo en el cuadro pone: "no coinciden los tipos", al usar el depurador para ver cual es el problema me lleva al codigo de la macro que uso para el formato del RUT, y no quiero alterarla porque temo inutilizarla... les dejo el codigo y por si necesitan el libro xls...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim largo As Byte
largo = Len(Target)
'=9 cantidad de caracteres de la celda
'="2" se refiere a la segunda columna B, puedes modificar segun el numero de columna que necesites
'>3 se refiere a en que fila va a empezar a checar los datos , puedes modificar segun la fila donde inician tus datos
If largo = 9 And Target.Column = "4" And Target.Row = 8 Then
For x = 1 To 9
If x = 2 Or x = 5 Then
CADENA = CADENA + Mid$(Target, x, 1) + "."
ElseIf x = 9 Then
CADENA = CADENA + "-" + Mid$(Target, x, 1)
Else
CADENA = CADENA + Mid$(Target, x, 1)
End If
Next x
Target.Value = CADENA
End If
largo = Len(Target)
'=9 cantidad de caracteres de la celda
'="2" se refiere a la segunda columna B, puedes modificar segun el numero de columna que necesites
'>3 se refiere a en que fila va a empezar a checar los datos , puedes modificar segun la fila donde inician tus datos
If largo = 8 And Target.Column = "4" And Target.Row = 8 Then
For x = 1 To 8
If x = 1 Or x = 4 Then
CADENA = CADENA + Mid$(Target, x, 1) + "."
ElseIf x = 8 Then
CADENA = CADENA + "-" + Mid$(Target, x, 1)
Else
CADENA = CADENA + Mid$(Target, x, 1)
End If
Next x
Target.Value = CADENA
End If
largo = Len(Target)
'=9 cantidad de caracteres de la celda
'="2" se refiere a la segunda columna B, puedes modificar segun el numero de columna que necesites
'>3 se refiere a en que fila va a empezar a checar los datos , puedes modificar segun la fila donde inician tus datos
If largo = 9 And Target.Column = "4" And Target.Row = 18 Then
For x = 1 To 9
If x = 2 Or x = 5 Then
CADENA = CADENA + Mid$(Target, x, 1) + "."
ElseIf x = 9 Then
CADENA = CADENA + "-" + Mid$(Target, x, 1)
Else
CADENA = CADENA + Mid$(Target, x, 1)
End If
Next x
Target.Value = CADENA
End If
largo = Len(Target)
'=9 cantidad de caracteres de la celda
'="2" se refiere a la segunda columna B, puedes modificar segun el numero de columna que necesites
'>3 se refiere a en que fila va a empezar a checar los datos , puedes modificar segun la fila donde inician tus datos
If largo = 8 And Target.Column = "4" And Target.Row = 18 Then
For x = 1 To 8
If x = 1 Or x = 4 Then
CADENA = CADENA + Mid$(Target, x, 1) + "."
ElseIf x = 8 Then
CADENA = CADENA + "-" + Mid$(Target, x, 1)
Else
CADENA = CADENA + Mid$(Target, x, 1)
End If
Next x
Target.Value = CADENA
End If
End Sub

espero que me puedan ayudar, es lo unico que me falta para poder usarla en el diario de la oficina...

desde ya muchas gracias

hasta

luego

Base de Datos.xls

[rulesagain]

Este error puede ocurrir por varias causas:

1- La variable o propiedad no es del tipo correcto. Por ejemplo, quizás se haya declarado una variable como entero y al asignarle valor, le asignas una cadena de texto.

2- Utilizar un nombre de proyecto o módulo donde se espera una expresión. Por ejemplo: si quieres mostrar el valor de una variable, puede ser:

MsgBox NombreDeVariable

Pero si en vez de ponerle el nombre de la variable, le pones el nombre de un módulo o de un proyecto, da error.

Fijate los tipos de cada celda. Tanto el que lees como la celda destino.

en lo que verifico el archivo

Saludos

[ioyama]

Hola mastoca

Bienvenido al foro

Como ya te he indicado en otro foro si añades la sentencia

If Target.Count > 1 Then Exit Sub

al inicio de la macro, el problema se te resuelve. Ten en cuenta que estás usando una macro de evnto que se activa al modificar las celdas. Cuando seleccionas un rango para borrarlas la sentencia largo = Len(Target) te da el error ya que LEN opera con cadenas alfanuméricas (las cuales pueden estar dentro de una celda), pero no con rangos de celdas.

Un saludo desde Vitoria

[mastoca]

muchas gracias otra vez ioyama... y gracias a la gente del foro por dar esta ayuda tan necesaria a usuarios como nosotros...

hasta luego... y a los moderadores, gracias por cerrar el hilo... el problema ya esta resuelto

muchas gracias