İki Tarih Arası 3 Veri Getirme

[ZorBey_]

Merhaba İyi Çalışmalar
Yapmak İstediğim
İki Tarih Arasında Seçilen Üç Ürünün
Ara Ve Ara1 Sayfaları Hariç
Diğer Sayfalarda F Sutunda Aranarak Rapor Sayfasına Getirmek
Veri Aktar Butonu Tıklandığında
Sayfalardan 1. Seçenek Olan Manavları Getirmek Bittiği Yerden Altına
Sayfalardan 2. Seçenek Olan Marulları Getirmek Bittiği Yerden Altına
Sayfalardan 3. Seçenek Olan Patatesleri Getirmek
Tek Tıkla Sayfalardan 3 Veri Getirilmiş Olucak
Teşekkür Ederim İyi Çalışmalar.

 

[halit3]

Merhaba İyi Çalışmalar
Yapmak İstediğim
İki Tarih Arasında Seçilen Üç Ürünün
Ara Ve Ara1 Sayfaları Hariç
Diğer Sayfalarda F Sutunda Aranarak Rapor Sayfasına Getirmek
Veri Aktar Butonu Tıklandığında
Sayfalardan 1. Seçenek Olan Manavları Getirmek Bittiği Yerden Altına
Sayfalardan 2. Seçenek Olan Marulları Getirmek Bittiği Yerden Altına
Sayfalardan 3. Seçenek Olan Patatesleri Getirmek
Tek Tıkla Sayfalardan 3 Veri Getirilmiş Olucak
Teşekkür Ederim İyi Çalışmalar.

Merhaba ben bu kodu size daha önceden yazdığımı hatırlıyorum.
link
http://www.excel.web.tr/f48/ki-tarih-arasy-veri-getirme-t131559.html

kod:

Private Sub CommandButton1_Click()
Dim wsRap As Worksheet, ws As Worksheet
Dim i As Long, ss As Long

Dim baslangıc, bitis, aranan1, deg1, deg2, yer1, yer2
baslangıc = Sheets("Rapor").Cells(2, "e").Value
bitis = Sheets("Rapor").Cells(3, "e").Value
aranan1 = Sheets("Rapor").Cells(3, "g").Value
aranan2 = Sheets("Rapor").Cells(3, "h").Value
aranan3 = Sheets("Rapor").Cells(3, "ı").Value

If IsDate(baslangıc) <> True Then Exit Sub
If IsDate(bitis) <> True Then Exit Sub

deg1 = CDate(baslangıc)
deg2 = CDate(bitis)

If deg1 <= deg2 Then
yer1 = CDate(baslangıc)
yer2 = CDate(bitis)
Else
yer2 = CDate(baslangıc)
yer1 = CDate(bitis)
End If


Set wsRap = Worksheets("Rapor")
wsRap.Range("B5:N500").ClearContents


For Each ws In Worksheets
With ws
If .Name <> "Rapor" And .Name <> "Ara" And .Name <> "Ara1" Then
For i = 5 To .Cells(.Rows.Count, "B").End(xlUp).Row

bulunan1 = .Cells(i, "f").Value
'MsgBox bulunan1

If CDate(yer1) <= CDate(.Cells(i, "D").Value) _
And CDate(yer2) >= CDate(.Cells(i, "D").Value) Then

If bulunan1 = aranan1 _
Or bulunan1 = aranan2 _
Or bulunan1 = aranan3 Then
sat = sat + 1


ss = wsRap.Cells(Rows.Count, "B").End(xlUp).Row + 1
wsRap.Cells(ss, "b").Value = sat
wsRap.Cells(ss, "c").Value = .Name
wsRap.Cells(ss, "d").Value = .Cells(i, "B").Value
wsRap.Cells(ss, "e").Value = .Cells(i, "C").Value
wsRap.Cells(ss, "f").Value = .Cells(i, "D").Value
wsRap.Cells(ss, "g").Value = .Cells(i, "f").Value
wsRap.Cells(ss, "h").Value = .Cells(i, "g").Value
wsRap.Cells(ss, "ı").Value = .Cells(i, "k").Value
wsRap.Cells(ss, "j").Value = .Cells(i, "l").Value
wsRap.Cells(ss, "k").Value = .Cells(i, "o").Value
wsRap.Cells(ss, "l").Value = .Cells(i, "q").Value
wsRap.Cells(ss, "m").Value = .Cells(i, "r").Value
wsRap.Cells(ss, "n").Value = .Cells(i, "t").Value

End If
End If

Next
End If
End With
Next


Range("A1").Select
End Sub

 

[ZorBey_]

Merhaba
Sayın halit3
İstenen Veriler Geliyor
Çok Teşekkür Ederim Sağolun
Allah Razı Olsun.

 

[halit3]

Merhaba
Sayın halit3
İstenen Veriler Geliyor
Çok Teşekkür Ederim Sağolun
Allah Razı Olsun.

İyi çalışmalar