- Katılım
- 25 Ocak 2006
- Mesajlar
- 764
- Excel Vers. ve Dili
- 2019 tr
- Altın Üyelik Bitiş Tarihi
- 04-01-2024
Kod:
Public bekle
Sub FARKLI_KAYDET()
Set hg = Sheets("HÜCRE GİRİŞ"): Set s = Sheets("sunu")
bekle = "DUR"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For sat = 1 To 100
s.[V3] = hg.Cells(sat, "Q")
ActiveSheet.Copy
belge = ThisWorkbook.Path & "\ihaleler\" & Replace(Replace(hg.Cells(sat, "T").Value, ":", "="), "/", "&") & ".xlsx"
ActiveWorkbook.SaveAs belge
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
bekle = ""
End Sub
peki bu kodu nasıl değişmem gerekiyor. ya da dışarı aktarsam da yani bu kodu kullansam da öyle bir şey demeli ki kullanıcı adına göre değil her bilgisayarda kullanılacak şekilde dışarı çıkarsın. umarım anlatabilmişimdir.
Son düzenleme: