Dante Amor

H o l a: Te anexo la macro, tienes que poner el nombre de la hoja destino, la fila inicial y la columna inicial en donde se pegarán los datos y el rango a copiar. Yo puse estos ejemplos, pero tienes que poner tus datos Set h1 = Sheets("Hoja1") 'hoja...

H o l a: Intenta con cualquiera de estas dos opciones: Sheets("Hoja1").Cells(5, "A") = CDate(TXFECH)Sheets("Hoja1"). Cells(5, "A") = CDate(Format(TXFECH, "dd/mm/yyyy"))

H o l a: Te envío varios ejemplos de progressbar que he implantando en diferentes archivos: Como poner un control PROGRESSBAR en hoja excel Para Dante - Barra de progreso Implementar Progress Bar en macro para generar efecto visual Barra de Progreso...

H o l a: Cuando cargas las información con Rowsorce, no puedes eliminar en el listbox, lo que tienes que hacer es eliminar en el rango de excel y volver a cargar el listbox. Tampoco puedes limpiar el listbox con Clear, tienes que poner:...

H o l a: Esa debe ser una propiedad de tu impresora, abre tu archivo PDF, selecciona del Menú Archivo / Imprimir. En la ventana de imprimir, presiona el botón Propiedades: En las propiedades de tu impresora, activa la casilla de Zoom y en el %...

H o l a: Envíame tu archivo con ejemplos reales de cómo quieres el resultado. Debes cambiar las imágenes por "X" Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “David Lezcano” y el título de esta pregunta.

H o l a: No me dijiste si los textbox están en la hoja o en un userform. Te anexo un ejemplo para realizar la búsqueda, suponiendo que es un userform, que capturas el número de serie en el textbox1 que vas a llenar los textbox2 y 3. Cambia "base de...

H o l a: Prueba con la siguiente macro. Ejecuta la macro sobre la hoja que tienes que revisar. Si falta algún carácter que hay que eliminar me dices cuál es y lo agregamos en la lista. En la lista estoy considerando también, las letras con acento, la...

H o l a: Con la siguiente macro, solamente te va a enviar a PDF las hojas que tengas visibles: Sub GuardarHojaComoPdf() 'Por.Dante Amor ' Application.DisplayAlerts = False ruta = ThisWorkbook.Path & "\" For Each h In Sheets If h.Visible = True Then...

H o l a: Puedes enviarme tu archivo para ver cómo están los datos. ¿Entonces tienes 2 problemas, el primero, es copiar la orden a otra hoja; y el segundo, es poner los totales? Mi correo [email protected] En el asunto del correo escribe tu nombre de...