Metne Çevir Makro Kodu

[baydeniro]

Merhaba arkadaşlar. METNEÇEVİR fonksiyonunu veya İsteğe Uyarlanmış işlevini makro koduna uyarlama nasıl olabilir ? Örnek dosya ekte.

 

[mersilen]

Merhaba
isteğe uyarlanmış kısma
# ### ##
yazarak deneyin.

=METNEÇEVİR(A2;"# ### ##")

 

[baydeniro]

Teşekkür ederim sayın mersilen. Bir durumdan ötürü makro kodu ile yapmamız gerekiyor.

 

[Orion1]

Buyurun.

Range("B2").Value = Format(Range("A2").Value, "# ### ##")

 

[baydeniro]

Çok çok teşekkür ederim Sayın Orion1. Çok uğraştıum ama doğrı syntaxı buluo ta bir türlü kendi başıma beceremedim. B2 - A2 yi B2:B100 - A2:A100 olarak yapmak mümkün mü ?

 

[Orion1]

Buyurun.

Sub aralık_biçimle59()
Dim i As Byte
For i = 2 To 100
    Cells(i, "B").Value = Format(Range("A" & i).Value, "# ### ##")
Next
End Sub

 

[baydeniro]

Muhteşemsiniz Sayın Orion1. Allah tuttuğunuzu altın etsin.

 

[baydeniro]

Sayın Orion1 yardımlarınız için gerçekten çok minnettarım. Aklıma bir fikir daha geldi, kendim yapmaya çalıştım olmadı. Bu koda şöyle bir koşul nasıl ekleyebiliriz.

Örneğin; rakam ................ den büyükse veya
Soldan 2 karakter 53 ise gibi !!

 

[Orion1]

Sayın Orion1 yardımlarınız için gerçekten çok minnettarım. Aklıma bir fikir daha geldi, kendim yapmaya çalıştım olmadı. Bu koda şöyle bir koşul nasıl ekleyebiliriz.

Örneğin; rakam ................ den büyükse veya
Soldan 2 karakter 53 ise gibi !!

Buyurun.

Sub aralık_biçimle59_V2()
Dim i As Byte
For i = 2 To 100
    If Right(Cells(i, "A").Value, 2) = "53" Or Right(Cells(i, "A").Value, 2) > "60" Then
        Cells(i, "B").Value = Format(Range("A" & i).Value, "# ### ##")
    End If
Next
End Sub

 

[baydeniro]

Ne diyeyim sayın Orion1, üstadsınız :bravo: . Saygı ile eğiliyorum. :icelim: Sağlıcakla kalın.