Fkeres használata makróval

Névtelen
2019-11-01T15:43:27+00:00

Sziasztok!

Makróval szeretném az excel cellába íratni az fkeres függvényt.

Azt szeretném, hogy mindig a táblázat nagyságával azonos legyen a kijelölések.

Ezt csináltam:

"Sub Fkeres_Munkafelvevo_AMCTR8()

'

' Fkeres_Munkafelvevo_AMCTR8 Makró

'

'

      Dim sorszam As String

    Dim osszefuz As String

    Dim kijeloltresz As String

    Dim fkeres As String

    Range("A2").Select

    Selection.End(xlDown).Select

    sorszam = ActiveCell.Row

    osszefuz = "S" & sorszam

    kijeloltresz = "B2:" & osszefuz

    Sheets("Munka1").Select

    fkeres = "=VLOOKUP(RC[-18],AMCTR9! " & kijeloltresz & ",18,FALSE)"

    Range("W2").Select

    ActiveCell.FormulaR1C1 = fkeres

    Selection.Copy

    osszefuz = "W" & sorszam

    kijeloltresz = "W2:" & osszefuz

    Range(kijeloltresz).Select

    ActiveSheet.Paste

End Sub"

A makróban a fkeres tartalma az amit szeretnék látni: "=FKERES(E2;AMCTR9!B2:S555;18;HAMIS)"

A makró futtatása után a cellában viszont ez szerepel: "=FKERES(E2;AMCTR9!'B2':'S555';18;HAMIS)"

Majdnem jó. Miért kerülnek bele az aposztrófok?

Köszönöm a segítséget.

Üdvözlettel:

Józsi

Microsoft 365 és Office | Excel | Otthoni | Windows

Zárolt kérdés. Ez a kérdés a Microsoft támogatási közösségéből lett áttelepítve. Szavazhat arról, hogy hasznos-e, de nem adhat hozzá megjegyzéseket vagy válaszokat, és nem követheti a kérdést.

0 megjegyzés Nincsenek megjegyzések

1 válasz

Rendezés alapja: Leghasznosabb
  1. Névtelen
    2019-11-10T08:09:53+00:00

    Sziasztok!

    A jó választ  a következő helyen olvashatjátok.

    https://social.technet.microsoft.com/Forums/en-US/16e57d3a-d181-4cc1-8dd9-eb9293c2750d/vlookup?forum=excel

    Köszönöm.

    Üdvözlettel:

    Józsi

    Hasznos volt ez a válasz?

    Ezt a választ 1 személy találta hasznosnak.
    0 megjegyzés Nincsenek megjegyzések