Dante Amor

Dante Amor

https://www.youtube.com/@CursosDeExcelyMacros
 5.752K puntos  Ciudad de México, México @aprendemos desde - visto
Preguntar

Respuestas en Programación

Respuesta en y en 3 temas más a

Necesito un macro en donde me genera un mensaje de alerta cuando el valor de una columna "O" sea menor o igual a 10

¿En la columna "O" tienes una fórmula? ¿Puedes poner la fórmula? ¿Realmente capturas un dato en la columna "A"? ¿O en la columna "A" también tienes una fórmula?
Respuesta en y en 2 temas más a

Macro que me pregunte en inputbox cual escoger

Con BuscarV siempre te va a regresar el primer valor, es por eso que la macro deberá contar el número de componentes, preguntar cuál componente quieres y poner el componente deseado. Pon la siguiente macro en los eventos de tu hoja: Private Sub...
Respuesta en y en 2 temas más a

Que hago cuando no se ve las columnas en un lixtbox

El método additem, solamente te permite 10 columnas. Deberás cargar con la propiedad .Rowsouce
Respuesta en y en 2 temas más a

Macro para pasar todos los datos de una columna por dos celdas

No entendí si desde esta macro quieres ejecutar la macro "copiar", porque en tal caso tendrás que mencionar con cuáles combinaciones se debe ejecutar. Te anexo la macro, según tu ejemplo, si en la celda D1 pones el dato "A1", entonces en la celda...
Respuesta en y en 2 temas más a

Copiar datos de una factura a una hoja resumen o salida

Te anexo una nueva macro, prueba y me comentas. Sub Enviar_Salida() ' Por Dante Amor Set h1 = Sheets("Remito") Set h2 = Sheets("Salida") ' i = 13 u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 Do While h1.Cells(i, "A") <> "" h2.Cells(u2, "A") =...
Respuesta en y en 2 temas más a

Enviar distintas celdas de una fila de Excel por correo, en otro correo enviar las mismas celdas pero de otra fila, y así sucesi

Puedes poner la macro para actualizarla. También me comentas de dónde obtienes el correo del destinatario, el asunto y el cuerpo del correo. En cuál fila inician los datos. Te preparo un ciclo, para que con solamente presionar un botón se envíen...
Respuesta en y en 2 temas más a

Que debo hacer para un listbox y textbox mantengan la fecha y no se vuelvan decimales al momento de una búsqueda o actualización

Si estás cargando el listbox con algo como esto: u = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To u ListBox1.AddItem Cells(i, "A") ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, "B") 'carga fecha Next Al momento de almacenar la fecha en el...
Respuesta en y en 2 temas más a

Macro visual basic para buscar y reemplazar

Te anexo la macro. Pon tus datos en la columna A. El resultado quedará en las columnas B y C Sub Reemplazar() ' ' Por.Dante Amor ' Columns("B:C").ClearContents u = Range("A" & Rows.Count).End(xlUp).Row With Range("A1:A" & u) .Replace What:=",",...
Respuesta en y en 2 temas más a

Valor de celda para modificar datos de la fila correspondiente

Una opción es cargar el número de fila en el listbox. Es decir, cuando filtras la información, puede ser que cargaste en el listbox la información de las filas 3, 8 y 20, entonces en el listbox en una columna tienes que cargar el número de fila. Pon...
Respuesta en y en 2 temas más a

¿Cómo corregir error '-2147417848(80010108)' en tiempo de ejecución: error en el método '_Default' de objeto 'Range'?

¿En cuál línea de la macro se detiene? Tal vez tu hoja tiene algún error. Te sugiero que elimines la hoja y crees una nueva, cambia en la macro Hoja2 por el name de la nueva hoja y vuelve a probar. Nota: Para encontrar la siguiente fila vacía después...