Preguntas esperando respuesta
Actividad pública reciente
Ha valorado "Excelente" la respuesta
Tengo una macro teclado numérico
Esta puede ser una opción. Al principio de todo tu código pon la siguiente línea: Dim salida As MSForms.TextBox Estamos declarando la variable salida como una variable global, será del tipo textbox. Tus botones del 0 al 1 quedarían de esta forma:...
Ha preguntado en el tema en
Microsoft Excel
y en 2 temas más
Restar o sumar 2 celdas A y B cuando la celda B llegue a 0 deje de restar.
Lo que necesito es lo siguiente tengo 3 celdas en la celda A tengo las entradas y en la B las salidas y la C el saldo que va quedando. Lo que quiero es que cuando este saldo llegue a 0 ya no se puede seguir restando y no me muestre números negativos,...
Ha preguntado en el tema en
Microsoft Excel
y en 2 temas más
Quiero macro para sumar 1 en un libro y reste 1 en otro libro
Necesito una macro en el libro 1 que al apretar el botón sume uno cada vez que se apreté y que reste uno en otro libro2 hasta llegar a cero. Una vez llegado a cero se elimine el dato en la fila en el libro 2.
Sin respuestas
Ha valorado "Excelente" la respuesta
Macro para Buscar un Registro y Eliminarlos continuación
[Hola Te paso la macro Sub buscarxx() '//Todoexpertos '[Por Adriel Ortiz ' ' Application.ScreenUpdating = False Application.DisplayAlerts = False ' Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja1") ' ruta = "C:\Users\Aortiz\Desktop\practica\" libro2...
Ha preguntado en el tema en
Microsoft Excel
y en 2 temas más
Macro para Buscar un Registro y Eliminarlos continuación 2
El error lo da en set B= No logro hacer que funcione. Espero me puedas ayudar en dejarla junta la búsqueda y el borrado y también separada así: Un botón para que busque y borre. Y otro botón para que solo busque Y otro botón para que sierre. Sub...
Ha valorado "Excelente" la respuesta
Macro para Buscar un Registro y Eliminarlos
[Hola Que tal así, comentas y valoras Sub buscar() 'Por.DAM Set h1 = Sheets("Hoja1") 'nombre de hoja ' u = h1.Range("A" & Rows.Count).End(xlUp).Row Set b = h1.Range("A8:A" & u).Find(h1.Range("A7"), lookat:=xlWhole) If Not b Is Nothing Then b.Select...
Ha empezado a seguir a 
Dante Amor
Dante Amor
Voto positivo a la respuesta
Macro para Buscar un Registro y Eliminarlos
Te pongo las 2 macros, asigna cda macro a un botón, lo botones deberán estar en la misma hoja de tu inventario. Sub buscar() 'Por.DAM u = Range("A" & Rows.Count).End(xlUp).Row Set b = Range("A8:A" & u).Find(Range("A7")) If Not b Is Nothing Then...
