No puedo registrar más de 30k renglones, sale error de desbordamiento (Error 6)
Tengo el siguiente código, que de un formulario pasa los datos a una tabla. El problema es que después de aprox. 35,000 renglones registrados, al querer seguir registrando me aparece el error de desbordamiento (Error 6). Comparto código, si de favor alguien me puede decir como puedo solucionarlo y seguir registrando en más renglones (de preferencia pueda llegar hasta 80K en mi base de datos de los registros
Private Sub CommandButton1_Click()
If CBHora <> "" Then
Application.ScreenUpdating = False
Sheets("Database").Select
Dim CeldaInicial As Variant
Dim col As Integer
Dim fila As Integer
CeldaInicial = "A1"
Set CeldaInicial = Range(CeldaInicial)
col = CeldaInicial.Column
'Busca cuál es la última fila
If CeldaInicial.Offset(1, 0).Value = "" Then
fila = 2
Else
fila = CeldaInicial.End(xlDown).Row + 1
End If
Cells(fila, col).Value = Sheets("Controles").Range("E4").Value 'Fecha
Cells(fila, col + 1).Value = Sheets("Controles").Range("J4").Value 'Letra
Cells(fila, col + 2).Value = CBHora.Value
Cells(fila, col + 3).Value = Sheets("Controles").Range("H2").Value
Sheets("Producción").Select
Application.ScreenUpdating = True
End If
End Sub
3 Respuestas
Aunque tampoco es mi especialización el Excel le dejo la solución. El error está en la definición de Dim fila As Integer.
Le dejo el código
Private Sub CommandButton1_Click()
If CBHora <> "" Then
Application.ScreenUpdating = False
Sheets("Database").Select
' Se cambia 'fila' de Integer a Long para soportar más de 32767 filas
Dim CeldaInicial As Variant
Dim col As Integer
Dim fila As Long ' <--- ¡SOLUCIÓN!
CeldaInicial = "A1"
Set CeldaInicial = Range(CeldaInicial)
col = CeldaInicial.Column
'Busca cuál es la última fila
If CeldaInicial.Offset(1, 0).Value = "" Then
fila = 2
Else
' Se recomienda una forma más robusta de encontrar la última fila
' La línea original: fila = CeldaInicial.End(xlDown).Row + 1
' Esto falla si hay saltos de renglones vacíos.
' La siguiente línea es mejor para encontrar la última fila *usada* en la columna 'col':
fila = Cells(Rows.Count, col).End(xlUp).Row + 1
End If
' Registro de datos
Cells(fila, col).Value = Sheets("Controles").Range("E4").Value 'Fecha
Cells(fila, col + 1).Value = Sheets("Controles").Range("J4").Value 'Letra
Cells(fila, col + 2).Value = CBHora.Value
Cells(fila, col + 3).Value = Sheets("Controles").Range("H2").Value
Sheets("Producción").Select
Application.ScreenUpdating = True
End If
End SubNota Adicional: He incluido una mejora en la forma en que buscas la última fila:
fila = Cells(Rows.Count, col).End(xlUp).Row + 1
Esta línea es más confiable que CeldaInicial.End(xlDown).Row + 1, ya que encuentra la última celda con datos incluso si hay celdas vacías en medio de tus registros, evitando que el código escriba sobre la siguiente línea vacía en lugar de la última línea
Con este cambio, podrás registrar tus 80,000 registros sin problemas de desbordamiento.
I. Hola Diana Edith, no soy conocedor de Excel sólo habitual de la comunidad, pero tengo interés en este ámbito y deseaba trasladarle la información que vi relativa a esta operación por si pudiese serle de alguna utilidad mientras le atiende una persona conocedora de primera mano, a la que si fuese necesario podríamos llamar.
Le ruego me disculpe por todas las molestias de tanta lectura y la manera de responderle. Ánimo.
https://www.vbforums.com/showthread.php?396301-RESOLVED-runtime-error-6-overflow
https://www.vbforums.com/showthread.php?877167-Strange-Run-time-error-6-Overflow
https://www.mrexcel.com/board/threads/overflow-error-occurs-quicky.1072986/
https://www.quora.com/How-can-I-solve-the-VBA-overflow-caused-by-the-32765-limit
https://access-global.net/vba-error-6-desbordamiento/
https://www.youtube.com/watch?v=peoGRuA-p50
https://stackoverflow.com/questions/10558540/vba-macro-crashes-after-32000-rows
https://www.reddit.com/r/excel/comments/1fo8yt8/how_can_i_fit_more_than_30000_charactersstrings/
https://stackoverflow.com/questions/64042758/macro-that-only-runs-on-30k-rows-but-no-more
https://eileenslounge.com/viewtopic.php?style=1&t=12839
https://www.vbforums.com/showthread.php?518655-Overflow-error-in-Excel-macro
https://www.youtube.com/watch?v=5u7bpysO3FQ
https://www.youtube.com/watch?v=KP2s6IkFIuc
https://www.reddit.com/r/excel/comments/eolrvj/excel_2016_vba_overflow_error_on_rangerowscount/
https://www.reddit.com/r/vba/comments/jeovsx/have_i_hit_max_array_size/
Dina, si bien el Excel no es lo mío, por darte una idea. Cuando defines una variable como Integer trabaja en el intervalo desde -32 768 hasta 32 767 (no admite fracciones). Por el contrario, si la variable la defines, por ejemplo, como Long ( entero largo) trabaja desde -2 147 483 648 hasta 2 147 483 647 (no admite fracciones).