Mensaje tipo MsgBox("XXXXX") si después de dar click en Botón Cmd el ListBox está vacío.

Preguntas y respuestas relacionadas

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
3 respuestas

Mandar varios email desde excel a rango de celdas

Necesito una macro para mandar email desde excel los correos será uno a cada celda de una determinada columna, por ejemplo la c El cuerpo del mensaje y el asunto será siempre el mismo, solo variara el rango de fechas es decir.. El asunto sera tipo a...
1 respuesta

Te dejo el código de Eliminar fila sin tomar en cuenta la fila 1 y 2

Sub BorrarFilas() Dim i As Integer, nfilas As Integer, qCrit As String Sheets("FACT").Select nfilas = ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count qCol = InputBox("Columna del criterio") qCrit = Application.InputBox(prompt:="Criterio" & CDbl(0))...
1 respuesta

Guardar Resultados En otra Hoja (VBA

Gracias a todo el que lea mi pregunta y en especial al que pueda responderla. Lo que pasa que estoy programando en vba la simulación de una situación y para obtener resultados finales necesito hacerla 100 veces por lo que decidí meter todo el código...
1 respuesta

Implementar Progress Bar en macro para generar efecto visual

Sub Buscar() 'Mod.Por.DAM Application.ScreenUpdating = False Set h1 = Sheets("Estados de cuenta") Set h2 = Sheets("Cartera.") ' h1.Range("A18:E6000").ClearContents j = 18 Set r = h2.Columns("G") Set b = r.Find(h1.Range("A6"), LookIn:=xlValues,...
1 respuesta

Desplazamiento con autofiltro

Ahí va la pregunta. En excel, tenemos la instrucción: ActiveCell. Offset(1, 0). Select con la que nos desplazaríamos una celda hacia abajo, pero necesito lo mismo cuando tenemos aplicado un filtro y las filas no son consecutivas, es decir, imaginemos...
2 respuestas

¿Como puedo obtener los últimos dígitos de una celda? Por ejemplo, JUAN PEREZ GOMEZ S.A. 10.478,78...los dígitos son el importe

Por ejemplo, JUAN PEREZ GOMEZ S.A. 10.478,78... Los dígitos son el importe que necesito tener en una celda aparte del nombre. Intenté con un derecha y hallar el espacio pero curiosamente me trae desde el punto "." del mil hacia la derecha. Por favor...
2 respuestas

¿Cómo ejecutar una macro solo en un rango específico?

Tengo una macro que llama a una función para buscar productos, ahora solo quiero que el usuario la pueda utilizar solo si está en un rango específico de la hoja, más precisamente entre "b10:b34".
1 respuesta

Buscar datos y según sea el dato encontrado pegarlo en hojas distintas.

Buscando en los foros encontré la siguiente macro; filalibre = Sheets("hoja2").Range("a65000").End(xlUp).Row + 1 dato = InputBox("que dato buscamos???") If dato = "" Then Exit Sub Set buscado = ActiveSheet.Range("a1:a" &...
2 respuestas

Agregar fórmulas a celdas de una columna desde la celda activa, utilizando variables en las fórmulas

Busco poder crear una macro que al posesionarme en una celda y hacer clic en la macro esta agregue la fórmula absoluta desde esa celda hasta ciertas cantidad de celdas de la misma columna. Elcodigo de la primera celda seria algo como esto:...
2 respuestas
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas de los temas