Soru Hücrenin Sonuna Yıldız Koyma

[bulentkars]

Arkadaşlar Merhaba,

"B2 ve E2" hücrelerine metin girildiğinde sonuna "*"yazılması gerekiyor. ilgili hücrelere metin girildiğinde eğer sonunda "*" girilmemiş ise metnin sonuna yıldız yazmasını istiyorum. yılıdız varsa tekrar yıldız yazmayacak. Yardımcı olabilirseniz sevinirim. Şİmdiden Teşekkürler..

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B2,E2")) Is Nothing Then Exit Sub
    With Target
        If .Count > 1 Then Exit Sub
        If .Value = "" Then Exit Sub
        If Right(.Value, 1) <> "*" Then
            .Value = .Value & "*"
        End If
    End With
End Sub

 

[bulentkars]

Ömer Bey,

Elinize sağlık.. Çok Teşekkür Ederim.