Tarih formatından metin formatına dönüşüm

[tamer42]

Merhaba,
6-0 gibi bir veri, Hücreye "aaa.yy" tarih formatındaki gelmektedir. veriyi "a-y" gibi metin formatında yazdırmak için aşağıdki kodu yazdım, yalnız biraz amatör oldu, orjinal haline dönüşüm için daha profesyonel bir çözüm olabilir mi?

Sub Testttt()
Dim Rng As Range
Dim str As String

Set Rng = Range("A1")

If Rng.NumberFormat = "mmm-yy" Then

  a = Month(Rng.Value)
  y = Year(Rng.Value)
  y2 = y - 2000
  str = CStr(a) & "-" & CStr(y2)
  Rng.Clear
  Rng.NumberFormat = "@"
  Rng.Value = str
  Rng.NumberFormat = "General"
End If

End Sub

teşekkürler,
iyi çalışmalar.

 

[Muzaffer Ali]

Merhaba.
6-0 gibi değerleri yazacağınız hücrelerin biçimini Metin olarak değiştirdikten sonra 6-0 yazabilirsiniz.

 

[tamer42]

Merhaba.
6-0 gibi değerleri yazacağınız hücrelerin biçimini Metin olarak değiştirdikten sonra 6-0 yazabilirsiniz.

Hocam burada veri yazıldıktan sonra değiştireceğiz.