iki kod u nasıl birleştirebilirim

[yolcu50]

:yardim: ekli iki kodu nasıl birştirirsem tek butonda çalıştırabilirim önce silip sonra yeni raporu hazırlayacak

Sub Seçileni_Temizle()
Sheets("RAPOR").Range("B4:J10000").ClearContents
End Sub


Sub AKTAR()
Dim SR As Worksheet
Dim SAY, SUT As Long
Set SR = Sheets("RAPOR")
For SAY = 2 To Sheets.Count
For SUT = 2 To Sheets(SAY).[a65536].End(3).Row
If SR.[L6] = Sheets(SAY).Range("A" & SUT).Value Then
S = S + 1
SR.Range("B" & S + 3 & ":J" & S + 3) = Sheets(SAY).Range("A" & SUT & ":I" & SUT).Value
End If
Next
Next
End Sub

 

[ECYavuz]

Selam bu şekli ile denediniz mi?
Çalışmalarınızda başarılar...

Sub AKTAR()
Dim SR As Worksheet
Dim SAY, SUT As Long
Set SR = Sheets("RAPOR")
SR.Range("B4:J10000").ClearContents
For SAY = 2 To Sheets.Count
For SUT = 2 To Sheets(SAY).[a65536].End(3).Row
If SR.[L6] = Sheets(SAY).Range("A" & SUT).Value Then
S = S + 1
SR.Range("B" & S + 3 & ":J" & S + 3) = Sheets(SAY).Range("A" & SUT & ":I" & SUT).Value
End If
Next
Next
End Sub

 

[yolcu50]

ustam teşekkür sorunsuz çalışıyor