xlpart (belli bir kelimeyi içeren hücreyi bulmak) komutu kullanımı

[tseker71]

Herkese selamlar,

aşağıdaki gibi bir yazımda, eğer aktif hücre "Toplam" kelimesini içeriyor ise (Örneğin "ToplamMontaj") o satırı komple silmeye ihtiyacım var. makro içinde otomatik filtre kullanıp sonra o satırları sildirmek daha zor gibi geldi, o nedenle böyle bir kod yazmak istedim. İnternette araştırınca xlpart diye bir komut buldum ancak nasıl kullanılacağını çözemedim. Yani If ActiveCell.Value = "Toplam" Then GoTo 400 satırını buna göre nasıl düzenleyebilirim?

Teşekkürler.



For i = 2 To son
Cells(i, 6).Select
If ActiveCell.Value = "Toplam" Then GoTo 400
300 Next i

400 s = ActiveCell.Row
410 Rows(s).Delete
350 GoTo 300

 

[tseker71]

Alternatif olarak şöyle bir kod yazmaya çalıştım, bu kez de toplam sözcüğünü içeren satırlarda çalıştı fakat CIHAZDAN kelimesini içeren satırlar bitince "object variable or With block variable not set" diye bir hata verdi. Oysa CIHAZDAN satırları bitince bir üst bölümde böyle bir hata vermemişti.




300 ActiveCell.SpecialCells(xlLastCell).Select
son = ActiveCell.Row
Range(Cells(2, 1), Cells(son, 1)).Select
On Error GoTo 400
Selection.Find("Toplam").Select
s = ActiveCell.Row
Rows(s).Delete
GoTo 300

400 ActiveCell.SpecialCells(xlLastCell).Select
son = ActiveCell.Row
Range(Cells(2, 1), Cells(son, 1)).Select
On Error GoTo 500
Selection.Find("CIHAZDAN").Select
s = ActiveCell.Row
Rows(s).Delete
GoTo 400

 

[muygun]

Merhaba;
Kendinize uyarlayın.

Sub satır_sil()
Application.ScreenUpdating = False
On Error Resume Next
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, "g") = "Toplam" Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

İyi çalışmalar.

 

[tseker71]

Teşekkür ederim,
Ancak bu kod da içinde "Toplam" sözcüğü geçen hücreleri seçmiyor, "GenelToplam" veya "AraToplam" gibi.

 

[bmutlu966]

Toplam yazıları F kolonundaysa deneyiniz.

Sub toplam_sil()
On Error Resume Next
Application.ScreenUpdating = False
    For i = [F65536].End(3).Row To 1 Step -1
        For t = 1 To Len(Cells(i, "F"))
            If Mid(Cells(i, "F"), t, 6) = "Toplam" Then
                Rows(i).Delete
            End If
        Next
    Next i
Application.ScreenUpdating = True
MsgBox "Islem Tamam"
End Sub

 

[tseker71]

Toplam yazıları F kolonundaysa deneyiniz.

Sub toplam_sil()
On Error Resume Next
Application.ScreenUpdating = False
    For i = [F65536].End(3).Row To 1 Step -1
        For t = 1 To Len(Cells(i, "F"))
            If Mid(Cells(i, "F"), t, 6) = "Toplam" Then
                Rows(i).Delete
            End If
        Next
    Next i
Application.ScreenUpdating = True
MsgBox "Islem Tamam"
End Sub

Teşekkür ederim, mükemmel çalıştı.