Un Formato Memorando creado en Excel con macro sencilla

La siguiente macro autonumera, graba en la hoja data y limpia el formato

Sub btnArchivar_Haga_clic_en()
For fil = 2 To 50
If Sheets(“Data”).Cells(fil, “A”) = Empty Then
ActiveSheet.Shapes.Range(Array(“btnArchivar”)).Visible = False
Sheets(“Data”).Cells(fil, “A”) = Sheets(“Consecutivo”).Range(“B1”) + 1
Sheets(“Data”).Cells(fil, “B”) = Sheets(“Formato”).Range(“C5”)
Sheets(“Data”).Cells(fil, “C”) = Sheets(“Formato”).Range(“C6”)
Sheets(“Data”).Cells(fil, “D”) = Sheets(“Formato”).Range(“C7″) & ” ” & Sheets(“Formato”).Range(“C8”)
Sheets(“Data”).Cells(fil, “E”) = Sheets(“Formato”).Range(“C10”)
Sheets(“Data”).Cells(fil, “F”) = Sheets(“Formato”).Range(“C13”)
Sheets(“Consecutivo”).Range(“B1”) = Sheets(“Consecutivo”).Range(“B1”) + 1
Sheets(“Formato”).Range(“C6”) = Empty
Sheets(“Formato”).Range(“C7”) = Empty
Sheets(“Formato”).Range(“C8”) = Empty
Sheets(“Formato”).Range(“C10”) = Empty
Sheets(“Formato”).Range(“C13”) = Empty
ActiveSheet.Shapes.Range(Array(“btnArchivar”)).Visible = True
Range(“C6”).Select
Exit Sub
End If
Next fil
End Sub

1 opinión en “Un Formato Memorando creado en Excel con macro sencilla”

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *