Excel'de satır silme

[excil]

Her ay pdf uzantılı dosyayı excel e ceviriyorum fakat cevirme sırasında bazı satırlar boş geliyor, A sütünunda boş hücre varsa o satırı sildirmek istiyorum yardımlarınız için şimdiden teşekkür ederim...

 

[veyselemre]

[vb:1:ca8a76b58c]Sub BosSatirlariSil()
For i = [a65536].End(3).Row To 1 Step -1
If Cells(i, 1) = "" Then Rows(i).Delete shift:=xlUp
Next i
End Sub[/vb:1:ca8a76b58c]

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki koduda deneyebilirsiniz.

[vb:1:20044bce3c]Sub bosluksil()
[a:a].SpecialCells(xlCellTypeBlanks).Delete
End Sub
[/vb:1:20044bce3c]

 

[even]

Eğer Excel' çevirdikten sonra karşınıza çıkan dosya çok düzeltilmeye muhtaç ise çeviri programını değiştirebilirsiniz. Finereader diye program kullanmıştım özellikle pdf'den word'e atarken sağ-sol boşlukları, cümle bitimi boşluklarında çok sorun çıkarmıyordu, öneririm