ComboBox'ta tarih görüntüleme sorunu

[QNURi]

Merhaba,

Combobox içinde tarihleri göstermek istiyorum. Fakat gösterilecek hücreler özellikleri tarih olmasına rağmen combobox'ın içinde rakam gösteriyor.

Bir diğer soru : ListFillRangel yatay hücrelerde olur mu?

Saygılar.

 

[Orion1]

Dosyanız ekte.

 

[QNURi]

Teşekkürler Evren Bey,

Peki combobox'tan 17.07.2008'i seçtiğimde a1 hücresinde 20080717 şeklinde değer atabilir miyim?

örn : 22.11.2008 => 20081122
15.07.2008 => 20080715 şeklinde.

Saygılar.

 

[Orion1]

Teşekkürler Evren Bey,

Peki combobox'tan 17.07.2008'i seçtiğimde a1 hücresinde 20080717 şeklinde değer atabilir miyim?

örn : 22.11.2008 => 20081122
15.07.2008 => 20080715 şeklinde.

Saygılar.

Dosyayı önceki mesajımdan indirebilirsiniz.

Private Sub ComboBox1_Click()
ComboBox1.Value = Format(ComboBox1.Column(0), "yyyymmdd")
End Sub

 

[QNURi]

Evren Bey,

ComboBox ta (d.m.y) 19.07.2008 şeklinde görünecek. Orada bir değişiklik yok. Ama 19.07.2008 seçtiğimde bu değer (mdy) 20080719 şeklinde A1 hücresine atılsın. Ben A1 hücresinden o değeri alıp başka yerde kullanacağım.

 

[Orion1]

Evren Bey,

ComboBox ta (d.m.y) 19.07.2008 şeklinde görünecek. Orada bir değişiklik yok. Ama 19.07.2008 seçtiğimde bu değer (mdy) 20080719 şeklinde A1 hücresine atılsın. Ben A1 hücresinden o değeri alıp başka yerde kullanacağım.

Dosyayı 2 numaralı mesajdan inidrebilirsiniz.

Private Sub ComboBox1_Click()
ComboBox1.Value = Format(ComboBox1.Column(0), "dd.mm.yyyy")
Range("A1").Value = Format(ComboBox1.Column(0), "yyyymmdd")
End Sub

 

[QNURi]

Teşekkürler Evren Bey,

A1 hücresi diğer çalışma kitabında ise basıl yazacağım kodu. Örneğin çalışma kitabının adı H olsun o zaman
Range("H!A1").Value = Format(ComboBox1.Column(0), "yyyymmdd")
şeklinde mi olacak? Hata veriyor. Bunu çözemedim.

 

[Orion1]

Dosyanın açık olması gerekiyor.

Workbooks("H.xls").Range("A1").Value = Format(ComboBox1.Column(0), "yyyymmdd")

 

[QNURi]

Dosyanın açık olması gerekiyor.

Workbooks("H.xls").Range("A1").Value = Format(ComboBox1.Column(0), "yyyymmdd")

Evren Bey,
Çok özür diliyorum. Ama yapamadım. Kodu değiştirdim ama olmadı. 2 numaralı mesajınızdaki dosyada gösterebilir misiniz?
Çok teşekkürler.

 

[Orion1]

Aşağıdaki kodları kullanınız.

Private Sub ComboBox1_Click()
ComboBox1.Value = Format(ComboBox1.Column(0), "dd.mm.yyyy")
Workbooks("H.xls").Sheets("Sayfa1").Range("A1").Value = ComboBox1.Column(0)
Workbooks("H.xls").Sheets("Sayfa1").Range("A1").NumberFormat = "yyyymmdd"
End Sub

 

[QNURi]

Aşağıdaki kodları kullanınız.

Private Sub ComboBox1_Click()
ComboBox1.Value = Format(ComboBox1.Column(0), "dd.mm.yyyy")
Workbooks("H.xls").Sheets("Sayfa1").Range("A1").Value = ComboBox1.Column(0)
Workbooks("H.xls").Sheets("Sayfa1").Range("A1").NumberFormat = "yyyymmdd"
End Sub

Evren Bey,

Aynı dosyanın içinde bir sheet bu. H.xls diye bir dosya yok. AYnı dosyanın içinde H sheet'i var. O sheet içindeki A1 hücresine yazdırmak istiyorum.

Merci.

 

[Orion1]

A1 hücresi diğer çalışma kitabında ise basıl yazacağım kodu. Örneğin çalışma kitabının adı H olsun

Evren Bey,

Aynı dosyanın içinde bir sheet bu. H.xls diye bir dosya yok. AYnı dosyanın içinde H sheet'i var. O sheet içindeki A1 hücresine yazdırmak istiyorum.

Merci.

7 numaralı mesajda öyle demiyordunuz ama
Hangi söylediğiniz doğru?

 

[QNURi]

Afedersiniz yanlış izah etmişim. Aynı dosyanın içinde sheet'e değerin atılmasını istemiştim. Yanlış ifade etmişim özür.