• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

takvimden seçilen tarihi textbox a yazdırma

G

guter24

Katılım
2 Ekim 2015
Mesajlar
74
Excel Vers. ve Dili
2019 TR
Merhabalar userform üzerinden komut butonu ile takvim i açıyorum fakat tarihi seçince seçilen tarihi exceldeki aktif olan hücreye yazıyor. ben userform daki textbox ın içine yazsın istiyorum. Örnek dosya linktedir.

Örnek Dosya
 
Takvim Formundaki kodu aşağıdaki gibi değiştirmeniz gerekiyor.
Kod: 
Private Sub Calendar1_Click()
UserForm1.TextBox1.Value = Calendar1.Value
Unload Me
End Sub

Dosyanız aşağıdaki linkte.
DOSYANIZ
 

Ekli dosyalar

bmutlu966' Alıntı:
Takvim Formundaki kodu aşağıdaki gibi değiştirmeniz gerekiyor.
Kod: 
Private Sub Calendar1_Click()
UserForm1.TextBox1.Value = Calendar1.Value
Unload Me
End Sub

Dosyanız aşağıdaki linkte.
DOSYANIZ
Genişletmek için tıkla ...
cevabınız için çok teşekkür ederim fakat aynı user form üzerine bir textbox2 ve Commandbutton2 eklediğimde aynı işlemi bu sefer 2. textbox içine yazsın istiyorum
İf komutuyla eğer buton 1 aktif ise textbox1 e yaz eğer buton 2 aktifse textbox2 ye yaz gibi bir komut yazmaya çalıştım ama başarılı olamadım
 
guter24' Alıntı:
cevabınız için çok teşekkür ederim fakat aynı user form üzerine bir textbox2 ve Commandbutton2 eklediğimde aynı işlemi bu sefer 2. textbox içine yazsın istiyorum
İf komutuyla eğer buton 1 aktif ise textbox1 e yaz eğer buton 2 aktifse textbox2 ye yaz gibi bir komut yazmaya çalıştım ama başarılı olamadım
Genişletmek için tıkla ...
Buna uygun örnek dosya olsaydı iyi olurdu ama şu mantıkla olabilir:

PHP: 
Private Sub Calendar1_Click()
If UserForm1.CommandButtton1.Enabled = True Then
    UserForm1.TextBox1.Value = Calendar1.Value
    Unload Me
ElseIf UserForm1.CommandButtton2.Enabled = True Then
    UserForm1.TextBox2.Value = Calendar1.Value
    Unload Me
Else
    MsgBox "Butonlar Aktif Değil!", vbInformation
    Unload Me
End If
End Sub
 
Sorununuzu aşağıdaki şekilde halledebilirsiniz.

CommandButton'lara basıldığında herhangi bir hücreye 1-2 gibi değer yazdırın. Ben örnekte A1 hücresini kullandım siz değiştirebilirsiniz.
Kod: 
Private Sub CommandButton1_Click()

[A1] = 1
Takvim.Show

End Sub

Private Sub CommandButton2_Click()

[A1] = 2
Takvim.Show

End Sub

Kod: 
Private Sub Calendar1_Click()

If [A1] = 1 Then
    UserForm1.TextBox1.Value = Calendar1.Value
    Unload Me

ElseIf [A1] = 2 Then
    UserForm1.TextBox2.Value = Calendar1.Value
    Unload Me
End If


End Sub
 

Ekli dosyalar

bmutlu966' Alıntı:
Sorununuzu aşağıdaki şekilde halledebilirsiniz.

CommandButton'lara basıldığında herhangi bir hücreye 1-2 gibi değer yazdırın. Ben örnekte A1 hücresini kullandım siz değiştirebilirsiniz.
Kod: 
Private Sub CommandButton1_Click()

[A1] = 1
Takvim.Show

End Sub

Private Sub CommandButton2_Click()

[A1] = 2
Takvim.Show

End Sub

Kod: 
Private Sub Calendar1_Click()

If [A1] = 1 Then
    UserForm1.TextBox1.Value = Calendar1.Value
    Unload Me

ElseIf [A1] = 2 Then
    UserForm1.TextBox2.Value = Calendar1.Value
    Unload Me
End If


End Sub
Genişletmek için tıkla ...
cevabınız ve yardımlarınız için çok teşekkür ederim sanırım sizin yönteminiz dışında bit yol yok herhalde son olarak textbox içindeki tarih 01/25/2020 formatında gelmekte onun yerine 25/01/2020 formatında gelmesi nasıl sağlanabilir.
 
YUSUF44' Alıntı:
Buna uygun örnek dosya olsaydı iyi olurdu ama şu mantıkla olabilir:

PHP: 
Private Sub Calendar1_Click()
If UserForm1.CommandButtton1.Enabled = True Then
    UserForm1.TextBox1.Value = Calendar1.Value
    Unload Me
ElseIf UserForm1.CommandButtton2.Enabled = True Then
    UserForm1.TextBox2.Value = Calendar1.Value
    Unload Me
Else
    MsgBox "Butonlar Aktif Değil!", vbInformation
    Unload Me
End If
End Sub
Genişletmek için tıkla ...
dosyayı linke ekledim yusuf bey ayrıca textbox içindeki tarih 01/25/2020 formatında gelmekte onun yerine 25/01/2020 formatında gelmesi nasıl sağlanabilir. yardımlarınız için şimdiden çok teşekkür ederim.
ÖRNEK DOSYA
 
Düğmelerin aktiflik pasiflik durumu neye göre belirleniyor?

Tarih formatı bende düzgün görünüyor.
 
YUSUF44' Alıntı:
Düğmelerin aktiflik pasiflik durumu neye göre belirleniyor?

Tarih formatı bende düzgün görünüyor.
Genişletmek için tıkla ...
her iki text box içine de tarih girişi yapacağım birinci düğmeye tıkladığım da seçilen tarihi textbox 1 in içine 2. Düğmeye tıklayıp tarihi seçtiğinde ise textbox 2 nin içine seçilen tarihi yazacak
 
guter24' Alıntı:
dosyayı linke ekledim yusuf bey ayrıca textbox içindeki tarih 01/25/2020 formatında gelmekte onun yerine 25/01/2020 formatında gelmesi nasıl sağlanabilir. yardımlarınız için şimdiden çok teşekkür ederim.
ÖRNEK DOSYA
Genişletmek için tıkla ...

Tarih formatı bende de düzgün görünüyor. Private Sub Calendar1_Click() makrosunu aşağıdaki gibi değiştirip dener misiniz.

Kod: 
Private Sub Calendar1_Click()
If UserForm1.CommandButtton1.Enabled = True Then
    UserForm1.TextBox1.Value = Calendar1.Value
    UserForm1.TextBox1=Format(UserForm1.TextBox1, "dd.mm.yyyy")
    Unload Me
ElseIf UserForm1.CommandButtton2.Enabled = True Then
    UserForm1.TextBox2.Value = Calendar1.Value
    UserForm1.TextBox2=Format(UserForm1.TextBox2, "dd.mm.yyyy")
    Unload Me
Else
    MsgBox "Butonlar Aktif Değil!", vbInformation
    Unload Me
End If
End Sub
 
bmutlu966' Alıntı:
Tarih formatı bende de düzgün görünüyor. Private Sub Calendar1_Click() makrosunu aşağıdaki gibi değiştirip dener misiniz.

Kod: 
Private Sub Calendar1_Click()
If UserForm1.CommandButtton1.Enabled = True Then
    UserForm1.TextBox1.Value = Calendar1.Value
    UserForm1.TextBox1=Format(UserForm1.TextBox1, "dd.mm.yyyy")
    Unload Me
ElseIf UserForm1.CommandButtton2.Enabled = True Then
    UserForm1.TextBox2.Value = Calendar1.Value
    UserForm1.TextBox2=Format(UserForm1.TextBox2, "dd.mm.yyyy")
    Unload Me
Else
    MsgBox "Butonlar Aktif Değil!", vbInformation
    Unload Me
End If
End Sub
Genişletmek için tıkla ...
maalesef hata verdi korhan beyin eklediği dosya sorunsuz çalışmakta
 
guter24' Alıntı:
maalesef hata verdi korhan beyin eklediği dosya sorunsuz çalışmakta
Genişletmek için tıkla ...

Pardon ben sayın Yusuf44'ün kodlarının üzerine yazmışım. Aslında şöyle olacaktı.

Kod: 
Private Sub Calendar1_Click()

If [A1] = 1 Then
    UserForm1.TextBox1.Value = Calendar1.Value
    UserForm1.TextBox1 = Format(UserForm1.TextBox1, "dd.mm.yyyy")
    Unload Me

ElseIf [A1] = 2 Then
    UserForm1.TextBox2.Value = Calendar1.Value
    UserForm1.TextBox2 = Format(UserForm1.TextBox2, "dd.mm.yyyy")
    Unload Me
End If


End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst