Dante Amor

. Ho la y bienvenido a TodoExpertos. Sigue las instrucciones para agregar más de 10 columnas con el método AddItem Primero se establece con la propiedad .List el número de columnas: Private Sub UserForm_Activate() ReDim b(1 To 1, 1 To 20) 'número de...

Activa la grabadora de macros. Configura la impresión como quieres que salga la hoja. Activa los márgenes, si es vertical u horizontal, en fin toda la configuración de impresión. Regresa a detener la macro. Copia la macro y la pegas aquí para revisarla.

Cambia los nombre de los listbox (ListBox_Izq y ListBox_Der) por tus nombres Con dobleclick: Private Sub ListBox_Der_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If ListBox_Izq.ListCount = 26 Then MsgBox "Límite de artículos alcanzado" Exit Sub...

Application.StatusBar = cstr(Z) & " de " & cstr(finx) Veo que ya tienes StatusBar en el código. Cuál es el problema?

Quita la instrucción On Error Resume Next. Prueba nuevamente la macro y comentas qué sucede.

Ejecuta la siguiente macro o agrega las líneas en tu código: Sub macro1() Dim ruta As String With ThisWorkbook ruta = .Path & "\" .SaveCopyAs ruta & Replace(.Name, ".xlsm", "") & " " & Format(Date, "dd-mm-yyyy") & ".xlsm" End With End Sub

Elijo un nombre y automáticamente se muestra esta hoja Si la hoja está oculta y seleccionas un nombre, la hoja no se muestra. ¿Tienes una macro para que la hoja se muestre?

Puedes utilizar un formato condicional En la fórmula: =HALLAR("corazza",A1) Se aplica (el rango que necesites) =$A$1:$A$10 Ejemplo:

[E stimado, tienes pendiente valorar respuestas: Problema para exportar a PDF en Excel VBA

Te muestro unos ejemplos para insertar una tabla en el correo: ¿Cómo crear macro para enviar diferente información a cada destinatario? Ejemplo de E-mail enviado desde excel con tabla de datos Macro para copiar rango de celdas en Outlook no funciona...