Makroya İlave (Açılır Kutu ile Veri Al)

[1Al2Ver]

Merhaba,

Kod ile ; G2 Açılır kutu yardımıyla diğer sayfadan (satışlar) veri alıyorum,

Bu koda "2 tarih arası" ilavesi yapmak istiyorum,

Tarihler "Ürün" sayfasında K2 ve L2 hücresinde, anılan hücrelerde tarihi aşağı açılır kutu ile seçmek istiyorum,

Koda yapılacak ilaveyi rica ediyorum.

Teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G2]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Set S1 = Sheets("Ürün")
Set S2 = Sheets("Satışlar")
S1.Columns("A:E").Clear
S2.Columns("A:E").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=S1.Range("G1:G2"), CopyToRange:=S1.Range("A1"), Unique:=False
Set S1 = Nothing
Set S2 = Nothing
End Sub

 

[1Al2Ver]

Merhabalar,

Konu Günceldir.

 

[1Al2Ver]

Merhabalar,

Konu günceldir,

Teşekkür ederim.