macro non seleziona foglio nascosto

[enricobi]

ho costruito una cartella contenente 6 fogli Excel 2003, poi ho costruito
numerose macro che operano sui fogli; funziona tutto benissimo, ma io ho
necessità di tenere nascosto un foglio e possibilmente due: le macro non
operano sui fogli nascosti, non li selezionano, non li vedono proprio:
C'è una soluzione o devo rinunciare a nascondere i fogli?
Grazie a chi vorrà aiutarmi!

[fernando cinquegrani]

[enricobi] scrive in

Post by enricobi
ho costruito una cartella contenente 6 fogli Excel 2003, poi ho
costruito numerose macro che operano sui fogli; funziona tutto
benissimo, ma io ho necessità di tenere nascosto un foglio e
possibilmente due: le macro non operano sui fogli nascosti, non li
selezionano, non li vedono proprio: C'è una soluzione o devo
rinunciare a nascondere i fogli?

non selezionarli.
opera sui fogli con il costrutto:
with worksheets("foglionascosto")
.range("A1").value=100 'ad esempio
end with
.f

[enricobi]

Graizie Fernando cinquegrani, ma non mi è chiaro come utilizzare "with
worksheets"
--
enricodazzi

Post by fernando cinquegrani
[enricobi] scrive in

Post by enricobi
ho costruito una cartella contenente 6 fogli Excel 2003, poi ho
costruito numerose macro che operano sui fogli; funziona tutto
benissimo, ma io ho necessità di tenere nascosto un foglio e
possibilmente due: le macro non operano sui fogli nascosti, non li
selezionano, non li vedono proprio: C'è una soluzione o devo
rinunciare a nascondere i fogli?

non selezionarli.
with worksheets("foglionascosto")
..range("A1").value=100 'ad esempio
end with
.f

[fernando cinquegrani]

[enricobi] scrive in

Post by enricobi
Graizie Fernando cinquegrani, ma non mi è chiaro come utilizzare "with
worksheets"

non credo di poterlo dire in maniera più semplice di
come l'ho detto.

seleziona il Foglio2
da menu
formato :: foglio :: nascondi

in un modulo inserisci

Sub riempirange()
With Worksheets("Foglio2")
.Range("A1:A100").Value = 100
End With
End Sub

e lancia la macro.

se ora scopri il Foglio2 vedrai che il range
A1:A100 è stato riempito. non è necessario
selezionare un foglio per leggerne il contenuto
o scriverci dentro.
.f

[Norman Jones]

Ciao Enrico,
'--------------
ho costruito una cartella contenente 6 fogli Excel 2003, poi ho
costruito numerose macro che operano sui fogli; funziona tutto
benissimo, ma io ho necessità di tenere nascosto un foglio e
possibilmente due: le macro non operano sui fogli nascosti, non
li selezionano, non li vedono proprio:
C'è una soluzione o devo rinunciare a nascondere i fogli?
'--------------

Non dovresti aver alcun problema con i fogli nascosti - a patto che ti
ricordi che non sia possible selezionare un foglio nascosto. Comunque, e
quasi mai necessario selezionare un foglio o un intervallo.

Potresti postare il codice problematico?


---
Regards,
Norman

[enricobi]

Grazie Norman Jones, ma se non seleziono il foglio nascosto come faccio a
farci lavorare le macro?
--
enricodazzi

Post by Norman Jones
Ciao Enrico,
'--------------
ho costruito una cartella contenente 6 fogli Excel 2003, poi ho
costruito numerose macro che operano sui fogli; funziona tutto
benissimo, ma io ho necessità di tenere nascosto un foglio e
possibilmente due: le macro non operano sui fogli nascosti, non
C'è una soluzione o devo rinunciare a nascondere i fogli?
'--------------
Non dovresti aver alcun problema con i fogli nascosti - a patto che ti
ricordi che non sia possible selezionare un foglio nascosto. Comunque, e
quasi mai necessario selezionare un foglio o un intervallo.
Potresti postare il codice problematico?
---
Regards,
Norman

[Norman Jones]

Ciao Enrico,

Post by enricobi
Grazie Norman Jones, ma se non seleziono il foglio nascosto come
faccio a farci lavorare le macro?

Un esempio:

'=============>>
Public Sub Tester()
Dim SH As Worksheet
Dim rng As Range

Set SH = Sheets("Foglio1")
SH.Visible = xlSheetHidden 'Nascondere il foglio

Set rng = SH.Range("A1")
rng.Value = "Pippo" 'Inserire un valore sul foglio nascosto
MsgBox rng.Value
End Sub
'<<=============

Se posti il tuo codice, forse posso adattarlo per te.


---
Regards,
Norman