Soru Başlık Olmayan Satırların Sütün ve Satırlarını Silmek

[bulentkars]

Arkadaşlar Merhaba;

Ekteki Tabloda örnek ile anlattım, Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler,

Yapmak istediğim;

Tabloda Başlıkları 1.satıra çekmek ve başlığı olmayan Sütunları silmek istiyorum.
Sağdan En son dolu sütundan sola doğru dolu olan sutunun solundaki fazla sutunları makro aracılığı ile silmek istiyorum.

 

[tugkan]

Dosyayı harici siteye yükler misiniz?

 

[bulentkars]

Dosyayı harici siteye yükler misiniz?

Yükleme şeklinde bir sorun mu var acaba. Sürekli aynı metodta yükleme yapıyorum.

 

[tugkan]

Siz de sorun yok. Altın üye olmayanlar harici site olmazsa dosyayı göremiyor. (Örnek Ben ) Dosyayı görebilmek için söyledim. Altın üye olan arkadaşlar yardımcı olursa sıkıntı yok.

 

[GursoyC]

    Dim row As Long
    Dim col As Long
    Dim bulundu As Range
   
    Set bulundu = Cells.Find(What:="Kodu", LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
   
    row = bulundu.row
    col = bulundu.Column

        Range(Cells(1, 1), Cells(Rows.Count, col - 1)).EntireColumn.Delete
        Range(Cells(1, 1), Cells(row - 1, Columns.Count)).EntireRow.Delete

 

[bulentkars]

    Dim row As Long
    Dim col As Long
    Dim bulundu As Range
  
    Set bulundu = Cells.Find(What:="Kodu", LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
  
    row = bulundu.row
    col = bulundu.Column

        Range(Cells(1, 1), Cells(Rows.Count, col - 1)).EntireColumn.Delete
        Range(Cells(1, 1), Cells(row - 1, Columns.Count)).EntireRow.Delete

Çok Teşekkürler, Elinze sağlık

 

[GursoyC]

Rica ederim.