DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dosyayı önceki mesajımdan indirebilirsiniz.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.
Private Sub ComboBox1_Click()
ComboBox1.Value = Format(ComboBox1.Column(0), "yyyymmdd")
End Sub
Dosyayı 2 numaralı mesajdan inidrebilirsiniz.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.
Private Sub ComboBox1_Click()
ComboBox1.Value = Format(ComboBox1.Column(0), "dd.mm.yyyy")
Range("A1").Value = Format(ComboBox1.Column(0), "yyyymmdd")
End Sub
Evren Bey,
Dosyanın açık olması gerekiyor.
Kod:Workbooks("H.xls").Range("A1").Value = Format(ComboBox1.Column(0), "yyyymmdd")
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,Aşağıdaki kodları kullanınız.
Kod: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
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
7 numaralı mesajda öyle demiyordunuz amaEvren 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.