Excel 2010 Hücre icine Takvim Ekleme

[Lucky1905]

Merhaba arkadaslar,

Benim bir sütunumdaki bütün hücrelere tarih girilmesini istiyorum ve her hangi bir hücreye tikladigimda takvim gelip ordan tarihi secebilmek istiyorum.

Forumdaki diger konulara baktim ama 2010 dan dolayimi bi sorun var anlamadim yapamadim bir türlü.
Yardimci olabilecek biri varsa sevinirim.

Tesekkürler.

 

[Necdet]

Merhaba,

Bir dosya hazırladım. A sütununun 2. satırından itibaren takvim kullanılabilir.

Sistemde MSCALC.ocx dosyasının yüklü olması gerekir. 2010 da 64 bit kullanıcıdaki durumu bilmiyorum, evdeki 32 bit te sorun yok.

aşağıdaki kodların ilgili sayfanın kod bölümünde olması gerekir. Sayfa üzerinde de takvim nesnesinin eklenmesi gerekir.

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 2 Then
        Calendar1.Visible = False
    Else
        Calendar1.Visible = True
    End If
End Sub

 

[Lucky1905]

Benim yaptigim hepsinde sorunsuz calismasi lazim ama ya.
Sizin yolladiniz dosya bence acmadi. Simdi onu yükleyip yapsam bile baskasina verince isime yaramiyacak.

Söyle bir dosya buldum ama bunu kendi dosyama nasil ekleyebilirim yapamadim.

Tesekkürler dosya icin bu arada.

 

[Lucky1905]

Sanirim yaptim

simdi burda button a basinca

Private Sub CommandButton1_Click()
KalForm.Show
End Sub

takvimi cagiriyor ya yukardaki kod yardimiyla. Ben bunu A sütunundaki her hangi bir hücreye basinca cagir diye nasil yazabilirim?

 

[Lucky1905]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
     
     '    Do something if Cell(1,1) or Range("A1") has been selected
    If target.row = 1 And target.column = 1 Then 
         '
         ' your code in here
         '
    End If 
     
End Sub

Simdi burda sadece A1 hücresini seciyor, bunu A sütunundaki bütün hücrelerde uygula diye nasil yapabilirim?

VBA konusunda bilgim sifir, cok basit biseydir belki ama hic bilmeden böyle ugrasinca en basit seyleri bile sormak zorunda kaliyorum kusura bakmayin.

 

[Merhum İdris SERDAR]

Merhaba arkadaslar,

Benim bir sütunumdaki bütün hücrelere tarih girilmesini istiyorum ve her hangi bir hücreye tikladigimda takvim gelip ordan tarihi secebilmek istiyorum.

Forumdaki diger konulara baktim ama 2010 dan dolayimi bi sorun var anlamadim yapamadim bir türlü.
Yardimci olabilecek biri varsa sevinirim.

Tesekkürler.

.

Gerek Necdet beyin verdiği örnek gerekse, aşağıdaki vereceğim örnek sorunuzun tam karşılığıdır.

http://www.excel.web.tr/f48/cift-tyklayynca-acylan-takvim-t119226.html

.

 

[Lucky1905]

Tesekkürler yaptim gibi bisey oldu.
Necdet beyin ilk verdigi dosyadaki kodlardan kendim biraz uyarlayip yaptim sanirim

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, [A:A]) Then
     KalForm.Show
   Else
        KalForm.Show
    End If
End Sub

A sütununu secmek icin sunu yazdim. Belki sacma olmustur:d Daha güzel bir kod varsa daha iyi olur


Benimkinin son halinide koyayim, belki ilerde baska birine lazim olur.

 

[asuzen]

Kendi kullandığım ancak kendim yapmadığım takvim ektedir. Sayfa1 ve Sayfa2 de 2 farklı takvim var. Arkadaşlara iyi bir kaynak olacağı kanaatindeyim. Uygulanması ile ilgili elimden geldiğince yardımcı olmaya çalışırım.

 

[Merhum İdris SERDAR]

Kendi kullandığım takvim ektedir. Sayfa1 ve Sayfa2 de 2 farklı takvim var. Arkadaşlara iyi bir kaynak olacağı kanaatindeyim.

.

Sayfa2'deki örnek, yukarıda verdiğim linkte yer alan dosya.

.

 

[asuzen]

.

Sayfa2'deki örnek, yukarıda verdiğim linkte yer alan dosya.

.

Doğrudur hocam zaten 2 örnek de forumda bulduğum ve kendi kullandığım dosyalardır. İkisinin de arkadaşın işine yarayacağını düşünüyorum.

 

[kelkitli]

Slm dostlar,
sn. Asuzen arkadaşımızın eklediği takvimi daha önce kullanıyordum ama şimdi hata verdi. Yeniden nesne eklemem gerek ama hangi nesneyi ekleyecektim. Yardımcı olursanız sevinirim. Daha önce eklemiştim ama unutmuşum.

 

[ekinkoc]

merhabalar, hücre içine takvim eklemenin daha basit bir hali yok mudur? (Data validation'a benzer bir şekilde). Çünkü mscal.ocx hatası alıyorum.

Yardımlarınızı bekliyorum çok teşekkür ederim.

 

[berketugay]

güzel bir takvim olmuş