CommandButton işlevi

[Stacker]

Herkeze selam;
Arkadaşlar aşağıda verdiğim kod sorunsuz çalışıyor
Fakat bu kodlar sadece bir satır için

Benim çalışma sayfamda 250 tane satır var benim bu durumda 500 tane button eklemem gerekiyor. Ayrıca 500 tane kod içeren bir belge ağır çalışır diye düşünüyorum

Şöyle birşey mümkünmü

sayfada aşağıdaki gibi iki buton olsa ve visible değerleri false olsa

B Sütununda herhangi bir hücre tıklandığında buton 1 o hücrede True olsa

C Sütununda herhangi bir hücre tıklandığında buton 2 o hücrede True olsa




Private Sub CommandButton1_Click()
Range("B5").Select
activecell = Now
End Sub

Private Sub CommandButton2_Click()
Range("C5").Select
activecell = Now
activecell.Offset(0, 1).Select
Selection.NumberFormat = "hh:mm;@"
activecell.FormulaR1C1 = "=RC[-1]-RC[-2]"
End Sub

 

[Levent Menteşoğlu]

Buton yerine B ve C sütunundaki hücrelere çift tıkladığınızda çalışacak aşağıdaki kodları kullanın.

Not: Sayfa1'in kod sayfasına kopyalayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [b3:b65536]) Is Nothing Then
Cancel = True
Target = Now
End If
If Not Intersect(Target, [c3:c65536]) Is Nothing Then
Cancel = True
Target = Now
Target.Next = Target - Target.Previous
End If
End Sub

 

[Stacker]

Buton yerine B ve C sütunundaki hücrelere çift tıkladığınızda çalışacak aşağıdaki kodları kullanın.

Not: Sayfa1'in kod sayfasına kopyalayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [b3:b65536]) Is Nothing Then
Cancel = True
Target = Now
End If
If Not Intersect(Target, [c3:c65536]) Is Nothing Then
Cancel = True
Target = Now
Target.Next = Target - Target.Previous
End If
End Sub

Levent bey Çok teşekkür ederim

Ben değerleri bazen manuel olarak düzeltme gereği duyduğum için mause özelliğini

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

olarak değiştirdim

Ama tam istediğimgibi
Tekrar teşekkür ederim
Konu çözülmüştür