bir listedeki verileri tarihe göre farklı bir listeye yerleştirme

[dellerlim]

Merhaba excel.web.tr,

Başlıkta söylemeye çalıştığım şeyi biraz daha açayım;
Ekteki dosyada Plakalar ve bu plakalara ait sigorta tarihleri var. Bir sekmeden ayları seçip bu ayda sigortasının yenilenmesi gereken plakaları gösterebilecek bir makro var düzenleyebilir misiniz?

İyi günler dilerim sizlere.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[dellerlim]

Çok teşekkür ederim Sayın Uygun. Ellerinize sağlık.

 

[dellerlim]

Ufak bir değişiklik

Listeden sadece ay sayısına göre seçim yapmakta bu kodlar. Acaba buna yılları da ekleyebilir miyiz? Örneğin 2017 Yılı 3. Ayı gibi

Kodlar:

Sub tasnifle()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Sayfa1").Range("ı3:l65536").ClearContents
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
aranan = s1.Cells(1, "h")
For i = 2 To s1.Range("A65536").End(xlUp).Row
If Month(s1.Cells(i, 2)) = aranan Or Month(s1.Cells(i, 3)) = aranan Or Month(s1.Cells(i, 4)) = aranan Then
sonsatir = s1.Range("ı65536").End(xlUp).Row + 1
s1.Cells(sonsatir, "ı") = s1.Cells(i, "a")
If Month(s1.Cells(i, 2)) = aranan Then s1.Cells(sonsatir, "j") = s1.Cells(i, "b")
If Month(s1.Cells(i, 3)) = aranan Then s1.Cells(sonsatir, "k") = s1.Cells(i, "c")
If Month(s1.Cells(i, 4)) = aranan Then s1.Cells(sonsatir, "l") = s1.Cells(i, "d")
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

 

[dellerlim]

Geliştirme

Listeden sadece ay sayısına göre seçim yapmakta bu kodlar. Acaba buna yılları da ekleyebilir miyiz? Örneğin 2017 Yılı 3. Ayı gibi

Kodlar:

Sub tasnifle()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Sayfa1").Range("ı3:l65536").ClearContents
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
aranan = s1.Cells(1, "h")
For i = 2 To s1.Range("A65536").End(xlUp).Row
If Month(s1.Cells(i, 2)) = aranan Or Month(s1.Cells(i, 3)) = aranan Or Month(s1.Cells(i, 4)) = aranan Then
sonsatir = s1.Range("ı65536").End(xlUp).Row + 1
s1.Cells(sonsatir, "ı") = s1.Cells(i, "a")
If Month(s1.Cells(i, 2)) = aranan Then s1.Cells(sonsatir, "j") = s1.Cells(i, "b")
If Month(s1.Cells(i, 3)) = aranan Then s1.Cells(sonsatir, "k") = s1.Cells(i, "c")
If Month(s1.Cells(i, 4)) = aranan Then s1.Cells(sonsatir, "l") = s1.Cells(i, "d")
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Sorunu biraz daha ayrıntılandırayım; Listeden Mart ayı seçildiğinde herhangi bir yılın Mart ayındaki verileri buluyor. Ancak sadece bir yılın verileri gerekmekte, 2017 yılı mart ayı veya bu yıl mart ayı olarak yapılabilir mi acaba?

Teşekkürler.

 

[muygun]

Merhaba;
Eki tekrar deneyin.
İyi çalışmalar.

 

[dellerlim]

Tekrar Teşekkürler

Merhaba;
Eki tekrar deneyin.
İyi çalışmalar.

Ellerinize sağlık.

 

[dellerlim]

Her cevap geldiğinde hem yeni bir şeyler öğreniyorum hem de yeni şeyler arıyorum. Eğer çok olmadıysam bir şey daha sormak istiyorum.

Şimdiye kadarki dosyalarda bizim istediğimiz tarihe eşit olan veriler çıkmaktaydı. Peki girdiğimiz tarihten büyük olan tarihlerdeki veya küçük olan tarihlerdeki verileri getirtebilir miyiz? (Örneğin 3 Mart 2017'den eski olanları getirme) Eğer bu şekilde yapabilirsek bende tarih aralığında almayı kendim deneyeceğim inşallah.

 

[muygun]

Merhaba;
Eki tekrar test edin.
İyi çalışmalar.

 

[dellerlim]

Teşekkürler.