Makro İle Metin Olan Hücre Biçimini Genel Yapmak

[scoskunsu07]

Merhaba,

500 sheetlik Çalışma kitabımda sarı ile belirttiğim alanlar metin biçiminde. Bu hücrelerin genel olmasını istiyorum. Nasıl yapabilirim acaba. Örnek dosyayı paylaşıyorum.

İndir deneme

Dosyayı indir deneme

dosya.co

 

[Necdet]

Merhaba,

İstediğiniz işlemde sayfa adları standart ise aşağıdaki kodları kullanabilirsiniz. Sayfa isminde OSF geçmeyen sayfalarda işlem yapmaz.

Sub Makro1()
   
    Dim Syf As Worksheet
   
    For Each Syf In ThisWorkbook.Sheets

        If Syf.Name Like "*OSF*" Then Range("D7:F7,H13:L13").NumberFormat = "General"
    Next Syf
   
End Sub

 

[scoskunsu07]

Merhaba,

İstediğiniz işlemde sayfa adları standart ise aşağıdaki kodları kullanabilirsiniz. Sayfa isminde OSF geçmeyen sayfalarda işlem yapmaz.

Sub Makro1()
   
    Dim Syf As Worksheet
   
    For Each Syf In ThisWorkbook
        If Syf.Name Like "*OSF*" Then Range("D7:F7,H13:L13").NumberFormat = "General"
    Next Syf
   
End Sub

Merhaba,
Denedim fakat "For Each Syf In ThisWorkbook" kısmında hata veriyor

 

[Necdet]

Merhaba,

Denemeden yazdığım için hatalı kullanmışım.

ThisWorkbook yerine ThisWorkbook.Sheets ya da Worksheets kullanmak gerek.
Kodu yeniledim.

 

[scoskunsu07]

Merhaba,

Denemeden yazdığım için hatalı kullanmışım.

ThisWorkbook yerine ThisWorkbook.Sheets ya da Worksheets kullanmak gerek.
Kodu yeniledim.

Şimdi oldu teşekkür ederim. Birşey daha sorsam sayfa adında "osf" olmayan sayfalardaki aynı hücreleri sayıya nasıl çevirebiliriz

 

[scoskunsu07]

Şimdi oldu teşekkür ederim. Birşey daha sorsam sayfa adında "osf" olmayan sayfalardaki aynı hücreleri sayıya nasıl çevirebiliriz

Ya da sayfa adında bir koşul aramadan bütün sayfalardaki aynı hücreleri sayıya çevirse

 

[Necdet]

Merhaba,

If Syf.Name Like "*OSF*" Then Range("D7:F7,H13:L13").NumberFormat = "General"
değil
Range("D7:F7,H13:L13").NumberFormat = "General"
demeniz yeterli olacaktır.

 

[scoskunsu07]

Merhaba,

If Syf.Name Like "*OSF*" Then Range("D7:F7,H13:L13").NumberFormat = "General"
değil
Range("D7:F7,H13:L13").NumberFormat = "General"
demeniz yeterli olacaktır.

İlk sheeti yapıp diğerlerini yapmıyor bu şekilde

 

[Korhan Ayhan]

Hücre adresinin başına Syf. ifadesini eklemek çözüm sağlayacaktır.

Syf.Range("D7:F7,H13:L13").NumberFormat = "General"

 

[scoskunsu07]

Hücre adresinin başına Syf. ifadesini eklemek çözüm sağlayacaktır.

Syf.Range("D7:F7,H13:L13").NumberFormat = "General"

Teşekkür ederim

 

[Necdet]

Kodları doğrudan buraya yazınca böyle hatalar oluyor, dalmış gitmişim