Respuesta
en
Microsoft Excel
y en 1 temas más
a
Como corregir macro excel que envía mail de rango y adjunto?
Lo que pasa es que la variable de ruta_archivo está en otra rutina. Prueba con el siguiente: Sub Enviar() ActiveSheet.Range("A1:m27").Select 'Seleccionamos el rango de celdas a enviar Select ActiveWorkbook.EnvelopeVisible = True ' Show the envelope...
Respuesta
en
Microsoft Excel
a
Macro Excel Guardar Registros Matriz
Tu matriz solamente es de una dimensión. Es decir, solamente quieres almacenar datos de la columna A, entonces quedaría así: Sub ValCol02() Dim F As Double Dim i As Double Dim MiMatriz() F = Cells(Rows.Count, 1).End(xlUp).Row ReDim MiMatriz(1 To F)...
Respuesta
en
Microsoft Excel
a
Borrar bien las casillas de verificación
Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor Set n = Range("E3") If Not Intersect(Target, n) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Value = "" Or Target.Value < 1 Or Not...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro de excel para buscar vinculando 2 combobox y mostrando un listbox
Te anexo un ejemplo para cargar las sociedades, las categorías y los datos en el List. Cambia en el código "soc1", "soc2", "soc3", por lo nombres de tus hojas que contienen las sociedades. El código está preparado para cargar las categorías si...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Puedes revisar la macro que me enviaste?
Te anexo la macro actualizada Sub Grabar_Aviso() 'Por Dante Amor ' Grabar_Aviso Macro ' Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("Aviso de Cobro") If h1.Range("C11").Value = "" Then MsgBox "Debes...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Copiar datos del libro activo a otro libro acumulando en la fila vacía
¿Quieres copiar todas las filas de la hoja origen a la hoja destino? Si es así, entonces cambia esta línea: H1. U1. Copy h2.Range("B" & u2) '. PasteSpecial xlvalues Por esta: H1.rows("10:"& u1). Copy h2. Range("A" & u2) Prueba y me comentas. Si no es...
Respuesta
en
Microsoft Excel
a
Crear macro que ordene datos repetidos alfabéticamente y luego inserte filas en blanco separando en grupos los datos repetidos
Te anexo la macro Sub Macro1() 'Por Dante Amor Range("A1").CurrentRegion.Sort Key1:=Range("A:A"), Header:=xlYes For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If ant <> Cells(i, "A").Value Then Rows(i + 1).Insert Shift:=xlDown ant =...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Como crear un Backup automático (Macros)
Te anexo un ejemplo, cambia la ruta y el nombre por los que desees Private Sub Workbook_Open() ruta = "C:\respaldos\" nombre = "backup " & Format(Date, "dd-mm-yyyy") & ".xlsm" ThisWorkbook.SaveCopyAs ruta & nombre End Sub [Sal u dos, no olvides valorar.
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Como redondear unos decimales a la denominación más cercana
Utiliza la siguiente fórmula =REDONDEAR.MAS(D3,1)
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Quiero que mi macro ordene de mas reciente a mas antiguos un rango de fechas
Te anexo la macro con el cambio Sub actualizar() 'Por.DAM Set h1 = Sheets("REGISTRO DE LM") With h1.Sort .SortFields.Clear: .SortFields.Add Key:=Range("F9:F99"), Order:=xlDescending .SetRange Range("A1:H9999"): .Header = xlYes: .Apply End With End...