Çözüldü Word'de Tablodaki Boş Sütunları Silme

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
E

ERDAL

Yeni Üye
Kullanıcı Bilgileri
Katılım
3 Nis 2021
Mesajlar
170
Çözümler
1
Aldığı beğeni
31
Excel Versiyonu
Office 2013 TR
Konuyu Başlatan
Merhaba arkadaşlar.


Aşağıya örnek olarak eklediğim Word belgesindeki tablonun boş sütunlarını döngü kullanarak nasıl silebilirim.

Bu kodla silmeye çalışıyorum fakat sonuç alamadım.

For s = wordApp.Selection.Tables(1).Columns.Count To 1 Step -1

If wordApp.Selection.Tables(1).Cell(2, s).Range.Text = "" Then
wordApp.Selection.Tables(1).Columns(s) = Delete
End If
Next s

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


Örnek tablo


KURUM SAYILARI​
KURUM_TÜRÜSAYISI
Anadolu İmam Hatip Lisesi17
Anadolu Lisesi
8​
Fen Lisesi7
İmam Hatip Ortaokulu
5​
Mesleki ve Teknik Anadolu Lisesi4
Sosyal Bilimler Lisesi
2​
GENEL TOPLAM
43​
 
Tarihe göre sırala Oylara göre sırala
asax

asax

Destek Ekibi
Kullanıcı Bilgileri
Katılım
2 Ara 2021
Mesajlar
246
Çözümler
22
Aldığı beğeni
114
Excel Versiyonu
Office 2019 TR
Merhaba, dosyanızı eklerseniz çözüm bulmaya çalışırız. Boşluklar sağ da solda trim ile düzeltilir,
For SATIR = sonSatır To 1 Step -1
If IsEmpty(Cells(SATIR, sütun)) Then
Rows(SATIR).Delete
gibi bir kod düzenlemesi ile hedefe ulaşıla bilir
 
Olumlu oy 0 Negatif oyla
E

ERDAL

Yeni Üye
Kullanıcı Bilgileri
Katılım
3 Nis 2021
Mesajlar
170
Çözümler
1
Aldığı beğeni
31
Excel Versiyonu
Office 2013 TR
Konuyu Başlatan
Merhaba Hocam
Örnek dosyayı ekledim.
 

Ekli dosyalar

  • DENEME.docx
    14.4 KB · Gösterim: 3
Olumlu oy 0 Negatif oyla
E

ERDAL

Yeni Üye
Kullanıcı Bilgileri
Katılım
3 Nis 2021
Mesajlar
170
Çözümler
1
Aldığı beğeni
31
Excel Versiyonu
Office 2013 TR
Konuyu Başlatan
Hocam, teşekkür ederim
Elinize emeğinize sağlık

Hocam denedim, fakat boş sütunları silmiyor.

Kurum Sayıları​
KURUM_TÜRÜ
​
​
​
​
SAYISI​
Anadolu İmam Hatip Lisesi
​
​
​
​
17​
Anadolu Lisesi
​
​
​
​
8​
Fen Lisesi
​
​
​
​
7​
İmam Hatip Ortaokulu
​
​
​
​
5​
Mesleki ve Teknik Anadolu Lisesi
​
​
​
​
4​
Sosyal Bilimler Lisesi
​
​
​
​
2​
​
​
​
​
​
GENEL TOPLAM
​
​
​
​
43​
 
Olumlu oy 0 Negatif oyla
E

ERDAL

Yeni Üye
Kullanıcı Bilgileri
Katılım
3 Nis 2021
Mesajlar
170
Çözümler
1
Aldığı beğeni
31
Excel Versiyonu
Office 2013 TR
Konuyu Başlatan
Hocam, başlık yazılı olmayan sütunları silmek istiyorum
 
Olumlu oy 0 Negatif oyla
K

Kuşdili

Excel Dostu
Kullanıcı Bilgileri
Katılım
7 Eyl 2022
Mesajlar
191
Çözümler
60
Aldığı beğeni
195
Excel Versiyonu
Office 2007 TR
Gerçek excel ve word belgenize gerçekten benzeyen iki örnek ekleyebilirseniz neden silmediğini anlayabiliriz. 3 nolu mesajınızdaki belgeye baktım o olmaz.
 
Olumlu oy 0 Negatif oyla
E

ERDAL

Yeni Üye
Kullanıcı Bilgileri
Katılım
3 Nis 2021
Mesajlar
170
Çözümler
1
Aldığı beğeni
31
Excel Versiyonu
Office 2013 TR
Konuyu Başlatan
Hocam, Excelden bu tabloyu kopyalayıp Worde yapıştırıyorum. (Sayfa1.Range("K2:p11").Copy: wordApp.Selection.Paste)
Sonra üzerinde biçimlendirme işlemleri yopıyorum.

Excel ve Word tablolarını ekliyorum.
 

Ekli dosyalar

  • Excel Tablo.xlsx
    74 KB · Gösterim: 3
  • Word Belgesi.docx
    14.4 KB · Gösterim: 3
Olumlu oy 0 Negatif oyla
K

Kuşdili

Excel Dostu
Kullanıcı Bilgileri
Katılım
7 Eyl 2022
Mesajlar
191
Çözümler
60
Aldığı beğeni
195
Excel Versiyonu
Office 2007 TR
Tablonun birinci satırı birleştirilmiş hücre olduğu için sonuç alamamışsınız. İlk önce ben de farkedemedim. İki sütun var ikisi de dolu gibi görüyordum. Gönderdiğim makro normal hücrelere göre idi. Birleşmiş hücreler hep problemli olmuştur. Bu yüzden sütun silme işlemi yapamayız. Çünkü üst satırdaki bir sütun alt satırlardaki 4 sütunu kapsıyor. Bunun yerine tablonun son satırını esas alarak EĞER son satırdaki hücre boş ise; 2. SATIR ile son SATIR arasındaki hücreleri sil ve sola kaydır dersek problem olmuyor gibi. Tabi sizdeki sonuç önemli.

Yine 4. mesajdaki kodun yerine yazılmak üzere:
C++:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
E

ERDAL

Yeni Üye
Kullanıcı Bilgileri
Katılım
3 Nis 2021
Mesajlar
170
Çözümler
1
Aldığı beğeni
31
Excel Versiyonu
Office 2013 TR
Konuyu Başlatan
Hocam, İlk eklediğim Word tablosunda farkında olmadan başlığın olduğu hücreleri birleştirmişim.
Son olarak eklediğim Excel ve Word belgelerinde birleştirilmiş hücre yok.


Kodu uyguladığımda ;
Özel Program Ve Proje Uygulaması Olan Okul Sayıları
KURUM_TÜRÜ
​
​
​
​
SAYISI​
Anadolu İmam Hatip Lisesi
​
​
​
​
17​
Anadolu Lisesi
​
​
​
​
8​
Fen Lisesi
​
​
​
​
7​
İmam Hatip Ortaokulu
​
​
​
​
5​
Mesleki ve Teknik Anadolu Lisesi
​
​
​
​
4​
Sosyal Bilimler Lisesi
​
​
​
​
2​
​
​
​
​
​
GENEL TOPLAM​
43​
 
Olumlu oy 0 Negatif oyla
K

Kuşdili

Excel Dostu
Kullanıcı Bilgileri
Katılım
7 Eyl 2022
Mesajlar
191
Çözümler
60
Aldığı beğeni
195
Excel Versiyonu
Office 2007 TR
İlk gönderdiğim zaten birleştirilmiş hücre yok iken çalışacak kod idi. Fakat sizin tablo üst satırı worde birleştirilmiş olarak geliyor. Aslında hatalı olan, biz kendi kurgumuza göre makro hazırlıyoruz. Siz exceldeki bu işin kodunu sub... End Sub arasını tam olarak yazarmısınız. Artı aldığınız hata hangi satırda ve mesaj bilgisinde ne yazıyor bunları da yazar mısınız.
 
Olumlu oy 0 Negatif oyla
E

ERDAL

Yeni Üye
Kullanıcı Bilgileri
Katılım
3 Nis 2021
Mesajlar
170
Çözümler
1
Aldığı beğeni
31
Excel Versiyonu
Office 2013 TR
Konuyu Başlatan
Hocam, teşekkür ederim. Elinize emeğinize sağlık.

Hücre birleştirme (.Tables(1).Rows(1).Cells.Merge) sorunu çözmüş.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Üst