error 13 en tiempo de ejecucion

[embetro1]

Quisiera saber si me pueden ayudar con este error 13 en tiempo de ejecucion no coinciden los tipos.

Cuando le doy depurar marca la siguiente linea.



Sheets("Ajustes").Select
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.ClearContents
x = 2
While x <= Bafin
Hoja6.Cells(2, 1).Value = "'" & Barras(x - 2, 0)
Info(x - 2, 0) = Sheets("Configuración").Range("C2").Value
Info(x - 2, 1) = Sheets("HT").Range("A3").Value
Info(x - 2, 2) = Sheets("HT").Range("A4").Value
Info(x - 2, 3) = Sheets("Configuración").Range("C18").Value
Info(x - 2, 4) = Format(Sheets("Configuración").Range("B18").Value, "yyyy-mm-dd")


Si me pudieran ayudar seria fantastico.


Saludos.

[Insomnia]

Hola

Normalmente el error 13 se da cuando no coinciden los tipos de datos, es decir, por ejemplo, al intentar asignar un valor de texto a una variable integer. Un ejemplo sencillo:

Código:

Dim i As Integer

i = Text1.Text

En este caso si el text1 contiene una cadena de texto nos dará error 13.

En tu caso, comprueba que "Info(x - 2, 1)" y "Sheets("HT").Range("A3").Value" contengan el mismo tipo de datos o las celdas estén configuradas con el mismo tipo de datos, es decir, que las dos sean de tipo numérico o las dos de tipo fecha, ...

--Saludos--

[Insomnia]

Hola

Normalmente el error 13 se da cuando no coinciden los tipos de datos, es decir, por ejemplo, al intentar asignar un valor de texto a una variable integer. Un ejemplo sencillo:

Código:

Dim i As Integer

i = Text1.Text

En este caso si el text1 contiene una cadena de texto nos dará error 13.

En tu caso, comprueba que "Info(x - 2, 1)" y "Sheets("HT").Range("A3").Value" contengan el mismo tipo de datos o las celdas estén configuradas con el mismo tipo de datos, es decir, que las dos sean de tipo numérico o las dos de tipo fecha, ...

--Saludos--