Makro ile belirlenen hücreyi * yıldız göstermek

[Levent Menteşoğlu]

Haklısınız kodda gerekli düzeltmeyi yaptım. Üstteki kodu tekrar deneyin.

 

[cqners]

Sn. LeventM bey,

Yeni kodda B8 B10 B12 de yıldız olmakta ve gizlisayfaya veri aktarmamakta.

C8 C10 C12 de problem yok düzgün çalışmakta.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$B$8" Then [gizlisayfa!b1] = Target
If Target.Address = "$B$10" Then [gizlisayfa!b2] = Target
If Target = "" Then Exit Sub
If Intersect(Target, [c8,c10,c12]) Is Nothing Then Exit Sub
deg = WorksheetFunction.Rept("*", Len(Target))
If Target.Address = "$C$8" And Target <> deg Then [gizlisayfa!a1] = Target
If Target.Address = "$C$10" And Target <> deg Then [gizlisayfa!a2] = Target
If Target.Address = "$C$12" And Target <> deg Then [gizlisayfa!a3] = Target
Target = deg
If [gizlisayfa!a1] = "den1568me" Then UserForm1.Show 0
If [gizlisayfa!a2] = "95654654" Then UserForm1.Show 0
If [gizlisayfa!a3] = "berkanbeyt" Then UserForm1.Show 0
End Sub

 

[cqners]

Sn. LeventM Bey,

İlginiz için Teşekkürler,

2 gündür bu konu ile ilgili uğraştım başaramadım ama çok farklı konular hakkında tecrübe edindim.

Tekrardan yardımlarınız için Teşekkürler.