You are here:---Rispondi a: [RISOLTO] Da funzione a UDF
Rispondi a: [RISOLTO] Da funzione a UDF2018-03-03T20:47:16+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Da funzione a UDF Rispondi a: [RISOLTO] Da funzione a UDF

sidsid
Moderatore
    Post totali: 718

    Un esempio

    Sub CERCA_VERT()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim rng As Range
    Dim valore As Variant
    
    Set ws1 = Sheets("Foglio1") 'nome del foglio in cui sta la formula
    Set ws2 = Sheets("Foglio2")
    Set rng = ws2.Range("J6:Q2505")
    
    valore = Application.WorksheetFunction.VLookup(ws1.Range("G6").Value, rng, 8, 0)
    
    Set ws1 = Nothing
    Set ws2 = Nothing
    Set rng = Nothing
    End Sub

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi