Çift Harfleri Temizle

[baydeniro]

Merhaba Arkadaşlar;
Hücrelerde belli bir düzeni olmayan çift veriler var. Örneğin;
- veri : W2:W2 - olması beklenen > W2
- veri : RF34:RF34 - olması beklenen > RF34
- veri : 12hg:12hg - olması beklenen > 12hg

 

[Haluk]

Örnek dosya var mı?

.

 

[baydeniro]

Teşekkürler üstad

 

[Haluk]

Dosyanızdaki verilerin olduğu hücreleri (A sütununda) fareyle seçin ve hücreler seçili durumdayken aşağıdaki kodu çalıştırın;

Sub Test()
'   Haluk - 05/09/2021
'   sa4truss@gmail.com
'   https://excelhaluk.blogspot.com/

    Dim RegExp As Object, xRng As Range
   
    If RegExp Is Nothing Then Set RegExp = CreateObject("VBScript.RegExp")
   
    With RegExp
      .MultiLine = False
      .Global = True
      .IgnoreCase = True
      .Pattern = "\b([^:]+)[:]+\1\b"
    End With
   
    For Each xRng In Selection
        xRng = RegExp.Replace(xRng, "$1")
    Next
End Sub

.

 

[mehmetuca]

=PARÇAAL(A2;MBUL(":";A2)+1;MBUL(":";A2))

 

[baydeniro]

Dosyanızdaki verilerin olduğu hücreleri (A sütununda) fareyle seçin ve hücreler seçili durumdayken aşağıdaki kodu çalıştırın;

Sub Test()
'   Haluk - 05/09/2021
'   sa4truss@gmail.com
'   https://excelhaluk.blogspot.com/

    Dim RegExp As Object, xRng As Range
  
    If RegExp Is Nothing Then Set RegExp = CreateObject("VBScript.RegExp")
  
    With RegExp
      .MultiLine = False
      .Global = True
      .IgnoreCase = True
      .Pattern = "\b([^:]+)[:]+\1\b"
    End With
  
    For Each xRng In Selection
        xRng = RegExp.Replace(xRng, "$1")
    Next
End Sub

.

Üstad harikasınız, aklınıza sağlık, mükemmel olmuş. Sağlıcakla kalın

 

[baydeniro]

=PARÇAAL(A2;MBUL(":";A2)+1;MBUL(":";A2))

mehmetuca formül için teşekkürler. ama ":" her hücrede olmayabiliyor

 

[Korhan Ayhan]

Paylaştığınız örnek dosyaya göre formülle alternatif;

=EĞERHATA(EĞER(SOLDAN(A2;BUL(":";A2)-1)=PARÇAAL(A2;BUL(":";A2)+1;12);SOLDAN(A2;BUL(":";A2)-1);A2);""&A2)

 

[baydeniro]

Paylaştığınız örnek dosyaya göre formülle alternatif;

=EĞERHATA(EĞER(SOLDAN(A2;BUL(":";A2)-1)=PARÇAAL(A2;BUL(":";A2)+1;12);SOLDAN(A2;BUL(":";A2)-1);A2);""&A2)

çok teşekkürler üstad, sağlıcakla kalın