Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como hago para imprimir automáticamente en excel
Cambia esta línea For i = inicio To fin Por esta For i = inicio To fin Step 2 Prueba y me comentas. Avísame cualquier duda. 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Macro para enviar correos desde Outlook con dos usuarios diferentes.
H o l a: Prueba con esta opción: Después de esta línea: Set parte2 = parte1.createitem(olmailitem) Pon esta: Parte2.SendUsingAccount = mensaje. Session. Accounts. Item(2) Cambia el 2 que está en Item(2), por el número de cuenta El número de cuenta lo...
Respuesta
en
Visual Basic
y en 1 temas más
a
Usar el valor de una variable de una sub de un modulo para abrir uno u otro formulario en función de esta. Excel VBA
Realiza lo siguiente: - Suponiendo que los 2 botones abren el userform "FormPass" - En el FormPass, pon la variable "llamada" como pública: Public llamada ' Private Sub CommandButton1_Click() 'Por.Dante Amor Select Case llamada Case "boton1"...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Como estampo la dirección o ruta de mi archivo al pie de página
Para poner la ruta y el nombre del archivo en el pie de página. Entra al menú, Diseño de página, Configurar Página, Encabezado y pie de página, Personalizar pie de página. En la ventana de pie de página presiona el icono (carpeta) "Insertar ruta del...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Eliminar columnas enteras, cuando en la fila no existan valores
Te anexo la macro Sub Eliminar_Columnas() 'Por.Dante Amor ' Application.ScreenUpdating = False For j = Columns("AZX").Column To Columns("A").Column Step -1 If Cells(3, j) = "" Then Columns(j).Delete Shift:=xlToLeft End If Next...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Controlar el error de una sola linea en VBA Excel?
Para desactivar el "On Error Resume Next", se utiliza "On Error Goto 0" de esta forma: Instrucion 1 Instrucion 2 'Quiero que este error sea omitido On Error Resume Next Instrucion 3 'con error Instrucion 4 Instrucion 5 On Error Goto 0 'Quiero que...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que procesa Excel extraído de SAP
Utiliza Local:=True al abrir el archivo: Workbooks.Open Filename:="C:\users\" & Environ("UserName") & "\Documents\", _ Local:=True También revisa la configuración regional, supongo que debes tener la de España, donde el decimal es coma (,) y el...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Consolidar tabla con nombre de hoja en hipervínculo y datos de celdas específicas
Te anexo la macro actualizada. Private Sub Worksheet_Activate() Dim cHoja As Worksheet Dim L As Long Dim X As Long ' L = 9 With Me .Columns(1).ClearContents .Cells(10, 1) = "INDICE" .Cells(10, 1).name = "Indice" End With ' For Each cHoja In...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Insertar imagen en cuadro de texto en un rango determinado
Te anexo la macro actualizada, primero te pide que selecciones el archivo, después selecciona la celda, por último se inserta la imagen. Sub Macro3() 'Act.Por.Dante Amor 'Insertar imagen ' With Application.FileDialog(msoFileDialogFilePicker) .Title =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Buscar datos en libro y Reemplazar en celda especifica VBA
Ya no entendí en tu descripción. Dime qué necesitas: a) ¿Buscar en toda la hoja y cambiar todo lo que encuentre sin importar la columna? b) ¿Buscar solamente en la columna C y cambiar el dato en la columna C? c) ¿Buscar solamente en la columna M y...