Sorgu için arama sonuçları: Onkey+enter

Korhan Bey ilginize çok teşekkür ederim. Kod çalışıyor. Bu koda bir ekleme ile yapıştırma işleminden sonra imleç bir alttaki hücreye gidebilir mi? Yani kod'a "Enter" komutu eklenecek. Selamlar...

Aşağıdaki kodları bu işlemi yapmak istediğiniz dosyanıza uygulayınız. ThisWorkbook (BuÇalışmaKitabı); Option Explicit Private Sub Workbook_Activate() Application.OnKey "~", "Paste_Value" Application.OnKey "{ENTER}", "Paste_Value" End Sub Private Sub Workbook_BeforeClose(Cancel As...

halit3 üstadım kod için çok teşekkürler. Dosyanın içindeyken, parolasını bildiğimiz ve protect durumunda olan VBA korumasını bu kod ile açmak mümkün mü. Ben denedim ama olmadı. Referances durumundan olabilir mi ?

Hocam, olur da... Bu kadar mı mükemmel olur. 😃 Eğer o attığım tarihler, yarın 30 olmazsa. Muhteşem ötesi. İyi ki varsınız hocam. Çok teşekkür ederim. Elinize emeğinize sağlık. Saygılarımla.

Deneyiniz. Boş bir modüle; Option Explicit Sub Tarih_Yaz() With Selection .Value = Date .EntireColumn.AutoFit End With End Sub ThisWorkbook bölümüne; Option Explicit Private Sub Workbook_Activate() Application.OnKey "~", "Tarih_Yaz" Application.OnKey...

Merhabalar, Sayfanın kod bölümüne alttaki kodu yazın, Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.OnKey "{ENTER}", "byfika" End Sub Moddül içerisine de: Sub byfika() On Error Resume Next If Not Intersect(Target, Range("A1")) Is Nothing Then...

Application.OnKey "{ENTER}" Satırını silin. onun yerine aşağıdaki kodları yazıp deneyin Application.Wait (Now() + TimeValue("00:00:01")) SendKeys "{TAB}" Application.Wait (Now() + TimeValue("00:00:01")) SendKeys "{ENTER}"

Merhaba arkadaşlar posta meb.k12.tr sitesine kullanıcı adı ve şifre yazıyorum fakat giriş işlemini yapamadım. Kullandığım kodlar Set evn = CreateObject("internetexplorer.application") With evn evn.Visible = True .navigate "posta.meb.k12.tr/webmail/index2.php" Do While .busy: DoEvents...

bu kodu bir dene Sub deneme() UnprotectVBProject Workbooks(ActiveWorkbook.Name), "10" 'vb project şifresi ThisWorkbook.VBProject.VBE.MainWindow.Visible = False ThisWorkbook.Activate End Sub Sub UnprotectVBProject(wb As Workbook, ByVal Password As String) Dim VBP As VBProject, oWin As...

Merhaba. Aşağıdaki kodları kullanıyorum ancak tam istediğim bu değil. Yapmak istediğim aktif hücre değişince Sayfadaki ListBox1 in görünmesi yada gizlenmesi. Hücre değeri değişmeden sadece aktif hücre değişince ListBox ın görünmesi. ListBox da Enter e basınca veriyi yazacak. aktif hücre...

Ekli dosyada bulunan kodlarla dosya içersindeki bilgileri internette yayınlanan foruma(programa) girerek oradan pdf formatında bilgi almaktayım (kaydetmekteyim). Lakin bilgileri girdikten sonra listele dediğimde kaydet'e tıklatıyorum ve ekteki "Farklı Kaydet Ekranı.bmp" dosyasında olduğu gibi...

Merhaba arkadaslar, Exceldeki ,grafiği kopyalıyorum ,C:\ dizinin altındaki DENEME.ppt dosyamı açtırıyorum. Application.SendKeys ("%ep") Yukarıdaki kod ile veriyi yapıstırıyorum, sorun'un başladıgı yer ise dosya yasıtırıldıgında excel'in makro etkinleştirme sayfası cıkmakta. envai çeşit...

Private Sub yılmaz() Selection.AutoFilter Field:=2 Selection.AutoFilter Field:=4 Set s1 = Sheets("1") sat = Selection.Cells.Row - 1 say = WorksheetFunction.CountA(s1.[C1:C65536]) - 1 For A = 1 To 25 s1.Cells(say, A) = Cells(sat, A).Value Sheets("1").Activate Next...

Sub GÖRECELİ() ' ' GÖRECELİ Makro ' Makro mustafa tarafından 05.01.2007 tarihinde kaydedildi. ' For r = 3 To 65536 If Cells(r, 9).Value = "" Then End Range("I" & r + 1).Select a = Cells(r, 10) - Cells(r, 10) * Cells(r, 11) / 100 b = a - a * Cells(r, 12) / 100 c = b - b * Cells(r, 13) / 100 d =...

aşağıdaki formülü 9.sütunun 1.satırında olduğu gibi 100000.satırdada çalıştırmak için bana yardımcı olurmusunuz. çok teşekkürler. Sub GÖRECELİ() ' ' GÖRECELİ Makro ' Makro mustafa tarafından 05.01.2007 tarihinde kaydedildi. ' For r = 3 To 65536 If Cells(r, 9).Value = "" Then End Range("I" & r +...

Merhaba arkadaşlar, aşagıdaki kodları denerken enter tuşu devre dışı oldu enter tuşlarrrını kullanamıyorum, enter tuşlarını nasıl çalışır hale getirebilirim. Selamlar... Private Sub Worksheet_Activate() Application.OnKey "{ENTER}", "Macro1" Application.OnKey "~", "Macro1" End Sub