Yazı tipi Rengini Koruyarak Veri Çekme

[metin_0606]

Değerli forum üyeleri paylaşmış olduğum çalışmamda sayfalar arası veri çekiyorum. Yapmak istediğim verileri sayfalar arası çekerken personel isimlerindeki yazı tipi rengini koruyarak verileri çekmek istiyorum. Makroda nasıl bir revize yapılabilir. Şimdiden yardımlarınız için teşekkürler.

 

[YUSUF44]

Gelişmiş filtre özelliğini kullanarak hazırladığım dosyayı inceleyiniz:

 

[metin_0606]

Gelişmiş filtre özelliğini kullanarak hazırladığım dosyayı inceleyiniz:

Yusuf bey geri dönüş için teşekkür ederim. Ancak benim paylaşmış olduğum formatın dışına çıkarsam çalışmamda köklü değişiklikler yapmak zorunda kalıyorum. Buda benim için hayli zor olur. Mevcut makro ve mevcut tablolar üzerinden bir çözüm olursa benim için daha iyi olur.

 

[YUSUF44]

Formatınızda yaptığım tek değişiklik A1:B2 aralığındaki kriter alanı. Bunu mu kastediyorsunuz?

 

[metin_0606]

Formatınızda yaptığım tek değişiklik A1:B2 aralığındaki kriter alanı. Bunu mu kastediyorsunuz?

Paylaşmış olduğum makroda revize yaparak butonlar ve sekmeler yardımı ile 20 farklı veri çekiyorum. Bu şekilde çalışırsam her bir getirdiğim veri için yeniden kriter yazmak zorunda kalacağım. Bu yüzden mevcut makro üzerinde revize yapmak benim işimi daha kolaylaştıracak.

 

[YUSUF44]

Tekrar baktım, son 5 sütun yok ve J sütununda da içerikler yok. Bunu sağlamak için dosyadaki filtre makrosunu aşağıdakiyle değiştirebilirsiniz:

Sub filtre()
    Set S1 = Sheets("ANA SAYFA")
    Set S2 = Sheets("VERİ")
    S1.Rows(1).Copy S2.[A7]
    son = S1.Cells(Rows.Count, "A").End(3).Row
    S1.Range("A1:Y" & son).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "kriter"), CopyToRange:=Range("A7:Y7"), Unique:=False
    S2.Columns("U:Y").EntireColumn.Delete
    son2 = WorksheetFunction.Max(8, S2.Cells(Rows.Count, "A").End(3).Row)
    S2.Range("J8:J" & son2).ClearContents
End Sub

Eğer veri sayfasına eklediğim kriter alanı (A1:B2) da sıkıntı oluyorsa o kısmı keserek başka uygun bir sayfa ya da yere yapıştırabilirsiniz (kopyala yapıştır değil kes yapıştır yapmalısınız).

 

[YUSUF44]

Paylaşmış olduğum makroda revize yaparak butonlar ve sekmeler yardımı ile 20 farklı veri çekiyorum. Bu şekilde çalışırsam her bir getirdiğim veri için yeniden kriter yazmak zorunda kalacağım. Bu yüzden mevcut makro üzerinde revize yapmak benim işimi daha kolaylaştıracak.

Belki bu isteğiniz de farklı bir şekilde çözümlenebilir. Buna uygun örnek dosya paylaşıp ne gibi işlemler yaptığınızı belirtirseniz çözmeye çalışırız.