beyrek1972
Altın Üye
- Katılım
- 11 Mart 2008
- Mesajlar
- 161
- Excel Vers. ve Dili
- xp
- Altın Üyelik Bitiş Tarihi
- 13-03-2029
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
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
