arkadaşlar,ciddi bir problem var , ve sabaha bitmesi gerekiyor, problemi EK'te gönderiyorum. Kısacası bitişik metin biçimindeki (örneğin 63ft236 yada 1fcv16 gibi ) sayı ve karakterlerini yan yana ayırmak istiyırum. Yani c hücresinde 63,b d hücresinde ft ve e hücresinde 236 yazmasını istiyorum. Çok geç oldu ama cevap yazabilirseniz çok sevinirim.
Regular expression ile yapılmış hali
iyi çalışmalar
Function bul(hucredegeri As String, adnan As Long, yurdakul As Integer)
Dim regEx As New VBScript_RegExp_55.RegExp
Dim matches, s
regEx.Pattern = "[0-9]+|[a-z]+|[0-9]+"
regEx.IgnoreCase = True 'True to ignore case
regEx.Global = True 'True matches all occurances, False matches the first occurance
s = ""
If regEx.Test(hucredegeri) Then
Set matches = regEx.Execute(hucredegeri)
For Each Match In matches
' s = s & " Position: " & Match.FirstIndex
s = Match.Value
's = s & Chr(10)
Cells(adnan, yurdakul) = s
yurdakul = yurdakul + 1
Next
bul = s
Else
bul = ""
End If
End Function
Adnan bey,teşekkür ederim..Ancak bunun gibi yaklaşık 85000 değer var, entere basınca yada tek bir butonla tüm değerleri refresh etme şansımız yokmu peki? Çok uzun sürüyor böylede,,çok sağolun..
