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

• #46601 Pakliman tag [w] #46600

  Új Válasz 2021-05-07 09:55:14 #46601

  Ú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

  

  Pakliman

  tag

  válasz [w] #46600 üzenetére

  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