Dante Amor

Te anexo el código actualizado, también agrega la macro "agregar" en el mismo código del formulario Private Sub Combobox1_Change() Dim i As Integer Dim libro As Workbook ComboBox2.Clear Set libro = Workbooks.Open("libroprueba.xlsm") With...

Te anexo la macro Sub Rellenar() 'Por.Dante Amor texto = "CNS" If ActiveCell.Value <> "CNS" Then MsgBox "No es una celda con el valor " & texto Exit Sub End If If ActiveCell.Column <> Columns("U").Column Then MsgBox "No es una celda de la columna U"...

Te anexo la macro Private Sub Worksheet_Change(ByVal Target As Range) 'CALCULA LA MAGNITUD DE RIESGOS DE CADA ESCENARIO REGISTRADO INHERENTE If Not Intersect(Target, Range("A2:E51")) Is Nothing Then If Target.Count > 100 Then Exit Sub For Each c In...

Envíame tu archivo con los ejemplos Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “”

Por lo que veo, tu última fila con datos está en función de lo que se pegue en la columna P y esto depende el número (puede ser del 1 al 10), que tienes en la celda G18 Entonces lo que se debe hacer es buscar la última fila con datos de la columna P....

Te anexo la macro. Antes de ejecutar la macro crea una hoja y la nombras como "temp" Actualiza en la macro estos datos "Hoja1", "B" y "F" Set h1 = Sheets("Hoja1") 'hoja con datos ucol = "F" 'ultima columna de datos En la parte inferior izquierda de...

Envíame un correo nuevo con tu archivo y tus combos. Me explicas en la hoja con ejemplos claro, qué tienes y qué esperas de resultado. Para explicar los ejemplos utiliza comentarios, colores y datos reales. Mi correo [email protected] En el asunto...

Envíame un archivo con tu información. Pon una hoja de ejemplo de cómo quieres el calendario de uno de los turno y me explicas cómo la generaste. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “san lo” S a l u d o s...

Te anexo la macro Sub reporte1() ' '***Por Dante Amor ' Application.ScreenUpdating = False Set h1 = Sheets("RegCertificado") 'origen Set h2 = Sheets("Plantilla") 'destino ' h2.Rows("2:" & Rows.Count).ClearContents ' dni = h2.Range("B1") If dni = ""...

Te anexo la macro para copiar solamente el área de impresión Sub Copiar_Hojas() 'por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Application.SheetsInNewWorkbook = 3 Set l2 = Workbooks.Add...