Veri çağırmak

[Ledaer]

Merhaba,

iki sayfam var. birinci sayfam ( müşteri ) bilgiler vardır. ikinci sayfada ( Termin Listesi ) yapmak istediğim: c2 hücresine yazdığım tarihi aşağıda yazan kısımları çağırmaktır.

dosya:
http://yadi.sk/d/CHgVCVxZNeuE5


teşekkürler.

 

[acar6783]

Sayfada bir sürü kod var bir temizlikten sonra dosyanızı yüklerseniz.
Cevap hazır.Ben silmek istemedim..

 

[Ledaer]

https://disk.yandex.com.tr/public/?hash=5zq4WHXMqAjRg6GxuFrvXaoKjKf9is8srPzzojTA2f4=


kodları temizledim.

teşekkür ederim.

 

[acar6783]

Sub terminbul()
Set s1 = Sheets("Müşteri")
Set s2 = Sheets("Termin Listesi")
termn = s2.Range("C2")

s2.Range("A7:J500").ClearContents
For i = 4 To s1.Cells(65536, 25).End(xlUp).Row + 1
If termn = s1.Cells(i, 25) Then
c = c + 1

s2.Cells(c + 6, 1) = s1.Cells(i, 1)
s2.Cells(c + 6, 2) = s1.Cells(i, 3)
s2.Cells(c + 6, 3) = s1.Cells(i, 6)
s2.Cells(c + 6, 4) = s1.Cells(i, 7)
s2.Cells(c + 6, 5) = s1.Cells(i, 8)
s2.Cells(c + 6, 6) = s1.Cells(i, 9)
s2.Cells(c + 6, 7) = s1.Cells(i, 10)
s2.Cells(c + 6, 8) = s1.Cells(i, 13)
s2.Cells(c + 6, 9) = s1.Cells(i, 35)
s2.Cells(c + 6, 10) = s1.Cells(i, 25)
End If
Next
End Sub

Sub terminbuleski()
Set s1 = Sheets("Müşteri")
Set s2 = Sheets("Termin Listesi")
termn = Date

s2.Range("A7:J500").ClearContents
For i = 4 To s1.Cells(65536, 25).End(xlUp).Row + 1
If termn > s1.Cells(i, 25) Then
c = c + 1

s2.Cells(c + 5, 1) = s1.Cells(i, 1)
s2.Cells(c + 5, 2) = s1.Cells(i, 3)
s2.Cells(c + 5, 3) = s1.Cells(i, 6)
s2.Cells(c + 5, 4) = s1.Cells(i, 7)
s2.Cells(c + 5, 5) = s1.Cells(i, 8)
s2.Cells(c + 5, 6) = s1.Cells(i, 9)
s2.Cells(c + 5, 7) = s1.Cells(i, 10)
s2.Cells(c + 5, 8) = s1.Cells(i, 13)
s2.Cells(c + 5, 9) = s1.Cells(i, 35)
s2.Cells(c + 5, 10) = s1.Cells(i, 25)
End If
Next
End Sub

Buyrun..
Bir module kopyalayıp buton atarsanız istediğiniz olacaktır.
Eğer tarih girince oto. çalışsın isterseniz yine yazınız.

 

[Ledaer]

çok teşekkür ederim ilginize.

bir ekleme daha yapabilir misiniz
yazdığımız tarihi belirttiğiniz gibi çağırabiliyorum
birde tarihi geçenleri toplu olarak çırabilirimiyiz

tekrar teşekkür ederim.

 

[acar6783]

Tarihi geçenler derken? c2 ye girdiğiniz tarihe göre mi?
Bir de nereye nasıl çağıracağız?

 

[Ledaer]

c2 ye yazdığımız tarihi çağırıyoruz,

bugün 29/4/14 öncesinde olan tarihleri sıralamak

 

[acar6783]

Yani iki buton mu olacak?
Biri girdiğiniz tarih biri de öncekileri çağırmak için ?

 

[Ledaer]

evet
butonla tarihi geçenleri çağırabiliriz

birde yukarıdaki kodları ekledim. veriyi çağırdığında alt alta listeme yapmıyor bakabilirseniz sevinirim.

çok teşekkürler.

 

[acar6783]

4 Nolu mesajı güncelledim.Kodları iki butona atayıp deneyebilirsiniz...

 

[Ledaer]

çok teşekkürler.