Kategorie szkoleń | Egzaminy | Kontakt
  • 1
  • 0
  • 116

Chciałbym zdefiniować i zadeklarować poniższe odwołanie, tak żeby można je było wykorzystać w "procedura" i kilku innych.

Nie wiem jak to zrobić.

'C:\PrzykładowaŚcieżka\[BazaKlas.xlsx]klas!'
sub procedura()  
	  Dim lOstRwFV As String
        lOstRwFV = Cells(Rows.Count, 1).End(xlUp).Row
        Range(Cells(3, 7), Cells(lOstRwFV, 7)).Formula =  _
	"=VLOOKUP(RC[-6],'C:\PrzykładowaŚcieżka\[BazaKlas.xlsx]klas!'!C[-6]:C[6],4,FALSE)"
end sub
Łukasz_Franczak
  • Zapytał
  • @ Łukasz_Franczak | 10.04.2014
    • 2
    • 0
    • 4
Komentarze (2)
Dodam jeszcze, że chciałbym móc pracować tak samo raz przy otwartym i drugi przy zamknietym skoroszycie "BazaKlas.xlsx". Bo w tej chwili jak go otworzę i coś zmienię, to wywalają się procedury, które się do niego odwołują.
Skomentował : @ Łukasz_Franczak ,10.04.2014
  • 2
  • 0
  • 4

Odpowiedź (1)

  • 0

Cześć Łukasz.

Po pierwsze, użyłbym na Twoim miejscu funkcji Application.WorksheetFunction.VLOOKUP(lookup_value, table_array, column_index, range_lookup) zamiast wstawiać całą funkcję do komórki w arkuszu.

Po drugie argument nr. 2 (czyli gdzie funkcja ma szukać) wrzuciłbym w zmienną.

LINK jak używać VLOOKUP w VBA

Argument nr. 1 również bym wrzucił jako zmienna.

Daj znać czy się udało.

Pozdrawiam.
Michał.

Michał_Gwiazdonik
  • Odpowiedział
  • @ Michał_Gwiazdonik | 13.05.2016
    • lider
    • laureat
    • 13
    • 9
    • 51