Dante Amor

H o l a: Puede poner un ejemplo real de lo que tienes y de lo que esperas de resultado. Entre más claro sea el ejemplo, más práctico será realizar la macro. ¿Cuál es el archivo que quieres guardar como PDF? ¿Es el mismo que tiene la macro? Cuando...

H o l a: Envíame un correo nuevo y en el asunto escribe tu nombre de usuario. En el archivo me explicas con un ejemplo lo que necesitas. Sal u dos

¿Pero qué es CausaEnt? ¿Solamente es una variable? Si lo que quieres es copiar lo que tienes en la celda B2 en otro lado puede ser así: Sub CopiaCelda() Cells(2, "B").Copy Sheets("Hoja3").Range("C4") End Sub Cambia "Hoja3" por la hoja destino, cambia...

H o l a: Te anexo la macro Sub CopiarFila() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") If h1.[A2] = "" Then MsgBox "Escribe en la celda A2 un dato a buscar", vbCritical Exit Sub End If Set b = h2.Columns("A").Find(h1.[A2],...

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor Application.ScreenUpdating = False If Not Intersect(Target, Columns("M:M")) Is Nothing Then u = Range("M" &...

H o l a: Te anexo la macro, va en los eventos de la hoja. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor ActiveSheet.Unprotect If Not Intersect(Target, Range("C:C")) Is Nothing Then Range("A" & Target.Row) = Date Range("B" &...

H o l a: ¿Qué datos tienes en la celda que te ocasiona el error? Lo que hace tu macro es revisar si es de 8 caracteres convierte a la fecha, pero si no es de 8, puede ser que sea de 1, 2, 10, etc. Puedes poner una imagen de los posibles datos que...

Intenta con lo siguiente: Sub Actualizar() ActiveSheet. PivotTables("TablaDinámica1"). PivotCache. Refresh DoEvents Application. Wait Now + TimeValue("00:00:05") DoEvents ActiveWorkbook. RefreshAll End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar...

Pon la siguiente macro en los eventos de ThisWorkbook. Cambia en la macro "abc" por el password que desees que tengan las hojas. Private Sub Workbook_NewSheet(ByVal Sh As Object) 'Por.Dante Amor For Each h In Sheets If h.Name <> Sh.Name Then...

H o l a : Te anexo el código Set h1 = Sheets("personal") For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i, "AD") = "SI" And _ h1.Cells(i, "H") Like "*CAPATAZ*" Then ComboBox1.AddItem h1.Cells(i, "b") End If Next' : ) 'S aludos....