Macro diğer sayfalarda çalışsın

[nadirornek]

Özür dilerim

 

[nadirornek]

17 Ara

 

[halit3]

size şunu söyleyim sizin kodlarınızdaki

aktar
Düs

makroları

Bu kodlar o sayfada tek olarak çalıştırın çalışıyormu

 

[nadirornek]

Evet tek tek çalışıyor

 

[halit3]

Tek tek çalışıyorsa yazdığımız kodda da çalışması lazım
çünkü yazdığımız kod dosyanın içindeki sayfaları tek tek geziyor.

17 Ara bu sayfanın adını şöyle değiştirin bakalım ne olacak 17_Ara

 

[nadirornek]

Değiştirdim aynı hatayı verdi

 

[nadirornek]

Excel ekranım kilitlendi çıkamıyorum bilgisayarımı kapatıp açacağım.

 

[halit3]

buraya eklediğiniz örnek dosyanızda 17 Ara bu sayfa yok
diğer taraftan kodu çalıştırdığınızda kod bölümüne açın ve sarı olan satırı buraya ekleyiniz veya kodların bulunduğu ekran görüntüsünü ekleyiniz.
benim eklediğim gibi

 

[nadirornek]

Makronun çalışmayacağı sayfaları sildim şimdide bu hatayı verdi.

 

[halit3]

çıkan ekrana tamamı tıklayınız ve kodlar bölümüne giderek sarı renkli olan bölümü bulun ekran görüntüsünü ekleyiniz.

 

[nadirornek]

Tamamı tıkladım hata ekranı çıkmadı kod sadece bulunduğum sayfada işlem yapmış diğer sayfalarda yapmamış.

 

[halit3]

hata ekranı mutlaka var siz hata ekranındaki kodlarla ilgili
aktar
Düs
bu makro kodlarına bakınız
bulunduğunuz sayfanın yanındaki sayfa adı ney

 

[nadirornek]

KW003

 

[halit3]

bu böyle olmayacak örnek dosyanızı bire bir aynı olmak kaydı ile hayali verilerle küçük bir örneğini ekleyiniz sizin ne yaptığınızı bilmiyorum.
Kendiniz üsdeki mesajlarda söylüyorsunuz benim kodlarım tek tek çalışıyor diyorsunuz ama sizin kodlarınızda farklı çalışma sayfalarında çalışmadığı gözüküyor.

Alıntı imzalı yazımda bunlar yazıyor.

 

[nadirornek]

Benim kodlarım aktif sayfada çalışıyor amacımız her hangi bir sayfada iken kodun tüm sayfaları çalıştırması sadece istemediğimiz sayfada kod çalışmayacak ilginiz için teşekkürler

 

[halit3]

Bu kod Sayfa1 ve veri sayfası haricindeki sayfaları sırası ile geziniyor
bu raya sadece sizin

aktar
Düs

Bu makroları ekledik aşağıdaki kodu çalıştırın sayfaları tek tek gezinecektir kod.

Sub deneme2()


For i = 1 To Sheets.Count

If Sheets(i).Name = "Sayfa1" Then GoTo atla
If Sheets(i).Name = "veri" Then GoTo atla

Sheets(Sheets(i).Name).Columns("M:M").ClearContents
Sheets(Sheets(i).Name).Columns("P:V").ClearContents

Sheets(Sheets(i).Name).Select

MsgBox Sheets(i).Name

atla:

Next i

MsgBox "veriler silindi"
End Sub

 

[halit3]

Bu kod sizin kodunuz ben kırmızı yerleri ekledim 1 nolu mesajdaki yazdığınızdan üç sayfada işlem yapmayak herhalde bu üç sayfa bunlar
Sayfa1 , veri, Çalışma

Sub za53()

Application.CursorMovement = False

For i = 1 To Sheets.Count

If Sheets(i).Name = "Sayfa1" Then GoTo atla
If Sheets(i).Name = "veri" Then GoTo atla
If Sheets(i).Name = "Çalışma" Then GoTo atla

Sheets(Sheets(i).Name).Select

Application.CursorMovement = False
Columns("M:M").Select
Selection.ClearContents
Columns("P:V").Select
Selection.ClearContents
Range("T1").Select
MsgBox "veriler silindi"
Düs
Yoksifirsil
aktar
reng
Application.CursorMovement = True

atla:
Next i

End Sub

 

[nadirornek]

Sayfa1 ve veri sayfası hariç sayfa ismi ile ekran çıkıyor sonunda hata ekranı çıkıyor tamana bastığımda bir şey olmuyor

 

[halit3]

Bu kodları kullandığınızda arka planda çalışan eklenti kodları mevcutmu
eğer mevcut ise aşağıdaki linki türkçeye çevirin ve irdeleyiniz.

https://www.add-ins.com/support/microsoft-visual-basis-error-400.htm

kod bölümünde kodları ilk başta mause imlecini getirerek F8 tuşuna birer birer basınız kodların çalışmasını göreceksiniz F8 her bastığınızda altdaki satır sarı renkli olacaktır kod bir yerde ya hatalı duracak yada işlemi tamamlıyacaktır.

 

[nadirornek]

Teşekkürler