Çözüldü Excel Çalışma Kitaplarına Veri Kaydetme

[ERDAL]

Merhaba Değerli ExcelCozum.Com kullanıcıları;

Yapmak İstediğim; "D:\1- BELGELERİM\2021- 2022 İSTATİSTİKLERİ\6- VERİ TABLOLARI\SEÇMELİ DERSLER\SEÇMELİ_DERSLER_LİSE_2021-2022" Klasörü içerisinde aynı şablona sahip birçok Excel çalışma kitabı var. Kapılı durumdaki bu Excel çalışma kitapları içerisine girip;

İlk satırları ve en alttaki ‘İL GENEL TOPLAM ‘ ve ’ GENEL TOPLAM’ satırları silmek.
Daha sonra ilk satıra sütun başlıkları olarak aşağıda belirtiğim bilgileri yazmak.

Yazdırılacak Sütun Başlıkları

Sayfa1.Range("A1").Value = "S.N."

Sayfa1.Range("B1").Value = "İL"

Sayfa1.Range("D1").Value = "İLÇE"

Sayfa1.Range("E1").Value = "GENEL_MÜDÜRLÜK"

Sayfa1.Range("F1").Value = "DERS_ADI"

Sayfa1.Range("M1").Value = "HAZIRLIK SINIFI_Erkek"

Sayfa1.Range("N1").Value = "HAZIRLIK_SINIFI_Kız"

Sayfa1.Range("O1").Value = "9. SINIF_Erkek"

Sayfa1.Range("P1").Value = "9. SINIF_Kız"

Sayfa1.Range("Q1").Value = "10. SINIF_Erkek"

Sayfa1.Range("R1").Value = "10. SINIF_Kız"

Sayfa1.Range("S1").Value = "11. SINIF_Erkek"

Sayfa1.Range("T1").Value = "11. SINIF_Kız"

Sayfa1.Range("U1").Value = "12. SINIF_Erkek"

Sayfa1.Range("V1").Value = "12. SINIF_Kız"

Sayfa1.Range("W1").Value = "TOPLAM_ERKEK"

Sayfa1.Range("X1").Value = "TOPLAM_KIZ"

Sayfa1.Range("Y1").Value = "GENEL_TOPLAM"

Daha sonra,

"GENEL_MÜDÜRLÜK" başlılığı altının ise; Excel çalışma kitabı adı ne ise o şekilde sütunun tamamını doldurmak. Öreğin çalışma kitabının adı, Ortaöğretim Genel Müdürlüğü İse bu sütunun tamamına, Ortaöğretim Genel Müdürlüğü yazsın.
En sonunda her Excel çalışma kitabını kaydederek kapatmak

Yukarıda açıklamaya çalıştığım kodu yazmak için çok uğraştım fakat içinden çıkamadım.

Excel çalışma kitaplarını ekledim.

Yardımlarınız için şimdiden teşekkür ederim.

 

[askan]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Hocam şunu bir dener misiniz

 

[ERDAL]

Hocam elinize sağlık kod işlem yapıyor. fakat ilk satırı silmeden başlıkları yazıyor.

 

[askan]

Hocam elinize sağlık kod işlem yapıyor. fakat ilk satırı silmeden başlıkları yazıyor.
Ekli dosyayı görüntüle 5350

1. satır mı silinip mi başlıklar yazılacak?

 

[ERDAL]

Evet hocam 1. Satır silinip başlık öğle yazılacak.

 

[halily]

askan hocamın kodlarını biraz değiştirerek ekledim
not: dosya adresini değiştirmeniz gerekiyor HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[halily]

ilk satır silinecekse With ActiveWorkbook satırının altına .Sheets(1).Rows(1).Delete kodu eklenebilir

 

[ERDAL]

Hocam elinize emeğinize sağlık. Teşekkür ederim. işlem Tamam.

 

[halily]

yalnız asıl cevap askan hocamın birinci mesajda verdiği cevaptır
iyi çalışmalar

 

[askan]

yalnız asıl cevap askan hocamın birinci mesajda verdiği cevaptır
iyi çalışmalar

Hocam onun bi önemi yok
Mühim olan çözümdür. Saygılar

 

[halily]

Sezar'ın hakkı Sezar'a hocam)