help me, please excel e vb

[webmasterone]

help con excel e nascondere riga
premetto che di vb nn so niente....

dovrei inserire una formula in una cella che mi esegua quanto segue:

se nol foglio 2 nella cella A1 (per esempio) non c'e' scritto niente, deve nascondermi la riga in cui è scritta la formula

allora...
io ho provato a fare una macro, e ho il seguente codice:


code:--------------------------------------------------------------------------------
Sub nascondi()
riga = 6
Rows(riga & ":" & riga).Select
Selection.EntireRow.Hidden = True
End Sub
--------------------------------------------------------------------------------


riga = 6 l'ho aggiunta io per provare

dovrei avere una funzione nella cella che ho detto prima, di questo tipo:


code:--------------------------------------------------------------------------------
=SE(Foglio2!A1<>"";nascondi(RIF.RIGA());scopri(RIF .RIGA()))
--------------------------------------------------------------------------------


o qualcosa del genere

chi mi puo' aiutare, please ?



grazzzzziiiiieeee




__________________

[Mychy]

Vada a naso

Sub nascondi(byval riferimento as integer)
riga = riferimento
Rows(riga & ":" & riga).Select
Selection.EntireRow.Hidden = True
End Sub

[webmasterone]

la sub funziona, ma nella cella, come faccio a richiamarla ?
riesco a richiamare una funzione, ma una sub non mi succede niente


non ci capisco molto, scusate.....

se associo la macro a un pulsante, va, ma come faccio a richiamarla da una cella ?
se uso il nome della sub, tipo nascondi(), mi da errore

[Mychy]

Prova così:
SE(Foglio2!A1<>"";"& nascondi(RIF.RIGA()) &";"& scopri(RIF.RIGA()) &")

[Mychy]

Ho provato io, non funziona.
Non so cosa dirti credevo che il tuo problema fosse passare il numero della riga

[webmasterone]

cosi' mi scrive semplicemente in quella cella....

& nascondi(RIF.RIGA()) &

[Mychy]

Ecco la soluzione la funzione deve essere public

public function nascondi()
msgbox "nascondi"
end function

poi la richiami così:

=SE(B1=1;nascondi();1)

[Mychy]

E deve essere scritta in un modulo
inserisci->modulo

[webmasterone]

ok

public function nascondi()
msgbox "nascondi"
end function


funge

mi apre il msgbox

ma non riesco a fargli nascondere la riga

se io metto:

public function nascondi() 
riga = 6
Rows(riga & ":" & riga).Select
Selection.EntireRow.Hidden = True
end function

non mi nasconde la riga 6, ma mi mette 0 nella cella

se anziche dichiararla come funtion la dichiaro come sub

Public Sub nascondi()
riga = 6
Rows(riga & ":" & riga).Select
Selection.EntireRow.Hidden = True
End Sub

metto un pulsante
e gli associo la macro di nome nascondi

funge
mi nasconde la riga

ma io volevo farlo dalla cella in automatico a seconda del valore presente o meno in quell' altra cella
senza pulsanti.....