Yön Tuşları Hk.

[petsiye]

Herkese Merhaba.

İçerisinde 20' nin üzerinde makro - vba - Userformlar bulunan 12 Mb lık bir dosyam var. Dosyamı ilk açtığımda klavye yön tuşlarım hiçbir şekilde çalışmıyor. Aşağıdaki kod yardımıyla tuşları aktif ediyorum. Dosyamı kapatmadan basit birkaç işlem ( Sayfalar arası gezinmek gibi mesela ) yapıyorum , sonra tekrar yön tuşlarım deaktif duruma geçiyor , ben yine aşağıdaki kod yardımıyla tuşları aktif hale getiriyorum.
Sorunun çözümü konusunda değerli yardımınız rica ederim. Saygılarımla

Sub YonTuslariAc()
  Application.OnKey "{UP}"
  Application.OnKey "{LEFT}"
  Application.OnKey "{RIGHT}"
  Application.OnKey "{DOWN}"
End Sub

 

[Muzaffer Ali]

Merhaba.

Dosyanızı eklerseniz daha hızlı ve doğru çözüm bulursunuz.

 

[petsiye]

Cevabınız için Teşekkür ederim fakat dosyamda şirket için gizli içerik olduğu için paylaşım yapamıyorum maalesef :-(

 

[petsiye]

Konu günceldir

GM 5 Plus cihazımdan Tapatalk kullanılarak gönderildi

 

[Ömer BARAN]

Merhaba.

Yön tuşlarını nasıl aktif hale getirdiğinize ilişkin kodları paylaşmanızın bir faydası yok,
kullanılan belgede yer alan ve bu tuşları pasif hale getiren kodları (Modul, sayfa ve BuÇalışmaKitabı bölümlerindeki kodlar) vermelisiniz veya
cevabımın altındaki İMZA bölümünde yer alan açıklamalar doğrultusunda hazırlayacağınız bir örnek belge eklemelisiniz.

Bu haliyle çözüm bulunması biraz güç.
.

 

[petsiye]

Merhaba ,

Sub Workbook_Open()
Windows(ThisWorkbook.Name).Visible = True
Sayfa1.Visible = xlVeryHidden
Sayfa2.Visible = xlVeryHidden
Sayfa3.Visible = xlVeryHidden
Sayfa4.Visible = xlVeryHidden
Sayfa5.Visible = xlVeryHidden
Sayfa6.Visible = xlVeryHidden
Sayfa7.Visible = xlVeryHidden
Sayfa8.Visible = xlVeryHidden
Sayfa9.Visible = xlVeryHidden
Sayfa10.Visible = xlVeryHidden
Sayfa11.Visible = xlVeryHidden
Sayfa12.Visible = xlVeryHidden
Sayfa13.Visible = xlVeryHidden
Sayfa14.Visible = xlSheetVisible
Sayfa15.Visible = xlVeryHidden
Sayfa16.Visible = xlVeryHidden
Sayfa17.Visible = xlVeryHidden
Sayfa18.Visible = xlVeryHidden
Sayfa19.Visible = xlVeryHidden
Sayfa20.Visible = xlVeryHidden
Sayfa28.Visible = xlVeryHidden
Grafik4.Visible = xlVeryHidden
Load UserForm7
UserForm7.Show
End Sub

Sub UserForm_Activate()
    Me.Top = Application.Top
    Me.Left = Application.Left
    Me.Top = Application.Top + (Application.UsableHeight / 1)
    Me.Left = Application.Left + (Application.UsableWidth / 1)
End Sub

Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "KOPYA ÇEKMEK YASAKTIR", vbCritical, "Dikkat!"
Cancel = True
End Sub

Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "İLGİNİZ İÇİN TEŞEKKÜR EDERİM :-)", vbInformation
Cancel = False
End Sub

Bu çalışma kitabındaki kodlar aşağıdaki gibidir.

 

[petsiye]

Ayrıca Userform içindeki kodlar aşağıdaki gibidir

Sub CommandButton1_Click()
UserForm7.Hide
UserForm6.Show
End Sub

Sub CommandButton3_Click()
UserForm7.Hide
UserForm8.Show
End Sub
Sub UserForm7_Click()
        Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

Private Sub UserForm7_Layout()
    Me.Top = (Application.Height - Me.Height) / 2
    Me.Left = (Application.Width - Me.Width) / 2
End Sub

 

[Ömer BARAN]

Verdiğiniz kodlarda yön tuşlarının İPTAL edilmesiyle ilgili olabilecek bir kod göremiyorum.

 

[petsiye]

Merhaba ,

Sorunu garip bir şekilde çözdüm. Userform üzerinde Aktif Saat ve Tarih gösteren Label bulunmakta. Label ile ilgili aşağıdaki kodu sildiğim zaman problem ortadan kalktı. Tabii saat ve Tarih uygulaması da gitmiş oldu. Nasıl olduğunu ben de anlamadım Yardım gayretiniz için çok Teşekkür Ederim. Saygılarımla

Private Sub UserForm_Activate()
BUGUN.Caption = Date
SAAT.Caption = Time
Do
DoEvents
SAAT = Format(Time, "hh:mm:ss")
Loop
End Sub

 

[Ömer BARAN]

Şahsen ben userform üzerinde SAAT gösterimini pek tavsiye etmiyorum doğrusu.
Oluşturulan döngü, userform açık olduğu sürece devam etmek durumunda ve bu işlem,
belgenizin kullanım performansının düşmesine neden olacaktır.

Sorunu kendinizin halletmesi en iyisi olmuş. İyi günler dilerim.
.

 

[petsiye]

Çok Teşekkür ederim Ömer bey