Sorgu için arama sonuçları: numlock

Hiç yaptığım bir uygulama değil. Bir bilen arkadaş NUMLOCK ve CAPSCLOCK neden sönüyor söyleyebilir.

Üstad çok teşekkürler. Kod çalıştı. Ama minik bir dezavantajı var. Gerçi çok sorun değil ama hem de sizin bilginize sunmak isterim. Kodu çalıştırınca NUMLOCK VE CAPSLOCK sönüyor.

...+ i Sheets(1).Range("L14,D3:F32,J3:Q32,D36:F65,J36:Q65,D69:F98,J69:Q98,D101:F130,J101:Q130,D134:F163,J134:Q163").ClearContents If numlock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}" Next i For j = 1 To Application.Sheets.Count - harf On Error Resume Next...

...If numlock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}" fnd = Array("Tip Değişikliği", "Malzeme Bekleme", "Ayar-Ölçme Odası") rplc = Array("", "", "") For j = LBound(fnd) To UBound(fnd) Sheets(1).Cells.Replace fnd(j), rplc(j)...

...komut dosyası ile tek tıkla çalıştırmak istemiştim ama o şekil olması mümkün değil mi. Hocam, bunu halletsem tamam olacak. Sizi de çok yordum ama. Hepsi oluyor. Bu aşağı ok olmuyor bende. (her çalıştırmayı denedikten sonra, NumLock kapanıyor, onu farkettim. Bir ilgisi olabilir mi.)...

...sağa değil, aşağıya doğru gittiğini gördüm. Denemek için kodlarda bulunan ve ”application“ ile başlayan iki adet satırı pasif hale getirdim. yine aşağıya doğru çalıştı. İsterseniz boş bir dosyada tekrar deneyin. (Bu arada makroyu çalıştırınca, klavyedeki numlock düğmesinin ışığı kapanıyor)

...değişikliği uyguladıktan sonra makroyu tekrar çalıştırdığımda yine 2500'üncü satırda çalışmayı durdurdu. Ayrıca makro çalışmayı durdurunca Numlock tuşununda pasif hale geldiğini farkettim. En son gönderdiğiniz "Degere_Cevir" makrosu ise istenilen sonucu vermedi. Örneğin F2+enter yapan...

...yine "2499"uncu satırda işlemi durdu. 2700'e kadar tarih verileri dolu olmasına rağmen. Ayrıca şunu farkettim ki makro çalışmayı durdurduğunda "NumLock" tuşu da pasif oluyor. Yani makro işlemi bitirdikten sonra rakam yazamıyorsunuz. Numlocku tekrar aktif etmek gerekiyor :)) Şaştım kaldım...

Merhabalar Ömer Bey, benim klavyeden (NumLock hatasından) kaynaklanan hatadan çalışmamış. Düzeltince çalıştı. Formdada düzeltmiştim. Tekrar çok teşekkürler... Saygılarımla.

...3) = "PDF Sayfa Sayısı" Worksheets(sayfa).Cells(1, 4) = "Sonuç" sayfalarıseç1 Liste (Kaynak) Sheets(sayfa).Select SendKeys ("{NUMLOCK}"), True Set Klasor = Nothing MsgBox "işlem tamam" Else atla: MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT" End If End Sub...

...ama o kod kapalıyken açıyor, açıkken kapatıyor. Benim yukardaki kodlar açık olanı kapatoyor. Şu kodu refize edebilirmiyiz. Sub num() If NumLock = False Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}" 'NUMLOCK AÇAR End Sub Eğer numlock kapalıysa aç, açıksa bırak öyle kalsın...

Linki inceleyiniz. https://www.excel.web.tr/threads/numlock-tusunun-kapanmasi.173282/

Aynı şey bende de oluyor Range("AJ4").Select SendKeys "{F2}" SendKeys "{ENTER}" bu kodla rilk çalıştığında Numlock tuşu kapanıyor.

...& Son), 10)*1 buda olmadı bu F2+Enter komutunda sorun var gibi kaldırdığımda yapmıyor aşağıdaki kodu girdiğimde her kayıt atışımda bir numlock düzeliyor bidaha attığımda kapanıyor. Yaptığım işlem aslında Now komutunda saat geliyor ben ise saatsiz bir tarih atmaya çalışıyorum. Date() yada...

...& Son), 10) S2.Range("R" & Son).Select Application.SendKeys "{F2}" Application.SendKeys "{ENTER}" yerine S2.Range("R" & Son) = Left(S2.Range("R" & Son), 10)*1 Şeklinde dener misiniz? Ancak kodlarda numlock'la ilgili bir şey göremedim, belki dosyanızda bu işlemi yapan başka bir kod vardır.

...ama goto işime yaradı demek istedim. Başka bir konu geldi şimdi önüme F2+Enter Kodu çalışıyor ama dosyayı açıpta ilk yaptığım aktarmada numlock tuşlarımı yön tuşuna dönüştürüyor. sonraki aktarmada düzeliyor. ne yapabilirim. ?? Sub AKTAR() Application.ScreenUpdating = False...

Öncelikle teşekkürler hocam. Amacım D149,D150,D151,D152,D153,D155,D156,E149,E150,E151,E152,E153,E155 hücreleri ya da =D149:E153 ve =D155:E156 kısımlarına belirtmiş olduğunuz komut sonrası macro ya da komut ile CTRL+SHIFT+ENTER ile dizi formülüne otomatik onay verdirmek. Dosya özel karış bir...

...Then Range("M3:N11,P3:Q11,M13:N40,M42:N73,M81:N136,W4:X9,Z4:Z9,AB4:AB14,AD4:AD24,AF4:AF25,Z13:Z15,AA20").ClearContents If numlock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}" Else MsgBox "Hatalı Şifre İzinsiz İşleme Müsaade Edilemez", vbCritical...

...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;