Hücreye takvim atama

[hayati36]

Merhabalar,

Aşağıda bağlantı dosyasında bulunan kodu internetten buldum. Kodun bütün koşullardan bağlantısı kesilerek sadece takvim kodu kalsın, takvim kodunun w1 hücresine atamak istiyorum ( hücre kodu değişebilir.)

yardımcı olabilirseniz sevinirim.

451.xlsm

Microsoft Excel Workbook

1drv.ms

 

[ÖmerFaruk]

Forumda yapılmş güzel ve kolay kullanılabilir çalışmalar mevcut
Arama menüsünden uygun kelime/kelimeleri aratarak bulabilirsiniz.

 

[hayati36]

Ömer hocam, baktım site buldum güzel çalışmalar bu resmî tatil vs göstermesi işimi çok kolaylaştırıyor. Bu kodlarda değişiklik yapma şansımız yok mu ? Olursa size zahmet yardımcı olabilir misiniz? Teşekkürler şimdiden

 

[ÖmerFaruk]

Kontak Bantlar sayfanızın KOD penceresinde aşağıdaki kısım hariç tamamen silin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$17" Then Exit Sub
Takvim.Show
End Sub

VBA penceresindeki Modul1 ve Module2 ye ihtiyacınız yok. İki modüle de Sağ tıklayıp Remove deyin.

Sanırım başka da silinecek bir şey yok.

 

[hayati36]

Ömer hocam hayırlı günler,

söylediklerinizi yaptım tek olarak çalışıyor. ama hücreyi değiştirmeme rağmen belirttiğim hücrede çalışmadı (w1 değişken olabilir) ben yapamadım sanırım son olarak kontrol edebilir misiniz bide mümkünse söylediğiniz kontak bantlar kodu ile takvim kodunu birleştirmek...

Hakkınızı helal edin lütfen.

 

[hayati36]

Ömer hocam hayırlı günler,

kendimi hatırlatayım dedim

 

[ÖmerFaruk]

Neleri sileceğinizi tarif etmiştim. Gayet açık şekilde.
Buyrun yine de
https://dosya.co/i1wntjz0bn1y/451_silinmiş.xlsm.html

 

[hayati36]

Ömer hocam tarif ettiğiniz gibi silmeyi yaptım sorun yoktu.
Sanırım yanlış anladınız, hücreyi değiştiremedim kodda değişmeme rağmen belirttiğim hücrede çalışmadı (w1 değişken olabilir) ben yapamadım sayfa adından mı bilemedim.
Son olarak kontrol edebilir misiniz bide mümkünse söylediğiniz kontak bantlar kodu ile takvim kodunu birleştirmek başka 2 dosya daha var orada kullanmak için.

İlginiz için ayrıca teşekkür ederim.

 

[ÖmerFaruk]

If Target.Address <> "$W$1" Then Exit Sub

 

[hayati36]

hocam ben anlatamadım galiba yine ;(

dediğiniz kısmı ve aşağıdaki kod kısımlarını değiştiriyorum kod pasife geçiyor. müsait olursanız bakarsanız iyi olur, yoksa yapacak bir şey yok artık

çok sağ olun

Me.Top = Sayfa4.Range("w1").Top + 160
Me.Left = Sayfa4.Range("w1").Left + 130