Sayfa kodunu butona atamak

[EKREM1661]

Değerli Arkadaşlar..!
Aşağıdaki kod'da: Yön tuşu ile sağa doğru takip ederek,
İki şart gerçekleşmesi halinde(ilgili sütundaki A ve T hücreleri dolu ise)
"X" sütununa gelince bu sütundaki hücreye (nokta) atıyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Column = 24 Or .Column = 1 Then
If Len(Cells(.Row, "A")) > 0 And _
Len(Cells(.Row, "T")) > 0 And _
Len(Cells(.Row, "X")) = 0 Then
Application.EnableEvents = False
Cells(.Row, "X") = "."
Application.EnableEvents = True
End If
End If
End With
End Sub

Bu kodu; koddaki şartların gerçekleşmesi halinde çalışmak üzere,
bir butona atayabilirmiyiz.. (kendi denemelerimde hata verdi)

 

[NBATMAN]

Bunu butona atayabiliriz fakat siz yön tuşlarını kullanmayacakmısnız bu durumda?

 

[EKREM1661]

hayır farklı bir durum için kullanmayacağım.. sadece (şartların oluşması halinde) noktayı atsın..

 

[janveljan]

Bir butona atıyacaksanız sayfa kodlarına neden yazıyorsunuz anlamadım. Kodun nereye yazıldığı ne zaman çalıştırlmasını istediğiniz ile alakalı. Eğer siz butona basınca çalışsın istiyorsanız kodlarda biraz değişiklik yaparak bir module yazıp bunuda butona atayarak yapsanız olmaz mı?

 

[janveljan]

Bu kodları bir modüle yazıp makroyuda bir butona atayarak kullanabilirsiniz.

Sub noktalama()
sat = ActiveCell.Row
'sut = ActiveCell.Column
 If Len(Cells(sat, "A")) > 0 And _
    Len(Cells(sat, "T")) > 0 And _
    Len(Cells(sat, "X")) = 0 Then
    Cells(sat, "X") = "."
 End If
End Sub

 

[EKREM1661]

Sayın janveljan istediğim buydu..teşekkürler ve iyi akşamlar..

 

[seyfi38]

Bu kodları bir modüle yazıp makroyuda bir butona atayarak kullanabilirsiniz.

Sub noktalama()
sat = ActiveCell.Row
'sut = ActiveCell.Column
 If Len(Cells(sat, "A")) > 0 And _
    Len(Cells(sat, "T")) > 0 And _
    Len(Cells(sat, "X")) = 0 Then
    Cells(sat, "X") = "."
 End If
End Sub

Güzel olmuş Emeğine sağlık