Kayan Buton

[mesutaygun70]

Sayfa2 de buton koydum (CommandButton). Tıklayınca UserForm açılıyor. Ama 200 satırım var her seferinde sayfa başındaki butona çıkıp tıklamam gerek. Bu butonun sayfayla beraber kaymasını nasıl sağlayabilirim.

 

[halit3]

Ekli dosyada iki sayfada örnek mevcut kendinize göre düzenleyiniz.

 

[halit3]

Bu kodda komut düğmesini excell sayfasının sol en üst köşesine getirir

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Sh = Sheets(ActiveSheet.Name)
Button = "CommandButton1"
Sh.Shapes(Button).OLEFormat.Object.Top = ActiveWindow.VisibleRange.Top
Sh.Shapes(Button).OLEFormat.Object.Left = ActiveWindow.VisibleRange.Left
End Sub

farklı kod

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Sh = Sheets(ActiveSheet.Name)
Button = "1" ' sıra numarası yazılacak
Sh.Shapes(Button).OLEFormat.Object.Top = ActiveWindow.VisibleRange.Top
Sh.Shapes(Button).OLEFormat.Object.Left = ActiveWindow.VisibleRange.Left
End Sub

 

[gicimi]

@halit3 vermiş olduğunuz örneğin Sayfa2 şu şekilde bir hata veriyor. Kontrol edebilir misiniz.

 

[halit3]

Kırmızı alana sayfadaki komut düğmesinin adı yazılacak veya komut dümesinin indis değeri yazılacak yani 1,2,3 gibi

Button = "Düğme 1" ' komut dğmesinin adı yazılacak

Button = "1" ' sıra numarası yazılacak

 

[Haluk]

@halit3 vermiş olduğunuz örneğin Sayfa2 şu şekilde bir hata veriyor. Kontrol edebilir misiniz.
Ekli dosyayı görüntüle 207720

Kullandığınız Excel versiyonu Türkçe değil.

Siz, aşağıdaki düzeltmeyi yapın ....

Button = 1

.

 

[Seyit Tiken]

Kısa Yol : Hangi hücredeyseniz imleç neredeyse ÇİFT TIKLAYARAK formunuzu açabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
UserForm1.Show 0
End Sub