Aylara Göre Listeleme

[memduh]

Veriler S6 ile AE100 arasındadır. Aylara göre B6 ile O6 arasında listelemk istiyorum. bir türlü yapamadım. Yardımcı olursanız sevinirim.

Private Sub CommandButton2_Click()
Range("b6100").ClearContents
j = 6
t = 6
Do While Cells(j, 1) <> ""
bak = Choose(Month(Cells(j, 3)), "OCAK", "ÞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AÐUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
If bak = arananay Then
For k = 1 To 13
Cells(t, k + 1) = Cells(j, k)
Next k
t = t + 1
End If
j = j + 1
Loop
UserForm1.Hide
End Sub



Excel 2003 Türkçe

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[memduh]

DOSYA EKTEDİR.

 

[veyselemre]

şöyle dene
Public arananay
Private Sub ComboBox1_Change()
arananay = ComboBox1.Value
End Sub

Private Sub CommandButton2_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 = 19 To 31
Cells(t, k - 17) = Cells(j, k)
Next k
t = t + 1
End If

j = j + 1
Loop
UserForm1.Hide
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:a3d938990a]Private Sub CommandButton2_Click()
Range("b6100").ClearContents
For a = 6 To Cells(65536, 19).End(xlUp).Row
If Month(Cells(a, 20).Value) = Month(1 & "." & ComboBox1.Value) Then
c = c + 1
For b = 19 To 31
Cells(c + 5, b - 17) = Cells(a, b).Value
Next
End If
Next
UserForm1.Hide
End Sub[/vb:1:a3d938990a]

 

[memduh]

Ellerinize sağlık.
yalnız şunuda sormak istiyorum.
B6:B100 dan itibaran sıralamayı alırkan her isme ait S3:s100 deki sıra yerine her seferde baştan yani 1,2,3, alması mümkün mü?

 

[memduh]

Sayın Leventm bey Çok teşekkür ederim.
sizin kodlarınızıda denedim. Yalnız veri girilmemiş aylarda hata veriyor.
veri girilmemş ayları seçtiğimde liste yeri boş kalabilirmi?

 

[Levent Menteşoğlu]

Aşağıdaki ile değiştirin.
[vb:1:1d71c89b64]Private Sub CommandButton2_Click()
Range("b6100").ClearContents
For a = 6 To Cells(65536, 19).End(xlUp).Row
If Month(Cells(a, 20).Value) = Month(1 & "." & ComboBox1.Value) Then
c = c + 1
For b = 20 To 31
Cells(c + 5, 2) = c
Cells(c + 5, b - 17) = Cells(a, b).Value
Next
End If
Next
UserForm1.Hide
End Sub[/vb:1:1d71c89b64]

Not:veri girilmemiş aylardada sayfayı boş geçiyor ben hataya rastlamadım.

 

[veyselemre]

Private Sub CommandButton2_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
UserForm1.Hide
End Sub

 

[ens]

arkada&#351;lar banada yard&#305;m edermisiniz;?
benimde istedi&#287;im 1 den 12 kadar s&#305;ralad&#305;&#287;&#305;m h&#252;creler var bu h&#252;crelere toplam ald&#305;rmak istiyorum nas&#305;l yapabilirim.

 

[ens]

heralde kimse yard&#305;m etmek istemiyor