Hücre değerine göre filtreleme.

[serif_007]

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.

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

 

[ridvanucok]

Merhaba,

Kodunuzu inceledim ve A:A hücresindeki değerlere göre filtreleme yapmak için aşağıdaki adımları izleyebilirsiniz:

1. Filtreleme yapmak istediğiniz veri kümesinin bulunduğu çalışma sayfasına geçin.
2. A:A hücresindeki verilere göre filtrelemek istiyorsanız, bu hücrenin sütununu seçin.
3. AutoFilter özelliğini kullanarak filtreleme yapın. Aşağıdaki kod satırını kullanabilirsiniz:
   ActiveSheet.Range("A1").AutoFilter Field:=1, Criteria1:="AYDIN"
   Bu satır, A1 hücresinden itibaren A sütununda filtreleme yapar ve "AYDIN" kriterine uyan satırları gösterir.
4. Filtrelenmiş verileri kopyalamak için aşağıdaki kod satırını kullanabilirsiniz:
   ActiveSheet.AutoFilter.Range.Copy
   Bu satır, filtrelenmiş verileri seçili hale getirir ve kopyalar.
5. Verileri masaüstüne yapıştırmak için aşağıdaki kod satırını kullanabilirsiniz:
   CreateObject("Shell.Application").Namespace(0).Self.Path & "\Desktop\"
   Bu satır, masaüstü dizin yolunu döndürür.
6. Son olarak, kopyalanan verileri masaüstüne yapıştırmak için aşağıdaki kod satırını kullanabilirsiniz:
   ActiveSheet.AutoFilter.Range.Copy Destination:=CreateObject("Shell.Application").Namespace(0).Self.Path & "\Desktop\" & "Filtrelenmis_Veriler.xlsx"
   Bu satır, filtrelenmiş verileri seçili hale getirir ve masaüstüne kopyalar.

Yukarıdaki adımları uygulayarak, A:A hücresindeki değerlere göre filtreleme yapabilir ve filtrelenmiş verileri masaüstüne kopyalayabilirsiniz. Umarım yardımcı olmuştur.

 

[serif_007]

çok teşekkür ederim