Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro que me pase información a otra hoja en base al criterio fecha
Te envío la macro actualizada, solamente tienes que actualizar las columnas que quieras copiar en esta línea: cols = Array("C", "E", "F", "G", "H") 'completar las columnas La macro completa: Sub Macro2() 'Por Dante Amor Application.ScreenUpdating =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro filtro avanzado version II
Te anexo la macro Sub Macro2() 'Por Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Importaciones") Set h2 = Sheets("FORMATO DE DESCARGA") If h1.AutoFilterMode Then h1.AutoFilterMode = False If h2.Range("B2").Value = "" Or Not...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Guardar archivo creando carpeta y archivo con valor de celda excel 2016 Macro
Te anexo la macro actualizada Sub Guarda_Archivo() 'Por Dante Amor carpeta = Range("A1").Value archivo = Range("A2").Value If Right(carpeta, 1) <> "\" Then carpeta = carpeta & "\" If Dir(carpeta, vbDirectory) = "" Then MkDir (carpeta) End If...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Buscar filas específicas en Excel, para eliminarlas con una macro
Para hacer la macro puedes poner un par de imágenes para ver cómo tienes tu información en la hoja, procura que en la imagen se vean las filas y las columna de excel. Necesito ver en cuál fila tienes tus encabezados, en cuál fila empiezan tus datos,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Código para concatenar celdas mediante comas en excel
Te anexo el código actualizado Function CONCATENARCELDAS(rango As Range) For Each celda In rango.Cells If celda.Value <> "" Then resultado = resultado & ", " & celda.Value End If Next celda resultado = Right(resultado, Len(resultado) - 2) ult =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Error en mi listbox de 20 me marca solo 10
Con el método .AddItem, es una limitación de VBA, solamente puedes agregar hasta 10 columnas. Para agregar más de 10 columnas, tienes que utilizar la propiedad .RowSource o .List Te anexo unas respuestas donde hay un ejemplo para List y otro para...
Respuesta
en
VBA
y en 3 temas más
a
Tiempo de espera ejecución de código vba
Prueba de esta forma: Private Sub Workbook_Open() ActiveWorkbook. RefreshAll DoEvents Application. Wait (Now + TimeValue("00:00:01")) DoEvents Módulo2. ColoresIconos Módulo3. ExportarIconos End Sub '.[Sal u dos. Dante Amor. No olvides valorar la...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Suma de valores por texto de otra columna
Es correcto lo que comenta Gustavo, lo más practico es crear una tabla dinámica Selecciona los datos, ve al Menú Insertar, Tabla dinámica, puedes seleccionar la opción, Hoja de cálculo existente y seleccionar una celda. Después de la lista de campos,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para comparación de datos
Te anexo la macro Sub Compara_Hojas() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Columns("A:C").Interior.ColorIndex = xlNone For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row docid = h2.Cells(i, "A").Value valor =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para copiar hoja sin botón y macros q
Te anexo la macro actualizada Private Sub cmdguardar_Click() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.CopyObjectsWithCells = False Worksheets("Caja").Activate Worksheets("Caja").Visible = True...