Selamlar.
Forumda, konu başlığı olarak yazdığım metni aradım, bir eşleşme bulamadım.
Konu hakkında yardımcı olabilecek birileri var ise yardım rica ediyorum.
Aşağıdaki kodu Sheet1 içine Worksheet ve Change yordamları ile ekledim.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value < 100 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
ElseIf Target.Value >= 100 And Target.Value < 200 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
End If
End If
End Sub
Sheet1'e eklediğim Oval 1, A1 hücresinin değerine göre renk değiştiriyor.
Şimdi Sheet 1'e yeni bir oval daha eklemek istiyorum, koşulları ilk şekil ile aynı olabilir, farklı da olabilir.
Sonrasında Oval 3, Oval 4 de ekleyeceğim...
Yukarıdaki kodu aynen yazıp, Oval 1 ifadesini Oval 2 yaparsam, kod birebir aynı olmasa da ilk satırı aynı olduğu için çalıştıramıyorum.
Bu kodları aynı yerde ancak birbirinden farklı olarak nasıl yazabilirim?
Forumda, konu başlığı olarak yazdığım metni aradım, bir eşleşme bulamadım.
Konu hakkında yardımcı olabilecek birileri var ise yardım rica ediyorum.
Aşağıdaki kodu Sheet1 içine Worksheet ve Change yordamları ile ekledim.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value < 100 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
ElseIf Target.Value >= 100 And Target.Value < 200 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
End If
End If
End Sub
Sheet1'e eklediğim Oval 1, A1 hücresinin değerine göre renk değiştiriyor.
Şimdi Sheet 1'e yeni bir oval daha eklemek istiyorum, koşulları ilk şekil ile aynı olabilir, farklı da olabilir.
Sonrasında Oval 3, Oval 4 de ekleyeceğim...
Yukarıdaki kodu aynen yazıp, Oval 1 ifadesini Oval 2 yaparsam, kod birebir aynı olmasa da ilk satırı aynı olduğu için çalıştıramıyorum.
Bu kodları aynı yerde ancak birbirinden farklı olarak nasıl yazabilirim?