user form ,excelden tarih formatını farklı alıyor

[mustafa7691]

Sn dostlar,Tarih formatı ile ilgili var.daha önce farklı başlıklarda bunu sormuştum.:yardim: belkide ben yanlış anlatıyor olabilirim.userform da adı kısmına "batuhan tasasız ,mevlüt uluışık "isimlerinden birini yazdığınızda aşı tarihi ve doğum tarihi formatları karışıyor,yani doğum tarihi 01/10/06 olarak excelde kayıtlı çocuğun user görüntüsü 10/01/06 olarak geliyor.bu genel bir excel sorunu değil sanıtrım çünki aynı isim kutusuna gülşen yılman yazdığınızda aşı ve doğum tarihleri usere exeldeki şekliyle geliyor.içinden çıkamadım.yani bazı hücrelerdeki tarihleri farklı alıyor.eğer yardımcı olabilir vefırsat bulur bakabilirseniz sevinirim.üstte verdiğiniz kodlarla denedim ama olmuyor.saygılar

 

[mustafa7691]

özürlerimle dosyayı şimdi ekledim

 

[mustafa7691]

dosyanın son halinide ekledim.üzerinde dönüp duruyorum ama çözüm bulamadım

 

[Ferhat Pazarçevirdi]

ASY-Change combobox olayında; aşağıda gösterilen değişikliği yapın

Private Sub ASY_Change()
........
........
            DT.Value = [COLOR=red]Format([/COLOR]ActiveCell.Offset(0, 2).Value[COLOR=red], "dd.mm.yy")[/COLOR]
........
........
End Sub

Not : Görüntüleme Textbox'da yapıldığı için, bu yöntemin bir zararı olmaz. Ancak, bir tarih nesnesine (dtpicker veya monthview gibi)görüntüleme yapılacak olsaydı, farklı yöntem kullanılabilirdi.

 

[mustafa7691]

Sn fpc şu hali ile mevcut asy change kodu bu.verdiğiniz kodu nasıl ekleyeceğimi bilemedim.Başınızıda fazlaca ağrıttım ama affınıza sığınarak ben denedim ama olmadı .bu formu imkan dahilinde pekçok sağlık çalışanı kullanacak ve sonuçta kafalar karışacak.o nedenle önemsiyorum.saygılar



Private Sub ASY_Change()
On Error Resume Next
ASY = Evaluate("=UPPER(""" & ASY & """)")
DT.Value = Format(ActiveCell.Offset(0, 2).Value, "dd.mm.yy")

deg = 1
Sheets("KAYIT").Select
Dim x As Integer
x = Sheets("KAYIT").Range("A:A").Cells.Find(what:=ASY, LookIn:=xlValues).Row
ASY = Sheets("KAYIT").Cells(x, 1)
Dim bak As Range
For Each bak In Range("A3:A" & WorksheetFunction.CountA(Range("A3:A10000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ASY.Value, vbUpperCase) Then
bak.Select
AŞT.Value = ActiveCell.Offset(0, 1).Value
DT.Value = ActiveCell.Offset(0, 2).Value
PİPİDİ.Value = ActiveCell.Offset(0, 3).Value
BCG.Value = ActiveCell.Offset(0, 4).Value
KKK.Value = ActiveCell.Offset(0, 5).Value
HİB.Value = ActiveCell.Offset(0, 6).Value
DBT.Value = ActiveCell.Offset(0, 7).Value
POLİO.Value = ActiveCell.Offset(0, 8).Value
HEP.Value = ActiveCell.Offset(0, 9).Value

AŞT = Format(AŞT, "dd/mm/yy")
DT = Format(DT, "dd/mm/yy")
TEMİZLE.Enabled = True
SİL.Enabled = True
DEĞİŞTİR.Enabled = True
KAYDET.Enabled = True
Exit Sub
End If
Next bak
TEMİZLE.Enabled = True
SİL.Enabled = True
DEĞİŞTİR.Enabled = True
KAYDET.Enabled = True
End Sub

 

[mustafa7691]

DT.Value = Format(ActiveCell.Offset(0, 2).Value, "dd.mm.yy")

bu satırı kopyaladım sizden ama değişmedi.eski halinde yazdığım kodda yoktu yani.(üstten 4.satır)

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz.

 

[mustafa7691]

evet sayın hocam şimdi olmuş inceliyorum elinize sağlık.tabi bizim incelememiz de uzun sürüyor acemilikten nereye ne yaptığınızı bulmak zor.ama istediğim sayenizde olmuş.teşekkürler.