VBA, hiperhivatkozás, pdf. csatolása azonos név esetén.

Ez a téma lezárásra került a moderátor által. A lezárás oka: Tudástárban egy téma – egy kérdés/probléma elv érvényesül. Tessék új témát nyitni az új problémádnak.
VBA, hiperhivatkozás, pdf. csatolása azonos név esetén.
2019-02-19T22:48:46+01:00
2019-12-18T17:56:10+01:00
2022-10-15T21:16:42+02:00
Kornél32
Sziasztok!

Nagyon amatőr Exel felhasználó vagyok, a Makróról ne is beszélve. Viszont érdekelne egy megoldás a problémámra. Remélem sikerül választ találnom.

Van egy táblázatom, amiben A oszlopban A3 cellától ismeretlen celláig sorszámok lesznek.
Egy másik mappában pedig azonos sorszámmal rendelkező pdf. fájlok (képek).
A táblázat B oszlopába a B3 celláró indulva, szeretném ha hivatkozásként bekerülnének az A cellákkal azonos nevű  pdf fájlok.
Ha az A cellában nincs sorszám akkor a B cellában ne történjen semmi.
Ha az A cellában van sorszám, viszont a mappában nincs azonos nevű pdf fájl, akkor a B cellában a "nincs scannelve" felirat jelenne meg.

Segítségeteket előre is köszönöm! 

Tisztelettel: Kornél
Mutasd a teljes hozzászólást!
Szia!

Ez simán megoldható, azonban nem egy kérdés erejéig, mivel ki kell listázni az adott könyvtár elemeit, össze kell vetni a meglévő cella értékekkel, hibakezelés stb.

Ha nem tudod megoldani akkor ki kell adni munkába. Ezen az oldalon 1 topic 1 konkrét kérdés, nem egy komplett rendszer megírása.

Ha magad szeretnéd megírni, akkor a társalgóba kellene esetleg áttenni a kérdést, ott kaphatsz egy részletesebb feladat listát a kódról, majd sok kereséssel megírod a kódod. Nem annyira bonyolult ám! Szerintem jól jársz, ha megírod magad, mert sok hasznos dolgot tanulhatsz meg belőle.

Amúgy:

22000 + áfa
Mutasd a teljes hozzászólást!

  • Köszönöm a válaszod! :)
    Mutasd a teljes hozzászólást!
  • Szia

    Még régebben volt ugye egy kérdésem, ami nem is egy kérdés volt :)

    Elkezdtem keresgélni a neten és sikerült is használható dolgokat össze szednem.

    Így  lényegében sikerült addig eljutnom, hogy ki tudtam listázni a pdf fájlokat, és a hivatkozásra is sikerült találnom megoldást.

    Viszont most olyan gondom akadt, hogy mivel a pdf fájlok havonta külön mappába kerültek, így csak egy hónapot tudok hivatkozni.

    A listázásnál sikerült megoldani, de ebben az esetben almappákból kellene hivatkoznom.

    És erre nem találtam egyértelmű megoldást.

    Jelenleg így néz ki a képlet.

    Sub hivatkozás()
    Dim sPath As String, Value As String, cl As Range, usor As Integer, StartCell As Range
    Dim WS As Worksheet

    Set WS = Sheets("Kaizen összesítő") 'ide teszi a hivatkozást
    sPath = "X:\Production\Production TIE\09 Personal\Bacsi Kornel\Kaizen ig. fotók 2019\2019.01"
    Set StartCell = WS.Range("B3")
    usor = WS.Range("B" & Rows.Count).End(xlUp).Row
    For Each cl In WS.Range("B3:B" & usor)
    cl.Hyperlinks.Delete
    If Not IsEmpty(cl) Then
    Value = Dir(sPath & cl.Value & ".pdf")
    If Value <> "" Then
    StartCell.Hyperlinks.Add Anchor:=StartCell, Address:= _
    sPath & Value, TextToDisplay:=cl.Value
    End If
    End If
    Set StartCell = StartCell.Offset(1, 0) ' a következő cella cime
    Next

    Application.Goto Reference:="hivatkozás"

    End Sub

    Ezen esetben, ezzel az egy kérdéssel fordulnék hozzád.

    Válaszod előre is köszönöm.
    Mutasd a teljes hozzászólást!
Ez a téma lezárásra került a moderátor által. A lezárás oka: Tudástárban egy téma – egy kérdés/probléma elv érvényesül. Tessék új témát nyitni az új problémádnak.
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd