kapalı dosyadan alınan tarih formatı

[airborne]

Kapalı dosyada userformda textbox6'ya bilgi girişi yaparken

Private Sub TextBox6_Change()
Dim Texte As String
Texte = TextBox6.Text
Select Case Len(Texte)
Case 2, 5
Texte = Texte & "."
End Select
TextBox6.Text = Texte
End Sub

kodları kullanıyorum. Ama kapalı dosyadaki bilgileri Sayın Haluk Bey'in kodları ile başka bir dosyaya aldığımda user for üzerinde 12.01.2006 olan tarih çalıma sayfasına 12.01.2006 olarak geçmekte olup, user form üzerinde 1/12/06 olarak gözüküyor. Bunu nasıl çözebilirim.

 

[airborne]

:yardim: :bad:

 

[Recep İpek]

Sayın airborne,

Anladığım kadarıyla, çalışma sayfasındaki tarih alanının formatını gg.aa.yyyy olarak
düzeltirseniz probleminiz çözülecektir.

 

[airborne]

gg.aa.yyyy olarak daha önceden düzeltmeme rağmen user form üzerinde düzelmiyor

 

[Recep İpek]

Sayın airborne,

Örnek bir dosya ekleyebilirmisiniz.?

 

[airborne]

dosya çok büyük ekleyemiyorum

 

[Haluk]

airborne,

İlgili tarih verisi hangi dosyadan (dosya yolu ve adı), hangi sayfadan, hangi hücreden alınacak, UserForm üzerinde hangi nesnede (TextBox?) görüntülenecek ?

 

[Haluk]

Örnek:

Kapalı durumdaki C:\Demirbaş\Demirbaş.xls dosyasının Sayfa11 isimli sayfasında G49 hücresindeki örneğin, 18.02.2006 şeklindeki bir tarih, aynen UserForm üzerinde TextBox1 nesnesinde görüntülenir.

Private Sub CommandButton1_Click()
    Dim MyPath As String
    Dim MyFile As String
    Dim MySh As String
    Dim MyArg As String
    Dim MyRng As Range
    Dim AddressRC As String
    
    MyPath = "C:\Demirbaş\"
    MyFile = "Demirbaş.xls"
    MySh = "Sayfa11"
    Set MyRng = Range("G49")
    
    AddressRC = MyRng.Address(ReferenceStyle:=xlR1C1)
    MyArg = "'" & MyPath & "[" & MyFile & "]" & MySh & "'!" & AddressRC
    TextBox1 = Format(ExecuteExcel4Macro(MyArg), "dd.mm.yyyy")
End Sub

İlgili dosya, sayfa, hücre referanslarını koddaki değişkenlerde kolayca değiştirebilmeniz açık olarak yazdım.

 

[airborne]

teşekkürler üstadım