• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri çağırmak

  • Konbuyu başlatan Konbuyu başlatan Ledaer
  • Başlangıç tarihi Başlangıç tarihi
Katılım
15 Mart 2005
Mesajlar
98
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.
 
Sayfada bir sürü kod var bir temizlikten sonra dosyanızı yüklerseniz.
Cevap hazır.Ben silmek istemedim..
 
Kod:
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
Kod:
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.
 
Son düzenleme:
ç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.
 
Tarihi geçenler derken? c2 ye girdiğiniz tarihe göre mi?
Bir de nereye nasıl çağıracağız?
 
c2 ye yazdığımız tarihi çağırıyoruz,

bugün 29/4/14 öncesinde olan tarihleri sıralamak
 
Yani iki buton mu olacak?
Biri girdiğiniz tarih biri de öncekileri çağırmak için ?
 
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.
 
4 Nolu mesajı güncelledim.Kodları iki butona atayıp deneyebilirsiniz...
 
Geri
Üst