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

• #37846 Exportlaptop csendes tag

  Új Válasz 2018-04-18 00:05:23 #37846

  Ú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

  

  Exportlaptop

  csendes tag

  Üdv!
  Még anno segített egy kedves hölgy, talán Delila_1 az alábbi modul szerkesztésében, ami ezidáig tökéletesen működött, most viszont ezt a hibát írja ki: Compile error: Expected End Sub
  És a modul:
  Sub Kepek()
  Dim Kepneve As String, utvonal As String, sor As Long
  utvonal = "D:\MUNKA kicsinyitett2\BC adatbazis\UJ TERMEKEK 2018,04,13\COMP\KEPEK\"
  sor = 1
  Do While Cells(sor, "I") <> ""
  Kepneve = Cells(sor, "I")
  With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
  .Left = Columns(10).Left
  .Top = Rows(sor).Top
  .Height = Rows(sor).Height
  End With
  sor = sor + 1
  Loop

  Mi lehet a gond?
  Nincs szóköz a végén vagy bármi ilyesmi, ismétlem a modul tökéletesen működött idáig.
  A sorok is a helyén vannak.
  Napok óta próbálkozom, sikertelenül.
  Remélem tudnak segíteni.
  Köszönöm előre is.

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