Sorgu için arama sonuçları: numlock

...'E-posta: sa4truss@gmail.com ' Dim objWord As Object Set objWord = CreateObject("Word.Application") If CreateObject("Word.Application").numlock = False Then Application.SendKeys "{NUMLOCK}" Set objWord = Nothing End Sub Sub DÜZENLE() Dim Alan As Range For Each Alan In...

...alttaki satırda yavaşlıyor. Acaba Haluk hocam bu Word officenin yazı yazma olayımı? Yani bu word harici başka bişey olmuyormu hız için. If NumLock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}" burayı simelisiniz inscsoft üstad bu arada. Call Test bunu next satırının üstüne...

...As Range For Each Alan In Range("K142:Q144,K146:Q148,I151:J160,K151:L160,M151:M160,Q151:Q156,Q158:Q160") Alan.Select DoEvents SendKeys "{F2}", True SendKeys "{ENTER}", True If NumLock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}" Next Call Test End Sub maalesef hocam hata...

Kendi kodunuzla aynı modüle, yukarıda verdiğim kodları yapıştırın ve kendi kodunuzdaki aşağıdaki satırı silin; If NumLock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}" Kodunuzdaki "End Sub" satırının hemen üzerine, aşağıdakini yazın.... Call Test Böylece; eğer "nümerik...

Teşekkürler Haluk bey. Benim kodumun içine adapte edebilmeniz mümkünmüdür? Yarın deneyeceğim. SM-G935F cihazımdan Tapatalk kullanılarak gönderildi

...nümerik tuş takımının kilidini açar .... Sub Test() 'Haluk -03/01/2019 'E-posta: sa4truss@gmail.com ' Dim objWord As Object Set objWord = CreateObject("Word.Application") If objWord.numlock = False Then Application.SendKeys "{NUMLOCK}" Set objWord = Nothing End...

Arkadaşlar aşağıdaki komutu kullanınca nedense Numlock butonu devre dışı kalıyor bu sebepten dolayı If NumLock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}" bu şekilde bir kod bulmuştum oda işimi görmedi. Başka nasıl kapanmamasını sağlarım? Teşekkürler.. Sub DÜZENLE() Dim...

Merhaba @ernglr, Sanırım yönlendirmede yanlış anlaşılmaya sebep verdim. Söz konusu Ömer Bey'in vermiş olduğu kodları daha önceden çalıştırdığınız gibi modül içersine kopyalayın. Daha sonra Aşağıdaki kodu sayfa1 in içine yapıştırınız. İyi çalışmalar.

...While Not c Is Nothing And c.Address <> Adr End If c.Select SendKeys "{F2}", True SendKeys "%{ENTER}", True SendKeys "{NUMLOCK}", True Application.ScreenUpdating = True GoTo 10 End Sub Bu şekilde kodları güncelledim 10: ve GoTo 10 komutu makronun sürekli...

...Do c.Interior.ColorIndex = 6 Set c = Cells.FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If c.Select SendKeys "{F2}", True SendKeys "%{ENTER}", True SendKeys "{NUMLOCK}", True Application.ScreenUpdating = True End Sub

...Now + 0.00007 Application.SendKeys "{Enter}", True Application.Wait Now + 0.00007 Next CustRow Application.SendKeys "^(q)", True Application.SendKeys "{Tab}", True Application.SendKeys "{Enter}", True Application.Wait Now + 0.00007 Application.SendKeys "{numlock}%s", True End With End Sub

Arkadaşlar aşağıdaki gibi bir macrom var çalıştıktan sonra NUMLOCK tuşunu kapatıyor her seferinde. Macroya SendKeys "{NUMLOCK}", True ekledim yine açmıyor. Neden olabilir acaba? Teşekkürler. Sub DÜZENLE() Dim Alan As Range For Each Alan In Range("K143:L145,K138...

...Kod çalışınca döngü bitmesine rağmen satır boyunca ve dolu hücre sayısınca F2 , Enter yapmaya devam ediyor. Ayrıca bu kod çalıştıktan sonra NumLock ve CapsLock pasif oluyor. Yani sayı bloğunu kod çalışmadan önce kullana biliyorken kod çalıştıktan sonra kullana bilmek için tekrar Num Lock a...

...hh:mm") Application.SendKeys "{F2}", True Application.SendKeys "{tab}", True End If End Sub Böyle bir kodum var. Bu çalıştığında numlock kararsız bir şekilde aktif veya pasif oluyor. Application.SendKeys "{numlock}", True bunu eklediğim halde bile sonuç değişmiyor. F2 tuşu göndermemin...

...DoEvents SendKeys "^v", True End With S1.Visible = False With Application .EnableEvents = True .ScreenUpdating = True End With Set OutMail = Nothing Set OutApp = Nothing Application.SendKeys ("{NUMLOCK}") End Sub

Hayırlı geceler, Formda 3 adet textbox var ve bunların adları : adet - gün - indirim ve yine clasmodulle oluşturduğum sayısal numlock klavye mevcut. Numlock klavye ile bu textboxlara veri giriyorum. Fakat öyle birşey yapmalıyım ki; Ben hangi textboxı seçmişsem numlocka bastığımda o textboxa...

...için aşağıdaki kodları yazmaya çalıştım. Ancak şu sorunları çözemedim 1- 01/10/ burada Backspace ile geri gidemiyorum. 2-Tarih yazarken bazan NumLock kapanıyor, anlayamadım. Aslında bunların hepsinden ötesi takvim nesnesini (MS Excel 2013) bulamadım. MSCALC.ocx dosyası aradım ama...

...SendKeys "{ENTER}" Application.Wait (Now + TimeValue("0:00:04")) SendKeys Range("T2").Value SendKeys "{TAB}" SendKeys Range("T3").Value SendKeys "{TAB}" SendKeys "{ENTER}" SendKeys "{NUMLOCK}" End Sub

Merhaba değerli arkadaşlar, ben dizüstü bilgisayar kullanıyorum ve laptopda numlock ve altındaki sayılar yok. bunun için usb tuş takımı aldım. fakat programımda ondalık ayraçlarımı nokta (.) şeklinde yapmam gerekiyor ama bu tuş takımının altındaki del (.) tuşu ne yazık ki virgül basıyor. bunu...

...şöyle bir sayı formatı kullanıyorum : Private Sub TextBox4_AfterUpdate() TextBox4 = Format(TextBox4, "#,##0.00") Fakat klavyede ( numlock ) ki nokta işaretini (.) kullanırsam rakamı farklı yazıyor.Mesala 11,11 yazmak isterken 1111,00 oluyor...( kalvyedeki diğer shiftin yanındaki nokta...