Impresion en Excel

Preguntas y respuestas relacionadas

Enumerar Pagina Correlativa y Ajustar Margen

A los miembros de este foro, en esta ocasión recurro a uds, y me brinden su apoyo en como mejorar la macro que describo a continuación, la macro debe permitir imprimir el nombre del archivo en uso y la numeración de pagina, como se muestra en la...
1 respuesta

Salto de Línea en VB6

Tengo una aplicación en VB6 en la que utilizo algunas variables para imprimir un formato, la cuestión es que a veces el valor de la variable que se imprime contiene una descripción demasiado larga, lo que quiero es que se imprima en 2 renglones,...
1 respuesta

Tengo esta Private en una hoja, cambiar un concepto si se puede

Tengo esta Private en una hoja, cambiar un concepto si se puede: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, [E93:V94]) Is Nothing Then ' PEDRO Sheets("ControlVentaArticulo").Select...
1 respuesta

Como hacer que la macro color cortar y pegar llegue a 1000 filas

En la macro que se encuentra de cambia la celda de color a otra solo llega hasta 105 filas y requiero que llegue hasta la fila 100.
1 respuesta

Imagen automática con macros en excel

Dante amor, en relación con esta macros : Sub insertarimagen() 'Por.DAM On Error Resume Next ruta = ActiveWorkbook.Path & "\" For i = 1 To Range("A" & Rows.Count).End(xlUp).Row imagen = Cells(i, "A") Set img = ActiveSheet.Pictures.Insert(ruta &...
1 respuesta

Macro para imprimir un formulario predeterminado

He creado un formulario según mis necesidades y hasta ahora me ha ido bien, también gracias a la ayuda de ustedes. Diseñe un UserForm donde tengo la info de mis proveedores y sus productos y quiero que de la información que se suministre allí me...
2 respuestas

¿Cómo puedo ajustar una imagen automáticamente en un control ActiveX de imagen?

Tengo una hoja de excel en la que agregue el siguiente código: Private Sub Image1_Click() End Sub Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo final If Target.Address = "$A$1" Then nombre = Target.Value ActiveSheet.Image1.Picture...
2 respuestas

Agilizar macro que presenta lentitud

Tengo la siguiente rutina pero es muy lenta, y aunque tengo apagado el Screen Update sin embargo se ve la ejecución en algunas partes, espero me puedan ayudar: Sub NuevoReclamo() Application.ScreenUpdating = False ActiveSheet.Unprotect...
2 respuestas

Me gustaría simplificar esta macro

Esta es la macro: Sub BorrarMiaSeleccion() Call BorrarDesbloqueadas Call Borrar1 Call finalizar_las_macros_así End Sub Y esto depende de : Sub BorrarDesbloqueadas() ActiveSheet.Protect Password:="1" Dim r As Range For Each r In Selection If r.Locked...
1 respuesta

Abrir la ventana BUSCAR con una macro

Quiero saber si se puede abrir la ventana de BUSCAR con una macro, actualmente lo hago con Ctrl - B pero me gustaría una macro para generar un botón.
1 respuesta
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema