Butonsuz sayfa değiştirmek

[argo619]

Ekli dosyamda da görüleceği gibi a1 hücresine tıklayınca sayfa2 ye nasıl geçebiliriz (Buton oluşturmadan)
saygılarımla

 

[leumruk]

Merhaba,
Sayfa1'in kod bölümüne kopyalayın:
Bu kodla hücreye çift tıklamalısınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell = [a1] Then
Sheets("Sayfa2").Select
End If
End Sub

Hücreyi seçtiğinizde geçiş yapması için ilk satırı aşağıdakiyle değiştirin:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

[argo619]

allah razı olsun çoooooooook tşk

 

[leumruk]

allah razı olsun çoooooooook tşk

Rica ederim. İyi çalışmalar...