Hücre formatı PB/

[k0081]

Merhaba arkadaşlar;

bir hücre içerisine bu şekilde ayrı satırlara değerler giriyorum.

PB/166 , PB/164, PB/178-177-192 gibi..

yapmak istediğim: PB/ ibaresinin sabit olması. sadece sayıları ve - işaretini kendim yazacağım...

yardımcı arkadaşa şimdiden teşekkürler..

 

[Seyit Tiken]

 

[k0081]

olmadı dostum..

 

[Seyit Tiken]

Tırnaktan sonra 0(sıfır) yazıp deneyiniz. "PB/"0

 

[k0081]

Tırnaktan sonra 0(sıfır) yazıp deneyiniz. "PB/"0

Tek rakam yazdığım zaman oluyor. mesela 165 gibi. ama iki tane yazdığım zaman hücre formatı bozuluyor.. 165-166 gibi..

 

[Seyit Tiken]

Hücre Biçimlendirme'den 2'den fazla yapamadım ben, kodla daha fazla yapılabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Len([a1]) = 3 Then
[a1].NumberFormat = """PB/""0"
ElseIf Len([a1]) = 6 Then
[a1].NumberFormat = """PB/""000-000"
ElseIf Len([a1]) = 9 Then
[a1].NumberFormat = """PB/""000-000-000"
End If
End Sub

 

[k0081]

Hücre Biçimlendirme'den 2'den fazla yapamadım ben, kodla daha fazla yapılabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Len([a1]) = 3 Then
[a1].NumberFormat = """PB/""0"
ElseIf Len([a1]) = 6 Then
[a1].NumberFormat = """PB/""000-000"
ElseIf Len([a1]) = 9 Then
[a1].NumberFormat = """PB/""000-000-000"
End If
End Sub

Hocam yardımın için teşekkürler. Fakat verdiğin bu kodda da aynı sorun var. ikili yazdığım zaman PB ifadesi kayboluyor. ama tek olduğu zaman oluyor..

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki biçimi denermisiniz.

"PB/"Genel;"PB/"@

 

[k0081]

Merhaba,

Aşağıdaki biçimi denermisiniz.

"PB/"Genel;"PB/"@

Hocam çok teşekkürler tamamdır..