Butona kod eklemek

[solidworks]

bir buton oluşturup butona kod ekleyip çalıştırmak istiyorum

kısaca nasıl yapabilirim açıklayabilirmisiniz.

KISACA BUTONA BU KODU NASIL EKLEYEBİLİRİM

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Set Rng = Range("A1:A500")
For Each c In Rng
If c.Value = 0 Then
c.EntireRow.Hidden = 1
End If
Next c
Application.ScreenUpdating = False
End Sub

 

[muygun]

Merhaba;
makro başlığını;
Private Sub Workbook_Open()
olan kısmı
sub makro1()
olarak değiştirin.
Sonra butona bağlayın.
İyi çalışmalar.

 

[uzmanamele]

bir buton oluşturup butona kod ekleyip çalıştırmak istiyorum

kısaca nasıl yapabilirim açıklayabilirmisiniz.

KISACA BUTONA BU KODU NASIL EKLEYEBİLİRİM

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Set Rng = Range("A1:A500")
For Each c In Rng
If c.Value = 0 Then
c.EntireRow.Hidden = 1
End If
Next c
Application.ScreenUpdating = False
End Sub

Dosyanın açılışında kodun tetiklenmesini istiyorsanız kodu bu çalışma kitabı bölümüne yazmalısınız.
Bu durumda makro etkinleştirilerek dosya açıldığında otomatik tetiklenecektir.


Geliştirici şeridinde ekle menüsünden buton ekleyin.
Butonu sağ tıkla, makro ata, çıkan ekrandan makroyu seç

 

[solidworks]

makro eklemek değil amacım

sadece bir buton ekleyip üstteki kodları butona eklemek ve butona basınca sıfır sayı olan satırları silmek istiyorum.bir örnek yapabilirmisiniz.

 

[solidworks]

butona makro eklemek değil

activex denetimlerindeki butona bu kodları eklesem olur mu
BİR ÖRNEK YAPIP EKLERMİSİNİZ BURAYA

 

[muygun]

Merhaba;

Sub sill()
Dim sil As Integer
For sil = 500 To 1 Step -1
If Cells(sil, 1) <> "" And Cells(sil, 1) = 0 Then
Rows(sil).Delete shift:=xlUp
End If
Next sil
End Sub

Deneyin.

Link:
http://s3.dosya.tc/server30/gNGmNF/solidworks-s_f_rde_erlisat_rlar_sil.zip.html

İyi çalışmalar.

 

[solidworks]

Teşekkürler