Mükerrer Kayıtta Satırı Değil, O satırda olan Hücre içindeki veriyi silsin

[Sarigol_937]

Merhaba arkadaşlar biliyorum bu konuda çok sayıda soru paylaşıldı ama benim sorunum şöyle, aşağıdaki paylaştığım vba kodunu ihtiyacım doğrultusunda forumda buldum, bu kodla b sütünundaki hücreye mükerer kayıt veri girince o satırı komple siliyor, ancak benim yapmak istediğim komple tüm satırı değilde sadece girdiğim hücredeki örneğin "B8"'e Ahmet DEMİR yazdım sadece hücre içeriğini metni silsin, tüm satırı komple silmesin istiyorum.Bu konuda yardımcı olabiliemisiniz.
Kod.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For b = [b655].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("b1:b" & b), Cells(b, "b")) > 1 Then Rows(b).Delete
Next

End Sub

 

[ÖmerBey]

İlgili yeri bu şekilde düzenleyin.

Rows(b).ClearContents

ya da sadece tek bir hücreyi silmek istiyorsanız;

Cells(b, "b").ClearContents

 

[Sarigol_937]

teşekkürler kardeş sorunum çözüldü

 

[aacanakova]

Kolay gelsin arkadaşlar ,

ABDURRAHMANGAZİ MAH. ABDURRAHMANGAZİ MAH.PINARLI SOKAK 19"
ABDURRAHMANGAZİ MAH. ORMAN CAD.NO:17

Şeklinde 8000 civarında kayıt var .
İstediğim aynı hücredeki iki tane olan verinin birisini silsin . Tek ise değişiklik yapmasın .

ABDURRAHMANGAZİ MAH.PINARLI SOKAK 19"
ABDURRAHMANGAZİ MAH. ORMAN CAD.NO:17 şeklinde kalsın ,

Yardımcı olursanız sevinirim .

 

[ÖmerBey]

Aşağıdaki kodu dener misiniz?
A sütunundaki kayıtları düzenleyerek B sütununa yazar.

Sub KOD()
son = Range("A65500").End(3).Row
alan = Range("A1:B" & son)
For a = LBound(alan) To UBound(alan)
    veri = Split(Trim(Replace(Replace(alan(a, 1), ".", ". "), Chr(10), " ")), " ")
    For b = LBound(veri) To UBound(veri) - 1
        For c = b + 1 To UBound(veri)
            If veri(b) = veri(c) Then veri(c) = ""
        Next
    Next
    
    yeni = Trim(Join(veri, " "))
    
    Do
        yeni = Replace(yeni, "  ", " ")
    Loop While InStr(yeni, "  ") > 0
    
    alan(a, 2) = yeni
    yeni = Empty
Next
Range("A1:B" & son) = alan
End Sub

 

[aacanakova]

Hocam teşekkür ederim ellerine sağlık .
Mucit77 Hocam alakasız ama bir şey daha soracağım .

Aynı şekilde 8000 civarı tarih var . Bu tarihlerin formatı şu şekilde
02 15 2013
3 13 2013


Bunların bazılarının arasında tek boşluk bazılarında daha fazla boşluk var .

Bunları 03-16-2015 formatına çevirebilirmiyiz .

 

[ÖmerBey]

Yapılabileceği kanaatindeyim, ancak bütün farklılıkları içerebilen bir örnek dosya paylaşırsanız daha net sonuç üretilebilir. Tarihleriniz metin formatında olduğu için görmekte fayda var.