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

Gana dinero con Excel – A través de Plantillas

Existe varias formas de ganar con Excel, una de ellas es con plantillas que llevan a cabo una tarea administrativa o comercial.

Cree sus propias soluciones avanzadas o use nuestras plantillas para ganar dinero usando macros avanzadas en Excel.

La idea es crear soluciones a nuestros clientes de manera rápida y eficiente usando el poder de las macros.

Contactanos en el siguiente formulario:
https://jfksoft.net/contact

 

Plantilla que usa Imágenes Ocultas en Excel

Con esta sencilla Macro  se pueden ocultar imágenes de Excel dentro del archivo.  Solo usas el botón de asignar Imagen y la imagen es colocada dentro de un comentario y solo puede ser vista ingresando a la celda del comentario.

ESTA ES LA MACRO

Sub insertarImagenComentario()
On Error Resume Next
Dim PicturePath As String
Dim CommentBox As Comment
PicturePath = Application.InputBox(«Ingrese la ruta y Foto», «Foto»)
Application.ActiveCell.ClearComments
Set CommentBox = Application.ActiveCell.AddComment
CommentBox.Text Text:=»»
CommentBox.Shape.Fill.UserPicture (PicturePath)
CommentBox.Shape.ScaleHeight 2.4, msoFalse, msoScaleFormTopLeft
CommentBox.Shape.ScaleWidth 3.2, msoFalse, msoScaleFromTopLeft
CommentBox.Visible = False
End Sub

 

Ejemplo de Listas desplegables dependientes en Excel sin macros

Este ejemplo muestra el potencial de las tablas en Excel usando  solamente formulas sin usar macros, se puede crear categorías y filtrarlas en otra celda, según sea seleccionada.

Usa nombres de rangos para los encabezados y para filtrar también se usa un nombre de rango llamado listado al cual se la aplica la formula:

=INDICE((TablAutomoviles[Automovil],tblCamperos[Campero],tblCamionetas[Camioneta],tblCamiones[Camion],tblBuses[Bus]),,,COINCIDIR(Categorizar!$G$7,Autos,0)).

Nota: La formula no esta en la celda, se crea como referencia en el rango

Sirve para validar entrada de datos usando una lista principal que al seleccionarse se convierte en sublista.