hücrede açılan takvime yardım

[bitmez13]

Sub ShowAtCell()
If Intersect(ActiveCell, [a2,c2]) Is Nothing Then Exit Sub

ben istiyorumki sayfa1 in a2c2 hücresinde sayfa2 nin f4 hücresinde sayfa3ün e5 hücresine çift tıklayınca takvim açılsın

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.


Uygulanan kod; (Kitabınızın ThisWorkbook bölümüne uygulayınız.)

Option Explicit
 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [A2,C2]) Is Nothing And Sh.Name = "Sayfa1" Then
    Cancel = True
    TAKVİM.Show
    End If
    If Not Intersect(Target, [F4]) Is Nothing And Sh.Name = "Sayfa2" Then
    Cancel = True
    TAKVİM.Show
    End If
    If Not Intersect(Target, [E5]) Is Nothing And Sh.Name = "Sayfa3" Then
    Cancel = True
    TAKVİM.Show
    End If
End Sub

 

[Emir Hüseyin Çoban]

Uzun zamandır aradığım çalışma buydu Sy Korhan Ayhan, paylaşımınız için teşekkürler.

 

[ormann]

Sayın korhan beyin 2 nolu mesajını kendi örnek dosyama uyguladım.fakat tarih girdiğimde takvim sayfanın en alt kısmında kalıyo yukarı çekmem gerekiyo bunu sayfanın ortasına alabilrmiyiz.takvimi tıkladığımızda sayfanın ortasında gözüksün

 

[ormann]

sayın arkadaşlar 4 nolu mesajıma yardımlarınızı bekliyorum.saygılar

 

[halit3]

sayın arkadaşlar 4 nolu mesajıma yardımlarınızı bekliyorum.saygılar

Alternatif olarak aşağıdaki linkdeki dosyaya bir bakınız.

http://www.excel.web.tr/f14/takv-m-resmi-ve-dini-tatil-gonlerini-gosteriyor-t74563.html

 

[ormann]

sayın hocam ekteki örnek dosyamda ben sayfanın sarı renkli hücrelerini tıkladığımda tarih sayfanın ortasında gözükmesi gerekiyo.bu şekilde olabilirmi saygılar

 

[halit3]

sayın hocam ekteki örnek dosyamda ben sayfanın sarı renkli hücrelerini tıkladığımda tarih sayfanın ortasında gözükmesi gerekiyo.bu şekilde olabilirmi saygılar

Userformun içindeki kodla aşağıdaki kodu değişitrin

Private Sub UserForm_Initialize()
Calendar1.Value = Date
With Me
.StartUpPosition = 0
.Top = Range("f8").Top + (Application.Height - ActiveWindow.VisibleRange.Height) - 20
.Left = Range("f8").Left + 20
End With
End Sub

 

[kayaba]

emegınıza saglık cok guzel bır calısma ıstedıgımız hucreye bunu koymak ıcın kodları nereye yazacagız

 

[gokhanbek]

hocam 2010 kullanıyorum takvimi açmak için tıkladığımda hata veriyor
cople error
can't find project or library

nasıl çözebilirim