Nestor Castellar

No estas indicando la tablas, cuales son los campos, donde esta el saldo anterior en fin hay que complementar para poderte ayudar

Bueno como no indicas que celdas se van a borrar Sub Imprimir() Sheets("Hoja3").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True X=msgbox (“listo para borrar las celdas”,32+4,”Eliminar”) If x=6 then Range(“a5:c20”).value=”” endif...

Esta función le pasas por primera celda del primer rango y el segundo argumento le pasas todo el segundo rango fijo, el lo que hace es comparar la primera celda con cada una de las celdas del rango dos. Y luego arrastras la formula. Si desea...

Pero pasa el código que tiene para poderte ayudar sobre lo que ya tienes

Si gustas me regalas un correo para mandarte la respuesta aplicada en un ejemplo

Leonardo buenas tardes Según lo que estas pidiendo eso es lo que hace el código que tienes allí, pero no entiendo cuando dices que solo te pasa los datos de la primera columna... Por favor detalla la información ¿El listbox tiene las 6 columnas que...

Bueno yo hago funciones para los procesos, este te permite enviar el informe en formato pdf por email. En nombrex es para capturar el nombre del infrome que este activo actualmente, es decir esta funcion te permite enviar por email cualquier informe...

[email protected]

Sub copiar() ' ' copiar Macro ' ' Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Rem lo anterior copia solo las celdas visibles Rem seleccionamos la hoja y celda donde deseamos pegar Sheets("Hoja4").Select Range("A1").Select Rem le...

El enlace de esta página de microsoft allí tienen la información https://support.microsoft.com/es-es/help/280372/how-to-fill-a-list-box-or-a-combo-box-with-database-object-names