Düşeyara ile veriler süzmek veya aktarmak

[voodoograph]

Merhaba arkadaşlar, yeni bir sorum var. Ekte anlattım ancak birkaç noktayı daha belirtmek isterim.

Bir liste sayfam, bir de mesleklere göre dağılım listem var. Liste sayfasından Meslek Grubu sütünu altındaki meslekleri Mesleklere Göre Dağılım sayfasına grup başlığı olarak ekleyip, altına üyelerini üye no ve adı soyadını ekleyebilecek. Kısaca 2 fonksiyon olacak.

İlgilenen arkadaşlarımıza şimdiden teşekkür ederim.

Saygılar.

 

[İdris SERDAR]

Dosyanız ekte.

..

 

[muygun]

Slm.
Syn Yurttaş çözmüş ama bir örnekte benden.

 

[Ali]

Farklı bir örnekte ben ekleyeyim.

 

[voodoograph]

Sayın yurttas,

Sütunlar arasındaki formülleri kullanma yöntemini anlamaya çalışıyorum. Sayfayı acemi biri kullanacağı için onları gizler ve kitlerim sanırım. Meslek listeleme sayfasında yeni grup eklemiyor ama çalışman güzel olmuş. Ellerine sağlık.

Sayın muygun ve Ali size de değerli yardımlarınız için teşekkürler. Şimdi kurcalıyorum dosyaları umarım işime yararlar

 

[Orion1]

Merhaba.
Düşeyara değil ama find komutu kullanarak kod ile yaptım.
Birleştirilmiş hücreler sorun oluşturuyordu .Birleştirmelerini çözdüm.
Ekli dosyayı inceleyiniz.

Sub listele()
Sheets("Mesleklere Göre Dağılım").Select
Set s1 = Sheets("Liste")
Set s2 = Sheets("Mesleklere Göre Dağılım")
s2.Range("A4:IV65536").Clear
sonsat = s1.Cells(65536, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To sonsat
basla:
    Set k = s2.Range("A2:IV2").Find(s1.Cells(i, "C").Value, LookIn:=xlValues, lookat:=xlWhole)
    If k Is Nothing Then
        sonkolon = s2.Cells(2, 256).End(xlToLeft).Column
        s2.Cells(2, sonkolon + 3).Value = s1.Cells(i, "C").Value
        s2.Cells(3, sonkolon + 2).Value = "Üye No"
        s2.Cells(3, sonkolon + 3).Value = "Üye Adı"
        GoTo basla
    End If
    sonsat2 = s2.Cells(65536, k.Column).End(xlUp).Row
    s2.Cells(sonsat2 + 1, k.Column - 1).Value = s1.Cells(i, "A").Value
    s2.Cells(sonsat2 + 1, k.Column).Value = s1.Cells(i, "B").Value
Next i
Sheets("Liste").Select
Application.ScreenUpdating = True
Set s1 = Nothing
Set s2 = Nothing
MsgBox "AKTARMA İŞLEMİ TAMAMLANDI..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[voodoograph]

Orion2 ellerine sağlık. Çok kaliteli bir çalışma olmuş. Her işi fonksiyon kendisi yapıyor.
Diğer arkadaşlarımızın da çalışmalarını inceledim ve kesinlikle çok kullanışlı hepsi. Mutlaka çok işe yarayacaklardır.

 

[İdris SERDAR]

Sayın yurttas,

Sütunlar arasındaki formülleri kullanma yöntemini anlamaya çalışıyorum. Sayfayı acemi biri kullanacağı için onları gizler ve kitlerim sanırım. Meslek listeleme sayfasında yeni grup eklemiyor ama çalışman güzel olmuş. Ellerine sağlık.

Sayın muygun ve Ali size de değerli yardımlarınız için teşekkürler. Şimdi kurcalıyorum dosyaları umarım işime yararlar

Veri doğrulama ekledim. Her birini mesleklere göre esnek kullanabilirsiniz. Ayrıca eklediğiniz meslekler de görünür.

..

 

[voodoograph]

Teşekkür ederim yurttas, ellerinize sağlık