Textbox'da Tarih yerine sayı

[seddur]

Arkadaşlar Merhaba .Düşeyara ile sayfadaki değerleri textboxlara aktarıyorum yalnız tarih göstermesi gereken textboxda sayı çıkıyor. nasıl düzeltebileceğim konusunda yardımcı olursanız sevinirim.

 

[ÖmerFaruk]

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

 

[seddur]

Verdiğiniz kod ile yapamadım dosyayı ekliyorum.Combobox'dan isim seçerek sayfadaki bilgileri düşeyara ile textbox'lara yazdırıyorum.

 

[ÖmerFaruk]

End Sub satırının hemen öncesine aşağıdakini ilave et.
TextBox2.Value = Format(TextBox2.Value, "dd.mm.yyyy")

 

[seddur]

Oldu teşekkür ettim.Hazır sizi bulmuş iken bir şey danışmak isterim.Bir tane commandbutton'a spinbutton aracılığıyla tıkladıkca commandbutton caption'nun üç değişik şekilde değişmesini sağlayabilir miyiz.Yani spin button down'a tıklayarak her tıklamamda "GÖSTER" "KAYDET" ve "SİL " şeklinde caption değişecek Özgün tasarım yapmaya çalışıyorum..Müsaitseniz sevinirim.

 

[ÖmerFaruk]

Private Sub SpinButton1_Change()
Select Case SpinButton1.Value
    Case 0
        CommandButton1.Caption = "Caption 1"
    Case 1
        CommandButton1.Caption = "Caption 2"
    Case 2
        CommandButton1.Caption = "Caption 3"
End Select
TextBox1.Value = SpinButton1.Value
End Sub

Private Sub UserForm_Initialize()
    SpinButton1.Max = 2
    SpinButton1.Min = 0
End Sub

 

[seddur]

Userform olmadan çalışıyorum onun yerine excel sayfasında başka bir yere yazamaymıyız.

 

[ÖmerFaruk]

SpinButton kodlarını Sayfa kodlarınıza yapıştırın.
SpinButton properties menüsünden Max-Min değerlerini manuel ayarlayabilirsin

Ayrıca neden aynı soruyu farklı kullanıcı adlarıyla ve farklı başlık altında soruyorsunuz? Merak ettim.

 

[fehdur]

sizden cevap gelmeyince sıkıldığınızı düşünmüştüm.Kusura bakmayın

 

[Seyit Tiken]

Bence SpinButton gereksizdir, direkt CommandButtona basarak eylemleri
gerçekleştirebilirsiniz. Aşağıdaki kodu kendinize uyarlayarak deneyiniz.

Private Sub CommandButton1_Click()
If Sayfa1.CommandButton1.Caption = "Göster" Then
MsgBox "1.Kodunuz"
Sayfa1.CommandButton1.Caption = "Kaydet"
Exit Sub
End If
If Sayfa1.CommandButton1.Caption = "Kaydet" Then
MsgBox "2.Kodunuz"
Sayfa1.CommandButton1.Caption = "Sil"
Exit Sub
End If
If Sayfa1.CommandButton1.Caption = "Sil" Then
MsgBox "3.Kodunuz"
Sayfa1.CommandButton1.Caption = "Göster"
End If
End Sub

 

[fehdur]

Sn:Seyit Tiken Commandbutton'a tıkladığımda caption değişmiyor onu nasıl değiştireceğiz

 

[Seyit Tiken]

Tabi değişmez, butona manuel olarak herhangi bir koşul yazılsaydı olacaktı.