Hücre Biçimlendir >> İsteğe Uyarlanmış >> Tür

[sirkülasyon]

Hücreye
1 rakamını girdiğim zaman [1.(Birinci)]
2 rakamını girdiğim zaman [2.(İkinci)]
3 rakamını girdiğim zaman [3.(Üçüncü)] gibi rakam ile beraber yazı ile yazılması için
Hücre Biçimlendir >> İsteğe Uyarlanmış >> Tür kısmında ki yere hangi formatı girmem gerekiyor.

Yardımcı olabilir misiniz?

 

[Haluk]

Merhaba,

Bu iş format tipi seçmek ile olmaz, makro yazmak gerekir.

.

 

[Korhan Ayhan]

Denemeler yaptım ve aşağıdaki gibi sonuca ulaştım. Sizde deneyiniz.

Diğer değerler içinde tanımlama yapmanız gerekiyor.

[=1]0".(Birinci)";Genel

 

[sirkülasyon]

Korhan abi

[=1]0".(Birinci)";Genel

yazdığım zaman 1 için işlem görüyor.

[=2]0".(İkinci)";Genel

yazdığım zaman da 1 işlemini görmüyor. Bu sefer de 2 işlem görüyor.
İkinci tanımlama birinci tanımlamayı devre dışı bırakıyor.
Aynı hücrede yapılabilmesi için HALUK abi makro demişti.
Makro konusunda yardımcı olabilir misiniz?

 

[Seyit Tiken]

Üçe kadar döndürebiliyor, üçten fazla ise MAKRO kullanmak lazım.

[=1]"1.Birinci";[=2]"2.İkinci";"3.Üçüncü"

 

[Merhum İdris SERDAR]

.

Aşağıdaki kodu kullanabilirsiniz.

'İ.Serdar-2017

Private Sub Worksheet_Change(ByVal Target As Range)

Dim aln As Range

Set aln = Application.Intersect(Target, Me.Range("A:B")) 'A:B aralığını kendinize göre uyarlayın.
If aln Is Nothing Then Exit Sub

With Target
Select Case .Value

Case Is = 1: .NumberFormat = "[=1]0"".(Birinci)"";General"
Case Is = 2: .NumberFormat = "[=2]0"".(İkinci)"";General"
Case Is = 3: .NumberFormat = "[=3]0"".(Üçüncü)"";General"
Case Is = 4: .NumberFormat = "[=4]0"".(Dördüncü)"";General"
Case Is = 5: .NumberFormat = "[=5]0"".(Beşinci)"";General"
Case Is = 6: .NumberFormat = "[=6]0"".(Altıncı)"";General"
Case Is = 7: .NumberFormat = "[=7]0"".(Yedinci)"";General"
Case Is = 8: .NumberFormat = "[=8]0"".(Sekizinci)"";General"
Case Is = 9: .NumberFormat = "[=9]0"".(Dokuzuncu)"";General"
Case Is = 10: .NumberFormat = "[=10]0"".(Onuncu)"";General"

'Buraya istediğiniz sayıya kadar yazabilirsiniz.
'.......
'.......
'......

Case Else
.NumberFormat = "General"

End Select

End With

End Sub

.

 

[sirkülasyon]

İdris abi Teşekkür ederim