Dante Amor

Prueba con esto: ActiveWindow.View = xlPageBreakPreview ActiveSheet.ResetAllPageBreaks ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1 Pero también debe existir un corte de página vertical, si los datos caben en una hoja te va...

En un módulo pon la siguientes macros: (Cambia Userform1 por el nombre de tu formulario de entradas, lo mismo para el de salidas) Sub Entradas() UserForm1.Show End Sub ' Sub Salidas() UserForm2.Show End SubSigue las Instrucciones para un botón y...

¿Cómo se llaman las hojas en cada libro? ¿O es la primera hoja de cada libro? ¿En cuál fila empiezan los datos del libro1?

Si la tabla fue creada con la opción Insertar/Tabla, entonces ejecuta la siguiente macro: Sub Macro1() 'Por Dante Amor num = InputBox("Cuantas filas desea insertar?", "INSERTAR FILAS EN TABLA") If num = "" Or Not IsNumeric(num) Then Exit Sub End If...

Puedes limitar la longitud de lo capturado, pero no cuando estás capturando el texto. Podrías capturar el texto en un Control deTextbox puede ser en uno Control ActiveX o de un UserForm y con la propiedad del Textbox limitar la cantidad de...

Si tienes un ciclo for que va desde la celda 1 hasta la última celda con datos de la columna A, podría ser así: for i = 1 to range("A" & rows.count).end(xlup).row x = range("A" & i).value next Solamente como breviario: Si pones esto: x = range("a1" &...

Prueba con el formato de celdas. Selecciona la celdas o celdas donde quieras el prefijo. Selecciona la opción Personalizada. En tipo escribe: "LEG"# Presiona Aceptar La otra opción, es con código VBA. Pon la siguiente macro en los eventos de tu hoja...

[H o l a María: Buena la explicación y el ejemplo, solamente te faltó mencionar en dónde se va a pegar el código. En tu ejemplo, se copia el código 1234, pero en dónde quieres que lo ponga. Y otro detalle, en tu explicación mencionas que el valor...

Para encontrar los únicos necesitamos utilizar otra columna. En la columna D, en la celda D2, pon la siguiente fórmula: =CONTAR.SI(B2:$B$16,B2) Cambia el 16 por la última fila con datos. Ahora pon la siguiente fórmula en G4...

Prueba poniendo la instrucción Application.DisplayAlerts = False pero al inicio de la macro. Prueba y me comentas