Metne Çevİrme

[mixser]

Merhaba arkadaşlar

Formda aramama rağmen tam istediğim bir metne çevirme olayına rastlamadım. Onun için sizlerin yardımını istiyorum.


a stunundaki rakamları b stununa metin olarak aktarmak istiyorum.

a stunundaki rakamlar en fazla 4 basamaklı olabilir
b stununa aktarılırken 4 basamaktan az olan rakamların önüne 0 koyarak 4 basamağa tamamlamamız gerekiyor.


Normalde hücre biçimlendirmeden isteğe uyarlanmış bölümünden hücre biçimini 0000 yaparak bu sağlanabilir diyeceksiniz doğrudur bu şekilde oluyor.

Aktaracağım rakamlar barkod içinde kullanılacağından sıfırların görünmesi gerekiyor. Bahsedilen şekilde aktarma yapıldığında sıfırlar barkod içinde görünmüyor. Dolayısıyla aynen hücrenin içine metin olarak 0001-0010 yazar gibi aktarma yapmam gerekiyor.

Bu şekilde aktarmanın nasıl olacağı konusunda yardımlarınızı bekliyorum. Formül yada makro hangisi olursa.

Saygılarımla

 

[Necdet]

Merhaba,

Aşağıdaki kod işinizi görür mü bilmiyorum, tam olarak ne yapmak istediğinizi anlamadım çünkü.

=METNEÇEVİR(A1;"0000")
=TEXT(A1;"0000")

 

[mixser]

Merhaba sn. Yeşertener

Teşekkür ediyorum işimi gördü. Sağolun
saygılarımla

 

[N.Ziya Hiçdurmaz]

Yanıt

Makrolu örnek.

Sub AKTAR()
Dim SUT As Long
[B2:B1000].Clear
[B2:B1000].NumberFormat = "@"
For SUT = 2 To Cells(65536, "A").End(3).Row
If Len(Cells(SUT, "A")) <= 4 Then
Cells(SUT, "B") = "000000" & Cells(SUT, "A")
End If
Next
For SUT = 2 To Cells(65536, "B").End(3).Row
If Len(Cells(SUT, "B")) > 4 Then
Cells(SUT, "B") = Right(Cells(SUT, "B"), 4)
End If
Next
End Sub

 

[memoli1612]

MERABA Necdet Yeşertener VERDİĞİN FOMÜLDE 0000 YAZAN YERLERE NE YAZMALIYIM ANLAMADIM AÇIKLARMISINIZ LÜTFEN =METNEÇEVİR(A1;"0000")
=TEXT(A1;"0000")

 

[Necdet]

Merhaba memoli1612,

A1 de yazan 5 gibi bir rakamı B1 de 0005 olarak gösterir. Ama b1 hücresi tekxt olarak yani metin biçiminde olur.