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 *