Dante Amor

Entiendo que quieres un la barra para el userform, pero por defecto el ListBox tiene su propia barra de desplazamiento que se activa en automático cuando las columnas exceden el ancho del listbox: De esa manera el form se matiene estático, tienes a...

Visita: Cursos de Excel y Macro ------------------------ Utiliza la siguiente fórmula: =SUMAPRODUCTO((IZQUIERDA(A2:A8;2)="12")*(B2:B8)) Ejemplo: ----------- Recomendaciones: Curso de excel. Formato condicional dinamico - YouTube Curso de excel....

Visita mi canal: Cursos de excel y macros ------------- Prueba la siguiente macro: Sub bucar_valor() Dim valor As Variant Dim f As Range ' valor = Range("A1").Value If valor = "" Then MsgBox "Escribe el valor a buscar en la celda A1" Else Set f =...

Te invito a ver el siguiente: Consejos para empezar a programar. -------------------- Puedes utilizar la sentencia Case, te muestro un ejemplo: Sub InsertaImagenMA(): On Error Resume Next Application.ScreenUpdating = False For Each hoja In Sheets...

Visita: Cursos de Excel y Macros _______________________________ ¿Cuál es el problema que tienes? Prueba lo siguiente: Private Sub COTIZAR_Click() Dim ruta As String Dim Result As Variant Dim nombre As String nombre = Range("C25").Value If...

Visita: Cursos de Excel y Macros ___________________________ Podría ser así: Me.Txt_Fecha = Format(Application.WorksheetFunction.VLookup(ID, Sheets("EXPEDIENTES_COMUNES").Range("A:BI"), 7, 0), "dd/mm/yyyy") Pero te recomiendo utilizar el método Find:...

Visita mi canal: Cursos de Excel y Macros ----------- Revisa la siguiente manera de simplificar el código: Sub prueba() Workbooks("CAJA 2023.xlsm").Sheets("linea datos").Range("A6:KV6").Copy Workbooks("Ventas...

Te invito a visitar mi canal: Cursos de Excel y Macros ------ Prueba la siguiente macro: Sub Imprimir_Y_PDF() 'Por Dante Amor Dim sh As Worksheet Dim ruta As String, nombre As String ' Set sh = Sheets("Factura") 'ajusta al nombre de tu hoja ruta =...

Te invito a visitar mi canal: Cursos de Excel y Macros ------ Para seleccionar las 12 celdas, realiza lo siguiente: 1. Seleccionar todas las celdas de la hoja. Entra al menú Inicio, en Celdas, selecciona la opción Formato, Formato de celdas, en la...

Solamente te recomiendo, cuando es pregunta, cambiar vbExclamation por vbQuestion: If MsgBox("VAS A EJECUTAR LA MACRO RENOMBRAR HOJAS?", vbQuestion + vbYesNo) = vbYes Then ------ Te puede interesar: Curso de macros. Declarar variables en vba excel. -...