Satır Silme

[lorenz2015]

MERHABA

Elimde 1000 satırdan oluşan veriler var. Ben mesela 4,29,139,299,305 gibi satırları otomatik silmek istiyorum. silmek istediğim satır numaraları belli ama böyle 300 satır var. manuel yapmak yerine formüllle şu satırları falan sil diye birşey yapabilir miyim ?

teşekkürler

 

[ÖmerBey]

Makro ile yapabilirsiniz, aşağıdaki kodu deneyiniz. Silmek istediğiniz satırları kod içine virgülle ayırarak ilave ediniz.

Sub KOD()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
sil = Array([COLOR="Red"]305, 299, 139, 29, 4[/COLOR])
For Each s In sil
    Rows(s).Delete
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Düzeltme: Satır sayılarını büyükten küçüğe şeklinde yazınız.

 

[lorenz2015]

teşekkürler, bu koda verileri yapıştırırken boşluk oluyor o yüzden hata veriyor yapıştırmanın özel bir yöntemi var mıdır acaba?

 

[ÖmerBey]

Verileri bölerek yapıştıracaksınız. Diğer mesajınıza cevabı yazdım.
Ancak veriler belli bir yerdeyse silinecek satırların oradan alınması da sağlanabilir.