Veri Süz

[memduh]

Arkadaşlar Aşağıdaki aylara göre süzme makrosunda, Combobox3 te seçeceğim isme ait aylık rapor almak istiyorum.

Private Sub CommandButton1_Click()
Range("b6100").ClearContents
j = 6
T = 6
Do While Cells(j, 19) <> ""
BAK = Choose(Month(Cells(j, 20)), "OCAK", "ÞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AÐUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")

If BAK = arananay Then
For k = 20 To 31
Cells(T, k - 17) = Cells(j, k)

Next k
Cells(T, 2) = T - 5

T = T + 1
End If

j = j + 1
Loop
UserForm3.Hide
Unload Me
End Sub


Excel 2003 Türkçe
Win. xp pro.

Edit xxrt:"Süzme" Başlığı " Veri Süz " olarak değiştirildi.

 

[Ongun]

Sub listele()
[a3:d65536].ClearContents
Set s1 = Sheets("sayfa1")
For a = 2 To s1.Cells(65536, 1).End(xlUp).Row
If s1.Cells(a, 3) <> [b1].Value Then GoTo 10
If s1.Cells(a, 3) = [b1].Value And s1.Cells(a, 2) = "BORC" Then sut = 2
If s1.Cells(a, 3) = [b1].Value And s1.Cells(a, 2) = "ALACAK" Then sut = 3
c = c + 1
Cells(c + 2, 1) = s1.Cells(a, 1).Value
Cells(c + 2, sut) = s1.Cells(a, 4).Value
'If sut = 3 Then
Cells(c + 2, 4) = WorksheetFunction.Sum(Range("B3:B" & c + 2)) - WorksheetFunction.Sum(Range("C3:C" & c + 2))
'End If
10 Next
'Cells(c + 2, 4) = WorksheetFunction.Sum(Range("B3:B" & c + 2)) - WorksheetFunction.Sum(Range("C3:C" & c + 2))
End Sub
Yukarıdaki çalışma kodu bana ait değil sitemize ait (yazanın eline sağlık) üzerinde düzenleme yaparsan belki işine yarar.
Kodların açıklaması şöyle;
sayfa1 de kayıtlı verilerinden ComboBox dan seçtiğini bütono tıklayınca sayfa2 de listeliyor. Kolay gelsin.
Emek hiç bir şeyle ölçülmez. Sevgiyle kalın. Selamlar. :hey:

 

[memduh]

Arkadaşlar bir türlü yapamadım.
Combobox3 de seçeceğim isme ait aylık rapor almak istiyorum. Aylarıda Combobox2de seçiyorum. yardımlarınız için teşekkürler.

 

[isakarakus]

merhaba,
bunu süzme ile yapsanız daha uygun olur bence,
verilerin bulunduğu alanlı ve hedef alanı kodlarsanız bir örnek gönderebilirim.

 

[memduh]

verilerin bulunduğu yer: S6:AE200 , T6 da Tarih var ve AE6 da isim var.
hedef : Veri sayfasının B6 dan itibaren almasını istiyorum



Excel 2003 TR

 

[memduh]

pardon verilerin bulunduğu alan rapor sayfasıdır.

 

[isakarakus]

sizin verilerinizden birşey anlayamadım ama örnek olarak...

Bu şekilde verileriniz olsun A,B,C sutunları

Ay İsim Tutar
Ocak İsa 50
Ocak İsa 80
Ocak İsa 110
Nisan İsa 140
Mayıs İsa 170
Haziran İsa 200

Bunlardan ocak ayını ve ismi combolardan seçtiniz , E,F,G sutnununda rapor alacaksınız,
butona şu kodları yazlamısınız.

[vb:1:1aec782c78]Columns("E:G").ClearContents

Range("A1:C1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=combobox2.text 'ayı içeren nesne
Selection.AutoFilter Field:=2, Criteria1:=combobox3.text 'ismi içeren nesne
Range(Selection, Selection.End(xlDown)).Copy
Range("E1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFilter[/vb:1:1aec782c78]

isterseniz makro kaydederek siz de oluşturabilirsiniz.

 

[memduh]

Sayın Karakuş verdiğin kod için teşekkürler. uyguladın fakat hata veriyor. Sizleri meşkul ediyorum kusura bakmayın. ekte dosyayı gönderiyorum. yardımcı olursanız sevinirim. Selamlar.



excel 2003 TR

 

[isakarakus]

dosyayı inceliyorum,
siz bu arada dershaneye bir göz atarmısınız,
orada süzme ile ilgili bir örnek var..

http://www.excel.web.tr/viewtopic.php?t=4153

 

[isakarakus]

dosyada bir makro oluşturdum,
umarım yardımcı olur.