Textbox a yazdığım değerin aranması

[halehale]

Selamlar,
Arkdaşlar ekteki dosyada Textbox 4 e yazdığım tarih değerinin sayfa1 deki verilerde aramasını yukarıdaki Tarih textbox na veri sayfasındaki tarih,Yazan Textbox una yazan,açıklama textboxuna açıklama ilave etmek istiyorum


TEŞEKKÜR EDİYORUMM

 

[Orion1]

Merhaba.
CommandButton1'e aşağıdaki kodları yapıştırınız.
Yalnız 2007 yılında şubat ayı 28 çekiyor siz 29 yazmışsınız onu düzeltin ,Kodlar hata verir.

Private Sub CommandButton1_Click()
Dim i As Long, tarih1 As Date, tarih2 As Date, bulundu As Byte
tarih1 = Format(TextBox4.Value, "dd.mm.yyyy")
For i = 2 To Cells(65536, "G").End(xlUp).Row
    tarih2 = Format(Cells(i, "G").Value & "." & Cells(i, "H").Value, "dd.mm.yyyy")
    If CDate(tarih1) = CDate(tarih2) Then
        TextBox1.Value = Format(TextBox4.Value, "dd.mm.yyyy")
        TextBox2.Value = Cells(i, "I").Value
        TextBox3.Value = Cells(i, "J").Value
        bulundu = 1
        Exit For
    End If
Next i
    If bulundu = 0 Then
        MsgBox "[ " & TextBox4.Value & " ] Tarihli bir kayıt bulunamadı..!!", vbCritical
    End If
    bulundu = 0
End Sub

 

[halehale]

Öncelikler çok teşekkür ederim,bir hata veriyor

Private Sub CommandButton1_Click()
Dim i As Long, tarih1 As Date, tarih2 As Date, bulundu As Byte
tarih1 = Format(TextBox4.Value, "dd.mm.yyyy")
Tarih 1 kısmında hata veriyor,12.00 am olarak görüyor?

 

[Orion1]

Merhaba.
Textbox4'e Tarih değerini şöyle girin 3.1.2007

 

[halehale]

Yine olmadı

 

[Orion1]

Merhaba.
Ekli dosya bende sorunsuz çalışıyor.
Ekli dosyayı çalıştırınız.
Dosyayı istediğiniz şekilde güncelledim.Ekli dosyayı indirip deneyiniz.

 

[halehale]

tarihi saat olarak algılıyor 12:00:00 AM diyor
sanırım tanımlamada bir hata var

 

[halehale]

Bende çalışmyor,
sizce benim excel ayarlarımda bir probleme olabilirmi,
Hücere kısmı Date mi olmalı

 

[Orion1]

merhaba.
Ekte dosya yolladım çalıştırmayı deneyiniz..

 

[Orion1]

Merhaba.
Denetim masasından Bölge ve dil seçeneklerinden Özellikler'e girin ve tarih sekmeinden tarih ayıracını nokta olarak belirleyerek deneyin.

 

[halehale]

Çok Teşekkür ediyorum ama bende maalesef çalışmıyor,text box değerini "02.02.2007" diye okuyor
ama tarih1=format(textbo1........= kısmında tarih1 kısmı 12:00:00 AM
Olarak geçiyor.
sanırım benim excel ayarlarımdan
çünkü evdeki bilgisyarımda akşam bakmıştım.çalışıyordu

 

[halehale]

:hihoho:
Çok Teşekkür ediyorum ya
Bilmek böylebişey
Elinize sağlık

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[halehale]

Sezar peki userformda bir butuna basıp açıklama ekliyeceğiz ya,
açıklama yı direk bugunun tarihine eklemek için nasıl bir kod gerekir?
Yani butona basınca ,sayfa1 deki bugunun tarihine gidecek.

Birde programdan tamamen çıkmak için nasıl bir kod lazım.Kaydedip çıkmak için

 

[Orion1]

Merhaba.
Sorun'u anlayamadım.
İstediğiniz Tetxbox1,Textbox2 ve textbox3'e veriler girip ,O verileri Bir buton vasıtası ile sayfa1'e mi kaydetmek istiyorsunuz?

 

[halehale]

Evet Öylede olur,öyle olsa idi kodlar ne olurdu?

Ama benim istediğim;userform dan bir butonla sayfa 1 e gidiyorum,mesela bugun ayın 28 i ,bugun ile ilgili bir açıklama ekleyeceğim,tarihi hiç aramadan direkt bugunun tarihi neyse o hücreye gitsin istiyorum buton.

Birde açıklama ekledikten sonra userform üzerinden programdan çıkmak istiyorum.

 

[Orion1]

Merahaba.
Sayın halehale dosyayı istediğinizşekilde güncelledim.
6 numaralı mesaj'dan indirip deneyiniz.İstediğiniz şekilde olmuşmu?

 

[halehale]

sezar çok teşekkür ediyorum,
elinize sağlık çok güzel olmuş,
ben burada bişey düşünemedim. Bu programı paylaşıma açmayı düşünüyorum.Yani insanlar günlük paylaşımdaki bu programa veri girişi yapacak o günle ilgili haberleri.Böylellikle aslında bir haber programı işlevi görecek,ama burada bir satır olunca 1 mesaj yazılabiliyor.yani aynı günde 3-5 kişi fsklı konu girebilir.Bu sorunu aşabilirmiyiz? Ne önerirsiniz?
:arkadas: size teşekkür ediyorum

 

[Orion1]

Merhaba.
Bir günkü tarihe,1'den fazla mesaj girilecekse,bence mesaj girildikçe tarih yazılsın.Dağa önceden tarih yazıp,mesajı o tarihe yazmaktan dağa fazla bir günlük mesaj yazılabilir kanatindeyim.
İyi çalışmalar.

 

[halehale]

mesaj girilip tarih yazılırsa nasıl olur ki?
??