• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

NADİR YILDIZ

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,417
Excel Vers. ve Dili
2016 Türkçe
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
 
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....
 
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
Genişletmek için tıkla ...
 
NADİR YILDIZ' Alıntı:
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
Genişletmek için tıkla ...
şö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 ..........
 
merhaba çok deneme yaptım olmadı


tekrar deneyeceğim
 
necdet bey hepiniz için ben yapamadım sanırım ondan kaynaklı tekrar deneyeceğim
 
2-3 sayfa içeren örnek dosyanızı paylaşın. Neyi nasıl yaptığınızı görmek açısından yararlı olur. Sonuçta tahmin ederek kod yazıyoruz.
 
Dosya bu necdet bey her sayfada 1 tane bazılarında birden çok temizleme butonu var kontrol sayfasındaki temizle butonu ile bütün sayfalardaki temizle butonlarını çalıştırmak istiyorum
 

Ekli dosyalar

Necdet bey chatgpt de çözümü buldum size ve diğer arkadaşlara ayrı ayrı teşekkür ediyorum

iyi çalışmalar


Private Sub CommandButton1_Click()
' Sayfalar için temizleme fonksiyonlarını çağır
Call KDV_FARK_191_Temizle
Call KDV_FARK_391_Temizle
Call KDV_ÖZET_Temizle
Call KUMULATIF_Temizle
Call ALIS_FT_Temizle
Call MUAVIN_191_Temizle
Call MUAVIN_391_Temizle
Call EKSIK_BUL_FT_Temizle
Call FT_LISTESI_Temizle
Call ISLENMEYEN_Temizle
Call ZIRVE_FT_Temizle
Call ALIS_PORTAL_Temizle
Call SATIS_PORTAL_Temizle
Call GIB_ARSIV_Temizle
Call KART108_Temizle
Call Y_KASA_Temizle

End Sub

' Sayfa: 191 KDV FARK
Sub KDV_FARK_191_Temizle()
With ThisWorkbook.Sheets("191 KDV FARK")
.Range("E6:M38500").ClearContents ' Örnek: A1:A10 hücrelerini temizle
.Range("A1:B2").ClearContents ' Örnek: B1:B10 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub

' Sayfa: 391 KDV FARK
Sub KDV_FARK_391_Temizle()
With ThisWorkbook.Sheets("391 KDV FARK")
.Range("E6:L18720").ClearContents ' Örnek: C1:C20 hücrelerini temizle
'.Range("D1:D20").ClearContents ' Örnek: D1:D20 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub

' Sayfa: KDV ÖZET
Sub KDV_ÖZET_Temizle()
With ThisWorkbook.Sheets("KDV ÖZET")
.Range("M2:S800").ClearContents ' Örnek: E1:E30 hücrelerini temizle
'.Range("F1:F30").ClearContents ' Örnek: F1:F30 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub

' Sayfa: KÜMÜLATİF ALIŞ FT
Sub KUMULATIF_Temizle()
With ThisWorkbook.Sheets("KÜMÜLATİF")
.Range("B5:H140").ClearContents ' Örnek: G1:G40 hücrelerini temizle
'.Range("H1:H40").ClearContents ' Örnek: H1:H40 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub

Sub ALIS_FT_Temizle()
With ThisWorkbook.Sheets("ALIŞ FT")
.Range("C5:M15540").ClearContents ' Örnek: G1:G40 hücrelerini temizle
'.Range("H1:H40").ClearContents ' Örnek: H1:H40 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub
' Sayfa: 191 MUAVİN
Sub MUAVIN_191_Temizle()
With ThisWorkbook.Sheets("191 MUAVİN")
.Range("C12:P16650").ClearContents ' Örnek: I1:I50 hücrelerini temizle
'.Range("J1:J50").ClearContents ' Örnek: J1:J50 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub

' Sayfa: 391 MUAVİN
Sub MUAVIN_391_Temizle()
With ThisWorkbook.Sheets("391 MUAVİN")
.Range("E6:L16660").ClearContents ' Örnek: K1:K60 hücrelerini temizle
'.Range("L1:L60").ClearContents ' Örnek: L1:L60 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub

' Sayfa: EKSİK BUL FT
Sub EKSIK_BUL_FT_Temizle()
With ThisWorkbook.Sheets("EKSİK BUL")
.Range("A2:M18770").ClearContents ' Örnek: M1:M70 hücrelerini temizle
'.Range("N1:N70").ClearContents ' Örnek: N1:N70 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub

' Sayfa: LİSTESİ
Sub FT_LISTESI_Temizle()
With ThisWorkbook.Sheets("FT LİSTESİ")
.Range("M2:Y18880").ClearContents ' Örnek: O1:O80 hücrelerini temizle
'.Range("P1:P80").ClearContents ' Örnek: P1:P80 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub

' Sayfa: İŞLENMEYEN
Sub ISLENMEYEN_Temizle()
With ThisWorkbook.Sheets("İŞLENMEYEN")
.Range("U9:AK18790").ClearContents ' Örnek: Q1:Q90 hücrelerini temizle
'.Range("R1:R90").ClearContents ' Örnek: R1:R90 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub

' Sayfa: ZİRVE FT
Sub ZIRVE_FT_Temizle()
With ThisWorkbook.Sheets("ZİRVE FT")
.Range("B2:P17100").ClearContents ' Örnek: S1:S100 hücrelerini temizle
'.Range("T1:T100").ClearContents ' Örnek: T1:T100 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub

' Sayfa: ALIŞ-PORTAL
Sub ALIS_PORTAL_Temizle()
With ThisWorkbook.Sheets("ALIŞ-PORTAL")
.Range("S7:BZ25110").ClearContents ' Örnek: U1:U110 hücrelerini temizle
'.Range("V1:V110").ClearContents ' Örnek: V1:V110 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub

' Sayfa: SATIŞ-PORTAL
Sub SATIS_PORTAL_Temizle()
With ThisWorkbook.Sheets("SATIŞ-PORTAL")
.Range("S7:BZ28120").ClearContents ' Örnek: W1:W120 hücrelerini temizle
'.Range("X1:X120").ClearContents ' Örnek: X1:X120 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub

' Sayfa: GİB ARŞİV
Sub GIB_ARSIV_Temizle()
With ThisWorkbook.Sheets("GİB ARŞİV")
.Range("T7:AZ730").ClearContents ' Örnek: Y1:Y130 hücrelerini temizle
'.Range("Z1:Z130").ClearContents ' Örnek: Z1:Z130 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub

' Sayfa: Y.KASA
Sub Y_KASA_Temizle()
With ThisWorkbook.Sheets("Y.KASA")
.Range("E13:r7140").ClearContents ' Örnek: AA1:AA140 hücrelerini temizle
'.Range("AB1:AB140").ClearContents ' Örnek: AB1:AB140 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub

' Sayfa: Y.KASA
Sub KART108_Temizle()
With ThisWorkbook.Sheets("KART108")
.Range("A1:r7140").ClearContents ' Örnek: AA1:AA140 hücrelerini temizle
'.Range("AB1:AB140").ClearContents ' Örnek: AB1:AB140 hücrelerini temizle
' Diğer temizleme işlemleri
End With
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst