Soru açıklamaları düzenleme

[NADİR YILDIZ]

sorunumla ilgili olarak örnek dosyam içinde açıklama yaptım.
yardımcı olacak arkadaşlara şimdiden teşekkür ederim

 

[Belleksizz]

Hocam merhaba
ben bu tarz işlemlerde ekte gönderdiğim gibi bir yol izliyorum belki daha kolay bir yolu vardır ama ben bu şekilde ilerliyorum hep

öncelikle işlem yapmak istediğim alanları adan z'ye olacak şekilde sıralıyorum yada ayrı bir sayfaya alıyorum
o sayfada da ekte gönderdiğim gibi bir işlem yapıyorum umarım işine yarar

 

[veyselemre]

Sub splitUpRegexPattern()
    For Each c In ActiveSheet.Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
        With CreateObject("VbScript.Regexp")
            .Pattern = "(^[0-9]+)(X[0-9]+)([\S]+)"
            If .test(c.Value) Then
                c.Offset(0, 1) = .Replace(c.Value, "$1" & "-" & "$3")
            Else
                c.Offset(0, 1) = c.Value
            End If
        End With
    Next
End Sub

 

[ÖmerBey]

Merhaba,
Deneyiniz...

=EĞER(ESAYIYSA(--PARÇAAL(A2;BUL("X";A2)+1;12));DEĞİŞTİR(A2;BUL("X";A2);13;"-");A2)

 

[NADİR YILDIZ]

Sayın Belleksizz bey
Sayın Veysemre bey
Sayın Ömer bey

pratik ve değişik çözüm önerileriniz için hepinize ayrı ayrı teşekkür ederim.
dosyamda hepsini ayrı ayrı uyguladım.
iyi varsınız

iyi çalışmalar