Çözüldü Başlık Olmayan Satırların Sütün ve Satırlarını Silmek

Özcan ÖZBEK' Alıntı:

copilottan makro
Sub Makro3()
Dim i As Long
Dim j As Long

' E6 hücresine kadar boş satırları sil
For i = 6 To 1 Step -1
If WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next i

' E6 hücresine kadar boş sütunları sil
For j = 6 To 1 Step -1
If WorksheetFunction.CountA(Columns(j)) = 0 Then
Columns(j).Delete
End If
Next j
End Sub

Genişletmek için tıkla...

bu makro da değişkenlik gösteren ilk dolu hücreye göre
Sub SilBosSatirVeSutunlar()
Dim ws As Worksheet
Dim ilkDoluHucresi As Range
Dim i As Long
Dim j As Long

Set ws = ActiveSheet

' İlk dolu hücreyi bul
Set ilkDoluHucresi = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

' İlk dolu hücrenin adresini kontrol et
If Not ilkDoluHucresi Is Nothing Then
' İlk dolu hücreye kadar olan boş satırları sil
For i = ilkDoluHucresi.Row - 1 To 1 Step -1
If WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next i

' İlk dolu hücreye kadar olan boş sütunları sil
For j = ilkDoluHucresi.Column - 1 To 1 Step -1
If WorksheetFunction.CountA(Columns(j)) = 0 Then
Columns(j).Delete
End If
Next j
End If
End Sub

Şart yapısında biraz mantıksal boşluk var gibi.
Tabloyu A1 den itibaren yeniden listeleyeceksek sağını solunu silmektense
tüm sayfayı temizlemek daha mantıklı gibi.
Ben de öyle yaptım.
Kodların çalışma mantığına gelince.
Sütün başlıklarının sayısının bir önemi yok.
Eğer farklı sütun başlıkları kullanılacaksa
stB dizisine sütun başlıkları tanıtılmalı.
Sayfada sütun başlıklarından ilk elemanı arar.
Bulduğunda o satırdan itibaren son sütuna kadar alır metin değer haline getirir ,
sütun başlıkları ile karşılaştırır. Tam eşleşme varsa tabloyu diziye alır
A1 den itibaren listeler.
Kolay gelsin.

HTML:

Günaydın,
Bu konuda sizleri çok yordum hakkınızı helal edin lütfen,
Ben ekteki en son tabloda ne istediğimi örnek ile anlattım.
Yardımcı olursanız sevinirim.

DeneyinHTML:

Alicimri' Alıntı:

DeneyinHTML:

Kod: Kodları Kopyala

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

Genişletmek için tıkla...

Merhaba,

hata veriyor..

örnek dosyanıza çoklu aralık yok, orijinal dosyanıza uygun örnek eklerseniz yapmaya çalışayım.

Alternatif.
HTML:

Merhaba;
3 ayrı örnek ve sonuç ektedir. Teşekkür ederim.

bulentkars' Alıntı:

Merhaba;
3 ayrı örnek ve sonuç ektedir. Teşekkür ederim.

aklıma şöyle bir kurgu geldi mümkün mü acaba

K sutununa göre aşağı doğru boş olan satır varsa eğer başlık hariç silecek.

daha sonra a,b,c,d kolanlarında başlıksız sutun varsa silecek.

bu örneğe göre satı yerlerin silnmesi ve sonuç sayfası gibi sonuç almak istiyorum,

tabl0olarda başlıklar sabit değil değişkendir.

Genişletmek için tıkla...

Deneyiniz

HTML:

#30 daki kodlara biraz daha esnek olması için ilave yaptım.

Alicimri' Alıntı:

HTML:

Kod: Kodları Kopyala

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

Genişletmek için tıkla...

Çok Teşekkür ederim. Tam İstediğim gibi olmuş,Elinize emeğinize sağlık. Sizleri yordum hakkınızı helal edin lütfen..

#30 daki kodlara başlıklar silindi ise işlem yapmaması için ilave yaptım.
Yaşıma verin, bazı şeyler aklıma sonra geliyor.

yazdığımız koda bari bir cevap verilseydi.(mesaj 27)