Respuesta
en
VBA
y en 4 temas más
a
Problemas con métodos de búsqueda
Te anexo la macro completa. Tuve que crear la macro nueva, para tener un orden de archivos y hojas. Al inicio de la macro se establecen los libros que se van a utilizar; después se solicita que se abra el libro variable. De preferencia mantén abierto...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Problema: Como puedo filtrar una tabla dinámica mediante VBA, de algo tan especifico
Puedes realizar lo siguiente, en la columna T pon la siguiente fórmula: =CONTAR.SI(Q3:$Q$16,Q3) Cambia Q3 por la fila inicial de tus datos. Cambia $Q$16 por la fila final de tus datos. Cambia la coma (,) por el separador de argumentos que utilices,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo omitir el error 91 en una búsqueda dentro de una macro?
Te anexo la macro actualizada Sub prb() Range("A1").Select For i = 1 To 18 Set b = Cells.Find(What:=" E CV", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Problema con la la macro para llenar formulario
Te anexo la macro actualizada. La hoja debe ser declarada como Object. Debes validar que el textbox1 siempre tenga datos, de lo contrario no podrás encontrar la siguiente fila vacía y es probable que por eso se encimen tus registros. Private Sub...
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
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
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 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...