satırda yer alan bilgilerin silinmesi..

[karakayalı]

satır içeriside yer alan sozcuk-kelimelerin istediğim değerlere göre silinmesins istiyorum...dosya ektedir..kolay gelsin...

 

[Ömer]

satır içeriside yer alan sozcuk-kelimelerin istediğim değerlere göre silinmesins istiyorum...dosya ektedir..kolay gelsin...

Merhaba,

Sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim olcut, i As Long, aranan
 
    If Intersect(Target, [B1]) Is Nothing Then Exit Sub
 
    Application.ScreenUpdating = False
 
    olcut = UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
 
    For i = Cells(Rows.Count, "[COLOR=red][B]A[/B][/COLOR]").End(xlUp).Row To 2 Step -1
        aranan = UCase(Replace(Replace(Cells(i, "B"), "ı", "I"), "i", "İ"))
        If Cells(i, "B") Like "*" & Target & "*" Then
            Rows(i).Delete
        End If
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[karakayalı]

SYN OMER, isimleri aşağı doğru çekip çogalttığımda silme işlemini gercekleştirmiyor...sadece yazılan yerle sınırlı...b sutununda verinin çok olduğunu düşünerek kodu guncelleyebilirmisiniz..

 

[Ömer]

Son satırı A sütununa göre hesaplatmıştım. Diğer mesajımdaki kırmızı olan bölüme B yazarsanız istediğiniz olacaktır.

.

 

[karakayalı]

Teşekkürler...elinize sağlık...