- Katılım
- 5 Eylül 2007
- Mesajlar
- 1,247
- Excel Vers. ve Dili
- ofis 2010
- Altın Üyelik Bitiş Tarihi
- 21-07-2024
Merhaba;
Daha önce formdan bulduğum karakter ayrıştırma ve silme makrosuna bir ilave daha yapmak istiyorum. Ancak yapamadım. Kullandığım makro
Daha önce formdan bulduğum karakter ayrıştırma ve silme makrosuna bir ilave daha yapmak istiyorum. Ancak yapamadım. Kullandığım makro
Kod:
Private Sub AYIR_Click()
'Haluk - 31/05/2019
'ürünlerdeki isim ve fiyat ayrıştırması sağlıyor, isim kalıp fiyat siliniyor
Dim objRegEx As Object, NoB As Long, myStr As String
Set objRegEx = CreateObject("VBscript.RegExp")
objRegEx.Global = True
objRegEx.Pattern = "\([^()]*\)|(\-.*$)"
NoB = Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To NoB
myStr = Range("A" & i).Text
myStr = objRegEx.Replace(myStr, "")
Range("A" & i) = myStr
myStr = Empty
Next
Set objRegEx = Nothing
End Sub
PAMUK İPLİĞİ (29,33 TL) trh:03.01.23) / PAMUK İPLİĞİ şeklindeki listedeki ürün ismi duruyor bunun dışındaki diğer bilgileri siliyordu. Ancak daha önce Parantez veya benzeri işaret kullanırken şimdi - trh: - kullanmaya başladım. Bu makroya nasıl bir ilave yapılırsa trh: ve tarih bilgisi de silinebilir. |