Respuesta
en
Microsoft Excel
y en 2 temas más
a
Concatenar filas si coinciden columnas
Prueba con la siguiente macro y me comentas Cambia "Hoja1" por el nombre de la hoja donde tienes tus datos Cambia "Hoja2" por el nombre de la hoja donde quieres los resultados Sub Concatenar_Datos() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 =...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Filtrar una tabla desde un UserForm
Envíame tu archivo con el userform para adaptar la macro Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Andrés López Acosta”
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Abrir e imprimir un PDF externo con macro
La instrucción para imprimir un archivo pdf: ruta = "C:\Program Files\Adobe\Reader 11.0\Reader\" Shell ruta & "AcroRd32.exe /n /t " & archivo En el siguiente enlace explico como imprimir un archivo pdf Macro imprimir archivos pdf desde Excel 'S...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Facilitar archivo macro en excel vba y XML
Te anexo la macro actualizada: Sub Extraccion() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.Sheets(1) h1.UsedRange.Offset(1, 0).ClearContents ' datos =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Ejecutar macro en un rango de celdas
Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A100")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Value = 1 Then 'MsgBox "macro1" Call Macro1 End If End If End Sub...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para colocar negrita un texto específico dentro de una celda
Te anexo la macro Sub Texto_Negrita() 'Por.Dante Amor For i = 1 To Range("A" & Rows.Count).End(xlUp).Row ini = InStr(1, Cells(i, "A"), "(") If ini > 0 Then fin = InStr(1, Cells(i, "A"), ")") Cells(i, "A").Characters(Start:=ini, Length:=fin - ini +...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Combinar los datos de varios libros en otro libro en Excel (2013)
En esta línea tienes un par de problemas: Workbooks(libro). Worksheets(hoja).Cells(fila, j) = Workbooks(Filename). Worksheets(hoja). Cells(i, j) Al inicio de la macro copia(filename) estás declarando la variable fila: Dim fila As Integer Entonces...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo puedo pegar datos en un rango de celdas dependiendo los valores de una columna?
Te anexo la macro Sub Macro3() ' Por.Dante Amor ' Range("A1"). Copy Range("A4:A" & Range("B" & Rows. Count).End(xlUp). Row). PasteSpecial xlPasteAll End Sub NOTA: En la celda A1 deberás tener una fórmula, en tu ejemplo tienes un texto "sum(b1-c1)" Lo...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Insertar firma con logo a macro mails automático
Te anexo la macro actualizada Cambia en la macro "c:\trabajo\" por la carpeta donde tienes el archivo con la firma y logo. Cambia "firma.jpg" por el nombre del archivo que tiene la firma y logo Private Sub Workbook_Open() 'envía mail 'Por.Dante Amor...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Soporte con macro que se ajuste al texto y ponga bordes variables.
Te anexo la macro actualizada Sub Por_OD() 'Aporte Ronald C. 'Como el usuario dinamico este codigo ayuda a capturar al cualquiera que se loggea Dim struser As String struser = CreateObject("WScript.Network").UserName 'Por.Dante Amor...