Új hozzászólás Aktív témák

• #53170 Fferi50 Topikgazda Yutani #53169

  Új Válasz 2024-09-09 21:50:57 #53170

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Yutani #53169 üzenetére

  Szia!
  Egy példa, ami alapján el lehet indulni: A képletet a makró irja be a B2 cellába!!! A munkalap kódlapjára (lapfülön jobb egérgomb - kód megjelenítése) az alábbi makrót kell beilleszteni:
  Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E1:H1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range("B1").Formula = "='" & Range("E1").Text & "\[" & Range("F1").Text & "]" & Range("G1").Text & "'!" & Range("H1").Text
Application.EnableEvents = True
End Sub
  Ha változtatod az F1:H1 cellákban levő adatot, akkor változik a képlet a B1 cellában és megjelnik az új eredmény. Ebben a formában kell beírni, azaz az útvonal végére nem kell \ és kell a fájl kiterjesztés.
  Figyelem, hibakezelés nincs benne. Először töltsd ki a négy cellát és utána másold be a makrót, különben hibaüzeneteket fogsz kapni.
  Makróbarátként kell menteni!
  Üdv.

Új hozzászólás Aktív témák