Combobox (Birleşik Kutu) hakkında

[preLude3]

Dosyama Combobox ekledim. Kutuda 1 ocak, 2 ocak olsun, 1 ocağı seçtiğimde 1 ocak'a ait tüm veriler gelsin istiyorum. Fakat 1 ocağa ait her bir satır için tekrar 1 ocak geliyor. Bunu özet şeklinde yapmanın bir yolu var mı? Umarım açık olmuştur.

 

[Orion1]

Dosyanız ektedir.

Sub Açılan1_Değiştir()
Dim tar As Range, sat As Long, sat2 As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("E5:F65536").ClearContents
sat = Cells(65536, "A").End(xlUp).Row
sat2 = 5
For Each tar In Range("A3:A" & sat)
    If tar.Value = Range("E2").Value Then
        Range("E" & sat2 & ":F" & sat2).Value = Range("A" & tar.Row & ":B" & tar.Row).Value
        sat2 = sat2 + 1
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[preLude3]

Teşekkürler, olmuş. Fakat bu işlemi farklı dosyalarda da yapmam gerekecek. Kod anlatılmaz yazılır demişsiniz ama, farklı bir dosyada kodu yazdığımda neleri değiştirmem gerektiğini bilsem iyi olurdu

 

[Orion1]

Teşekkürler, olmuş. Fakat bu işlemi farklı dosyalarda da yapmam gerekecek. Kod anlatılmaz yazılır demişsiniz ama, farklı bir dosyada kodu yazdığımda neleri değiştirmem gerektiğini bilsem iyi olurdu

Şartlar ayni ise ayni şekilde kodlayınız.