blankblau

Pedro Torres respondió: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Static Celda As Range, bytColor As Byte On Error GoTo Salir Static nFila As Integer Dim RangoActual As Range Dim strFilas As Integer Dim strColumnas As...

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. S@lu2

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?