A sütunundaki metni B sütunundan silmek için

[emrehan26]

İyi akşamlar 1000 satırlık bir dosyam mevcut.. A sütununda firma isimleri yazılı B sütununda ise yine firma ismi+adresi yazılı ben B sütunundaki firma isminin silinip sadece adresinin kalmasını istiyorum. Makro konusunda bilgim olmadığı için yardımlarınızı rica ederim.

 

[asi_kral]

İyi akşamlar 1000 satırlık bir dosyam mevcut.. A sütununda firma isimleri yazılı B sütununda ise yine firma ismi+adresi yazılı ben B sütunundaki firma isminin silinip sadece adresinin kalmasını istiyorum. Makro konusunda bilgim olmadığı için yardımlarınızı rica ederim.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub değiştir_1967()
'Konu       :   Verileri Değiştir
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As Long, kral As String, a As String
Application.ScreenUpdating = False
For asi = 2 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(asi, "B") = Replace(Cells(asi, "B"), Cells(asi, "A"), "")
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[uyrdkl]

Buda benden olsun
Boş bir modüle kopyalayınız.
Sub aynısil()
Columns("B:B").Select
Dim k As Range
For Each k In Range("A1:A5")

Selection.Replace What:=k, Replacement:=Clear, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next k
End Sub

 

[emrehan26]

teşekkürler ellerinize sağlık

 

[asi_kral]

teşekkürler ellerinize sağlık

Kolay Gelsin.

 

[uyrdkl]

Rica ederim kolay gelsin