• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Gelişmiş filtre sonucu dönen verileri başka bir sayfaya yazdırma

sunbeki

Yeni Üye
Katılım
27 Nis 2020
Mesajlar
3
En iyi yanıt
0
Puanları
1
Yaş
44
Konum
Erzurum
Ad Soyad
Adem YEŞİLYURT
Değerli arkadaşlar merhaba,

Bir liste var. Kayıt sayısı önemi değil. Bu listede adı, soyadı, yaşı, doğum yeri alanları var. Bu listeye makro ile bir gelişmiş filtre uyguladım. Mesela adı Adem olan kişileri filtreledim ve 5 kayıt bulundu. Bu 5 kaydı başka bir sayfaya nasıl alabilirim? Bu işlemi çok karmaşık olmadan anlatabilir misiniz?
 

leguminosea

Yeni Üye
Katılım
26 Ocak 2020
Mesajlar
89
En iyi yanıt
5
Puanları
18
Konum
Tokat
Ad Soyad
Erhan ÖZER
Office Vers.
2019 Pro Plus 64 TR
Verilerinizin A:D sütunlarında Sayfa1 de olduğunu ve
sayfa2 deki A:D aralığına aktarmak istediğinizi varsayarak,
filtrenizi uyguladıktan sonra;

Kod:
Sub Makro1()
    Columns("A:D").Copy
    Sheets("Sayfa2").Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        True, Transpose:=False
    Application.CutCopyMode = False
End Sub
 

sunbeki

Yeni Üye
Katılım
27 Nis 2020
Mesajlar
3
En iyi yanıt
0
Puanları
1
Yaş
44
Konum
Erzurum
Ad Soyad
Adem YEŞİLYURT
Teşekkür ederim. Yazdığınız kod işimizi gördü.
 
Üst Alt