Error de ejecución "6" Desbordamiento.
needhelp
-
yg_be Mensajes publicados 23437 Fecha de registro Estado Colaborador Última intervención -
yg_be Mensajes publicados 23437 Fecha de registro Estado Colaborador Última intervención -
Hola,
Estoy creando una macro que me permite eliminar filas de una columna. Sin embargo, cuando intento ejecutarla, aparece el mensaje de error: "error de ejecución "6" Desbordamiento."
Aquí está mi programa.
Sub Botón1()
Dim i As Integer
With ThisWorkbook.Sheets("Hoja1")
For i = .Range("B" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("B" & i).Value = "C00001" Then
.Rows(i).Delete
End If
Next i
End With
End Sub
¿Puede ayudarme?
Gracias de antemano
Configuración: Windows / Chrome 67.0.3396.87
Estoy creando una macro que me permite eliminar filas de una columna. Sin embargo, cuando intento ejecutarla, aparece el mensaje de error: "error de ejecución "6" Desbordamiento."
Aquí está mi programa.
Sub Botón1()
Dim i As Integer
With ThisWorkbook.Sheets("Hoja1")
For i = .Range("B" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("B" & i).Value = "C00001" Then
.Rows(i).Delete
End If
Next i
End With
End Sub
¿Puede ayudarme?
Gracias de antemano
Configuración: Windows / Chrome 67.0.3396.87
hay que declarar un entero largo
Long Número Entero de - 2147483648 a 2147483647.
Gracias por este consejo, cambié "Dim i As Integer" por "Dim i As Long" pero esto me muestra un nuevo mensaje de error jajaja; este es: "Error de ejecución '13': Incompatibilidad de tipo".
Mi última línea es a 1 048 576.
¡Hay un problema, tienes 1 048 576 celdas no vacías!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!