Sorgu için arama sonuçları: numlock

...Selection.ClearContents ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 1 Range("P1:Q1").Select If numlock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}" Else MsgBox "Hatalı Şifre İzinsiz İşleme Müsaade Edilemez", vbCritical, "INCSOFT" End If End Sub

Eğer durumu Fn ile geçici çözebildiyseniz şöyle bir kalıcı çözüm makalesi buldum. Belki işinizi görür;

PriveT üstadım ilginize teşekkür ediyorum. Ancak kalıcı çözüm nasıl olabilir, onun arayışındayım !

Merhaba Deneyiniz: NUMLOCK tuşu Olmazsa Fn tuşu

Benimi kullandığım daha doğrusu mecbur kullanmak zorunda olduklarım; 1:Sendkeys ler için Numlock olayında. 2:Yazdığım gibi yazıcı önizle olayında userformun kaybolmadan görev çubuğuna gelmesi. 3:Bu mecburluktan değil userforma büyütme ve küçültme işaretleri koydurtmak. Yani mecbur olduğum için...

Merhaba. Bu tarih formatı dosyasına erişemediğim için bişey söyleyemeyeceğim. Asıl konu Numlock ışık olayı idi :) Sorun giderildi.Sadece doda eğer Numlock kapalıysa açma komutu ilave edilirse süper olur olmazsada önemli değil :)

...ve A sütunu seçilirse boş dolu farketmez seçilen satırda ad tanımlaması olanlar listeleniyor. En son bulduğum kodla olay çözüldü sadece Numlock kapalıysa hariç. O da sorun değil eğer çözüm olmazsa. If NumLockState <> GetKeyStat..... burayı nasıl değiştirince olmuyor açma olayı. #If Win64...

...KOPYASI şeklinde hazırlanmış bir örnek belge üzerinden sorulursa daha hızlı sonuca ulaşılır. Kullandığınız diğer kodları bilemiyoruz. Ama NUMLOCK kapalıysa aç işlemini, verdiğiniz koddaki gibi A sütunu DOLU/BOŞ vs bakmaksızın açmak için sadece, If NumLockState <> GetKeyStat.....satırı...

Laptop ta Numlock var.Ben kendi dosyamdaki kodlarda bazı sendkeysler kullanıyorum.Bu aşağıya açılmada bir tanasi. Sorun sadece sendkeys çalışınca ışık sönünce numaralara basılmıyor yani Numlocku manuel açmak zorunda kalıyorum. Aslında başka bir kodla(uzun) sorun olmuyor lakin verdiğm kod kısa va...

Peki sizin asıl yapmak istediğiniz nedir (NumLock işlemini sormuyorum) ? A sütunundaki bir hücreyi seçtiğinizde, bu hücreden itibaren olmak üzere A sütunundaki ilk boş hücreye mi gitmek istiyorsunuz? Zira verdiğiniz kod aşağı ok tuşuyla aktif A sütunu hücresinden aşağı doğru tek tek...

Dediğinizi yaptım. If Not GetNumLockKey Then burdaki Not kelimesini sildim. Ve sorun giderildi galiba.Fakat Numlock kapalıysa otomatik açılmıyor.

...konuyu açmak istedim rahatsızlık vermemek için. Alttaki Api kodunu Zeki Gürsoy hocamız yazmıştı. Ekteki A sütunundaki veriler seçilince Numlock bir yanıyor bir sönüyor. Benim istediğim devamlı Numlock açık kalması. Saygılar...

...Elinize sağlık güzel olmuş. Korhan hocamızın eklediği KeyCode = 0 daha cazip geldi. Application.OnKey bu kodu biraz araştırayım ilginç birşeye benziyor. Belki senkeys yernine Application.OnKey koduyla yazıcı sayfası felan açtırabilirim. Çünkü sendkeys Numlock ışığını kapatıyor. Kolay gelsin.

size zahmet olmazsa hocam doğru şekilde uyarlayabilirmisiniz?

Sorunun cevabı hata mesajında yazıyor.... "Next" ilave etmemişiniz. Ayrıca; kodlarınızda devamlı yazdığınız; If numlock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}" kısmı da mantıksız... .

...Range("AA20").Select Selection.ClearContents Range("AC33:AD36").Select Selection.ClearContents Range("P1:Q1").Select If numlock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}" Else MsgBox "Hatalı Şifre İzinsiz İşleme Müsaade Edilemez", vbCritical...

...(ByVal nVirtKey As Long) As Long #Else Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long #End If Sub Numlockk() 'NumLock kapaly ise aç... If Not GetNumLockKey Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}" End Sub Private Function...

...As Long) As Long #Else Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long #End If Sub Test3() 'NumLock kapalý ise aç... If Not GetNumLockKey Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}" End Sub Private Function GetNumLockKey() As...

Her ne kadar API sevilmese de, çoğu zaman ben tercih ederim. Düzenleme: CapsLock yerine NumLock olarak değiştrildi. #If Win64 Then Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long #Else Private Declare Function GetKeyState Lib "user32" (ByVal...

Sayın Haluk hocam cevap gelmedi sizden bir daha sorayım benim içinde önemli bir konu bu. Bu word haricince başka yol yokmu testlerimde bazen başka bir word dosya açık die hata veriyor eğer başka bir word dosya açarsam.