metni değişik hale getirme

[Fatih Şenkulak]

herkese merhaba

ekteki metni değişik hale getirmek istiyorum

ilgilenen herkese teşekkür ederim

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%
    For i = 3 To 12
        Cells(i, 5) = "Z" & Mid(Cells(i, 2), 5, 1) & _
        Mid(Cells(i, 2), 7, 2) & Left(Cells(i, 2), 3) & "-" & Mid(Cells(i, 2), 7, 6)
    Next i
    i = Empty
End Sub[/FONT]

 

[Erdem Akdemir]

Fatih bey neden Z4 diye başlıyor, Z14 olmayacak mı?

 

[Fatih Şenkulak]

murat osma bey çözümünüze teşekkür ederim
yanlız ben bir hata yaptım
gerçek verilerim D4 ile D50 arasında ve metinlerin yeni halinin geleceği sütunda
Q4 Q50 arasında biraz uğraştım fakat beceremedim sizden ricam kodları buna göre düzenleyebilirmisiniz

vaktinizi aldığım için kusura bakmayın

 

[Fatih Şenkulak]

sayın kuvari

4 olmasının sebebi bu yeni halleri direkt olarak muhasebe proğramına atacağım ve de orada sadece 14 hane kullanabiliyorum
onun için 1 karekteri oradan kıstım

ilginize teşekkür ederim

 

[Murat OSMA]

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%
    For i = [COLOR="Red"]4 To 50[/COLOR]
        Cells(i, "[COLOR="red"]Q[/COLOR]") = "Z" & Mid(Cells(i, "[COLOR="red"]D[/COLOR]"), 5, 1) & _
        Mid(Cells(i, "[COLOR="red"]D[/COLOR]"), 7, 2) & Left(Cells(i, "[COLOR="red"]D[/COLOR]"), 3) & "-" & Mid(Cells(i, "[COLOR="red"]D[/COLOR]"), 7, 6)
    Next i
    i = Empty
End Sub[/FONT]

 

[Fatih Şenkulak]

sayın Murat Osma

denedim oldu teşekkürler


bu işlemi formüllerle yapma şansımız var mıdır ?

teşekkürler

 

[Erdem Akdemir]

Fatih bey formülle yapmak isterseniz,

E3 hücresine,

="Z"&PARÇAAL(B3;5;1)&PARÇAAL(B3;7;2)&SOLDAN(B3;3)&PARÇAAL(B3;6;99)

 

[Mahir64]

MErhaba,

- 'den önce ve sonraki metin uzunluklarında farklılık varsa aşağıdaki formülü kullanabilirsiniz.

="Z"&SAĞDAN(PARÇAAL(B3;1;BUL("-";B3)-1);1)&SOLDAN(PARÇAAL(B3;BUL("-";B3)+1;
UZUNLUK(B3));2)&SOLDAN(PARÇAAL(B3;1;BUL("-";B3)-1);3)&"-"&PARÇAAL(B3;BUL("-";
B3)+1;UZUNLUK(B3))

 

[Fatih Şenkulak]

sayın; kuvari,çümen,ve osma hepinizin çözümlerini de denedim
hepsi de %100 sonuç verdi

teşekkür ederim,

 

[Mahir64]

İyi çalışmalar Fatih Bey.

--