giriş alanının tanımlanması

[bulentcigali]

'If ActiveCell.Value > Range("h21") Or ActiveCell.Value < Range("h40") Then
If ActiveCell.Value = Range("h39") Then
ActiveCell.Value = ComboBox5.Value
Else
MsgBox ("asfdsasasa")
End If

yukarıda belittiğim gibi sadece H21: H40 hücrelerine giriş yapmak istiyorum
" If ActiveCell.Value > Range("h21") Or ActiveCell.Value < Range("h40") Then " ifadesi ile yaptım olmadı
If ActiveCell.Value = Range("h39") Then
ActiveCell.Value = ComboBox5.Value bu ifade ilede tek bir hücreye yazdırdım buda amacına uygun olmadı ben ise H21: H40 hücrelerine giriş yapmak istiyorum.

 

[Seyit Tiken]

Aşağıdaki kodu, kodlarınızın en başına yazıp deneyin.

If Intersect(ActiveCell, [H21: H40]) Is Nothing Then Exit Sub

 

[bulentcigali]

teşekkür

çok teşekkür ederim seyit bey çalışmalarınızda başarılar dilerim.