bir klasörde yer alan bütün excel dosyalarındaki fontları arial ile değiştirme.

[miadanoz]

Merhaba,

1.Bir klasörde 5000 den fazla excel dosyası var. Bu dosyadaki dosyalardaki bütün yazıları font boyutu ile oynamadan yalnızca font cinsi olarak arial'e dönüştürmek mümkün müdür ?

2.Bu klasördeki sheet isimlerinin hepsini "1" olarak toplu şekilde yeniden adlandırmak mümkün müdür ?

3. Bu klasördeki ilk 6 satırı tamamen silmek (içerikleri en üste yaslamak için) mümkün müdür?

Yardımcı olabilirseniz sevinirim.

 

[Ömer]

Merhaba,

2.Bu klasördeki sheet isimlerinin hepsini "1" olarak toplu şekilde yeniden adlandırmak mümkün müdür ?

Her dosyada tek bir sayafa mı var.

 

[miadanoz]

evet her bir dosya 1 sayfadan oluşuyor.

 

[Ömer]

Deneyiniz.
yol değişkenindeki dosya yolunu kendinize göre değiştirirsiniz.

Sub test()
    Dim yol As String, dosya As String
    yol = "C:\Desktop\deneme\" 'dosya yolunu belirleyiniz.
    Application.ScreenUpdating = False
    dosya = Dir(yol & "*.xls*")
        Do While dosya <> ""
            Workbooks.Open yol & dosya
            ActiveSheet.Name = "1"
            Rows("1:6").Delete Shift:=xlUp
            Cells.Font.Name = "Arial"
            ActiveWorkbook.Save
            ActiveWorkbook.Close
            dosya = Dir()
        Loop
    Application.ScreenUpdating = True
    MsgBox "İşleminiz Bitti.", vbInformation
End Sub

Önemli Not: Denemeden önce dosyaların yedeğini alınız. Ayrıca kodlar ilk 6. satırı sildiği için kodları 2. defa çalıştırdığınızda silme işlemini tekrar yapar bu yüzden önce örnek dosyalarınızda kodları çalıştırıp deneyiniz.

.

 

[miadanoz]

bir müddet bekledikten sonra işleminiz bitti diyor ama dosyalar üzerinde hiçbir değişiklik yok maalesef hocam.

edit: yalnızca sheet isimleri değişmiş.

 

[Ömer]

Ben denemesini yaparak vermiştim.
Eğer sheet isimleri değişmişse font ve 1:6 satır arası silme işlemini de yapmış olması gerekir.
Dosya yolunu kontrol edin diyeceğim fakat sheetleri değiştirmiş diyorsunuz. Bu durumda dosya yolu da doğru olmalı.

Değişecek olan örnek bir excel dosyası ekler misiniz.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

 

[miadanoz]

Ben denemesini yaparak vermiştim.
Eğer sheet isimleri değişmişse font ve 1:6 satır arası silme işlemini de yapmış olması gerekir.
Dosya yolunu kontrol edin diyeceğim fakat sheetleri değiştirmiş diyorsunuz. Bu durumda dosya yolu da doğru olmalı.

Değişecek olan örnek bir excel dosyası ekler misiniz.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

aşağıda hocam.

İndir CSB20223 1207

Dosyayı indir CSB20223 1207

dosya.co

 

[Ömer]

Dosyayı denedim, bende tüm işlemleri yaptı. İşlem gören dosyanız ektedir. İstediğiniz bu sanırım.
Kodlardaki yol değişkeninini değiştirdiğiniz satırı yazar mısınız.

İndir CSB20223 1207 Kopya

Dosyayı indir CSB20223 1207 Kopya

dosya.co

.

 

[miadanoz]

c klasörüne attım hocam direkt 2019 klasörünü yol aşağıdaki şekilde

yol = "C:\2019\" 'dosya yolunu belirleyiniz.

excel versiyonum ile ilgili olabilir mi acaba? birde arkadaşımın bilgisayarından deniyeyim.

 

[miadanoz]

Dosyayı denedim, bende tüm işlemleri yaptı. İşlem gören dosyanız ektedir. İstediğiniz bu sanırım.
Kodlardaki yol değişkeninini değiştirdiğiniz satırı yazar mısınız.

İndir CSB20223 1207 Kopya

Dosyayı indir CSB20223 1207 Kopya

dosya.co

.

maalesef arkadaşımın bilgisayarında da yalnızca sheet isimlerini değiştiriyor. yine de emeğiniz ve yardımlarınız için çok çok teşekkür ederim.

 

[Ömer]

Versiyon farkından kaynaklı olduğu sanmıyorum. Sizdeki versiyon nedir?

 

[miadanoz]

Versiyon farkından kaynaklı olduğu sanmıyorum. Sizdeki versiyon nedir?

office 2021 hocam.

 

[miadanoz]

Versiyon farkından kaynaklı olduğu sanmıyorum. Sizdeki versiyon nedir?

çok teşekkür ederim. şimdi hallettim. vb de workbook kısmından çalıştırmak gerekiyormuş. ben sheet üzerinden çalıştırmıştım.

 

[Ömer]

O şekilde kullanacağınızı düşünmediğim için o detay aklıma gelmedi. Hallolduğuna sevindim.
Workbook değilde Insert menüsünden Module ekleyip kodları Module1 e kopyalayıp çalıştırmanız daha doğru olur.

 

[miadanoz]

O şekilde kullanacağınızı düşünmediğim için o detay aklıma gelmedi. Hallolduğuna sevindim.
Workbook değilde Insert menüsünden Module ekleyip kodları Module1 e kopyalayıp çalıştırmanız daha doğru olur.

tamamdır çok teşekkür derim. elinize sağlık tekrar

 

[Ömer]

Rica ederim.