Hücreden TextBox'a alınan tarih

[oerbas]

Selamlar;

Arkadaşlar başımı oldukça ağrıtan bu sorun hakkında daha önce soru sormuştum ama iş görür bir cevap alamamıştım. Sorun başımı ağrıttığı için bir kez daha sormak durumunda kaldım.

Sorun 1: Excel çalışma sayfasındaki hücrelerden veriler TextBoxlara aktarılıyor. Calışma sayfası ilgili hücrede Personelin Doğum tarihi 01 Ağustos 1970 (01.08.1970) bu bilgi TextBox'a aktarılınca gün hanesindeki değer ay hanesine yazılarak 08.01.1970 ( 08 Ocak 1970 )olarak geliyor. Bu durum bazı evrakların hatalı düzenlenmesine sebep oluyor. İşin ilginç tarafı bazen bakıyorum durum düzeliyor fakat ne hikmetse tekrar söz konusu durum oluşuyor. Aynı şekilde UserFormun İntialize olayına Textbox'u tarih olarak formatlıyorum. Normalde günün tarihi textBoxta görüntülenmesi gerekirken. gün hanesi ile ay hanesi ters çevrilerek geliyor. Örneğin bugünkü tarih 11.04.2007 olsun TextBox'a gelen tarih 04.11.2007 olarak gözüküyor. Bu durumun sebebini bir türlü anlayamadım konunun önemine binaen yardımcı olmanızı istiyorum. herkese iyi çalışmalar

 

[Seyit Tiken]

Formu açarak, A1 hücresine tarih yazarak deneyiniz. İlgili dosya ekte.

 

[oerbas]

Sayın Seyit Tiken Cevabınıza baktım sorun devam ediyor. Sanıyorum bu benim bilgisayarımla alakalı. Gönderdiğiniz örnekte A1 hücresine girdiğim tarih TextBox' a ay hanesine gün gün hanesine ay değerleri yazıldı. Acaba başka bir ayarmı yapmak gerekiyor.

 

[Qene]

TextBox1.Text = Format(Sayfa1.Range("A1"), "dd.mm.yyyy")

yada

TextBox1.Text = CDate(Sayfa1.Range("A1"))

şeklinde düzenleyin..

 

[oerbas]

Sayın Quene Verdiğiniz örnek A1 Hücresi için tamam ama kendi uygulamamda TextBoxlara alınan tarih Z sütunundan alınıyor. Bu durumda Z sütunu komple seçilmesi gerekiyor.Doğum tarihi bilgileri DATA sayfası Z sütununda bulunmakta ben düzenlemeye çalıştım ama olmadı

DOĞUMTAR = Format(DATA.Range("Z1:Z65536"), "dd.mm.yyyy")

 

[zafer]

Merhaba

DOĞUMTAR = Format(sheets("DATA").Range("Z1"), "dd.mm.yyyy")

Range("x") textbox'a bilgileri nasıl aldığınıza bağlı.sütundaki aktif hucremi. hangi hücre..Hücreleri döngü ilemi seçiyorsunuz. bunu bilmemiz lazım.

Değişkene tek tek format aktarılması gerekir.Sütun olarak olmaz.

 

[oerbas]

Sayın Zafer Çalışma sayfasından bilgiler aşağıdaki kod ile alınıyor. bilgilerinize

Private Sub cmdbul_Click()
Windows("PERSONEL_TAKİP 01.xls").Activate
Sheets("DATA").Select
Dim bak As Range
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(adı.Value, vbUpperCase) Then
bak.Select
txtsira.Value = ActiveCell.Offset(0, -1).Value
adı.Value = ActiveCell.Offset(0, 0).Value
sicil.Value = ActiveCell.Offset(0, 1).Value
işegiriştar.Value = ActiveCell.Offset(0, 2).Value
TCNO.Value = ActiveCell.Offset(0, 16).Value
VAZİFESİ.Value = ActiveCell.Offset(0, 7).Value
KADRO.Value = ActiveCell.Offset(0, 6).Value
IZINHAKKI.Value = ActiveCell.Offset(0, 18).Value
SSKNO.Value = ActiveCell.Offset(0, 10).Value
EVTEL.Value = ActiveCell.Offset(0, 15).Value
CEPTEL.Value = ActiveCell.Offset(0, 14).Value
BABAADI.Value = ActiveCell.Offset(0, 19).Value
ADRES1.Value = ActiveCell.Offset(0, 12).Value
DOĞUMYERİ.Value = ActiveCell.Offset(0, 25).Value
DOĞUMTAR.Value = FORMAT(ActiveCell.Offset(0, 24),"dd.mm.yyyy")
CİNSİYET.Value = ActiveCell.Offset(0, 22).Value
ÖĞRENİM.Value = ActiveCell.Offset(0, 26).Value
Exit Sub
End If
Next bak
End Sub

 

[zafer]

Merhaba

DOĞUMTAR.Value = FORMAT(ActiveCell.Offset(0, 24),"dd.mm.yyyy")

Afedersiniz yanlışlıkla sizin mesajınız üzerinde kodları düzenlemişim.

 

[oerbas]

Sayın Zafer bey emeğiniz için teşekkür ederim ama verdiğiniz kodu UserForm intialize olayına yazdım ama sonuç değişmedi Doğum tarihi sayfada 01.08.1970 yazmasına rağmen TextBoxa 08.01.1970 alarak alınıyor

 

[zafer]

Merhaba

Z sütunundaki hücrelere tarih formatlı sayılar girip deneyin.

DOĞUMTAR = cdate(ActiveCell.Offset(0, 24))

olarak deneyin

 

[Qene]

Peki Initialize olayından ziyade başka bir olayda TextBox nesnesine veri aldırdığınız başka bir komut olabilir mi? Zafer Bey'in belirttiği gibi olmalı. Aksi bir durum yaşıyorsanız; TExtBox a atadığınız ismi falan kontrol edin..Aklıma ilk gelen bunlar..

 

[dEdE]

Mrb.,
Aynı konu aşağıdaki başlıktada işleniyor. Benzer bir sorunu ben de yaşadığım için oraya yazmıştım. (Forumda karmaşa olmasın diye tekrar buraya göndermedim.) Oradaki örnek dosya üzerinde önerileriniz var mı?
Saygılar.

http://www.excel.web.tr/showthread.php?t=30022

 

[oerbas]

Öncelikle cevap veren herkese teşekkür ediyorum. Dün akşam mesai bitimi olduğu için karşı mesaj yazamamıştım.

Sayın Zafer bey önerdiğiniz uygulama oldu. Fakat bu yöntemle TextBoxları temizlerken DOĞUMTAR isimli TextBox temizlenmiyor. olsun bu kadar olduya bunada şükür. Eğer kızmazssanız bir sorum daha olacak. TextBox' a günün tarihi alınıyor. Örneğin( işbaşıtar = Date ) ve aşağıdaki gibi formatlanıyor ama tarih gün bilgisi ay hanesine yazılıyor. Bu durumu nasıl düzeltebiliriz.

işbaşıtar.Value = Format(işbaşıtar, "dd.mm.yyyy")

 

[zafer]

Merhaba


işbaşıtar= Format(Date, "dd.mm.yyyy")