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

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

 

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

 

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.

 

Aquí se muestra las instrucciones necesarias en VBA para trabajar con Celdas en Excel.  Este permite sistematizar ciertas tareas que son repetitivas y tediosas.   Use estas técnicas que al comienzo parecen sencillas pero son muy potentes si las llevamos a nuestras actividades de macros con Excel.

Una Plantilla que muestra las posibilidades de las Plantillas Avanzadas de Excel usando macros.   Se pueden crear aplicativos completos usando las afamadas templates de Excel.   Aquí un ejemplo del potencial de uso con esta
simple aplicación.

Puedes Obtener vía:

Incluye Soporte y Acceso a Código VBA.
Versión Developer

Sub Buscador()
On Error Resume Next
Range(«B:B»).Cells.Find(What:=[B1], After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub

Esta es una Plantilla modelo básico que permite controlar e incentivar a sus clientes.    Solo hay que registrar los datos y el valor de la factura y se puede tener un top de los clientes mas compradores.

 

<Descarga Plantillas>

PACK INCLUYE:

 

1. PLANTILLA COTIZACIONES
2. COMPLEMENTO IMÁGENES
3. PLANTILLA ETIQUETAS CON CÓDIGO DE BARRAS

Plantilla de Cotizaciones Automáticas

Complemento para Insertar Imágenes en Excel.

Elabore Etiquetas Adhesivas con Códigos de Barras

Esta solución permite facilitar sus ventas y hacer una mejor presentación en sus cotizaciones.  En la Plantilla de Cotizaciones automáticas puede incluir
los códigos de barras o las imágenes de sus productos o servicios asociadas.

OBTENER EL PACK  Y AHORRA
$27USD= + $27USD= + $15USD=

HOY $29.5 USD TODO EL PACK

Precio valido por tiempo limitado *