Dante Amor

H o l a :Puedes enviarme tu archivo y me explicas paso a paso lo que quieres realizar. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “rogelio Valencia” y el título de esta pregunta.

h o l a: Envíame tu archivo con el formulario y me explicas con ejemplos lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “os- consulting” y el título de esta pregunta.

H ol a: Pon tu función Hrst( ) en un módulo Function Hrst(FechaInicial As Date, FechaFinal As Date) Hrst = (FechaInicial - FechaFinal) * 24 End Function La macro DescribeFuncionHrsT para agregar las opciones de la función Hrst, la debes agregar de...

Para listar los archivos solamente necesitas estas macros. Pon la extensión en la celda C9 Dim iRow ' Sub ListFiles() iRow = 11 Rows(iRow & ":" & "65536").Clear Call ListMyFiles(Range("C7"), Range("C8"), Range("C9")) End Sub ' Sub...

H o l a : Te anexo la nueva macro Sub Copy_files() 'Por.Dante Amor rutao = Range("B2") rutad = Range("B4") exten = Range("B6") ' If rutao = "" Or rutad = "" Or exten = "" Then MsgBox "Completa los datos" Exit Sub End If ' If Right(rutao, 1) <> "\"...

En el rango range(cells(fila, col), cells(fila, col)) tienes que indicar la hoja para cada celda, de lo contrario te tomará datos de la hoja activa, por ejemplo, tendría que ser así: Hoja. Range(Hoja. Cells(fila, col), Hoja. Cells(fila, col)) Prueba...

Te anexo la macro Sub LineaInclinada() 'Por.Dante Amor 'Borrando líneas anteriores For Each s In ActiveSheet.Shapes If s.Name = "linea1" Or s.Name = "linea2" Then s.Delete End If Next ' f = 5 Do While Cells(f, "B") <> "" f = f + 1 Loop f = f + 1 If f...

Te anexo la macro Dim años As New Collection ' Sub Separar() 'Por.Dante Amor Application.ScreenUpdating = False Application.StatusBar = False ' Set h1 = Sheets("TODO") Set h3 = Sheets("FORM") Set años = Nothing Call Borrarhojas ant = "" k = 2 uc =...

Te regreso la macro con los comentarios Sub EliminarFilas() 'Por.Dante Amor u = Range("A" & Rows.Count).End(xlUp).Row ant = Cells(u, "A") j = u n = 0 'El ciclo va desde la última fila hasta la fila 1 'con el Step -1 se va decrementando de uno en uno...

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 =...