Dante Amor

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...

Puede ser así: Private Sub Worksheet_Change(ByVal Target As Range) 'actualiza los acumuladores en la siguiente hoja ' If Not Intersect(Target, Range("K:X")) Is Nothing Then If Target.Row < 9 Then Exit Sub If Target.Count > 10 Then Exit Sub ' res =...

En el libro en algún módulo debes tener una macro llamada "loco" Por ejemplo: Sub loco() msgbox "Ejecutando macro loco" end sub

Escribe en esta línea las carpetas que desees carpetas = Array("C:\trabajo\docs", "C:\trabajo\pdfs") La macro actualizada Sub indicepdf() Dim NombreArchivo As String Dim NombreCompleto As String Dim f As Long carpetas = Array("C:\trabajo\docs",...

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...

Pon la siguiente macro en tu botón Sub Combinar_Celdas() 'Por Dante Amor ' Application.ScreenUpdating = False Application.DisplayAlerts = False ini = 1 ant = Cells(ini, "A").Value For i = ini To Range("A" & Rows.Count).End(xlUp).Row + 1 If Cells(i,...

Pon la siguiente fórmula: =SI(F5="","",(TODAY()-F5)/365) Nota: si utilizar el punto y coma ( ; ) como separador de argumentos, cambia la coma ( , ) por punto y coma ( ; ) =SI(F5="";"";(HOY()-F5)/365) [Sal u dos

¿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...