Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel] selezionare riga corrispondente alla data

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel] selezionare riga corrispondente alla data

Postdi toki16 » 01/04/11 15:10

Salve a tutti,
ho un foglio excel con in colonna A la formula =SCEGLI(GIORNO.SETTIMANA(cella);"Domenica";"Lunedì";"Martedì";"Mercoledì";"Giovedì";"Venerdì";"Sabato") in colonna B la data in formato gg/mm/aaaa.
Vorrei sapere se è possibile selezionare all'apertura in automatico la riga corrispondente alla data del giorno corrente.
Grazie dell'aiuto!
toki16
Utente Junior
 
Post: 17
Iscritto il: 11/03/10 13:55

Sponsor
 

Re: [Excel] selezionare riga corrispondente alla data

Postdi Anthony47 » 01/04/11 22:30

Metti una macro come questa all' interno del modulo "ThisWorkbook":
Codice: Seleziona tutto
Private Sub Workbook_Open()
Sheets("Foglio1").Select     '<<< Il foglio con le date
Do
    If Range("B1").Offset(I, 0).Value >= Date Then Exit Do
    I = I + 1
Loop
Range("A1").Offset(I, 0).Select
End Sub
Personalizza l' istruzione marcata <<<.
Poi salva il file, chiudilo e prova ad aprirlo.

Puoi anche sostituire la formula =SCEGLI(GIORNO.SETTIMANA(cella);"Domenica";"Lunedì";"Martedì";"Mercoledì";"Giovedì";"Venerdì";"Sabato") con
Codice: Seleziona tutto
=Testo(CellaConData;"gggg")


Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] selezionare riga corrispondente alla data

Postdi toki16 » 02/04/11 10:36

Ciao Anthony47 grazie 1000 della macro.
Ho notato che seleziona la cella della colonna A corrispondente alla data ma, siccome volevo selezionare l'intera riga, ho modificato la tua macro così
Codice: Seleziona tutto
Private Sub Workbook_Open()
Sheets("Foglio1").Select
Do
    If Range("B1").Offset(I, 0).Value >= Date Then Exit Do
    I = I + 1
Loop
Rows("1:1").Offset(I, 0).Select
End Sub
e sembra che funzioni.
Ancora grazie per l'aiuto, preziosissimo e puntuale come sempre.
toki16
Utente Junior
 
Post: 17
Iscritto il: 11/03/10 13:55


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] selezionare riga corrispondente alla data":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti