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

• #34434 Delila_1 veterán .Farkas. #34433

  Új Válasz 2017-03-10 08:30:53 #34434

  Ú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

  

  Delila_1

  veterán

  válasz .Farkas. #34433 üzenetére

  Function Kep(Kepneve As Range)
Dim FN

Const utvonal = "D:\Képek\Személyek\" '************************
ChDir utvonal 'Direktor váltás
FN = Dir(utvonal & Kepneve & ".jpg")
Application.EnableEvents = False
If FN = "" Then Kep = "Nincs kép" Else Kep = "Van"
Application.EnableEvents = True
End Function

  A csillagozott sorban a saját útvonaladat add meg. A végén legyen backflash, ahogy a makróban látod.
  A B1 cella képlete =Kep(A1), ezt másolhatod lefelé.

  Modulba másold a makrót!

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