Belirli hücrelerde aktife olan combobox

[mesutaygun70]

Option Explicit

Private Sub ComboBox1_Change()
ActiveCell.Value = ComboBox1.Value
End Sub

Yukarıdaki kodun sadece Sayfa3 A3:C36 arasında aktive olması için neresini değiştirmem lazım.

 

[hamitcan]

Kod satırının başına ekleyip dener misiniz ?

    If Intersect(ActiveCell, Range("a3:c36")) Is Nothing Then Exit Sub