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

• #52836 Csabex őstag Fferi50 #52829

  Új Válasz 2024-06-12 18:53:03 #52836

  Ú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

  

  Csabex

  őstag

  válasz Fferi50 #52829 üzenetére

  Szia,

  Köszi a segítséget
  Akkor így nézne ki teljes egészében ?

  fnev=dir("F:\123\*.xlsx")
do while fnev<>""
      műveletek
     fnev=dir()
loop
Sub Masolas()
Dim i As Integer
Dim Cel_Ws As String
Cel_Ws = "CélMunkafüzetNeve"
For i = 1 To Sheets("Seged").Range("D3").Value
   Workbooks(Sheets("Seged").Cells(i, 1).Value).Sheets(Cel_Ws).Range("D4").Value = Sheets("Seged").Range("D1").Value
   Workbooks(Sheets("Seged").Cells(i, 1).Value).Sheets(Cel_Ws).Range("E4").Value = Sheets("Seged").Range("D2").Value
Next
MsgBox "Kész."
End Sub
  
  

  #52830 Fferi50
  Köszönöm, ez is jónak tűnik, de amit belinkelt Delila az nagyon jó.

  #52832 Delila_1
  Nagyon szépen köszönöm, ez óriási segítség, csak be kell helyettesítenem és átmásolnom mindenestől. Hálás köszönet még1x

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