James Bond

James Bond

Si de mis mayores gustos, mis disgustos han nacido, gustos al cielo le pido aunque me cuesten disgustos
 221K puntos  Monterrey, México @eusebiosuarez desde - visto

Actividad pública reciente

Ha respondido en

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
Ha respondido en y en 2 temas más

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...
Ha respondido en y en 3 temas más

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 _...
Ha respondido en

¿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...
Ha respondido en y en 2 temas más

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
Ha respondido en y en 1 temas más

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 ,...
Ha respondido en y en 2 temas más

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...
Ha respondido en y en 2 temas más

¿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 =...
Ha respondido en

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 =...
Ha respondido en

Macro Cambiar el nombre a una hoja.

Hay dos maneras una que pongas el nombre del mes en a1 y la otra el nombre concatenado en la celda a1, te paso la instrucción para ambas opciones, usa sola 1 Sub cambiar_nombre() Sheets(ActiveSheet.Name).Name = "Pgos. Prov. " & Range("a1")...
Ha respondido en y en 1 temas más

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)...
Ha respondido en y en 2 temas más

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...
Ha respondido en y en 1 temas más

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...
Ha respondido en y en 1 temas más

Obtener el nombre de una tabla vía Macro

Entra a la macro y cambia todas las líneas tablename:="tabla dinámica 1" por el nombre que tu quieras pro ejemplo: tablename:="tabla_numeros", ais cada vez que generes la tabla esta tendrá el mismo nombre, con el nombre por default que actualmente...
Ha respondido en y en 2 temas más

¿Evento de dos o más controles al tiempo en VBA?

Si la macro no tienen controles de formulario como textbox puedes escribirla en un modulo standard, y llamarla desde cada textbox con el evento afterupdate con call (nombre de la macro) o simplemente nombre de la macro, en caso de que la macro maneje...
Ha respondido en

Buscar 3 criterios y llenar celdas si tercer criterio está vacío.

Esta es una macro sencilla que hace lo que buscas, si el nombre existe en cualquiera de las 2 hojas te lo mostrara en un mensaje y terminara el programa, en caso contrario hara la captura solo especifica antes de range("a:a") del with la hoja donde...

Educación

  • UANL
    Ing. Industrial y Admon