filmov
tv
Como crear un Consecutivo Numerico en VBA Cap 14 #sepamosexcelvba #sepamosexcel #vba #vbaexcel
Показать описание
Introduce un 1 en la celda desde la que quieras comenzar la serie de números.
En la celda de debajo escribe la fórmula =A2+1 (si la primera celda se encuentra en A2).
Arrastra la fórmula hacia abajo.
#sepamosexcel #sepamosexcelvba #vbasepamosexcel #sepamosexcelcurso #sepamosexcelviral #excelsepamos #sepamosexcelmacros #excelsepamos #vbasepamosexcel #excel #usarexcel #excelavanzado #excelintermedio #sepamosexcelcapacitacion #capacitacionsepamosexcel #sepamosexcelcapacitaciones #capacitacionessepamosexcel #capacitacionexcel #excelcapacitacion #capacitacionesexcel #excelcapacitaciones #datos #basededatos #cursodeexcel #datosenexcel #formulario #sepamosexcelbuenaventura #sepamosexcelcolombia #formulariosvbaexcel #vbaexcel #excelvba #excelvbatutorial #excelvbs #visual #visualbasic #visualbasicvba #cursodeexcel #cursovba #excelyvba #vbayexcel #vba #cursovba #vbacurso #sepamosexcelbasico #sepamosexcelintermedio #sepamosexcelavanzado #basicosepamosexcel #intermediosepamosexcel #avanzadosepamosexcel #excelsepamos #visual #visualbasic #programacionvba #cursodevba #cursodevba #userform #basic #usarexcel #macrosvba #excelmacros #excelvbamacros #textboxexcel #textbox #label #labelvba #listboxexcel #listbox #combobox #listbvba #comboboxvba #rgb #backcolor #forecolor #listview #listviewvba #click #cap14
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
--------------------------------------
Private Sub CommandButton3_Click()
Dim FILA, FINAL As Long
'CODIGO QUE GENERA LA BUSQUEDA DE LA ULTIMA FILA Y LA PRIMER FILA VACIA
FILA = 2
Do While Hoja2.Cells(FILA, 1) Empty
FILA = FILA + 1
Loop
FINAL = FILA - 1
Hoja2.Cells(FILA, 1) = ITEM
'CODIGO DE AUTONCREMENTO
FILA = 2
Do While Hoja2.Cells(FILA, 1) Empty
FILA = FILA + 1
Loop
FINAL = FILA - 1
If Hoja2.Cells(2, 1) = Empty Then
ITEM = 0 + 1
Else
ITEM = Hoja2.Cells(FINAL, 1) + 1
End If
--------------------------
Dim ID As Long
With Hoja3
ID = .Range("A" & Rows.Count).End(xlUp).Row + 1
ITEM.Caption = ID + 1
.Range("A" & ID) = ID - 1
End With
End Sub
En la celda de debajo escribe la fórmula =A2+1 (si la primera celda se encuentra en A2).
Arrastra la fórmula hacia abajo.
#sepamosexcel #sepamosexcelvba #vbasepamosexcel #sepamosexcelcurso #sepamosexcelviral #excelsepamos #sepamosexcelmacros #excelsepamos #vbasepamosexcel #excel #usarexcel #excelavanzado #excelintermedio #sepamosexcelcapacitacion #capacitacionsepamosexcel #sepamosexcelcapacitaciones #capacitacionessepamosexcel #capacitacionexcel #excelcapacitacion #capacitacionesexcel #excelcapacitaciones #datos #basededatos #cursodeexcel #datosenexcel #formulario #sepamosexcelbuenaventura #sepamosexcelcolombia #formulariosvbaexcel #vbaexcel #excelvba #excelvbatutorial #excelvbs #visual #visualbasic #visualbasicvba #cursodeexcel #cursovba #excelyvba #vbayexcel #vba #cursovba #vbacurso #sepamosexcelbasico #sepamosexcelintermedio #sepamosexcelavanzado #basicosepamosexcel #intermediosepamosexcel #avanzadosepamosexcel #excelsepamos #visual #visualbasic #programacionvba #cursodevba #cursodevba #userform #basic #usarexcel #macrosvba #excelmacros #excelvbamacros #textboxexcel #textbox #label #labelvba #listboxexcel #listbox #combobox #listbvba #comboboxvba #rgb #backcolor #forecolor #listview #listviewvba #click #cap14
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
--------------------------------------
Private Sub CommandButton3_Click()
Dim FILA, FINAL As Long
'CODIGO QUE GENERA LA BUSQUEDA DE LA ULTIMA FILA Y LA PRIMER FILA VACIA
FILA = 2
Do While Hoja2.Cells(FILA, 1) Empty
FILA = FILA + 1
Loop
FINAL = FILA - 1
Hoja2.Cells(FILA, 1) = ITEM
'CODIGO DE AUTONCREMENTO
FILA = 2
Do While Hoja2.Cells(FILA, 1) Empty
FILA = FILA + 1
Loop
FINAL = FILA - 1
If Hoja2.Cells(2, 1) = Empty Then
ITEM = 0 + 1
Else
ITEM = Hoja2.Cells(FINAL, 1) + 1
End If
--------------------------
Dim ID As Long
With Hoja3
ID = .Range("A" & Rows.Count).End(xlUp).Row + 1
ITEM.Caption = ID + 1
.Range("A" & ID) = ID - 1
End With
End Sub
Комментарии