Dante Amor

H o l a: Te anexo la macro actualizada y un par de funciones para realizar búsquedas en subcarpetas, subsubcarpertas y todas las subcarpetas. Observa que al principio de la macro está declarada la variable rutas, es preciso que esa línea vaya al...

H o l a: Envíame tu archivo con el formulario, me dices cómo se llama tu formulario, para adaptar el código. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Blas Gerardo Salinas” y el título de esta pregunta.

Imprime varias veces porque preguntas 5 veces por el valor de la celda B951, lo que tienes que hacer es preguntar una vez, quedaría así: Private Sub CommandButton30_Click() 'Act.Por.Dante Amor MsgBox " Estas en la semana: " & Range("b951"), ,...

H o l a: En la celda B2 pon la siguiente fórmula: =A2-45 En la celda B3 pon la siguiente fórmula: =DIA.LAB(A3; -45) ' ‘ F E L I Z A Ñ O T E D E S E A D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s :)

H o l a: Te anexo la macro Sub AgrgarPdf() 'Por.Dante Amor For i = 9 To Range("B" & Rows.Count).End(xlUp).Row If UCase(Right(Cells(i, "B"), 4)) <> ".PDF" Then Cells(i, "B") = Cells(i, "B") & ".pdf" End If Next MsgBox "fin" End Sub :)

H o l a: Te anexo la macro Sub FiltrarCopiar() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Datos") Set h2 = Sheets("Hoja Base") ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row hoja = h1.Cells(i, "A") existe = False For...

H o l a: Pero no me queda claro tu ejemplo, cuál es la celda que contiene "parte del texto", podrías escribir esa "parte del texto" y me explicas cuál es la relación entre la "parte del texto" y el nombre del archivo.

H o l a: En este caso ya no es necesario el inputbox, dejaremos que la macro calcule cuál es la última fila con datos de la columna "C", la macro quedaría así: Sub macro() 'Por.Dante Amor u = Range("C" & Rows.Count).End(xlUp).Row If u < 8 Then u = 8...

H o l a: Podrías enviarme tu archivo con 2 hojas, en la primera hoja me pones tus datos tal y como están, en la segunda hoja me pones el resultado que esperas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario...

H o l a: Te anexo la macro, cambia en la macro "Hoja1" por el nombre de tu hoja y también cambia "A1" por la celda que quieras ocupar. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor 'Crea un nombre con lo que se escribe en la...