Listwiev de tarihe uyan verileri görme sil ve değiştir.

[cemilk]

Hocam diğer konu için sorduğum sorunun cevaı için teşekkür ederim.

 

[Ömer]

Merhaba,

tarih aralığı aktarma için aşağıdaki kodları kullanabilirsiniz. Diğer sorunuzu tam olarak anlayamadım detaya girerek açıklarmısınız.

Option Explicit
 
Sub deneme()
Dim S1, S2 As Worksheet
Dim sat, i As Long
 
Set S1 = Sheets("DATA")
Set S2 = Sheets("HAFTA")
 
S2.Range("F6:J65536").ClearContents
 
sat = 5
 
 For i = 3 To S1.[B65536].End(3).Row
 
  If S1.Cells(i, "B") >= S2.Range("I2") And S1.Cells(i, "B") <= S2.Range("I3") _
  And S1.Cells(i, "C") = "TEDİYE" Then
 
        sat = sat + 1
        S2.Cells(sat, "F") = S1.Cells(i, "B")
        S2.Cells(sat, "G") = S1.Cells(i, "D")
        S2.Cells(sat, "H") = S1.Cells(i, "G")
        S2.Cells(sat, "I") = S1.Cells(i, "H")
        S2.Cells(sat, "J") = S1.Cells(i, "I")
 
   End If
 
 Next i
End Sub

Not: hafta sayfasındaki I2 ve I3 hücrelerindeki birleştirmeyi kaldırınız.

.

 

[by.FoX]

Ömer Hocam aynı dertten bende de var Listviewe bilgileri combobox aracılığıyla alıyorum fakat Listview de seçtiğim satırı bir command butonla hem listviewden, hemde excel sayfasındaki yerinden silmek istiyorum ama o kadar aramama rağmen bir örnek bulamadım. Küçük bir örnek olsa geliştireceğim fakat bulamadım. Bana yardımcı olurmusunuz ?