İki modülden gelen kodu tek bir modülde birleştirin

Question

Aşağıdaki kodu bir modül/komut dosyasına birleştirmek/birleştirmek için.

Sub Erase() 
' 
' Erase Macro 
' Erase Data 
' 
rspn = MsgBox("Are you Sure?", vbYesNo) 
If rspn = vbNo Then Exit Sub 
'code 
' 
ActiveWindow.SmallScroll Down:=-27 
Range("N3:Y152").Select 
Selection.ClearContents 
Range("N3").Select 
Range("N3:Y152").Interior.Color = xlNone 

End Sub 



Sub MoveData() 
Dim vals As Range, val As Range, colOffset As Integer 

Set vals = Range("K3:K" & Range("K3").End(xlDown).Row) 

For Each val In vals 
    If val > 0 Then 
     colOffset = VBA.Month(val.Offset(0, 16)) 
     val.Offset(0, colOffset) = val 
     val.Offset(0, colOffset + 1) = val.Offset(0, 1) 
     val.Offset(0, colOffset + 2) = val.Offset(0, 2) 
    End If 
Next val 
MsgBox "Operation Completed" 
End Sub 

Answer 1

sonundaki "End Sub" Sil "Sub Silme()"

"Alt MoveData silin: "Sil" komut aday olacağını ilk ve ardından "MoveData" idam edilmeli() "

Erase() adından başka bir adı değiştirin.