barkodda yıldız koyma

[kaynak73]

ekteki dosyamda hücrede kendiliğinden sürekli
yıldız çıkmasını istiyorum
ekteki dosyada anlatımım mevcut

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:H]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Value = "*" & Replace(Target.Value, "*", "") & "*"
End Sub

 

[kaynak73]

üstadım çok teşekkürler tam istediğim gibi

 

[Orion1]

üstadım çok teşekkürler tam istediğim gibi

Rica ederim.
İyi çalışmalar.