Hücredeki veriden belli bir kısmını yok etme...

[manly]

Ekte gönderdiğim dosyanın "D" sütunundaki tüm hücrelerdeki verilerin "E" sütununa örnek "501-Y23-5010" bu şekilde "501-5010" değiştirilip aktarılmasını sağlayacak makro lazım..Verilerden "Y23" çıkarılacak. Yardımlarınızı bekliyorum..

 

[Ömer]

Merhaba,

Sub Değiştir()
    [D:D].Replace "-Y23", ""
End Sub

Bu şekilde deneyiniz.

Aynı işlemi makro kullanmadan, ctrh h ( bul değiştir ) menüsünden yapabilirsiniz..

.

 

[uzmanamele]

merhaba

bu mudur?
fonksiyon ile

=YERİNEKOY(D2;"-Y23";"")

makro ile

Sub yerinekoy()
For i = 1 To Range("d65536").End(3).Row
Cells(i, "E") = Application.WorksheetFunction.Substitute(Cells(i, "D"), "-Y23", "")
Next
End Sub

 

[manly]

Hocam teşekkürler,

Ama kayıtların değişmiş halinin "E" sütununa aktarmak istiyorum... "D"sütunu aynen kalacak.

 

[manly]

Teşekkürler uzmanamele istediğim gibi oldu...Çok sağolun...

 

[Ömer]

kayıtların değişmiş halinin "E" sütununa aktarmak istiyorum... "D"sütunu aynen kalacak.

Eksik okumuşum..

Sub Değiştir()
    [D2:D65536].Copy [E2]
    [E:E].Replace "-Y23", ""
End Sub

.

 

[manly]

Teşekkürler Ömer hocam, eksik okumanızda bize bir şeyler öğretti...Çok sağolun...

 

[manly]

Ömer hocam bunun tam tersini yapmakta mümkünmüdür..."-Y23" ekleme yapmak istersek..."501-5010" "501-Y23-5010" olması gibi...

 

[Ömer]

Eğer D sütunu varsa kopyalama ile yapabilirsiniz.

Sub Değiştir()
    [D2:D65536].Copy [E2]
End Sub

Bağımsız ise;

Sub Ekle()
For i = 2 To Cells(Rows.Count, "E").End(xlUp).Row
    Cells(i, "E") = Split(Cells(i, "E"), "-")(0) & "-Y23-" & _
       Split(Cells(i, "E"), "-")(1)
Next i
End Sub

Bu şekilde kullanabilirsiniz..

.

 

[manly]

Teşekkürler Ömer hocam..Ellerinize sağlık...