Komut düğmesi olmadan, tuş grubuna bağlanmadan makro çalıştırma

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Komut düğmesi olmadan, tuş grubuna bağlanmadan makro çalıştırmak mümkün mü? (sadece fonksiyonlar yardımıyla, ya da değere bağlı olarak)
Saygılarımla

 

[Orion1]

Merhaba Arkadaşlar,
Komut düğmesi olmadan, tuş grubuna bağlanmadan makro çalıştırmak mümkün mü? (sadece fonksiyonlar yardımıyla, ya da değere bağlı olarak)
Saygılarımla

Makroya kısa yol tuşu atayabilirsiniz.

 

[Tevfik_Kursun]

Merhaba Sayın Orion1 Hocam,
Tuş grubuna bağlanmadan ibaresi var yukarıda, dikkatinizden kaçtı her halde.
Aslında şu aklıma geliyor. Diyelim belli bir hücre belli değeri alınca makro çalışabilir mi?
Saygılarımla

 

[Orion1]

Sanırım sizin işinizi paragmatik prosedür veya kullanıcı tanımlı fonksiyon görebilir.

 

[Tevfik_Kursun]

Aslında bütün derdim

Private Sub CommandButton1_Click()
    Sheets(Year(Date) & "_Kg").Activate
    Sheets(Year(Date) & "_Kg").Name = Year(Date) & "_Kg"
    Columns("F:F").Select
    Range("F4").Activate
    Selection.EntireColumn.Hidden = False
    Range("O5").Select
End Sub

örneği ekte olan adında tarih kodu olan bir sayfaya farklı sayfadan girip bir sütunun açılması. Bu sayfanın adı bir hücreden de aldırılabilir diye düşünüyorum.
İlgilenenlere şimdiden teşekkür ederim.
Saygılarımla

 

[Orion1]

İsterseniz bir hücredende sayfa ismini alabilirsiniz.
Dosyanız ektedir.

 

[Tevfik_Kursun]

Sayın Orion1 Hocam,
Ekli dosyaya uygular mısınız, lütfen?
Saygılarımla

 

[Orion1]

Dosyanız ektedir.

Sub sayfasecsutungizle59()
Sheets(Range("K1").Value).Select
Range("F1").EntireColumn.Hidden = True
End Sub

Sub sayfasecsutungoster59()
Sheets(Range("K1").Value).Select
Range("F1").EntireColumn.Hidden = False
End Sub

 

[Tevfik_Kursun]

Sayın Orion1 Hocam,
İlginize çok teşekkür ediyorum. Zahmet verdim size.
Sadece merak ettiğim için soruyorum, sayfasecsutungoster59 makrosu, örneğin Bilgi sayfasında C1 hücresinin değeri 1 olduğunda otomatik çalışır mı?
Tekrar teşekkür ederim.
Saygılarımla

 

[Orion1]

Sayın Orion1 Hocam,
İlginize çok teşekkür ediyorum. Zahmet verdim size.
Sadece merak ettiğim için soruyorum, sayfasecsutungoster59 makrosu, örneğin Bilgi sayfasında C1 hücresinin değeri 1 olduğunda otomatik çalışır mı?
Tekrar teşekkür ederim.
Saygılarımla

onlara ilaveten aşağıdaki kodları çalışma sayfasının kod bölümüne yazdım.
dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C1]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = 1 Then Call sayfasecsutungoster59
If Target.Value = 0 Then Call sayfasecsutungizle59
End Sub

 

[Tevfik_Kursun]

Muhteşemsiniz Hocam,
Çok teşekkür ederim.
Saygılarımla

 

[Orion1]

Muhteşemsiniz Hocam,
Çok teşekkür ederim.
Saygılarımla

Rica ederim.
iyi çalışmalar.

 

[Tevfik_Kursun]

Hepimize iyi çalışmalar

 

[ersin tunca]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [X:X]) Is Nothing Then Exit Sub
Cells(Target.Row, 25) = Now
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [l1]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = araç_kayıt Then Call araç_kayıt

End Sub

 

[ersin tunca]

bende hata veriyor acaba nerede hata yapıyorum