Henry Boom

Prof. Francisco Poveda respondió: ¿Qué es eso de una "caminadora"?

Dante Amor respondió: H o l a : Te anexo los códigos ajustados: Sub codigo1() ufil = Range("A" & Rows.Count).End(xlUp).Row Range("A1:D" & ufil).Sort Key1:=Range("b2"), Order1:=xlAscending, _ Key2:=Range("a2"), Order2:=xlAscending, Header:=xlYes, _ OrderCustom:=1,...

Dante Amor respondió: H o l a : Ya no entendí, quieres ajustar la imagen al tamaño de las celdas B9:B12. Si es así, entonces utiliza lo siguiente: Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range) 'Act.Por.Dante Amor With rngTarget.Parent Set img =...

Respecto a tu duda, el archivo lo puedes mandar llamar directo desde su ubicación. Workbooks.Open Filename:="C:\Users\ktathiridive\Desktop\TU ARCHIVO.pdf"

Prueba este código y modifica el rango en la variable hoj Sub celdasdesproteger() ActiveSheet. Unprotect Beep Dim Estilo, Mensaje, Título, Respuesta Mensaje = "Realmente deseas borrar todos los datos" Título = "¡¡ALERTA!!" Estilo = vbYesNo +...

Eh realizado una pequeña modificación, indiqueme si le funciona. Option Explicit Sub ExtractReps() Dim ws1 As Worksheet Dim wsNew As Worksheet Dim rng As Range Dim r As Integer Dim c As Range Set ws1 = Sheets("Hoja1") 'aqui va el nombre de tu hoja...

Anexo macro que elimina los duplicados de la columna "Email": Sub repetidos() 'Opcional 'Application.ScreenUpdating = False Range("E2").Select Do While Not IsEmpty(ActiveCell) x = WorksheetFunction.CountIf(Range("E:E"), ActiveCell) If x > 1 Then...

Acá te explican como quitar la contraseña espero te ayude. https://www.youtube.com/watch?v=8kt2NThkyUc

Dante Amor respondió: Te anexo la macro actualizada Sub sustituir() For j = Range("G" & Rows.Count).End(xlUp).Row To 2 Step -1 If Cells(j, "G") = "FALSO" Or Cells(j, "G") = FALSO Then Cells(j, "D") = Cells(j, "B") Cells(j, "B") = Cells(j, "F") With Cells(j, "D").Interior...