Respuesta
en
Microsoft Excel
y en 1 temas más
a
Pasar datos de un ListBox a otro y sumar códigos repetidos
Checa esta macro, como puedes ver hay nombres repetidos en ambos listbox y en esta imagen la macro retiro los duplicados y cargo nombres unicos en el listbox1 y esta es la macro, la carga de datos en ambos casos se realiza por un rowsource como no...
Respuesta
en
VBA
a
Cambiar de "Additem " a "RowSource" en VBA
Prueba con esta macro Private Sub UserForm_Activate() With ListBox1 .RowSource = "hoja1!" & Range("a6").CurrentRegion.Address .ColumnCount = Range("a6").CurrentRegion.Rows.Count End With End Sub
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
Visual Basic
a
¿Cómo corregir error de compilación por incompatibilidad de código?
De entrada no es ninguna incompatibilidad de código es que simplemente quieres replicar elponer formato de moneda del listbox en el formulario 2, la variable que te da problemas es porque es una amtriz que no haz creado y en este formulario no...
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 =...