caranbis

'Atuservicio, ten envío una macro de ejemplo. Sub MacroEjemplo() Dim Fila As Integer Dim Filaanterior As Integer Dim rangoanterior As Range Filaanterior = 0 Set rangoanterior = Selection For Each celda In rangoanterior Fila = celda.Row If Fila >...

Private Sub UserForm_Initialize() Label3.Caption = Format(Date, "dd"" de ""mmmm"" de ""yyyy;@") End Sub

'Intenta con esta macro: Sub select_next_sheet() Dim hoja As Integer hoja = ActiveSheet.Index If hoja = Sheets.Count Then Sheets(1).Select Else On Error Resume Next hoja = hoja + 1 Sheets(hoja).Select If Err = 1004 Then Err.Clear Do hoja = hoja + 1...

Te ayudo. Sube el archivo de ejemplo a http://www.mediafire.com/, porque no entendí muy bien cómo es que están organizados los grupos en las tablas...

Suponiendo que las fechas están en la columna A, y los valores (numéricos) están en la columna B, y también que la columna B no posee celdas vacías, la fórmula sería: =INDICE(A:A;COINCIDIR("*";B:B;0)-1;1) ::::::::

¿Cuáles son las fórmulas que estás usando?

Si, pero siempre debe haber uno que siempre sea menor, uno que siempre esté en el medio, y uno que sea siempre mayor, de los siguientes: H3 I4 J4 ¿Cuál es el mayor, cuál el menor y cuál el medio?

'Prueba esta: Sub GuardarArchivo() Dim strExcelArchivo As Variant Dim Nomb_Libro As String Dim Nombrefecha As Date Dim RutaCarpeta As String Nombrefecha = Workbooks("Copia de 01-NOV-09").Sheets("planilla").Range("k1").Value Nomb_Libro =...

Compárteme el archivo en http://www.mediafire.com/, y te creo la macro.

'Es obvio, lo estas sacando del For a la primera vez que lo encuentra 'anula la línea exit for, así: If Aprobado.Value = True Then Dim j As Integer, k As Integer For j = 0 To Previaje.ListCount - 1 If Previaje.Selected(j) = True Then For k = 2 To...