Clases
1: Instrucción Select...Case para múltiples condiciones
2: Introducción a los Bucles en VBA: Bucle For...Next
3: Bucle For Each...Next para recorrer objetos de una colección
4: Bucle Do...While. Ejecutar mientras se cumple una condición
5: Bucle Do...Until . Ejecutar hasta que se cumpla una condición
6: Implementar un Controlador de errores
7: Procedimientos Sub públicos, privados y cómo ejecutarlos
8: Práctica: Agrupar tablas de varias hojas en una sola
9: Macro optimizada: Agrupar tablas de varias hojas en una sola
10: Funciones definidas por el usuario (UDF)
11: Funciones VBA para manejo de textos
12: Funciones VBA para manejo de Fecha y Hora
13: Funciones VBA de conversión, formato y evaluación
14: Usar Fórmulas y funciones de Excel desde VBA
15: Introducción a los Eventos en VBA y Eventos de libro
16: Introducción a los Eventos en VBA y Eventos de hoja
17: Eventos de Aplicación y eventos no asociados a objetos
Select...Case, Convertir texto a mayúsculas o minúsculas
Participaciones
Francisco-Cruz hace 4 días
hola. muy interesante.
En mi trabajo elaboro constancias DC-3, de 1 a N constancias de un solo curso. es muy variado.
Tengo el código, lo complejo es cuando hago mas constancias tengo que agregar filas al código. (es decir adecuo las filas para el numero de constancias)
lo que me gustaría saber es como hacer para que ejecute una macro e imprima el numero de celdas con datos (ejemplo si tengo datos en la lista del 1 al 9, (como ejemplo de la foto) que imprima 9 constancias), o en su caso que me aparezca cuadro de dialogo ¿cuantas constancias desea imprimir? y que de acuerdo a ese dato o istruccion elabore constancias si modificar codigo.
saludos
Les agradezco ojala me puedan orientar
Sub Imprimir_Constancias()
'
' Imprimir_Constancias Macro
' Imprime constancias de varios trabajadores
'
' Acceso directo: Ctrl+Mayús+D
'
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+R[1]C[30]"
Range("E2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("E1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+R[2]C[30]"
Range("E2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("E1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+R[3]C[30]"
Range("E2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("E1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+R[4]C[30]"
Range("E2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("E1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+R[5]C[30]"
Range("E2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
image.png 117.56 KB
En mi trabajo elaboro constancias DC-3, de 1 a N constancias de un solo curso. es muy variado.
Tengo el código, lo complejo es cuando hago mas constancias tengo que agregar filas al código. (es decir adecuo las filas para el numero de constancias)
lo que me gustaría saber es como hacer para que ejecute una macro e imprima el numero de celdas con datos (ejemplo si tengo datos en la lista del 1 al 9, (como ejemplo de la foto) que imprima 9 constancias), o en su caso que me aparezca cuadro de dialogo ¿cuantas constancias desea imprimir? y que de acuerdo a ese dato o istruccion elabore constancias si modificar codigo.
saludos
Les agradezco ojala me puedan orientar
Sub Imprimir_Constancias()
'
' Imprimir_Constancias Macro
' Imprime constancias de varios trabajadores
'
' Acceso directo: Ctrl+Mayús+D
'
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+R[1]C[30]"
Range("E2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("E1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+R[2]C[30]"
Range("E2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("E1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+R[3]C[30]"
Range("E2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("E1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+R[4]C[30]"
Range("E2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("E1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+R[5]C[30]"
Range("E2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
↳ Responder
Estás agregando un comentario en esta clase
Inicia sesión para dejar tu duda, comentario y/o respuesta