Buton Ekleme - Diğer Sayfadaki Makroyu Çalıştırma

[Merturk]

Merhaba,

Öncelikle buton ekleme ile ilgili bütün başlıkları kurcaladım fakat istediğim sonucu elde edemedim.

Ben sayfa2'de makrolar yazdım. Ve sayfa2'ye buton koyduğumda çalışıyor.

Fakat ben butonu özet sayfasına yani sayfa1'e koymak istiyorum.
sayfa2'deki çalıştırmak istediğim makronun adı "genelmakro". Aşağıdaki gibi denedim ama bir sonuç alamadım.

Sub deneme()

sayfa2.genelmakro

End sub

Burada nasıl bir kod eklemem gerekir?

İlginiz için teşekkür ederim.

İyi Çalışmalar.

 

[hamitcan]

Dosyanızı ekleyin, daha çabuk cevap bulabilirsiniz.

 

[Merturk]

Örnek dosya ektedir.

Asıl olan çalışma değildir. SAdece anlayabileceğim şekilde önek oluşturdum.

Sayfa2'deki tablonun için "EXCEL.WEB.TR" yazan "deneme" isimli makro yazdım. fakat bu makro Sayfa1'deki buton ile çalışsın istiyorum. Onun için de "buton" isimli makro ile çalıştırmak istedim. Fakat muvaffak olamadım.

 

[Mahir64]

Örnek dosya ektedir.

Asıl olan çalışma değildir. SAdece anlayabileceğim şekilde önek oluşturdum.

Sayfa2'deki tablonun için "EXCEL.WEB.TR" yazan "deneme" isimli makro yazdım. fakat bu makro Sayfa1'deki buton ile çalışsın istiyorum. Onun için de "buton" isimli makro ile çalıştırmak istedim. Fakat muvaffak olamadım.

Merhaba
Dosyanızı makro içeren olarak kaydedip tekrar yükleyiniz.
Bahsettiğiniz makrolar görünmüyor.

 

[hamitcan]

Dosyanızı yada makrolu çalışma kitabı olarak yada 2003 versiyonuyla kaydedin.

 

[Merturk]

Örnek dosya ektedir.

sayfa2'deki makroda "o" sütunundaki 0'lar siliniyor.

Bu makroyu sayfa1'deki butonla sağlamak istiyorum.

Teşekkürler.

 

[Mahir64]

Merhaba
Sonuçta işlem Sayfa2'de yapılacak ise;
Boş bir modüle bu şeekilde ekleyerek deneyin

Sub deneme()
Sheets("Sayfa2").Select
'Aktif sayfada B sütununda sıfır olan satır komple siliniyor
Dim i As Long, sat As Long
sat = Cells(20000, "O").End(xlUp).Row
Application.ScreenUpdating = False
For i = sat To 1 Step -1
    If Cells(i, "O").Value <> "" And Cells(i, "O").Value _
    = 0 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
Range("R2").Select
Sheets("Sayfa1").Select
End Sub

 

[Merturk]

Merhaba
Sonuçta işlem Sayfa2'de yapılacak ise;
Boş bir modüle bu şeekilde ekleyerek deneyin

Sub deneme()
Sheets("Sayfa2").Select
'Aktif sayfada B sütununda sıfır olan satır komple siliniyor
Dim i As Long, sat As Long
sat = Cells(20000, "O").End(xlUp).Row
Application.ScreenUpdating = False
For i = sat To 1 Step -1
    If Cells(i, "O").Value <> "" And Cells(i, "O").Value _
    = 0 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
Range("R2").Select
Sheets("Sayfa1").Select
End Sub

Hocam,

Mesela Sayfa1 de

sub buton()

sayfa2.deneme

end sub gibi bir makro yazsak olur mu? Öyle bir yolu var mıdır?