calendar and save as

[depechem]

Merhaba arkadaslar,

Excele yeni baslamis biri olarak iki soruma cevap ariyorum ilgilenen herkese simdiden tesekkur ederim.
birincisi,hazirladigim sayfada herzaman tarih girisi yaptigim hucrede "validation"kullanarak hazirlanmis "drop-down"da bir calendar acilmasini istiyorum ve tarih secimini ordan yaptigimda o hucre otomatik olarak secilen tarihi gostersin bu mumkun mu?
ikincisi,gunluk olarak kullandigim bri sayfanin bir "command buton"a basarak "save as"olarak o gunun tarihiyle belirlenmis olan bir dosyaya kaydedilmesini istiyorum bu mumkun mu?
belki bu konular daha once konusuldu forumdaki eski konulari inceleyecek zamanim olmadi bu sorulari sizlere sorana kadar...
bu konuda da forumdaki yeni bir uye olarak bana anlayis gostereceginizi umuyor cevaplarinizi sabirsizlikla bekliyorum

murat

 

[Levent Menteşoğlu]

Merhaba

Ã?ncelikle hoşgeldiniz.

save as (farklı kaydet) ile ilgili bir kod örneği aşğıdaki linkte mevcuttur.

http://www.excel.web.tr/viewtopic.php?t=1903

 

[Levent Menteşoğlu]

Birinci sorunuz için ekteki örneği inceleyiniz.

 

[depechem]

Tesekkurler Leventm,

Save as(farkli kaydet) ile ilgili Kod icin cok tesekkurler ustunde calisiyorum.kodlamayi yeni ogrenmeye calisan birisi olarak incelememi ve ogrenmemi gerektiriyor.
Tarih ile ilgili olarak gonderdiginiz calismada anladigim kadariyla sadece A3 hucresi degisiyor bende size yanlis aktarmis olabilirim sorumu.Kullandigim sayfada tum A kolonunun herbir hucresini tarihler icin kullaniyorum ve her bir satira farkli bir tarih girme durumum var bunlari elle yazmak yerine bir tablodan secilip secilemeyecegini merak etmistim sizin verdiginiz ornekteki tablo bunun icin cok uygun gorunuyor.
tabi o tablo ben hucreye geldigimde drop-down vasitasiyle acilmasi benim hayal ettigim sey..
bilmiyorum yapilabilirmi?

tekrar tesekkurler

murat

 

[danersin]

Private Sub Calendar1_Click()
If ActiveCell.Column = 1 Then
ActiveCell = Calendar1.Value
End If
End Sub

Levent beyin takvim dosyasındaki kodda yukarıdaki değişikliği yaparsanız takvim sadece A sütunda aktif olan hücreye tarih atar.

 

[Levent Menteşoğlu]

Eğer örnek dosyada eklediğim takvim nesnesini kullanacaksanız Sn danersin'in önerisi amacınızı gerçekleştirir. Fakat açılan kutuyu A kolonundaki her hücrede kullanmak istiyorsanız bu durumda A1 hücresini aşağıya doğru kopyalayın. Fakat tarih aralığını başka bir sütunda tanımlamanız gerektiğini unutmayın.

 

[depechem]

hepinize sonsuz tesekkurlerimi bildiriyorum cok uzaklardan
soylediklerinizi gerceklestirecegim.
boyle bir forumu hayata gecirip devam etiren kisileri de tebrik ederim ayrica.insanlarin yardima ihtiyaci oldugunda isin ehli olan insanlardan bilgi almasi cok onemli sizlere de benim gibi dusunen arkadaslar adina tesekkur etmekten cok memnunluk duyuyorum.

murat

 

[Levent Menteşoğlu]

Bu güzel sözleriniz nedeniyle bizde size teşekkür ederiz. Tek amacı karşılıksız yardım olan forumumuzda her zaman sorularınıza cevap bulacağınızdan emin olabilirsiniz.

hepinize sonsuz tesekkurlerimi bildiriyorum cok uzaklardan

Mesafeler uzak olabilir ama yeterki gönüller yakın olsun.

Yukarıda önerilen cevapların daha iyi anlaşılması açısında ekteki örneği inceleyiniz.

 

[scartex]

Takvim

Private Sub Calendar1_Click()
If ActiveCell.Column = 1 Then
ActiveCell = Calendar1.Value
End If
End Sub

Levent beyin takvim dosyasındaki kodda yukarıdaki değişikliği yaparsanız takvim sadece A sütunda aktif olan hücreye tarih atar.

Sn. danersin verdiğiniz kodu kullanarak istediğimiz diğer sütunlarda bulunan hücrelerede tarihi bu şekilde yazdırabilirmiyiz.

Diğer sorum takvimi üzerine geldiğimizde açılacak uzaklaştığımızda kapanacak şekilde pop-up haline getirebilirmiyiz.

Teşekkür ederim.

 

[abdi]

Sayın leventm; danersin Ustadın affına sığınarak bende bir şey ilave etmek istiyorum.

Sn. danersin verdiğiniz kodu kullanarak istediğimiz diğer sütunlarda bulunan hücrelerede tarihi bu şekilde yazdırabilirmiyiz.

Diğer sorum takvimi üzerine geldiğimizde açılacak uzaklaştığımızda kapanacak şekilde pop-up haline getirebilirmiyiz.

Teşekkür ederim.

aynı örneğin sayfa2 ye bakın örnek olarak a sütunu kıstas alınmıştır.
her a sutununda userform çıkmaktadır.
saygılar sunar.

çalışmalarınızda başarılar dilerim.

 

[scartex]

Takvimi ayni sayfada a,c,h gibi farklı sütunlarda da kullanabilmek için kod üzerinde nasıl bir değişiklik yapabilirim ?

 

[abdi]

Takvimi ayni sayfada a,c,h gibi farklı sütunlarda da kullanabilmek için kod üzerinde nasıl bir değişiklik yapabilirim ?

sayfa2 nin kod sayfasına
[vb:1:65fdfd633a]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 1 Or ActiveCell.Column = 3 Or ActiveCell.Column = 8 Then
UserForm1.Show
ActiveCell = UserForm1.Calendar1.Value
End If
End Sub
[/vb:1:65fdfd633a]

 

[scartex]

abdi çok teşekkürler kod işime yaradı.
iyi çalışmalar

 

[Seyit Tiken]

Alternatif, Calendar'dan istenilen hücreye tarih yazabilirsiniz.

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
End Sub

 

[kacubet]

fforumunuza yenı kayıt oldum.... cok faydalı bilgiler var... cok tesekkur ederim emegı gecenlere...