blankblau

Abraham Valencia respondió: [Hola Como para que te des idea: Sub Filtrar() Dim UltimaFila As Long Let UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row MsgBox "Última celda llena al filtar: " & Range("A" & UltimaFila).Address MsgBox "La primera celda vacía es: " & "A" &...

Luis Mondelo respondió: Te paso la macro para conseguirlo: Sub auto_open() 'por luismondelo c = 1 Do While c = 1 fecha = InputBox("introduzca fecha por favor") ubica1 = Mid(fecha, 3, 1) ubica2 = Mid(fecha, 6, 1) If ubica1 <> "/" Or ubica2 <> "/" Then MsgBox "La fecha...

Ivan Cuenca respondió: Si N tiene que quedar en blanco no hay más remedio que tirar de vba Podría ser algo así: Sub Ejemplo() Dim FilaInicial, FilaFinal FilaInicial = 2 '<-- estos ajustalos tú según sea de grande tu tabla FilaFinal = 5000 '<-- estos ajustalos tú según sea...

Isaac Reyes respondió: H0la Marisa, Me parece que con un SI tendría que salir. Por ejemplo, vamos ala fila 1 D1 = SI(B1=C1;A1;"") Lo que estamos diciendo es, si B1 es igual a C1, entonces en D1 agreque el valor de A1, de otra forma, deje la celda vacía. [email protected]

Abraham Valencia respondió: [Hola Pues solo debes usar la función "Mes": =MES(A1) Obviamente colocar la celda correspondiente a la de tu fecha. Abraham Valencia

Luis Mondelo respondió: ¿Te refieres a que quieres evitar pulsar la X del formulario?

Luis Mondelo respondió: Te mando esta macro y lo otro lo sigo mirando Sub proceso() Range("a1:b13").Select Selection.PrintOut copies:=1 Range("g7:g22").ClearContents End Sub

Luis Mondelo respondió: Todos los listbox cuando se crean vienen por defecto para solo seleccionar una fila. Si modificamos su propiedad multiselect es cuando podemos seleccionar varias. ¿Lo has visto?

Luis Mondelo respondió: ¿Cuántos textbox le siguen? ¿Solo otros tres mas?