Dante Amor

H o l a: No entendí muy bien lo que necesitas. Envíame un archivo con ejemplos, me explicas con comentarios, colores o imágenes lo que necesitas.

H o l a: Te anexo la macro. En esta línea de la macro tienes que poner la ruta y nombre del programa Adobe Reader que tengas: pid = Shell("C:\Archivos de programa\Adobe\Reader 10.0\Reader\AcroRd32.exe /p /h """ & ruta & arch & """",...

H o l a: Si tus datos están ordenados, de la forma en que estás realizando la búsqueda, puede que funcione. Me refiero a que buscas el primer registro del combobox1 en la columna A, si lo encuentra, buscas el primer registro del combobox2 en la...

H o l a: Te anexo la macro para ordenar los datos en las 5 hojas Sub Macro2() ' Application.ScreenUpdating = False hojas = Array("Hoja1", "Hoja2", "Hoja3", "Hoja4", "Hoja5") For i = LBound(hojas) To UBound(hojas) Set h = Worksheets(hojas(i)) With...

H o l a: Te anexo la macro para que la pongas en un botón. Sub SeleccionarHoja() 'Por.Dante Amor hoja = Range("C57") If hoja = "" Then MsgBox "Excribe el nombre de la hoja en la celda C57", vbExclamation Exit Sub End If existe = False For Each h In...

Puedes poner la macro que usas. Y qué columnas quieres exportar y qué ancho de columna quieres poner, el mismo que tiene la columna en la hoja o tienes un tamaño definido para cada columna.

¿Y cuáles son las condiciones? Puedes poner ejemplos con datos reales y qué es lo que esperas de resultado, apóyate insertando imágenes para que expliques los ejemplos.

H o l a: Te anexo la macro actualizada. Sub ALMACENAR() 'Por.Dante Amor Set h2 = Sheets("CLIENTES") Set h3 = Sheets("FORMULARIO") ' If h3.[E7] = "" Then MsgBox "Ingrese el ID en la celda E7", vbExclamation [E7].Select Exit Sub End If ' Set b =...

H o l a: Envíame un correo nuevo con los archivos y la explicación. En el asunto del correo pon tu nombre de usuario: "Lauris Wing" Sal u dos

H o l a: En un correo nuevo envíame tu archivo y me explicas con ejemplos lo que tienes y lo que esperas de resultado.