İstenilen satırları makro ile silme

[akmes]

Merhaba,

Excel sayfasında 3,13,23,33 ve bu şekilde devam eden satırları makro yardım ile silebilirmiyiz? Yardımınızı rica eiyorum.

 

[İhsan Tank]

Merhaba,

Excel sayfasında 3,13,23,33 ve bu şekilde devam eden satırları makro yardım ile silebilirmiyiz? Yardımınızı rica eiyorum.

merhaba

Option Explicit
Sub silüç()
Dim ts, kaplan
kaplan = MsgBox("3'leri Siliyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
Application.ScreenUpdating = False
For ts = Cells(65536, "A").End(xlUp).Row To 1 Step -1
If Right(ts, 1) = 3 Then
Cells(ts, "A").Delete
End If
Next
Application.ScreenUpdating = True
MsgBox "3'leri Sildim", vbInformation, "Bitiş"
End Sub

bunu dener misiniz_?

 

[akmes]

merhaba

Option Explicit
Sub silüç()
Dim ts, kaplan
kaplan = MsgBox("3'leri Siliyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
Application.ScreenUpdating = False
For ts = Cells(65536, "A").End(xlUp).Row To 1 Step -1
If Right(ts, 1) = 3 Then
Cells(ts, "A").Delete
End If
Next
Application.ScreenUpdating = True
MsgBox "3'leri Sildim", vbInformation, "Bitiş"
End Sub

bunu dener misiniz_?

Üstadım bu yaptığınızda sadece A3,A13,A23 gibi hücreleri siliyor ben tüm satırın silinmesini istiyorum.

 

[Ömer]

Merhaba,

Cells(ts, "A").Delete

yerine,

rows(ts).Delete

yazarak deneyiniz.

.

 

[akmes]

Merhaba,

Cells(ts, "A").Delete

yerine,

rows(ts).Delete

yazarak deneyiniz.

.

Denedim.Sadece 3. satırı siliyor.

 

[Ömer]

Ben kodları denemedim. Hücre değil satır sileni istediğiniz için onun düzeltmesini yazdım.

3,13,23,33 ... demişsiniz. Mantığı nedir. Hangi satıra kadar silme işlemi yapacak.

Detaylı açıklama yaparmısınız.

.

 

[Seyit Tiken]

Bu şekilde bir deneyiniz.

Sub satırsil()
[3:3,13:13,23:23] = ""
End Sub

 

[halit3]

Alternatif kod

Sub satır_sil()
Dim i As Long, r As Long, j As Long
Application.ScreenUpdating = False
For i = 3 To [a65536].End(3).Row Step 10
r = i
Next i
For j = r To 3 Step -10
Rows(j).Delete Shift:=xlUp
Next j
Application.ScreenUpdating = True
MsgBox "İşlem Tamam...."
End Sub

 

[akmes]

Ben kodları denemedim. Hücre değil satır sileni istediğiniz için onun düzeltmesini yazdım.

3,13,23,33 ... demişsiniz. Mantığı nedir. Hangi satıra kadar silme işlemi yapacak.

Detaylı açıklama yaparmısınız.

.

Üstadım ekteki dosyadan da anlaşılacağı gibi tüm maçlar sayfasına Mac Det sayfasındaki verileri getirmek istiyorum combobox ile yapmak istediğimde ara olduğu için görmüyor yada ben beceremiyorum.Bu konuda yardımınızı rica ediyorum.

 

[mesuttasar]

Bir alternatifte benden

Sub deneme()
Dim i, j, k As Integer
j = 3
For i = 1000 To 10 Step -10
k = i + j
Rows(k).Select
Selection.Delete
Next i
End Sub

 

[akmes]

Bir alternatifte benden

Sub deneme()
Dim b,i, j, k As Integer
j = 3
For i = 1000 To 10 Step -10
k = i + j
Rows(k).Select
Selection.Delete
Next i
End Sub

Hepinize çok teşekkür ederim.Kolay gelsin.