Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para eliminar filas en blanco, con celdas consecutivas y no consecutivas.
Prueba esta macro, las celdas en blanco son eliminadas en un solo paso Sub elimina_vacio() filas = Range("a" & Rows.Count).End(xlUp).Row col = Range("a6").currentregion.Columns.Count Set datos = Range("a6").Resize(filas, col) With datos .Sort...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Botón para ordenar una tabla excel macros
Usa esta macro, cada que añadas o quites filas y corras la amcro esta considerara los cambios y los ordenara de acuerdo a ellos y a la ultima columna Sub ordenar_columnas() Set datos = Range("b5").CurrentRegion With datos c = .Columns.Count .Sort _...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Problema con macro: necesito que modifiquen mi macro para que repita una acción
La macro que te pase en el post anterior hace lo que pides y hasta más, de no ser así puedes indicármelo para hacer las modificaciones
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para buscar el valor de una celda y devolver el valor de la fila de la celda
Prueba con esta macro Sub copiar() buscar = Sheets("hoja1").Range("d8") Set datos = Sheets("hoja2").Range("a:a") Set fila = datos.Find(buscar) Range(fila.Address).Columns(2).Resize(1, 7).Copy Sheets("hoja1").Range("d9:d15").PasteSpecial ,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Problemas con macro: como hacer una orden seriada en bucle
Prueba con esta macro Sub dris() filas = Sheets("hoja2").Range("b2").CurrentRegion.Rows.Count Set datos = Sheets("hoja2").Range("b2:f" & filas) With datos For i = 1 To filas .Rows(i).Copy Sheets("MACRO-nutrientes").Range("C5").PasteSpecial...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Macro para bajar datos que están separados por un "|"?
Este es el resultado de la macro y esta es la macro Option Base 1 Sub separar_palabras() Set datos = Range("at1").CurrentRegion With datos f = .Rows.Count: c = .Columns.Count ReDim matriz(f * 5, 2) Set datos = .Rows(2).Resize(f - 1, c) x = 1 For i =...
Respuesta
en
Microsoft Excel
a
Copiar rangos distintos de una hoja a otra en función de distintos valores
Prueba con esta macro Sub copiar() campo = UCase(Sheets("DATOS").Range("a1")) If campo = "COLORES" Then Sheets("datos").Range("c2:e6").Copy If campo = "CIUDADES" Then Sheets("datos").Range("f2:h9").Copy FILAS =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Eliminar todos los números de una columna en excel, menos algunos números (VBA)
Usa esta macro, solo cambia la celda a1 por aquella donde comiencen tus datos Option Base 1 Sub borrar_numeros() Set datos = Range("a1").CurrentRegion With datos f = .Rows.Count ReDim matriz(f, 1) x = 1 For i = 1 To .Rows.Count numero = .Cells(i, 1)...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Almacenar los datos de un rango en una sola variable
Muchos datos en una variable en VBA equivale a una matriz o array de datos ¿no se si eso es lo que buscas?, mira el ejemplo, en el panel locales veras que los daos de fechas únicas son almacenados en una arreglo de variables al que llame matriz, lo...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Vba Alternar formatos al cambiar valores en misma columna.
Este es el resultado de la macro y esta es la macro Sub colorear() Set datos = Range("a2").CurrentRegion ColorFilaP = 35 ColorFilaI = 40 With datos c = .Columns.Count: Fi = .Rows.Count .Columns(1).Copy: .Columns(c + 3).Resize(Fi, 1).PasteSpecial...