kapalı dosyadan alınan tarih formatı

Katılım
20 Ekim 2005
Mesajlar
476
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.
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
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.
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Sayın airborne,

Örnek bir dosya ekleyebilirmisiniz.?
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Ö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.

Kod:
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.
 
Üst