Hücredeki sayıları metine çevirme

[beyrek1972]

Merhaba
A sutunda A6 hücresinde şube numaraları var bu numaralar 1,2 ve 3 den oluşuyor. C sutunundada tarih var ve tarihleride metine çevirmem gerekiyor.
E sutundada stokgrup numaralrı var ve bunlarda 1,2 ve 3 diye devam ediyor
aşağıdaki gönderdiğim kodlarla yaptığım zaman stokgrup no larının 1,2 ve 3 numararınıda metine çeviriyor bu stok numaralrının metine çevrilmemesi için ne yapabilirim bana yardımcı olmanız mümkünmü şimdiden teşekkür ederim.

Sub DÜZENLE()
For X = 6 To [A65536].End(3).Row
Select Case Cells(X, 1)
Case Is = 1: Cells(X, 1) = "CN"
Case Is = 2: Cells(X, 1) = "CL"
Case Is = 3: Cells(X, 1) = "BC"
End Select
If IsDate(Cells(X, 3)) = True Then Cells(X, 3) = Format(Cells(X, 3), "mmmm")
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklerseniz çözüme ulaşmak daha kolay olacaktır.