[Execl] Si può inserire una formula direttamente

[ramset64]

... nel codice vba?
Es.
Sub Macro1()
X = Range("D1")
Range("C" & X).Select
End Sub

Nella cella D1 ho questa formula: CONFRONTA(B1;A:A;0) che mi restituisce un numero.
Posso in qualche modo inserire direttamente nella macro questa formula?

[Flash30005]

... nel codice vba?
Es.
Sub Macro1()
X = Range("D1")
Range("C" & X).Select
End Sub

Nella cella D1 ho questa formula: CONFRONTA(B1;A:A;0) che mi restituisce un numero.
Posso in qualche modo inserire direttamente nella macro questa formula?

Se quello che vuoi ottenere è X = Numero riga (ottenuto dalla formula in D1) allora puoi fare così

Codice: Seleziona tutto

Sub Macro1()
X = Range("D1").value     
Range("C" & X).Select
End Sub


sarebbe comunuqe più corretto indicare anche il nome del foglio
X = Worksheets("Nomefoglio").Range("D1").Value
Worksheets("Nomefoglio").Range("C" & X).Select
in questa maniera avrai sempre i dati corretti indipendentemente dal foglio risultante attivo al momento dell'avvio della macro

[ramset64]

Flash grazie per la correzione. La domanda però era un'altra.... è possibile evitare il calcolo presente nella cella D1 e farlo direttamente su VBA?

[Anthony47]

Molte formule possono essere usate nel vba con la sintassi Application.WorksheetFunction.Nome-funzione; va usato il nome in inglese, nel tuo caso: Match. Per l' elenco, vedi l' help on line del vba alla voce " Elenco delle funzioni di foglio di calcolo disponibili per Visual Basic".
Tieni presente che Match andra' in errore se la voce cercata non esiste in elenco, quindi devi prepararti a gestire questa situazione; guarda come ho fatto in queste discussioni:
viewtopic.php?p=431409
viewtopic.php?f=26&t=62779
viewtopic.php?f=26&t=68362
(tra le tante presenti nel forum).

Buon anno.

[ramset64]

Ok Anthony grazie... senti se scrivo questo codice:
Public Sub Worksheet_activate()
X = Worksheets("Foglio1").Range("D1").Value
Worksheets("Foglio1").Range("B" & X).Select
End Sub

All'attivazione del foglio il codice funziona e va sulla giusta cella, se invece voglio che questo succede in apertura del file (il file ha un solo foglio) e scrivo:
Public Sub Worksheet_open()
X = Worksheets("Foglio1").Range("D1").Value
Worksheets("Foglio1").Range("B" & X).Select
End Sub

il codice non funziona ovvero non succede niente.
Dove sbaglio?

[Anthony47]

1) L' evento Worksheet_open NON esiste; esiste invece Workbook_Open.
2) Ricorda che le due macro vanno messe in "Moduli di codice" diversi.
Sulla finestra del vba trovi, a sx, il frame intestato "Progetto - VBAProject" con l' elenco dei fogli che compongono il tuo file (se non lo vedi, premi Contr-r); metterai la Worksheet_Activate nel foglio che si attiva facendo doppioclick sul nome foglio a cui vuoi associare l' evento, mentre metterai Workbook_Open sul foglio che si apre con doppioclick su ThisWorkbook.

Ciao.

[ramset64]

Ok grazie, fatto!

Ciao