Userform takvim seçici

[recepkull]

Arkadaşlar resimde işaretli olan eklentiyi nasıl indirebilirim? Bilgisayarıma nasıl yükleyebilirim ? Ve excel dosyasında nasıl aktif edebilirim? Yardımınıza ihtiyacım var.
İnternetten biraz araştırma yaptım da başarılı olamadım.

 

[Haluk]

Siz Takvim nesnesini ekleseniz bile, dosyayı gönderdiğiniz bir başkasının bilgisayarında Takvim nesnesi yoksa, yine problem olur.

O nedenle; UserForm ile bir takvim yapıp, kullanmak en iyi çözümdür.

https://www.excel.web.tr/threads/belirlenen-huecrelere-takvim-ekleme.170819/post-931742

.

 

[recepkull]

Teşekkür ederim hocam 2036 ya kadar bunu kullanırım ben

 

[recepkull]

Hocam sizin yaptığınız userform un sayfa kodu, benim sayfamdaki kodların biri ile çakışıyor.

Sayfamdaki kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
    Application.Calculate
End If
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$K$5" Then
        Call Veriçek
    End If
End Sub

Sizin kodunuz :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Not Intersect(Target, Range("K5")) Is Nothing) Then
        UserForm1.Show 0
    End If
End Sub

 

[recepkull]

Cevap verecek kimse yok mu

LG-H815 cihazımdan Tapatalk kullanılarak gönderildi

 

[Haluk]

Çakışan yer neresi anlamadım ....

Böyle denemediniz mi?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = False Then
        Application.Calculate
    End If
    If (Not Intersect(Target, Range("K5")) Is Nothing) Then
        UserForm1.Show 0
    End If
End Sub

.

 

[recepkull]

Tamam şimdi oldu çok teşekkür ederim hocam çok güzel bir userform çalışması olmuş