Worksheet_Change de iki olay tanımlama

[hsayar]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b5]) Is Nothing Then Exit Sub
    tabbassat = s1.Range("e19")
    If s1.Cells(5, 2) < tabbassat Then
    MsgBox " satır nosu " & tabbassat & " sayısından küçük olamaz": s1.Cells(5, 2) = tabbassat: Exit Sub
    End If
    Snc_aln_Tem
    Veri_Al
    
If Intersect(Target, [b38]) Is Nothing Then Exit Sub
    Veri_Al_test
End Sub

b5 değişince kodlar çalışıyor ama b38 değişince çalışmıyor ne yapmalı

 

[Necdet]

Merhaba,

If Intersect(Target, [[B][COLOR=red]b5[/COLOR][/B]]) Is Nothing Then Exit Sub

Satırını

If Intersect(Target, [[B][COLOR=red]b5:B1000[/COLOR][/B]]) Is Nothing Then Exit Sub

Olarak Değiştiriniz.

 

[Recep İpek]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b5],[b38]) Is Nothing Then Exit Sub
If Target.Address <> "$B$5" Then
tabbassat = s1.Range("e19")
If s1.Cells(5, 2) < tabbassat Then
MsgBox " sat&#305;r nosu " & tabbassat & " say&#305;s&#305;ndan k&#252;&#231;&#252;k olamaz": s1.Cells(5, 2) = tabbassat: Exit Sub
End If
Snc_aln_Tem
Veri_Al​

Else
Veri_Al_test

End If
End Sub​

olarak deneyin.

 

[hsayar]

te&#351;ekk&#252;r ederim say&#305;n ripek

 

[hsayar]

say&#305;n ripek &#252;&#231; olay tan&#305;mlama nas&#305;l olmal&#305; peki

 

[Recep İpek]

Kodlara a&#351;a&#287;&#305;daki &#351;ekilde ilaveler yapabilirsiniz.​

Private Sub Worksheet_Change(ByVal Target As Range)​

If Intersect(Target, [b5],[b38],[b48]) Is Nothing Then Exit Sub
If Target.Address = "$B$5" Then
tabbassat = s1.Range("e19")
If s1.Cells(5, 2) < tabbassat Then
MsgBox " sat&#305;r nosu " & tabbassat & " say&#305;s&#305;ndan k&#252;&#231;&#252;k olamaz": s1.Cells(5, 2) = tabbassat: Exit Sub
End If
Snc_aln_Tem
Veri_Al​

ElseIf Target.Address = "$B$38" Then
Veri_Al_test
Else
....
....

End If
End Sub​

 

[hsayar]

anlad&#305;&#287;&#305;m kadar&#305;yla
1. if sat&#305;r&#305; ile h&#252;crelerin de&#287;i&#351;ip de&#287;i&#351;medi&#287;ini
devam&#305; ilede hangi h&#252;cre de&#287;i&#351;ti ise ona g&#246;re ko&#351;ullar&#305; yaz&#305;yoruz.
te&#351;ekk&#252;r ederim