Seleziona celle

Hai un problema con Excel?

Nuova discussione

Seleziona celle
di Francesco69 (utente non iscritto) data: 15/09/2012 10:22:44
salve ho un problema da risolvere con excel, provo a spiegare cosa dovrei fare tramite una macro e un pulsante.
Ho cartella di lavoro e all'interno ci sono piu fogli di lavoto tipo foglio 1 foglio 2 faglio 3, quando apro il foglio 3 avrei la necessita tramite il clik di un pulsante selezionare la zona C20:D23, quando clikko il pulsante la seconda volta la selezione si deve spostare sulle celle F20:G23 al terzo clik la selezione si deve spostare sulla zona I20:J22 al quarto clik la selezione si sposta sulla zona L20:M23, qui terminano le zone da selezionare e se si clikka il pulsante la selezione può ripartire dalla prima zona specificata C20:23.
in attesa di un aito ringrazio tutto il Forum.

di xxx (utente non iscritto) data: 15/09/2012 11:39:10
ciao

inserisci le seguenti macro nel foglio3, vedi esempio file allegato
io ho usato la cella A1 per il conteggi tu puoi usare qualsiasi altra cella esterna al tuo range di dati
basta che sostituisci l'indirizzo di ricerca e scrittura alla cella
attenzione che quando passi da un foglio all'altro si attiva sempre il valore di partenza 1

ciao da xxx

Private Sub Worksheet_Activate()
    [A1] = 1
    [A1].Activate
End Sub
Sub Attiva_Range()
Dim Val_A1 As Long
Val_A1 = [A1]
Select Case Val_A1
 Case 1
  Range("C20:D23").Select
  [A1] = 2
 Case 2
  Range("F20:G23").Select
  [A1] = 3
 Case 3
  Range("I20:J23").Select
  [A1] = 4
 Case 4
  Range("L20:M23").Select
  [A1] = 1
End Select
End Sub

Seleziona celle
di Francesco69 (utente non iscritto) data: 16/09/2012 10:07:26
Ciao xxx, ho provato ad inserire il codice da te menzionato ma appena provo a lanciare la macro mi da errore e mi seleziona in giallo Sub Attiva_Range().
Lamacro e stata uinserita nel foglio5 (Registro Utif), e la cella per il conteggio e stata scelta la P1.
Spero che mi aiuterete a capire l'errore.
grazie a tutti e buon lavoro

Private Sub Worksheet_Activate()
    [P1] = 1
    [P1].Activate
End Sub
Sub Attiva_Range()
Dim Val_P1 As Long
Val_P1 = [P1]
Select Case Val_P1
 Case 1
  Range("C20:D23").Select
  [P1] = 2
 Case 2
  Range("F20:G23").Select
  [P1] = 3
 Case 3
  Range("I20:J23").Select
  [P1] = 4
 Case 4
  Range("L20:M23").Select
  [P1] = 1
End Select
End Sub

seleziona Celle
di Francesco69 (utente non iscritto) data: 16/09/2012 21:30:18
Ho capito il problema, dovevo inserire il valore 1 nella cella destinata per il conteggio.
Un grazie di cuore a tutto la staf.
di Vecchio Frac data: 17/09/2012 09:17:48
...oppure aggiungere un Case Else affinché venga gestito il caso della cella P1 con valore non compreso nell'intervallo 1 - 4 (quindi cella vuota, con testo, con numero negativo, zero o superiore a 4, con valore di errore, ecc.).

Vuoi Approfondire?