James Bond

James Bond

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

Actividad pública reciente

Ha respondido en y en 3 temas más

Como puedo desplegar el código de vale descripción y total en una macro?

Este es el resultado de la macro y esta es la macro Sub resumir_datos() Set datos = Range("a1").CurrentRegion With datos f = .Rows.Count: c = .Columns.Count Set tabla = .Columns(c + 3).Resize(f, c) End With With tabla .Value = datos.Value...
Ha respondido en y en 2 temas más

Generador de números de 4 cifras en excel

Hay muchas maneras de hacer un generador de números aleatorios primero tienes que definir si lo quieres de probabilidad uniforme donde todos los números tienen la misma probabilidade salir, ejem: randomize, numero=rnd...
Ha respondido en

Excel VBA puede controlar la captura de huellas digitales con un lector digital persona 4500?

En una empleo que tuve participe en la instalación de lectores de huellas en diversos departamentos de la empresa y en los accesos de la misma, descartamos Excel por tener muchas limitantes como tardarse demasiado en leer y comparar las huellas ya...
Ha respondido en

Problema con referencia de celda de otra hoja

Checa si no tienes desactivada la actualización automática Menu, opciones de excel, fórmulas y luego ve si esta activada la opción de calculo automático.
Ha respondido en y en 2 temas más

Macro que copie el rango al copiar e insertar columnas de una hoja a otra.

Prueba con esta macro, como te he mencionado nombres de rango repetidos limitan su uso solo a la hoja donde estén alojados Sub nombrar() Set h1 = Worksheets("hoja1") Set h2 = Worksheets("hoja2") valor = h1.Range("a1") h1.Range("e5:j12").Name = valor...
Ha respondido en y en 2 temas más

Puedo ocupar fórmulas en una macro?

Si solo creas un button command y pones una instrucción parecida a esta suma = Val(TextBox1.Text) + Val(Label1) + Val(TextBox2.Text) textbox5.text=suma
Ha respondido en

Macro para excel. ¿Cómo extraer datos que cumplan una condición y copiarlos en otra hoja, con modificaciones?

Prueba con esta macro Sub COPIAR() Set H1 = Worksheets("HOJA1") Set H2 = Worksheets("HOJA2") Set DATOS = H1.Range("A9").CurrentRegion With DATOS FILAS = .Rows.Count: COLUMNAS = .Columns.Count .Sort KEY1:=H1.Range(.Columns(COLUMNAS).Address),...
Ha respondido en y en 2 temas más

Macro traspasar rango al copiar e insertar columnas de una hoja a otra.

Puedes tener dos rangos con el mismo nombre con la siguiente condición el alcance de ambos debe ser solo para la hoja en la que están, si quieres que tengan un ámbito de todo el libro es decir que selecciones el nombre y te lleve a la hoja donde este...
Ha respondido en y en 2 temas más

Como puedo Filtrar o quitar las celdas vacías y con fechas en una macro?

Prueba con esta macro asi queda al correrla Sub MOSTRAR_CLIENTES() Set DATOS = Range("D:D").CurrentRegion With DATOS COL = .Columns.Count: FILAS = .Rows.Count Set CLIENTES = .Columns(COL + 4).Resize(FILAS, 2) End With With CLIENTES .Value =...
Ha respondido en y en 2 temas más

Me piden ordenar por 3 criterios ¿Cómo lo hago?

La única es poner las experiencias en una sola columna, si ordenas por cualquier columna solo te ordenara por esa columna y en las otras te desordenara la información, o bien hacerlo mediante fórmulas.
Ha respondido en y en 2 temas más

Macro para combinar celdas, cuando la información es igual

Prueba esta macro, cuenta y combina valores iguales Sub celdas_combinadas() Dim unicos As New Collection Set datos = Range("a1").CurrentRegion With datos filas = .Rows.Count .Sort _ key1:=Range(.Columns(1).Address), order1:=xlAscending, Header:=True...
Ha respondido en y en 2 temas más

Necesito actualizar macro cada vez que termine de escribir en un Textbox

Usa las siguientes instrucciones Private Sub TextBox1_AfterUpdate() TextBox2.Text = "hola" End Sub con esta instruccion despues de que termines y des enter o tab actualizar los textbox que desees.
Ha respondido en

Sumar rango de columna en base a un criterio de otra

Usa estas fórmulas =sumar.si.conjunto(G3:G13,C3:C13,">0", C3:C13,"<6") =sumar.si.conjunto(G9:G13,C9:C13,">5", C9:C13,"<10")
Ha respondido en

Como hago para que el orden correlativo sea de 1 en 1 automático, ej: 1,2,3,4,5,...

Prueba esta macro cuenta las filas con datos y va aumentado 1 al total bloqueando el textbox para impedir que pueda ser cambiado Private Sub UserForm_Initialize() filas = Range("a1").CurrentRegion.Rows.Count - 2 If filas > 1 Then filas = filas + 1...
Ha respondido en y en 2 temas más

RANGO nombrado con el valor de una celda y además sea auto actualizable

En el modulo de la hoja2 coloca la siguiente macro, cada que escribas algo abajo del rango este en automático se integrara al rango Private Sub Worksheet_SelectionChange(ByVal Target As Range) Worksheets("hoja2").Range("a1").CurrentRegion.Name = _...
Ha respondido en y en 2 temas más

Rango nombrado con el valor de una celda

Por macro es así Sub nombrar() valor = Worksheets("hoja1").Range("a1") Worksheets("hoja2").Range("a1:d5").Name = valor End Sub

Educación

  • UANL
    Ing. Industrial y Admon