Buenas tardes, quisiera saber si me pueden ayudar con un error que se me presenta.
Se de el error 13 en tiempo de ejecucion no coinciden los tipos y al colocar depuarar me marca el codigo en 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")
