ERDAL
Gold Üye
- Katılım
- 3 Nis 2021
- Mesajlar
- 293
- Çözümler
- 1
- Aldığı beğeni
- 51
- Excel V
- Office 2013 TR
- Gold Bitiş
- 21 Mart 2027
Konu Sahibi
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.
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.
Ekli dosyalar
Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
