Dante Amor

Dante Amor

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

Respuestas en Visual Basic

Respuesta en y en 1 temas más a

Juntar dos rangos de hojas distintas y dejar valores únicos

Prueba con lo siguiente Sub Juntar() Sheets("A").Range("J7:J237613").Copy Sheets("resultados").Range("B8").PasteSpecial xlValues u = Sheets("resultados").Range("B" & Rows.Count).End(xlUp).Row + 1 Sheets("B").Range("J7:J237613").Copy...
Respuesta en y en 1 temas más a

Como puedo resumir mi macro para ocultar y mostrar filas

Puede ser: Sub MENSAJE() Rows.Hidden = False n = Sheets("DATOS").Range("$I$2") If n = 1 Then Rows("4:47").Hidden = True: Exit Sub Rows((n - 1) * 48 & ":" & ((n - 1) * 48) + 47).Hidden = True End Sub [sal u dos
Respuesta en y en 3 temas más a

Combobox con búsqueda mientras escribe.

Sobre ese tema tengo varias respuestas: Elegir valor de la lista desplegable con autocompletar(SÍMIL COMBOBOX No se despliega listado y flecha en combobox Como autocompletar Combobox en vba Ahí explico lo que debes realizar. No olvides votar las...
Respuesta en y en 3 temas más a

Necesito agregar un mensaje en celdas de excel según valores

Si quieres una fórmula en otra celda, pon la siguiente en la celda B2 =si(A2>5,"ENVIAR AL HOSPITAL", "") Si lo quieres en vba, entonces: Sub verificar() If range("A2"). Value >5 then Msgbox "ENVIAR AL HOSPITAL" End if End sub [Sal u dos
Respuesta en y en 1 temas más a

Eliminar CELDAS vacías mediante macro

Va la macro Sub Eliminar_Celdas_Vacias() 'Por Dante Amor Application.ScreenUpdating = False u = Range("A" & Rows.Count).End(xlUp).Row For i = 3 To u uc = Cells(i, Columns.Count).End(xlToLeft).Column Range(Cells(i, "B"), Cells(i,...
Respuesta en y en 2 temas más a

Msgbox (EXCEL) con texto y el valor de una celda

Quedaría así: MsgBox "Tiene pendiente " & range("D2").value & " de rendicion", vbExclamation Si la hoja que tiene el valor de la celda D2 no es la activa, entonces sería así: MsgBox "Tiene pendiente " & Sheets("hoja3").Range("D2").Value & " de...
Respuesta en y en 1 temas más a

¿Cómo puedo mostrar una imagen en un formulario si se cumple una condición?

Pon el siguiente evento en tu userform Private Sub ComboBox2_Change() Image1.Picture = Nothing ruta = "C:\trabajo\imagen\" Select Case lcase(ComboBox2.Value) Case lcase("en tiempo") Image1.Picture = LoadPicture(ruta & "en tiempo.jpg") Case lcase("con...
Respuesta en y en 3 temas más a

Cómo hago para que este macro de Excel en vez de imprimir guarde en archivo PDF de forma compilada?

A qué te refieres con Guarde en archivo PDF de forma compilada ¿Quieres qué cada hoja se guarde como un archivo? ¿Si es así qué nombre va a llevar cada archivo?
Respuesta en y en 2 temas más a

Mostrar rango de celdas en userform como imagen

Probé el código y sí me muestra la imagen, con formatos y con todo e imágenes. Entra a tu userform, selecciona el userform, en propiedades, busca la propiedad PictureSizeMode y cambia a "1-fmPictureSizeModeStretch" Prueba nuevamente. ¿Qué versión de...
Respuesta en y en 3 temas más a

Listbox con items filtrados por función de búsqueda y por control de fechas

Supongo que la hoja "LOGISTICA2" y Hoja12 son la misma hoja. Si ya seleccionaste la hoja al inicio del código, ya no es necesario que la pongas en las líneas. Lo que está sucediendo, es que en la columna "I" tienes datos que no son una fecha, para...