Süz ama şurayı kopyala

[bluefalcon]

Arkadaşlar selam herkese,

Ektede açıklamayı yaptım. Bir tablom var, istediğim makronun bu tabloda B sütununda yer alan isimlere göre süzmesini ancak G sütunundaki verileri kopyalayarak Sayfa2'nin B2 hücresine sırayla yapıştırmasını istiyorum.Yardımlarınız için şimdiden teşekkürler...

 

[Recep İpek]

F kolonuna göre süzme yapıp, Sayfa2'ye kopyalasa olur mu?

Çünkü hem A kolonu, hem B kolonu, hemde F kolonundaki veriler aynı..

 

[bluefalcon]

Ripek dostum.Bu sadece bendeki bir projenin takıldığım parçası.Normal şartlarda B kolonuna göre süzüyor.Eğer B kolonuna göre süzer ise program sorunsuz işlemeye devam edecek.İnan benim için çok önemli bir konu.İlgin için teşekkür ederim.

 

[Recep İpek]

Peki B kolonuna göre süzdükten sonra örneğin bir kişinin 5 kaydı var ise Sayfa2'ye beş adet Departman mı yazılacak?Yada olmasını istediğiniz şekli de sayfa2'ye ekleyebilirmisiniz?

 

[bluefalcon]

Hayır sadece tek satır yazılacak.Örneğin Esra Sünger Yönetici ise Yönetici yazacak.Bir sonraki kişi Şef ise hemen yönetici yazdığı satırın aldına Şef yazacak ve böyle sonuna kadar gidecek...

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Sub AktarTopla()
Dim a, i, n, k, b()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
'*******************************************
a = s1.Range("a2:g" & s1.[a65536].End(3).Row).Value
ReDim b(1 To UBound(a, 1), 1 To 2)
With CreateObject("Scripting.Dictionary")
    .CompareMode = vbTextCompare
    For i = 1 To UBound(a, 1)
            If Not IsEmpty(a(i, 2)) Then
                If Not .exists(a(i, 2)) Then
                    n = n + 1
                    b(n, 1) = n
                    b(n, 2) = a(i, 7)
                    .Add a(i, 2), n
                End If
            End If
    Next
End With
s2.Range("a2:b1000").ClearContents
s2.[a2].Resize(n, 2).Value = b
'*******************************************
MsgBox "Bitti"
s2.Select
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[bluefalcon]

Ripek dostum seni yordum.Kusuruma bakma lütfen.Ancak benim istediğim bu şekilde değil (Tekrar özür diliyorum) Bu listeye süz komutunu verdiğimizde (B) sütununa göre Esma Sünger'i seçtiğimde onun Yönetici mi şef mi olduğunu ayırt etmeye çalışıyorum. Yani süzme işlemini yaparken süzülmüş kişinin ünvanını tespit etmek istiyorum. Makro süzme işlemi aktifken arada çalışacak yani.Anlatamadım galiba tekrar özür dilerim.

 

[cebir]

merhaba..

Private Sub CommandButton1_Click()
For X = 1 To Sheets("Sayfa1").[b65536].End(3).Row
If Cells(X, 2) = TextBox1.Value Then
Sheets("Sayfa2").Range("b2").Value = Cells(X, 7).Value
End If
Next
End Sub

 

[Recep İpek]

Peki bu kodları deneyiniz.

Sub Button8_Click()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
a = s1.Range("a2", s1.Range("g65536").End(xlUp)).SpecialCells(xlCellTypeVisible).Value
s2.Range("b2").Value = a(1, 7)  [COLOR=blue]'7 kolonun 1. satırını göster[/COLOR]
s2.Select
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[bluefalcon]

Herkese çok teşekkürler. İyiki varsın Excel Forum...Seviyorum burayı yahu..

 

[d1lek]

bluefalcon

bahsettiğiniz konu sanki pivot table ile çözülebilir gibi geldi. pivot table alındığında Esma Sünger'in Yönetici mi şef mi olduğu yan kolonunda yazıyor olucak zaten.

 

[d1lek]

pivot örneği

istediğiniz bunun gibi birşey miydi?

 

[d1lek]

pivot table ile çözülebilir gibi

bahsettiğiniz konu sanki pivot table ile çözülebilir gibi geldi. pivot table alındığında Esma Sünger'in Yönetici mi şef mi olduğu yan kolonunda yazıyor olucak zaten. ekte örnek gönderdim. umarım işinize yarar.