tek butonla diğer sayfalardaki butonları çalıştırma

[NADİR YILDIZ]

191 KDV FARK - 391 KDV FARK - KDV ÖZET - KÜMÜLATİF - ALIŞ FT - Y.KASA - EKSİK BUL - 391 MUAVİN - FT LİSTESİ - 191 MUAVİN - 108 -
İŞLENMEYEN - ZİRVE FT - ALIŞ-PORTAL - SATIŞ-PORTAL - GİB ARŞİV

çalışma kitabında yukardaki isimleri olan çalışma sayfaları var hepsinde temizle butonu var ve farklı alanları temizliyor

bunları 191 KDV FARK sayfasında tek bir butonla hepsini temizletebilirim

 

[mustafa1205]

Sub TumSayfalarıTemizle()
Dim onay As Integer
onay = MsgBox("Tüm çalışma sayfalarındaki (A1:Z1000) veriler silinecek. Emin misiniz?", vbYesNo + vbQuestion, "Onay")

If onay = vbNo Then Exit Sub

Application.ScreenUpdating = False ' Ekran titremesini önler

' Hata kontrolü: Eğer sayfa ismi değişmişse kodun durmaması için
On Error Resume Next

' Tüm sayfalar için belirlenen A1:Z1000 aralığını temizler
Sheets("191 KDV FARK").Range("A1:Z1000").ClearContents
Sheets("391 KDV FARK").Range("A1:Z1000").ClearContents
Sheets("KDV ÖZET").Range("A1:Z1000").ClearContents
Sheets("KÜMÜLATİF").Range("A1:Z1000").ClearContents
Sheets("ALIŞ FT").Range("A1:Z1000").ClearContents
Sheets("Y.KASA").Range("A1:Z1000").ClearContents
Sheets("EKSİK BUL").Range("A1:Z1000").ClearContents
Sheets("391 MUAVİN").Range("A1:Z1000").ClearContents
Sheets("FT LİSTESİ").Range("A1:Z1000").ClearContents
Sheets("191 MUAVİN").Range("A1:Z1000").ClearContents
Sheets("108").Range("A1:Z1000").ClearContents
Sheets("İŞLENMEYEN").Range("A1:Z1000").ClearContents
Sheets("ZİRVE FT").Range("A1:Z1000").ClearContents
Sheets("ALIŞ-PORTAL").Range("A1:Z1000").ClearContents
Sheets("SATIŞ-PORTAL").Range("A1:Z1000").ClearContents
Sheets("GİB ARŞİV").Range("A1:Z1000").ClearContents

On Error GoTo 0 ' Hata kontrolünü normale döndür

Application.ScreenUpdating = True
MsgBox "Tüm listeler (A1:Z1000 aralığı) temizlendi.", vbInformation, "İşlem Tamam"
End Sub


Sayfa İsimlerini ve Silme aralığını kendinize göre ayarlarsınız....

 

[Necdet]

Merhaba,
Alternatif Olsun : Aşağıdaki kodu ChatCPT den rica ettim Sayfa1'deki Sheetten başka diğer tüm sayfalarda, makro atanan nesneleri çalıştırır. Kodu kendinize uyarlayınız.

Sub TumButonlariCalistir()

Dim sh As Worksheet
Dim shp As Shape
Dim MakroAdi As String

Application.ScreenUpdating = False

For Each sh In ThisWorkbook.Worksheets

For Each shp In sh.Shapes
If sh.Name <> "Sayfa1" Then
MakroAdi = shp.OnAction
If MakroAdi <> "" Then
Application.Run MakroAdi
End If
End If
Next shp

Next sh

Application.ScreenUpdating = True

MsgBox "Tüm butonlar çalıştırıldı"

End Sub

 

[volki_112]

191 KDV FARK - 391 KDV FARK - KDV ÖZET - KÜMÜLATİF - ALIŞ FT - Y.KASA - EKSİK BUL - 391 MUAVİN - FT LİSTESİ - 191 MUAVİN - 108 -
İŞLENMEYEN - ZİRVE FT - ALIŞ-PORTAL - SATIŞ-PORTAL - GİB ARŞİV

çalışma kitabında yukardaki isimleri olan çalışma sayfaları var hepsinde temizle butonu var ve farklı alanları temizliyor

bunları 191 KDV FARK sayfasında tek bir butonla hepsini temizletebilirim

şöyle yapabilirsin. 191 kdv sayfasındaki hepsini temizleyecek makroya şunu yaz.

Call 391 fark temizle

bu şekilde başına call yazıp 391 fark sayfasında temizle işini yapan makronun adını yazarsan o makroyu çalıştırır. alttaki gibi her sayfadaki makro yu call ile çağır

call 391 fark
call kümülatif
call kdv özet gibi ..........