userforma açılır takvim ekleme

[theredcloud]

Değerli arkadaşlar. Ekteki userform açılınca tarih kısmına tıklanınca açılır tarih olmasını istiyorum. Bir de bu şekilde olan bir dosyam var fakat başka makinede açılırken benim makinemde takvim kısmı açılmıyor hata veriyor...Yardımlarınız için teşekkür ederim..

 

[mustafakoker]

Bununla ilgili forumda bir sürü örnek var ben bir tanesi aşağıdak linte verdim
Sayın ergün Beyin çalışması
http://www.excel.web.tr/f128/takvim-t95533.html

 

[theredcloud]

Bununla ilgili forumda bir sürü örnek var ben bir tanesi aşağıdak linte verdim
Sayın ergün Beyin çalışması
http://www.excel.web.tr/f128/takvim-t95533.html

Çalışmayı inceledim fakat buna benzer çalışmalr bende mevcut ama ben kendi çalışmama uyarlayamadım maalesef...Diğer sorunum verdiğiniz linkteki çalışma dahil bu şekilde olan takvim çalışmalarında sürekli hata veriyor,açmıyor

 

[Murat OSMA]

UserForm'da takvim kullanmak isteyenler için...

Ek'teki Ocx dosyasını System32 içine taşıyın ve REG dosyasını çift tıklayın...

ToolBox'tan XP_Calendar'ı seçip UserForm'a ekleyebilirsiniz...
Takvimin tüm renkleriyle oynamalar yapabilir, formatını değiştirebilirsiniz..

Faydalı olması dileğiyle...

 

[theredcloud]

UserForm'da takvim kullanmak isteyenler için...

Ek'teki Ocx dosyasını System32 içine taşıyın ve REG dosyasını çift tıklayın...

ToolBox'tan XP_Calendar'ı seçip UserForm'a ekleyebilirsiniz...
Takvimin tüm renkleriyle oynamalar yapabilir, formatını değiştirebilirsiniz..

Faydalı olması dileğiyle...

Murat Bey,

İlginiz için teşekkür ederim. Verdiğiniz talimatları harfiyen yerine getirmeme rağmen gönderdiğiniz dosyadaki takvim görünmemekle beraber diğer dosyalarımdaki takvimler hata veriyor. Yardımlarınız için teşekkür ederim.

 

[Murat OSMA]

ToolBox'ta XP_Calendar'ı görüyor musunuz ?

Diğer dosyalarınızdaki takvimlerin hata vermesi mantıklı değil... En azından verdiğim ocx ile bir ilgisi olmadığını düşünüyorum.

 

[theredcloud]

ToolBox'ta XP_Calendar'ı görüyor musunuz ?

Diğer dosyalarınızdaki takvimlerin hata vermesi mantıklı değil... En azından verdiğim ocx ile bir ilgisi olmadığını düşünüyorum.

Murat Bey sorunu çözdüm sanırım. Gönderdiğiniz dosya işime yaradı teşekkür ederim. Fakat diğer dosyalarımdaki takvimler halen hata veriyor. Sanırım farklı bir sorun var onlarla ilgili. Emeğinize sağlık.

 

[theredcloud]

Murat Bey,

Bir sorum daha olacak. Sayfayı her açtığımda ekteki gibi bir uyarı çıkıyor. Bunu engellemenin bir yolu var mı acaba?

 

[Murat OSMA]

■ Sorunu nasıl çözdünüz ? :dusun:
■ Diğer dosyalar için birşey yapamayacağım ama, takvimleri kaldırıp tekrar eklemeyi bir deneyiniz...
■ O hatayı sayfayı açtığınızda değil, UserForm'u açtığınızda alırsınız.

Hatayı engellemek için, şu kodu bir kereye mahsus çalıştırınız;

Sub Activex()
    Dim Evn As Object
    anahtar = "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms"
    Set Evn = CreateObject("WScript.Shell")
    Evn.RegWrite anahtar, 1, "REG_DWORD"
    MsgBox "İşlem Tamadır...", vbInformation + vbMsgBoxRtlReading, "Uyarı !"
End Sub

Ya da şu şekilde de ayarlayabilirsiniz;
Başlat | Çalıştır'a Regedit yazıp Registry'yi açınız.

HKEY_CURRENT_USER\Software\Microsoft\VBA\Security klasörüne geliniz. (Security klasörü yok ise; kendiniz oluşturunuz.)
Burada; Düzen-->Yeni-->Dword değeri oluşturup adını LoadControlsInForms olarak değiştirin.
Değerini ise 1 girip, Registry'yi ve Excel'i kapatıp, ilgili çalışmanızı tekrar açmayı deneyiniz.
Aynı uyarı iletisi gelirse; bilgisayarınızı tekrar başlatıp, ilgili işlemi tekrar deneyiniz.

 

[theredcloud]

* Sorunu şöyle çözdüm: tools=> references ocx-CAlendario Xp tikli değildi. Onu seçip additional controls sekmesinden calendar XP'yi bulup tikledim çıktı. Sonra userforma çizip kapattım. Çalıştı.

* Verdiğiniz talimatlar ile ekrana çıkan uyarı sorunu çözüldü. Teşekkürler

* Bunun yanısıra bu dosyayı farklı bir bilgisayarda çalıştırmak istediğimde macro güvenliği uyarısı çıkıyor. Makro güvenlik seviyesini düşürüyorum bu seferde takvim yüklü olmadığı için açılmıyor
Teşekkürler

 

[Murat OSMA]

■ Mesajınızdaki alıntı silerseniz sevinirim. Önceki mesajdan alıntı yapmaya gerek yok.
■ O bilgisayara da ocx'i kayıt ettirmeniz gerektiğini biliyor olmalısınız. Yoksa ocx dosyasını System32 içine taşıyın ve REG dosyasını çift tıklayın demezdim...
Size yolladığım Ocx dosyasını ve REG dosyasını bir kereye mahsus o bilgisayarda deneyin.

Ya da şöyle yapalım: Ocx dosyası ile Excel dosyanız aynı yerde olsun ve şu kodu dosyanın ThisWorkbook kısmına yazın. Şimdi dosyayı kapatıp tekrar açın...

Private Sub Workbook_Open()
 On Error Resume Next
    Set evn = CreateObject("scripting.filesystemobject")
        Set evnshell = CreateObject("WScript.Shell")

ocxyolu = "C:\Windows\System32\"
    ocx = "XPCalendar.ocx" 'Buraya Ocx adını yazın...
        ocxct = ThisWorkbook.Path & Application.PathSeparator & ocx
          
If Not evn.FileExists(ocxyolu & ocx1) Then
    [E9].Value = ocx & " Kopyalanıyor..."
        evn.MoveFile ocxct, ocxyolu & ocx
            evnshell.Run (ocxyolu & "regsvr32 /s" & ocx)
                Application.Wait Now + TimeSerial(0, 0, 1)
                    [E9].Value = ocx & " Kaydedildi..."
                        Application.Wait Now + TimeSerial(0, 0, 1)
                            [E9].Value = "..::.. Tamamdır ..::.. "
End If
End Sub

 

[theredcloud]

Sorun çözüldü dosya çalışıyor. İlginiz ve yardmınız için teşekkür ederim.

 

[Murat OSMA]

Rica ederim, iyi günler...

 

[theredcloud]

Yeni bir konu açmak yerine burada devam etmek istedim çünkü sorum aynı dosya ile ilgili olacak.
Soruyu şöyle özetleyeyim; Useform'a kayıt yaparken bilgi girmeyip boş bıraktığım satırları bir sonraki kayıt açarken bir kısmını üst satıra (boş bıraktığım yerlere) bir kısmını alt satıra kaydediyor. Nasıl bir kod yazabilirim acaba?

NOT: Makro Vba konusunda yeniyim bu yüzden kusura bakmayın basit sorular soruyor olabilirim. Yardımlarınız için teşekkür ederim.