jerryeagle

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

Decláralo sin definir el tamaño, o el tamaño ponlo en una variable que deba escribir el usuario, por ejm Dim Array() as Double o Dim Array(val(TextBox.Value)) as Double Creo que debe funcionar

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

¿Y tu nieve de que la quieres? ¿Acaso quieres que te hagan la tarea? Esta web es para ayudar a aprender a programar, no para hacer la tarea de flojos como tu comprenderás :P

No es necesario crear ningún botón, ya lo tienes: Deja presionado Escape hasta que aparezca el cuadro de dialogo donde te pide si quieres Depurar o Finalizar la macrro, solo ponle finalizar

Ponlo entre comillas "&HC0C0FF"