Hücre yazdırma

[Mehmet Sait]

Merhaba,

Bir dosya içerisinde 300 sayfa bulunmakta. Tüm bu sayfaların C15 hücresinde ki değeri makro ile tek seferde değiştirmek mümkün mü ?

Teşekkürler.

 

[Ömer BARAN]

Merhaba.

İstediğiniz işlemi aşağıdaki kod ile yaptırabilirsiniz (yeni değerin 123456 olduğunu varsaydım) .

Değerin değiştirilmeyeceği (istisna) sayfa/sayfalar yoksa kırmızı renklendirdiğim satırları silin.

(ben ANA SAYFA ve GİRİŞ adını taşıyan sayfaların hariç tutulacağını düşündüm)
.

[FONT="Arial Narrow"][B]Sub C15_DEĞİŞTİR()[/B]
For sh = 1 To Sheets.Count
[COLOR="Red"]    If Sheets(sh).Name <> "ANA SAYFA" And Sheets(sh).Name <> "GİRİŞ" Then[/COLOR]
        Sheets(sh).[C15] = [B][COLOR="Blue"]123456[/COLOR][/B]
[COLOR="red"]    End If[/COLOR]
Next
[B]End Sub[/B][/FONT]

 

[Mehmet Sait]

Merhaba.

İstediğiniz işlemi aşağıdaki kod ile yaptırabilirsiniz (yeni değerin 123456 olduğunu varsaydım) .

Değerin değiştirilmeyeceği (istisna) sayfa/sayfalar yoksa kırmızı renklendirdiğim satırları silin.

(ben ANA SAYFA ve GİRİŞ adını taşıyan sayfaların hariç tutulacağını düşündüm)
.

[FONT="Arial Narrow"][B]Sub C15_DEĞİŞTİR()[/B]
For sh = 1 To Sheets.Count
[COLOR="Red"]    If Sheets(sh).Name <> "ANA SAYFA" And Sheets(sh).Name <> "GİRİŞ" Then[/COLOR]
        Sheets(sh).[C15] = [B][COLOR="Blue"]123456[/COLOR][/B]
[COLOR="red"]    End If[/COLOR]
Next
[B]End Sub[/B][/FONT]

Vergiğiniz kodu uygladım ancak,

ANA SAYFA ve GİRİŞ isimli sayfalarım yok bu iki sayfayı oluşturdum kodu uygularken " 400 " diye hata veriyor. Sayfalarım 01.01.2017 den 31.12.2017 e kadar isimlendirilmiş şekildedir.

Teşekkür ederim.

 

[Ömer BARAN]

Yeni sayfa oluşturmaya gerek yoktu ve önceki cevabımda ifade etmiştim ama sanırım anlaşılmamış, C15 hücresinde işlem yapılmayacak sayfa yoksa, yani tüm sayfalardaki C15 hücrelerine aynı değer yazılacaksa; verdiğim kod'daki kırmızı satırları silip kod'u çalıştırın.

 

[Mehmet Sait]

Yeni sayfa oluşturmaya gerek yoktu ve önceki cevabımda ifade etmiştim ama sanırım anlaşılmamış, C15 hücresinde işlem yapılmayacak sayfa yoksa, yani tüm sayfalardaki C15 hücrelerine aynı değer yazılacaksa; verdiğim kod'daki kırmızı satırları silip kod'u çalıştırın.

Teşekkür ederim hocam

Dediğiniz gibi uyguladım. Kırmızı yazılan kodları sildim ancak sadece

Sub C15_DEĞİŞTİR()
For sh = 1 To Sheets.Count
    
        Sheets(sh).[C15] = 123456
   
Next
End Sub

tek sayfada değişiklik yapıyor.

 

[Ömer BARAN]

Örnek dosya ekte.
.

 

[Mehmet Sait]

Örnek dosya ekte.
.

İstediğim gibi oldu.Yardımlarınız için teşekkür ederim.

 

[Ömer BARAN]

İstediğim gibi oldu.Yardımlarınız için teşekkür ederim.

Kolay gelsin.

 

[Mehmet Sait]

Teşekkür ederim hocam,

Hariç bırakılması gereken sayfalar şu şekilde yapılırsa işlem yapar mı ?

   If Sheets(sh).Name <> "01.01.2017" And Sheets(sh).Name <> "02.01.2017" And Sheets(sh).Name <> "03.01.2017" And Sheets(sh).Name <> "04.01.2017" And Sheets(sh).Name <> "04.01.2017" Then

gibi. Sayfalar tarih ile isimlendirildiğinden hariç bırakılması gereken tarih aralığı başka şekilde verilebilir mi ?

 

[Ömer BARAN]

Tekrar merhaba.

Bu şekilde başı sonu belli olmayan konulara cevap yazıldığında, ya şöyle olursa...., bir de ...... , şunu da eklesek..... gibi ilave sorular sıkıntılı oluyor açıkçası.

Sorunuzu gerçek belgenizle aynı yapıda örnek belge ile destekleyiniz.

Mutlaka konuyla ilgilenen bir üye cevap yazacaktır.
.

 

[Mehmet Sait]

Tekrar merhaba.

Bu şekilde başı sonu belli olmayan konulara cevap yazıldığında, ya şöyle olursa...., bir de ...... , şunu da eklesek..... gibi ilave sorular sıkıntılı oluyor açıkçası.

Sorunuzu gerçek belgenizle aynı yapıda örnek belge ile destekleyiniz.

Mutlaka konuyla ilgilenen bir üye cevap yazacaktır.
.

Haklısınız hocam, teşekkür ederim.