Şarta bağlı olarak sayılar girme

[ommerk]

Merhaba,
Yapmak istediğim AD2 hücresi boş ise B2: D4 aralığı boş olacak (burayı yapabiliyorum)
AD2 hücresi dolu ise:
b2=1 c2=2 d2=3
b3=4 c3=5 d3=6
b4=7 c4=9 d4=9 yazmasını istiyorum.
Bunu her hücre için ayrı ayrı kodlarını yazarak yapabildim.
Fakat sormak ve yapmak istediğim B2: D4 aralığına 1'den 9'a kadar olan sayıları
yaz koşulunu daha sade olarak yapılmasını nasıl sağlarım.
9 koşulu tek tek yazmak yerine tek seferde nasıl yapılır

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("ad2") = "" Then
Range("b2") = 1
Range("c2") = 2
Range("d2") = 3

Range("b3") = 5
Range("c3") = 6
Range("d3") = 7

Range("b4") = 7
Range("c4") = 8
Range("d4") = 9
Else
Range("B2: D4") = ""
End If

End Sub

 

[Korhan Ayhan]

Merhaba,

Eğer AD2 hücresine elle veri girişi yapıyorsanız aşağıdaki kodu kullanabilirsiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim My_Rng As Range, No As Byte
    
    If Intersect(Target, Range("AD2")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Target <> "" Then
        For Each My_Rng In Range("B2:D4")
            No = No + 1
            My_Rng = No
        Next
    Else
        Range("B2:D4").ClearContents
    End If
End Sub

 

[ommerk]

Teşekkür ederim yardımınız için.
istediğim buydu.