jose luis martinez hernandez

Esta es mi propia solución de mi duda. Espero le sirva a alguien. Saludos Dim fin, fi As Integer Dim dia, dia2 As Date Dim fefac, feusd As Integer fin = Hoja1.Range("a" & Rows.Count).End(xlUp).Row fi = Hoja1.Range("f" & Rows.Count).End(xlUp).Row For...

Private Sub CommandButton1_Click() If TextBox1 <> Empty Then Hoja1.Cells(1, 1) = TextBox1 End If TextBox1 = Empty TextBox1.SetFocus End Sub ' -----boton de salir----- Private Sub CommandButton2_Click() UserForm1.Hide End Sub Quisas es una idea de lo...

Checa este video, espero te sirva. https://www.youtube.com/watch?v=zd0b9eJOIQ8

Puedes hacer lo siguiente: En la columna A, en la celda puedes poner la siguiente función: =SI(B5<>"",A4+1,"") ' la formula esta en celda A5. Copias la fórmula hacia abajo. Esto quiere decir, si el valor de B5 es valor vacío suma 1 al valor de A4, en...