Satır silme makrosu

[onurdogan]

ekteki dosyada küçük bir örneğini sundum. istediğim satırı silecek ve mevcut biçimleri koruyacak bir makroya ihtiyacım var. Yardımlarınızı bekliyorum.

 

[Necdet]

Merhaba,

Sorunuz pek açık değil ama, aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Silmek istediğiniz satırda herhangi bir hücreye çift tıkladığınızda o satırı siler.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Rows(Target.Row).Delete
End Sub

 

[Muhammet Okumuş]

Sub sil()
a = InputBox("sil", "satır")
Rows(a).Delete
End Sub

makroyu uygulayınız.

 

[Seyit Tiken]

Alternatif :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Rows.Delete
Cancel = True
End Sub

 

[EmirEcrin]

merhaba,

Bir firmanın cari mütabakatlarını yapmak üzere veri topluyorum. Bana gelen excel tablosunda bilgiler mevcut ancak aralarda çokça boş satır var. Tablo 11 sütun, 140.000 satırdan oluşuyor. Filtre ile silmeye çalıştım ama olacak gibi değil. Satır silme makrosu kullandığım zaman ise excell hata veriyor. Donuyor, kapanıyor.

Kullandığım kod aşağıda. Bana yardımcı olur musunuz?Çok kısa sürem var

Sub DeleteBlankRows()
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Dim i As Long
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False

For i = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With

End Sub

 

[Korhan Ayhan]

Sıralama yaparak daha hızlı bir şekilde sonuca ulaşabilirsiniz. Çok satırlı verilerde döngü ile satır silmek çok zaman alacaktır.