10 (11 De Olabİlİr) Karekterden Olusan DeĞerin BaŞtan 5. Karakterinden Sonra - Koymak

[yun.em]

Merhaba ArkadaŞlar...

Elİmde 2430 HÜcreden OluŞan Bİr Sutun Var Ve Bu Sutundakİ Her HÜcrede 10 Karekterden Olusan DeĞer Var... (440582f880 Gİbİ) Ben Bu DeĞerİ ( 44058-2f880) Şeklİne Çevİrmek İstİyorum...yanİ 5. Karekterden Sonra - (Çİzgİ) Koymasini İstİyorum...

Not: 2430 Satir OlduĞu İÇİn Elle Tek Tek Yapmam Çok Zor...

Not: 11 Karaterlİ Olmasi Önemlİ DeĞİl Önemlİ Olan BaŞtan İtİbaren BeŞİncİ Karekterden Sonra Çİzgİ Koymasi

Dosyayi Eklİyorum...(İŞlem B Sutunuda )

 

[Ali]

Aşağıdaki formülü deneyiniz.

=PARÇAAL(A1;1;5)&"-"&YERİNEKOY(A1;PARÇAAL(A1;1;5);"")

 

[Recep İpek]

Aşağıdaki formülüde deneyebilrisiniz.

=LEFT(B3;5)&"-"&MID(B3;6;LEN(B3)-5)

 

[Necdet]

Sayın Ali Bey yanıtlamış, alternatif olması açısından

=LEFT(B3;5)&" - " & RIGHT(B3;LEN(B3)-5)
=SOLDAN(B3;5)&" - " & SAĞDAN(B3;UZUNLUK(B3)-5)

Sayın ripek, sizin yanıtınızı görmedim, bağlantım çok kötü olduğu için yanıtım çok geç gitmiş, aynı şeyi önerdiğimiz için yazmazdım. bakalım bu düzeltmeyi kaç dakikata yapabilecem

 

[Orion1]

Merhaba.
Makro ile aşağıdaki kodlarla olur.

Sub karakter()
sat = 1
For i = 1 To Cells(65536, "B").End(xlUp).Row
    If Len(Cells(i, "B")) > 5 Then
        For k = 1 To Len(Cells(i, "B"))
            If k = 6 Then
                metin = metin & "-"
            End If
            metin = metin & Mid(Cells(i, "B").Value, k, 1)
        Next k
    Cells(sat, "C").Value = metin
    metin = ""
    sat = sat + 1
    End If
Next i
MsgBox "İşlem Tamam"
End Sub

 

[yun.em]

TeŞekkÜrler....

Tüm cevap verenlere ve zaman ayırıp değerlendiren herekeze teşekkürler...


Not: Kimi soruların yanıtlarının çok zor olacağını düşünürken çok çok basit cevaplarla sorunumu çözüyorum kimi zamanda tam tersi (bu soruda olduğu gibi .. nekadar uzun bir formül... yorumlamaya bile cesaret edemeden kopyala yapıştır yaptım... saygılar....