corina  valerio

corina valerio

 México @sushuky desde - visto
Preguntar

Actividad pública reciente

Ha preguntado en el tema en y en 3 temas más

Macro que complete datos en formato de word sacando la información de archivo en excel

Necesito una macro que me ayude a completar datos en un formato de word La información que quiero completar se encuentra en un archivo de excel el cual contiene Lo que pretendo es que los datos del segundo recuadro que pertenecen al destinatario...
Sin respuestas
Ha preguntado en el tema en y en 3 temas más

Macro que abra archivo .PDF alojado en carpeta externa que coincida el nombre exacto y anexar la terminación .PDF

Disculpe ya tengo la macro que me busca y abre el archivo a partir de la coincidencia con parte del nombre del archivo y anexando la terminación .PDF en caso de no tenerlo realizando la búsqueda a partir de una carpeta y dentro de sus subcarpetas...
Sin respuestas
Ha cambiado su perfil.
  • Ha cambiado su foto.
Ha cambiado su perfil.
  • Nombre completo: corina valerio.
Ha valorado "Excelente" la respuesta

Modificar macro que busca archivos y cambia de color el texto dependiendo si esta o no, para que la búsqueda abarque subcarpetas

respondió: H o l a: Cambia la macro RevisarArchivo por lo siguiente, deberás poner todo en un módulo, observa como al principio de todas las macros va la declaración de la variable rutas Dim rutas As New Collection ' Function encuentraarch(nuevo) 'Por.Dante...
Ha valorado "Excelente" la respuesta

Macro que realice búsqueda en carpeta externa y subcarpetas de esta a partir de dato en una celda

respondió: 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...
Ha valorado "Excelente" la respuesta

Anexar texto al final de contenido de una celda con macro

respondió: 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 :)
Ha valorado "Excelente" la respuesta

Macro para abrir archivo .pdf alojado en carpeta externa aun que solo coincida parte del texto y como colocarle al final ".pdf"

respondió: 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.
Ha valorado "Excelente" la respuesta

Macro que realice búsqueda en columna B si existe el archivo en carpeta externa cambie color de texto y si no lo copie a h5

respondió: H o l a: Te anexo la macro Sub RevisarArchivos() 'Por.Dante Amor Application.ScreenUpdating = False Set h5 = Sheets("Hoja5") j = h5.Range("B" & Rows.Count).End(xlUp).Row + 1 For i = 9 To Range("B" & Rows.Count).End(xlUp).Row 'ChDir...