Makro yardımıyla Rapor alma

[takirti]

Ekteki örnek çalışmamla ilgili yardım bekliyorum. Data sayfasında bulunan verileri userform1 yardımıyla liste sayfasına pazarlamacıların satışlarını kayıt ediyorum. Şablonda tarih malzeme kodu adet fiyat pazarlamacı vs. bilgileri yeralmaktadır. Yapmak istediğim Liste sayfasından rapor sayfasına Tarih yada malzeme kodu yada plasiyer marka kriterlerine göre aktarım yapması. Örneğin liste sayfasındaki verilerden 16.10.2007 günü satışların rapor sayfasına yansıması. yada kemal isimli pazarlamacımın toplam satışların rapor sayfasına yansıması gibi. Bu konuda yardımlarınız bekliyorum.

 

[takirti]

Allah Rızası için yardım..

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
Set sl = Sheets("liste")
Set sr = Sheets("rapor")
sr.[a2:l1000].Clear
For sut = 1 To sl.[l65536].End(3).Row
If Range("l" & sut) = ComboBox1.Value Then
sl.Range("l" & sut).EntireRow.Copy
s = s + 1
sr.Range("a" & s + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "liste!l2:l" & [l65536].End(3).Row
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Dosyanız ekte.

 

[takirti]

Üstadım , Eline sağlık. yardımların için teşekkür ederim.