userform da Calendar e tıklama

[northcyprus]

merhaba arkadaşlar
userform1 deki Calendar de tarihe tıkladıgımız zaman hangi komutu yazmamız gerekiyor ki userform2 nin üzerindeki textbox1 e tarihi yazsın bir türlü halledemedim. bana ne yapmam gerektiğini yazarmısınız... yardımlarınız için şimdiden teşekür ediyorum...

 

[Orion1]

Merhaba.
Aaşağıdaki kodu Calendar'ın Clıick olayına yazıp deneyiniz.

Private Sub Calendar1_Click()
TextBox1.Value = Format(Calendar1.Value, "dd.mm.yyyy")
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Kodu bir deneyiniz.

Private Sub Calendar1_Click()
UserForm2.TextBox1 = Calendar1
End Sub

 

[northcyprus]

ilgilendiginiz için teşekür ediyorum..

 

[northcyprus]

sevgili arkadaşlar ben bu formülü uygulayadım oldu ama şöyle bi sorunla karşılaşdım userform a multipage ekledim ve bu multipage e 30 tane sayfa açtım 1. sayfada ki textbox1 e tarihi ekledim ama diger sayfalara da tarih eklemem gerekiyor sorunum da burda o zman ben 30 tane textbox a 30 tane userform açıp 30 tane calendar mı eklemem gerekiyor yoksa başka bir formülü var mı bu multipage lerde calendar kullanımının??

 

[Orion1]

Private Sub Calendar1_Click()
Dim i As Byte
For i = 1 To 30
Controls("TextBox" & i) = Format(Calendar1.Value, "dd.mm.yyyy")
Next
End Sub

 

[northcyprus]

harikasınız orion2 bi de calendar e çıktıgında tarih nasıl bu günün tarihi olur ? userformda en son hangi tarihe tıkladıysak o tarih kalıyor... mesela bugün 28.07.2007 userformda eğer 26 sı ise hep 26 tıklı kalıyor...

 

[Orion1]

Userform'un initialize olayına aşağıdaki kodu yazınız.

Private Sub UserForm_Initialize()
Calendar1.Value = Format(Date, "dd.mm.yyyy")
End Sub

 

[northcyprus]

sayın orion2 verdiğiniz kodlar çok işime yaradı. bir sorunum daha var. eklediğim calendar da ki tarihe tıkladığım zaman textbox un üstüne tarihi yazıyor fakat benim başta bir butonda kullanmış olduğum

If Sheets("sheet3").Range("O1") = Sheets("sheet1").Range("G5")
Sheets("sheet1").Range("c5").Copy
Sheets("sheet3").Range("b5").PasteSpecial xlPasteValues

bu formül çalışmıyor textbox la yazmış olduğum tarih sheet1 G5 e yazılmasına ve O1 le G5 aynı olmasına rağmen butona tıkladığımda copy paste işlemini yapmıyor. tarihi G5 e textbox la degil de normal şekilde yazdığımda işlem çalışıyor. textboxla çalışmıyor nedendir aceba??

 

[northcyprus]

Sayın Orion2 verdiğiniz kodlar çok işime yaradı. bir sorunum daha var. eklediğim calendar da ki tarihe tıkladığım zaman textbox un üstüne tarihi yazıyor fakat benim başta bir butonda kullanmış olduğum

If Sheets("sheet3").Range("O1") = Sheets("sheet1").Range("G5")
Sheets("sheet1").Range("c5").Copy
Sheets("sheet3").Range("b5").PasteSpecial xlPasteValues

bu formül çalışmıyor textbox la yazmış olduğum tarih sheet1 G5 e yazılmasına ve O1 le G5 aynı olmasına rağmen butona tıkladığımda copy paste işlemini yapmıyor. tarihi G5 e textbox la degil de normal şekilde yazdığımda işlem çalışıyor. textboxla çalışmıyor nedendir aceba??

 

[Orion1]

G5'e yazdırdığınız tarih aşağıdaki şekildemi yazılıyor?
Yani CDate kullanılmışmı?Eğer kullanmadı iseniz oCdate kullanarak yapın sorun düzelir.

Sheets("sheet1").Range("G5").Value = CDate(TextBox1.Value)

 

[northcyprus]

Private Sub TextBox437_Change()
Sheets("Sheet1").Select
Range("G5").Select
ActiveCell.Offset(G5).Value = TextBox437.Value
End Sub


şeklinde yazdırıyordum sayin Orion2...

 

[Orion1]

İlgili satırı aşağıdaki ile değiştiriniz.

Range("G5").Value = cdate(TextBox437.Value)

 

[northcyprus]

Sayın Orion2

Sheets("Sheet1").Select
Range("G5").Select
ActiveCell.Offset(G5).Value = TextBox437.Value

böyle yazdığımda tarihte yanlışlık olursa textbox tan silebiliyorumdum
fakat
Sheets("Sheet1").Select
Range("G5").Select
Range("G5").Value = cdate(TextBox437.Value)
olunca silmeye çalışınca run-time error "1004"
application- defined or object-defined error
hatasını veriyor...
tarihi yanlış yazınca silmek için bi buton koyarsam hangi kodu kullanmam gerekir veya başla bir çözümü var mı ???

 

[Orion1]

İlgili kodu aşağıdaki ile değiştiriniz.

If IsDate(textbox437) Then
    Range("G5").Value = CDate(textbox437.Value)
    Else
    Range("G5").Value = textbox437.Value
End If

 

[northcyprus]

ayni hatayi yine veriyor sayın Sezar aman Orion2

bi buton daha eklesem olmaz mı ? textboxu boşalt butona atasak olur mu?

 

[Orion1]

ayni hatayi yine veriyor sayın Sezar aman Orion2

Merhaba.
Aşağıdaki kodu deneyip sonucu bildirimisiniz?
Bu arada eski nickimi öğrenmişsiniz

On Error Resume Next
If IsDate(TextBox437) Then
    Range("G5").Value = CDate(TextBox437.Value)
    Else
    Range("G5").Value = TextBox437.Value
End If

 

[northcyprus]

evet şimdi oldu sayin Orion2 harikasınız...

bu arada daha önce de bana yardım etmiştiniz ordan biliyordum nickinizi kendiniz söylemiştiniz herşey için çok teşekürler

 

[Orion1]

evet şimdi oldu sayin Orion2 harikasınız...

bu arada daha önce de bana yardım etmiştiniz ordan biliyordum nickinizi kendiniz söylemiştiniz herşey için çok teşekürler

Rica ederim.
Şimdi hatırladım.
İyi akşamlar.