bir sayfada birden fazla Private Sub Worksheet_Activate() kullanılabilir mi?

[spacebar]

günaydın değerli üstadlarım.
bir sayfada birden fazla Private Sub Worksheet_Activate() kullanılabilirmi. veya nasıl çözebiliriz.
teşekkürler...

 

[YUSUF44]

Kullanılamaz ama aynı kod bloğu içinde farklı işlemler yaptırılabilir. Siz tam olarak ne yapılmasını istiyorsunuz?

 

[spacebar]

yusuf bey iki tane farklı kodum var. bu ikisi de sayfa aktif olduğunda çalışmasını istiyorum. ben 1-2 gibi denemeler yaptım ama olmadı. kodlarım şunlar:

Private Sub Worksheet_Activate()

Range("L1").Select
Selection.Copy
Range("L2:L2000").Select
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Sub





Private Sub Worksheet_Activate()
 
 For i = 2 To Cells(Rows.Count, 1).End(3).Row
 If Cells(i, "A") <> "" Then
 Set Hcr = Cells(i, "G")
 If ChkVrm(Hcr) Then
 Set Check = ActiveSheet.CheckBoxes.Add(Hcr.Left, Hcr.Top, Hcr.Width, Hcr.Height)
  Check.Caption = ""
  End If
  End If
   Next
   End Sub

teşekkürler...

 

[YUSUF44]

Aşağıdaki gibi deneyiniz:

Private Sub Worksheet_Activate()
    Range("L1").Copy Range("L2:L2000")
    Range("L2:L2000").Copy : Range("L2:L2000").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
    
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
         If Cells(i, "A") <> "" Then
             Set Hcr = Cells(i, "G")
             If ChkVrm(Hcr) Then
                 Set Check = ActiveSheet.CheckBoxes.Add(Hcr.Left, Hcr.Top, Hcr.Width, Hcr.Height)
                  Check.Caption = ""
              End If
          End If
       Next
End Sub

 

[spacebar]

Üstad ellerinize sağlık sorunsuz çalıştı. anladığım kadarıyla bu gibi durumlarda kodları birleştirerek revize etmek gerekiyor. ben ayrıca bir yolu olabilirmi onu da öğrenmek istemiştim. yani birinci aktivite ikinci aktivite gibi. tekrar teşekkür ederim.