takvimden seçilen tarihi textbox a yazdırma

guter24 · 25 Haziran 2020

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

bmutlu966 · 25 Haziran 2020

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

guter24 · 25 Haziran 2020

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

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

YUSUF44 · 26 Haziran 2020

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

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

bmutlu966 · 26 Haziran 2020

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

bmutlu966 · 26 Haziran 2020

DOSYANIZ

guter24 · 29 Haziran 2020

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

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.

guter24 · 29 Haziran 2020

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

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

YUSUF44 · 29 Haziran 2020

Düğmelerin aktiflik pasiflik durumu neye göre belirleniyor?

Tarih formatı bende düzgün görünüyor.

guter24 · 29 Haziran 2020

YUSUF44' Alıntı:
Düğmelerin aktiflik pasiflik durumu neye göre belirleniyor?

Tarih formatı bende düzgün görünüyor.

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

Korhan Ayhan · 29 Haziran 2020

Deneyiniz.

Harici Link (Silinebilir) ; https://we.tl/t-PxaM23j9CA

bmutlu966 · 29 Haziran 2020

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

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

guter24 · 29 Haziran 2020

Korhan Ayhan' Alıntı:
Deneyiniz.

Harici Link (Silinebilir) ; https://we.tl/t-PxaM23j9CA

Elinize emeğinize sağlık korhan bey saat gibi sorunsuz çalışıyor çok teşekkür ederim

guter24 · 29 Haziran 2020

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

maalesef hata verdi korhan beyin eklediği dosya sorunsuz çalışmakta

bmutlu966 · 29 Haziran 2020

guter24' Alıntı:
maalesef hata verdi korhan beyin eklediği dosya sorunsuz çalışmakta

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

takvimden seçilen tarihi textbox a yazdırma

guter24

bmutlu966

Ekli dosyalar

guter24

YUSUF44

Destek Ekibi

bmutlu966

Ekli dosyalar

bmutlu966

guter24

guter24

YUSUF44

Destek Ekibi

guter24

Korhan Ayhan

Administrator

Ekli dosyalar

bmutlu966

guter24

guter24

bmutlu966