Dante Amor

Andaba ocupado, por eso no había podido responder. Prueba con la siguiente macro Crea 2 hojas y les pones por nombre "Temp1" y "Temp2" Sub Enviar_Correos_a_Proveedores() 'Por Dante Amor ' Application.DisplayAlerts = False Application.ScreenUpdating =...

En el userform3, te falta declarar como global la variable cargando Lo que tienes en tu userform3 es esto: Buscar = ComboBox1.Value For x = 0 To ListBox1.ListCount - 1 If UCase(ListBox1.List(x)) = UCase(Buscar) Then ListBox1.ListIndex = x Exit Sub...

Prueba con la siguiente macro Crea 2 hojas y les pones por nombre "Temp1" y "Temp2" Sub Enviar_Correos_a_Proveedores() 'Por Dante Amor ' Application.DisplayAlerts = False Application.ScreenUpdating = False Set h1 = Sheets("Resumen") Set h2 =...

Puedes poner en cuál if tienes el problema y tal vez una imagen de tu pantalla con datos de ejemplo, procura que se vean las filas y las columnas de excel; y explica qué debería realizar el código.

Hay que convertir a fecha lo que tienes en el textbox, prueba con esto: If CDate(TextBox373) <= WorkSeets("Datos Primarios").Range("AI12") Then

Es correcto, no puedes borrar con RemoveItem si cargaste con Rowsource, para borrar con RemoveItem, debes cargar con el método AddItem, por ejemplo: Private Sub EquipoList_DblClick(ByVal Cancel As MSForms.ReturnBoolean) posicion =...

Supongo que el valor que pones en caso de error en la función Si. Error( ) es un blanco, entonces la macro quedarías así: Sub Copiar_Contenido() ' For Each celda In Range("D8:BB36") If celda.Value <> "" Then celda.Value = celda.Value End If Next End...

Te anexo la macro para ordenar las hojas Sub Ordenar_Hojas() 'Por Dante Amor ' Application.ScreenUpdating = False Application.DisplayAlerts = False Set h = Sheets.Add h.Cells.Clear fila = 1 For i = 1 To Sheets.Count If InStr(Sheets(i).Name, ".") Then...

¿Cuál o cuáles columnas se deben revisar? En el ejemplo de la imagen que pusiste, ¿cuáles filas deberían ocultarse?

Lo que necesitas es que al macro seleccione el primer valor de la lista desplegable, luego genere el archivo pdf, después seleccione el segundo valor de la lista, ¿genere el pdf y así sucesivamente hasta el último valor de la lista? Si es así, ¿Dime...