Tab tuşu

[gulvadi]

Merhaba arkadaşlar
Klevyeden tab tuşuna basılınca minimize olmuş kitap1 aktiv edecek
makroyu nasıl yazabiliriz

 

[Ömer]

Merhaba arkadaşlar
Klevyeden tab tuşuna basılınca minimize olmuş kitap1 aktiv edecek
makroyu nasıl yazabiliriz

Merhaba,

Modul'e;

Sub Max()
    Windows("Kitap1.xls").WindowState = xlMaximized
End Sub

ThisWorkbook'a;

Private Sub Workbook_Activate()
    Application.OnKey "{TAB}", "Max"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{TAB}", ""
End Sub
Private Sub Workbook_Deactivate()
    Application.OnKey "{TAB}", ""
End Sub
Private Sub Workbook_Open()
    Application.OnKey "{TAB}", "Max"
End Sub

.

 

[gulvadi]

Teşekürler
Bu kodlar çalışmadı
ilk kodu modül1 ikinci olanları ThisWorkbook'a; yapıştırdım ama hiç bir tepki vermedi.

 

[Ömer]

Dosyanızı kapatıp açıp denermisiniz.

 

[gulvadi]

Bu kodlar excel aktif iken sadece çalışma kitabı minimize olmuşsa çalışıyor. Eğer excel aktif olmazda intenet sayfası açık olursa çalışmıyor. Benim yapmak istediğim excel aktif olmadan çalışması.

 

[gulvadi]

excel aktif olmadan makro çalışabilir mi?

 

[Ömer]

Dosyayı eklentiye çevirip kullanabilirsiniz.

Excel Dersanesi bölümünde konuyla ilgili açıklamalar mevcuttur.