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

• #46872 [w] őstag Delila_1 #46871

  Új Válasz 2021-06-07 14:09:09 #46872

  Ú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

  

  [w]

  őstag

  válasz Delila_1 #46871 üzenetére

  rendesen? rendesen az eredeti kódban volt, gondoltam nem terhelem feleslegesen a motort:

  Sub xx()
  Dim sMappa  As String
  Dim s       As String
  Dim wb      As Workbook
  
  sMappa = "C:\Dokumentumok\___TEMP\"
  s = Dir(sMappa & "*.xls*")
  Do While s <> ""
    Set wb = Workbooks.Open(sMappa & s)
    If IsEmpty(wb.Worksheets("Ellenőrzendő").Range("B25")) Then
      wb.Worksheets("Ellenőrzendő").Range("B25") = "Készítő neve"
      wb.Save
    End If
    wb.Close
    
    s = Dir
  Loop
End Sub

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