ricardo alvarado

En un botón colocas Listbox1. Add (Textbox1.text) Y para las columnas Fila = Hoja1.Rango("A65000").End(xlUp).Row For = i 1 to Fila Listbox1.add (Hoja1.Rango("A" & i).value Next Es un código rápido no se si es lo que necesitas

El salto de página puede ser por la misma hoja de excel que excede los margenes de tu hoja, revisa eso si esta correcto te envió un código para que si tu código de transformación a PDF tiene un error

¿Estos registros los llevaras a mano es decir tu mismo estarás llenando la lista de perdidas o ya tiene algún programa que lleve esto?

Podrías crear un formulario con una lista con check y lo llenas con los datos de una columna de la hoja1, y allí un botón para verificar el check de ese list y buscarlos en la hoja1 y copiarlos en la hoja2.

A ver si te funciona esto: If TextBox1.Text <> "" Then MsgBox (TextBox1.Text), vbInformation, "Informacion" Else MsgBox ("Error"), vbCritical, "ERROR" End If No olvides calificar si es de tu ayuda amigo...

Lo que podrías hacer allí es colocar un condicional donde diga que si la celda es igual a Entidad te cree un nuevo libro y copias allí esa información.

¿Esto en que lenguaje VB6, VBA, Access?

Eso debes revisar el procedimiento que exporta a excel los datos a ver que esta pasando allí

Para esto busca un componente de VBA llamado RICH TextBox allí podrás colocar más texto y justificado

Usa esta macro amigo funciona al 100% pero es por rango de Columnas y Celda espero te sirva no olvides calificar- Estas dos macros te serán útil para lo que necesitas por favor califica si es de tu ayuda. Sub TestExportAsFixedFormat() Dim rng As...