jerryeagle

Al principio de tu macro pon esto: Application.ScreenUpdating = False y al final lo pones en True

Agrega solo las celdas "no vacías" Dim C as Range For each C in Selection 'O Rango que definas If C.Value <> "" Then ComboBox.AddItem C.Value End If Next

Te dejo un ejemplo y adáptalo: Private Sub CommandButton1_Click() 'Ingresa los registros With ListBox1 i = .ListCount .AddItem txtNom.Text .List(i, 1) = txtApellido.Text .List(i, 2) = FormatDateTime(CDate(txtFecha), vbShortDate) End With...

Dim R as Long For R = 1 to Range("F" & Rows.Count).End(xlUp).Row If Cells(R, "F") = 0 Then Cells(R, "F").EntireRow.Delete Next

OptionButton1 = False

Solo cambia estos dos datos: nbre = Format(Now, "dd-mm-yy hh mm ss") ActiveWorkbook.SaveCopyAs ruta & "\" & nbre & ".xls" Por: nbre = Format(Now, Sheets("Hoja del TextBox").NombreDeTextbox) ActiveWorkbook.SaveCopyAs ruta & "\" & nbre & ".xls" Es todo

Crea un modulo en el editor de VBA (Alt + F11), inserta un modulo y pega esta Función ?Public Function SumaMes(ByVal Mes As String, ByVal Fechas As Range, ByVal Valores As Integer) As Double Dim C As Range For Each C In Fechas If...

Una forma seria con un bucle For each, asi: Dim ws as WorkSheet For Each ws in WorkBooks("union.xls").WorkSheets 'Aqui faltaria q quieres hacer o donde quiers poner los nombres de las hojas 'Te pongo un ejemplo nombrando c/hoja en un MsgBox MsgBox...

Modifícala un poco, quitando una linea y modificando otra: Sub Busca() Dim srtTArchvo As String Dim srtDirectorio As String Range("A1").Select srtRuta = "\\server\A- Carpeta\Imagenes\Fotos Marzo\" srtDirectorio = _ InputBox("Carpeta de Imagenes",...

Cambia esto RutArchivo = ThisWorkbook.Path & "/" por esto RutArchivo = ThisWorkbook.Path & "\"