makro ile bir hücredeki bir cümleyi görürse silmesi nasÃ

[asbaskan]

burdaki sadece hücrenin tamamı eşit ise gecerli ben hücrenin içindeki bir cümleye göre silmek istiyorum

Sub silme()
Range("a1").Select
Selection.End(xlDown).Select
SONSAT = ActiveCell.Row

For j = SONSAT To 1 Step -1
Cells(j, 12).Select


If ActiveCell.Value = "FOL" Then ' burdaki sadece hücrenin tamamı eşit ise gecerli ben hücrenin içindeki bir cümleye göre silmek istiyorum
RROW = ActiveCell.Row
AL1 = CStr(RROW) & ":" & CStr(RROW)
Rows(AL1).Select
Selection.Delete Shift:=xlUp
'Selection.EntireRow.Hidden = True
' Selection.ClearContents
End If
Next

 

[veyselemre]

[vb:1:5c42836fe9]Sub Sil()
SONSAT = Cells(65536, 12).End(3).Row
For j = SONSAT To 1 Step -1
If InStr(Cells(j, 12), "FOL") > 0 Then Rows(j).Delete Shift:=xlUp
Next
End Sub[/vb:1:5c42836fe9]

 

[asbaskan]

bu işimi görmedi baska bir çözümü varmı

 

[teknikdestekgrubu]

Sub silme()
For Each hucre In Range("a1:a7") ' aralığı değiştirebilirsiniz.
ara = "Teknik Destek Grubu" 'aranacak ifadeyi değiştirebilirsiniz
lara = Len(ara)
lhucre = Len(hucre)

For bas = 1 To lhucre - lara + 1
parca = Mid(hucre, bas, lara)
If parca = ara Then
Cells(hucre.Row, hucre.Column).ClearContents 'Aranan ifadeyi bulduğu hücrenin hepsini siler. Sadece ifadeyi silmek için msj atınız
GoTo son
End If
Next bas
son:
Next hucre
End Sub

 

[Haluk]

.....
Cells(hucre.Row, hucre.Column).ClearContents 'Aranan ifadeyi bulduğu hücrenin hepsini siler. Sadece ifadeyi silmek için msj atınız
.....

Kırmızı ile işaretlediğim kısımda ne demek istediğinizi anlayamadım..

 

[teknikdestekgrubu]

Aranan kelime hücrede varsa, hücreyi komple mi silsin, hücre içinde sadece aranan ifadeyi mi silsindetayını tam anlamadım. Yaptığım makro hücreyi komple siliyor. Eğer diğerini isterse, tekrar msj atıp belirtebilir demek istemiştim.

 

[Kemal Demir]

bende bole bir ornek solesem;

Sub varsasil()
' 4 kolon ( D kolonu için)
For c=2 to 1000

if Cells(c,4).value like "*deneme*" then
Cells(c,4).value=""
Else
End if
Next
End Sub

 

[asbaskan]

burda aranacak ifadeler birden Fazla bu durumda ne yapabilirim.
Teşekür Ediyorum Paylaşımınız için bu arada.

yani bin kür tane silinecek satırım var hepsinin kodları farklı ? bu konları baska bir excel sayfasından okutup öbür sayfadan bulduklarını silmek istiyorum. Teşekür ediyorum tekrar

 

[teknikdestekgrubu]

Bu da aranacakları diğer sayfadan okur.

not:Kontrol edemedim.

Sub silme()
Sheets("aranacaklarsayfası").Select
For Each ara In Range("a1:a7")
Sheets("değiştirileceklersayfası").Select
For Each hucre In Range("a1:a7") ' aralığı değiştirebilirsiniz.
'ara = "Teknik Destek Grubu" 'bu satırı sileceksin
lara = Len(ara)
lhucre = Len(hucre)

For bas = 1 To lhucre - lara + 1
parca = Mid(hucre, bas, lara)
If parca = ara Then
Cells(hucre.Row, hucre.Column).ClearContents
GoTo son
End If
Next bas
son:
Next hucre
Sheets("aranacaklarsayfası").Select
Next ara
End Sub

 

[asbaskan]

Teşekürler Aradıgım buydu .

 

[asbaskan]

yanlız Satırın tamamını silmek için ne yapmalı ?