İKİ TARİH ARASINA GÖRE VERİLEN DİĞER SAYFAYA AKTARILM

[tamay]

ÝKÝ TARÝH ARASINA G�RE VERÝLEN DÝÐER SAYFAYA AKTARILM

Ã?rnek doyayı ekte gönderyoruım. 01 sayfasındaki tarihler kısımda iki tarih aralığı girildiğinde o tarihler arasındaki verileri 02 sayfasına sıralı şekilde yerleştrimek istiyorum.

mesela 01/01/2005 - 30/01/2005 tarihleri arasındaki bilgiler yatay sıradaki bilgiler 02 sayfasına aktarmak istiyorum.

Yardımcı olabilirseniz sevinirim.
Tşekkürler.

 

[Levent Menteşoğlu]

Ekteki örneği inceleyiniz.

 

[tamay]

Çok teşekkürler. Gerekli dersleri aldım. :hey: :hihoho:

 

[tamay]

Gerekli dersi aldığımı sanmışım galiba.

Seçim alanını nasıl genişletecem. Adan K ya kadar değilde N ye kadar olması için ne yapmak gerek.
Range("A5:K65532").ClearContents

Burda K yı N yapsam olmuyo. :kafa:

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi değiştirin.
[vb:1:d6a39894a8]Sub tarihler()
Range("A5:N65532").ClearContents 'burada K harfi N yapıldı.
kayit = WorksheetFunction.CountA(Sheets("01").Range("A5:A65532"))
bastar = [a2].Value
bittar = [b2].Value
c = 0
For tarih = 5 To kayit + 5
tarihara = Sheets("01").Cells(tarih, 1).Value
If tarihara >= bastar And tarihara <= bittar Then
c = c + 1
For sut = 1 To 14 '11 sayısı 14 yapıldı. 14.sütun=N
Cells(c + 4, sut) = Sheets("01").Cells(tarih, sut).Value
Next sut
End If
Next tarih
End Sub[/vb:1:d6a39894a8]

 

[tamay]

Çok Teşekkürlerrr :hey: