textbox tarihini kullanarak işlem yaptırmak

[mrt]

Ã?rnekte bulunan Abone Durum sutununa userformda bulunan txtbastarihi'ne girilen tarih ile değiştirmek istiyorum.


sıra -bölge - Adı Soyadı - Bas.Tarihi - Bitiş Tarihi - Abone Durum
1 adana Mehmet kara 01.01.2004 31.12.2004 yeni
2 balıkesir Murat beyaz 01.01.2005 31.12.2005 yeni


User Form'da Bastarihi alanına 01.01.2005 yazdıgımda

Başlama Tarihi 01.01.2005 tarihinden eski olan tüm kayıtların Abone Durum alanları Eski olmalıdır.


Teşekkürler.

 

[Tarkan VURAL]

Ã?rneği gönderir misiniz?

 

[mrt]

dosya boyutum yüksek

skıştırdığımda 456k'lık boyut var. sistem hata veriyor.

 

[mrt]

Selamlar,

Sorunumu çözmek için aşağıda buluna kodlarları denedim.

Fakat Abone durumu sütununun tamamını Eski yapıyor.

Private Sub Cmdeski_Click()

For i = 2 To Cells(1, 6).End(xlDown).Row
If i = Cells(1, 6).End(xlDown).Row + 1 Then Exit For
If Cells(i, 4) > " & TxtBastarihi.value & " Then Cells(i, 6).Value = "Eski"

Next i

End Sub

 

[cako]

[vb:1:0095ad3c40]
If Cells(i,4) > Cdate(TxtBastarihi) Then Cells(i,6)="Eski"[/vb:1:0095ad3c40]
şeklinde deneyin.

 

[mrt]

teşekkürler

İstediğim gerçekleşt. Teşekkür ederim.

Fakat bir soru daha var,

commandbutton ile veya ilk açılışta listbox'a txtbastarihi, bu günden eski olanların listelenmesini istiyorum.

Listbox şu ana tüm verileri göstermektedir.

Bu günden eskilerini yapamadım.

 

[cako]

For i=1 to 1000
if Cells(i,2)<Date then
listbox1.AddItem Cells(i,1)
end if
next i

Gibi birşey.

 

[mrt]

Ýlginize teşekkürler

Selamlar,

Commandbutton bölümüne kodları yazdım. Fakat çalışmadı.

Farklı bir alana mı yazmalıyım ?

 

[cako]

tam kodlarınızı ya da dosyanızı gönderebilir misiniz?

 

[omerceri]

Private Sub UserForm_Initialize()
cako'nun kodlarını buraya yaz
End Sub

 

[mrt]

Selamlar,

çalışmayı biraz kırparak gönderiyorum.

Yapmak istediğim,

1.Sayfa açıldığında listbox'a otomatik olarak Bitiş Tarihi bugünden eski olan satırlar listelensin.

2. Listelene satırları istersem yazdırabileyim.

3.listelenen satırlardan seçme ( tek veya çoklu seçim) yaparak arsiv sayfasına yazdırabileyim.

4. listelene kayıtlardan seçim yaptıklarımı silebileyim.

Sizleride uğraştırdığımın farkındayım. Hakkınızı helal edersiniz inşaallah.

Teşekkürler