serif_007
Altın Üye
- Katılım
- 5 Nisan 2014
- Mesajlar
- 155
- Excel Vers. ve Dili
- Excel 2019
- Altın Üyelik Bitiş Tarihi
- 16-07-2027
Merhabalar bir çalışmam var aşağıdaki kodlar ile tabloyu hiç açmadan userform üzerinden masaüstüne çıkarabiliyorum.(tüm çalışma sayfasını) Fakat örneğin A:A hücresindeki değerlere göre örneğin hücre değeri AYDIN olanları filtreleyerek masaüstüne ayrıca çıkarmak istiyorum. Yardımlarınız için şimdiden teşekkür ederim.
Kod:
Private Sub CommandButton8_Click()
Dim BLG As String, SY As Long, KRK
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set evn = CreateObject("scripting.filesystemobject")
sekme_ismi = "GÜNCEL ARIZALAR"
KRK = Array("<", ">", "|", "/", " / ", "*", ":", "\", " \ ", ".", "?", """")
For SY = LBound(KRK) To UBound(KRK)
Next SY
DosyaAdi = "C:\Users\" & Environ("Username") & "\Desktop\" & "GÜNCEL ARIZALAR" & " " & " - " & Date & " " & ".xlsx"
Sheets(sekme_ismi).Copy
ActiveWorkbook.SaveAs Filename:=DosyaAdi, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Application.Visible = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub