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

• #31477 teacherhajni csendes tag Delila_1 #31476

  Új Válasz 2016-05-07 14:06:31 #31477

  Ú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

  

  teacherhajni

  csendes tag

  válasz Delila_1 #31476 üzenetére

  Köszönöm!
  Picit módosítottam, most ez fut:

  Sub Kepek()
  Dim Kepneve As String, utvonal As String, sor As Long

  utvonal = "C:\Users\Public\Pictures\Sample Pictures\"
  sor = 1

  Do While Cells(sor, "A") <> ""
  Kepneve = Cells(sor, "A") & ".jpg"

  With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
  .Left = Columns(4).Left
  .Top = Rows(sor).Top
  .Select
  Selection.ShapeRange.LockAspectRatio = msoTrue
  Selection.ShapeRange.Height = 120

  End With
  Rows(sor).RowHeight = 130
  sor = sor + 1

  Loop

  End Sub

  Annyival próbáltam kiegészíteni, hogy
  - ha a cikkszám nincs kitöltve, akkor ugorjon a következő sor A cellájára, és ne keressen képet
  - ha nem találja az adott fájlnevű képet, akkor is ugorjon a következő sor A cellájára, és ne akadjon le.
  A logikát sejtem, hogy hogy kell megcsinálni, csak a parancsokat nem...
  

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