You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] Da funzione a UDF-Rispondi a: [RISOLTO] Da funzione a UDF
Rispondi a: [RISOLTO] Da funzione a UDF2018-03-03T20:47:16+01: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: 752

    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