🚀 go-pugleaf

> Ciaoa tutti,
> la mia domanda � inerente a questa istruzione che dovrebbe eliminare delle
> righe del mio
> foglio Excel all'interno del range indicato:
>
> Private Sub OptionButton2_Click()
>     For y = 1 To 100
>     If Range("A" & y) >= Val(TextBox2.Text) And Range("A" & y) <=
> Val(TextBox3.Text) Then
>     Selection.EntireRow.Delete
>     OptionButton2_Click
>     End If
>     Next
> End Sub
>
> Nel libro che sto' seguendo per iniziare a muovere i primi passi, dov'�
> riportata l'istruzione ...
>
> If Range("A" & y) >= Val(TextBox2.Text)_ And Range("A" & y) <=
> Val(TextBox3.Text) Then
>
> compare un trattino dopo l'istruzione Val(TextBox2.Text).
>
> A questo punto pero' il mio problema � duplice nel senso che NON inserendo
> il trattino VB non mi da errore ma NON
> mi esegue la cancellazione delle righe all'interno dell'intervallo
> selezionato. Inserendolo mi da un errore e non
> mi consente di proseguire...
>
> Cosa devo fare?

Il trattino (underscore, in questo caso) indica che l'istruzione prosegue
nel rigo successivo del codice, quindi, se metti l'underscore, subito dopo
devi andare accapo nel codice e scrivere:
If Range("A" & y) >= Val(TextBox2.Text)_
And Range("A" & y) <=Val(TextBox3.Text) Then

altrimenti, se scrivi tutto in un'unica riga, non c'e' bisogno
dell'underscore (e, giustamente, non ti segnala l'errore).
In questo caso (nessun errore), il codice non ti cancella nessuna riga del
foglio excel perche' non sara' verificata la condizione dell'IF. Hai messo
qualche valore sul TextBox2 e TextBox3, che sono oggetti che avresti dovuto
inizializzare? E la colonna A contiene qualcosa?

> Inoltre, se posso, QUALCUNO SA SPIEGARMI CORRETTAMENTE LA SINTASSI DI
QUESTA
> ISTRUZIONE:
>
> Range("A6") = "AVERAGE(R[-5]C:R[-1]C"

Questa istruzione ti dice che il contenuto della cella "A6" sara' la media
delle celle A1:A5. Equivale, cioe', a AVERAGE(A1:A5). R[-5] significa
indirizzo di riga pari a quello di partenza (6) - 5, cioe' 1. La Colonna C
e' la stessa di quella di partenza, quindi A.

Piuttosto, credo che manchi qualcosa.
L'istruzione giusta e'
Range("A6") = "=AVERAGE(R[-5]C:R[-1]C)"

> Grazie
Prego.
Ciao