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...
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...
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.