Como generar folio numérico consecutivo en excel
Tengo una base de datos excel, la cual inserto datos mediante un formulario.
Lo que necesito es que se inserte un folio consecutivo de forma automática en la primer columna al guardar los datos.
Alguien me puede ayudar.
Gracias...
Private Sub BotGuardar_Click()
Dim SigFIla As Long
Hoja4.Select 'Seleccionar la hoja 2
SigFIla = WorksheetFunction.CountA(Range("A:A")) + 1 'Buscar fila vacía
Cells(SigFIla, 1).Value = Textnombre.Text 'Grabar la información
Cells(SigFIla, 2).Value = Textcalle_num.Text
Cells(SigFIla, 3).Value = Textcolonia.Text
Cells(SigFIla, 4).Value = Combomunicipio.Text
Cells(SigFIla, 5).Value = Comboruta.Text
'Por ejemplo
If DLun.Value = True Then
Cells(SigFIla, 6).Value = "Si"
End If
If DMar.Value = True Then
Cells(SigFIla, 7).Value = "Si"
End If
If DMie.Value = True Then
Cells(SigFIla, 8).Value = "Si"
End If
If DJue.Value = True Then
Cells(SigFIla, 9).Value = "Si"
End If
If DVie.Value = True Then
Cells(SigFIla, 10).Value = "Si"
End If
If DSab.Value = True Then
Cells(SigFIla, 11).Value = "Si"
End If
Cells(SigFIla, 12).Value = Textstock.Text
Hoja4.Select 'Volver a la hoja1
'Limpiar los TextBox
Textnombre.Text = ""
Textcalle_num.Text = ""
Textcolonia.Text = ""
Combomunicipio.Text = ""
Comboruta.Text = ""
Textstock.Text = ""
Textnombre.SetFocus
'Posicionarse en el primer comboBox
End Sub
1 Respuesta
Te anexo el código actualizado para poner el consecutivo en la columna A, siempre y cuando los registros empiecen en la fila 2.; y los demás campos de la columna B en adelante.
Private Sub BotGuardar_Click()
'
Dim SigFIla As Long, consecutivo
'
Hoja4.Select 'Seleccionar la hoja 2
SigFIla = Range("A" & Rows.Count).End(xlUp).Row + 1 'Buscar fila vacía
consecutivo = SigFIla - 1
Cells(SigFIla, 1).Value = consecutivo
Cells(SigFIla, 2).Value = Textnombre.Text 'Grabar la información
Cells(SigFIla, 3).Value = Textcalle_num.Text
Cells(SigFIla, 4).Value = Textcolonia.Text
Cells(SigFIla, 5).Value = Combomunicipio.Text
Cells(SigFIla, 6).Value = Comboruta.Text
'
'Por ejemplo
If DLun.Value = True Then Cells(SigFIla, 7).Value = "Si"
If DMar.Value = True Then Cells(SigFIla, 8).Value = "Si"
If DMie.Value = True Then Cells(SigFIla, 9).Value = "Si"
If Djue.Value = True Then Cells(SigFIla, 10).Value = "Si"
If DVie.Value = True Then Cells(SigFIla, 11).Value = "Si"
If Dsab.Value = True Then Cells(SigFIla, 12).Value = "Si"
'
Cells(SigFIla, 13).Value = Textstock.Text
'
'Limpiar los TextBox
Textnombre.Text = ""
Textcalle_num.Text = ""
Textcolonia.Text = ""
Combomunicipio.Text = ""
Comboruta.Text = ""
Textstock.Text = ""
Textnombre.SetFocus
End Sub