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