textbox da % işareti yazmadan gösterme

[Amaxx]

selam arkadaşlar,
1. textbox a sadece rakam girdiğimde % işaretinin de görünmesi için nasıl bir kod yazılmalı?
2. D sütununun değeri sıfır veya boş satıları gizle makrosu nasıl yazılır

 

[Ali]

selam arkadaşlar,
1. textbox a sadece rakam girdiğimde % işaretinin de görünmesi için nasıl bir kod yazılmalı?

Alternatif1

Private Sub TextBox1_AfterUpdate()
TextBox1.Value = TextBox1.Value & "%"
End Sub

Alternatif 2

Private Sub TextBox1_AfterUpdate()
Dim sTemp As String, val As Single
sTemp = TextBox1.Text
If Not (InStr(1, sTemp, "%", vbTextCompare) < 1 _
And IsNumeric(sTemp)) Then _
Exit Sub
val = CSng(sTemp)
TextBox1.Text = Format(IIf(val < 1, val, val / 100), "#.00%")
End Sub

selam arkadaşlar,
2. D sütununun değeri sıfır veya boş satıları gizle makrosu nasıl yazılır

Sub sıfırgizle()
For x = [d65526].End(3).Row To 2 Step -1
    If Cells(x, 4).Value = "0" Then Rows(x).Hidden = True
Next
End Sub

 

[Amaxx]

Ali bey çok teşekkürler.
1.nci sorumda ben afterupdate yerine change yapmışım hatamı gördüm. :mrgreen:

2.nci sorum için yazdığınız kod bende neden çalışmadı