iki change olayını aynı sayfaya nasıl yazabilirim

[jambow]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Cells(4, 5)) Is Nothing Then Exit Sub
TextBox2.Value = [e4]

End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

  
  If Target.Row = 20000 Then MsgBox "DİKKAT  TOPTANCI HESAP DEFTERİ ÇOK UZADI LÜTFEN PROGRAM AÇILIRKEN ÇIKAN MAVİ SAYFADAKİ TOPTANCI HESAPLARI DÜĞMESİNE TIKLAYARAK TOPTANCI HESAPLARINA GİDİNİZ  VE __TOPTANCI DEFTERİNİ KÜÇÜLT__ DÜĞMESİNE BASINIZ"
   '20000. satırda işlem yapılırsa makro çalışır.
End Sub

aynı sayfaya böyle yazınca hata veriyor

 

[mesuttasar]

Sayfa 1 in kod bölümüne aşağıdaki kodu

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Cells(4, 5)) Is Nothing Then GoTo 10

UserForm1.Show
10
If Target.Row = 20000 Then MsgBox "DİKKAT  TOPTANCI HESAP DEFTERİ ÇOK UZADI LÜTFEN PROGRAM AÇILIRKEN ÇIKAN MAVİ SAYFADAKİ TOPTANCI HESAPLARI DÜĞMESİNE TIKLAYARAK TOPTANCI HESAPLARINA GİDİNİZ  VE __TOPTANCI DEFTERİNİ KÜÇÜLT__ DÜĞMESİNE BASINIZ"
   '20000. satırda işlem yapılırsa makro çalışır.


End Sub

Userformunuzun initialize olayınada

Private Sub UserForm_initialize()
TextBox2.Value = [e4].Value
End Sub

kodlarını yazıp bir deneyin.Sanırım işinizi görür.

 

[janveljan]

Textbox2 nin userform üzerinde değilde sayfa üzerinde olabileceğinden hareketle

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 20000 Then MsgBox "DİKKAT  TOPTANCI HESAP DEFTERİ ÇOK UZADI LÜTFEN PROGRAM AÇILIRKEN ÇIKAN MAVİ SAYFADAKİ TOPTANCI HESAPLARI DÜĞMESİNE TIKLAYARAK TOPTANCI HESAPLARINA GİDİNİZ  VE __TOPTANCI DEFTERİNİ KÜÇÜLT__ DÜĞMESİNE BASINIZ"
   '20000. satırda işlem yapılırsa makro çalışır.
If Intersect(Target, Cells(4, 5)) Is Nothing Then Exit Sub
TextBox2.Value = [e4]
End Sub

 

[jambow]

teşekkürler