ricardo alvarado

Sub CopyRenombre() Application.ScreenUpdating = False Sheets("Hoja1").Copy After:=Sheets(1) HojaNuevaN = Hoja1.Range("A1").value ' Aca colocas la celda que tiene el nombre ActiveSheet.Name = HojaNuevaN Sheets("Hoja1").Select...

Aquí tienes una pequeña macro Sub Exportartxt() Dim Archivo_No As Integer Dim Nombratxt As String Archivo_No = FreeFile Nombretxt = "MITXT.txt" 'Colocas el nombre del archivo Open Nombretxt For Output As #Archivo_No With Sheets("Hoja1") Print...

Seria algo así amigo en la propiedad change del textbox1 vas a colocar esto: If textbox1.text <> empty then textbox2.enable = true else textbox2.enabled = false end if Y así con los demás texto esto por lo que puedo entender es para validar que...

¿Estos archivos llenan un nombre similar con algún correlativo? ¿Qué datos de cada libro deseas ingresar al nuevo de que columna a cual? ¿De dónde se toma el nombre de la hoja que vas a renombrar?

¿Qué Columnas van de el libro 1,2,3,4 copiadas en el 5 y en que saldas van copiadas en el Libro 5?

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...