Ver originales (Francés)

Error de ejecución "6" Desbordamiento.

needhelp -  
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

2 respuestas

  1.
    f894009 Mensajes publicados 17417 Fecha de registro   Estado Miembro Última intervención   1 717
     
    Hola,

    Entero: Número entero de -32768 a 32767

    ¿A qué número corresponde tu última línea?
    0
    1. needhelp
       
      Mi última línea es 1 048 576.
      0
    2. f894009 Mensajes publicados 17417 Fecha de registro   Estado Miembro Última intervención   1 717
       
      Re,

      hay que declarar un entero largo
      Long Número Entero de - 2147483648 a 2147483647.
      0
    3. needhelp
       
      Re,

      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".
      0
      1. yg_be Mensajes publicados 23437 Fecha de registro   Estado Colaborador Última intervención   1 588 > needhelp
         
        ohoh, ¿en qué línea tienes el error?
        0
    4. f894009 Mensajes publicados 17417 Fecha de registro   Estado Miembro Última intervención   1 717
       
      Re,

      Mi última línea es a 1 048 576.
      ¡Hay un problema, tienes 1 048 576 celdas no vacías!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      0