Apply Macro to another sheet in the same workbook

[link57]

Hi all ! I'm new to VBA and would like to know how to apply Macro to another sheet in the same workbook. I have created some macro buttons like below for one department (a) to input data:

Now I want to create another sheet for another department (b) to input data, with the same macro buttons as the sheet of department (a). Please help.

Thank you

 

[mohadin]

Hi
In you macro you can use

With Activesheet
.
.
. 
End With

It would be better to share your code/s

 

[link57]

Please find the sample in here. I would like to have the same macro buttons with the same function for licensing & accounting sheets. It would be great if there are some improvement advices.


Thank you

 

[mohadin]

Private Sub btnInsert_Click()
    Dim dong_cuoi As Long
    dong_cuoi = Sheet1.Range("B10000").End(xlUp).Row + 1
    With ActiveSheet
         .Range("B" & dong_cuoi) = txtSTT.Text
         .Range("C" & dong_cuoi) = txtClientcode.Text
         .Range("D" & dong_cuoi) = txtClientname.Text
         .Range("E" & dong_cuoi) = txtProposal.Text
         .Range("F" & dong_cuoi) = txtContract.Text
         .Range("G" & dong_cuoi) = txtServicestatus.Text
         .Range("H" & dong_cuoi) = txtADate.Text
         .Range("I" & dong_cuoi) = txtServicemonth.Text
         .Range("J" & dong_cuoi) = txtServiceyear.Text
         .Range("K" & dong_cuoi) = txtBillable.Text
         .Range("L" & dong_cuoi) = txtVAT.Text
         .Range("M" & dong_cuoi) = txtTotalUSD.Text
         .Range("N" & dong_cuoi) = txtTotalVND.Text
         .Range("O" & dong_cuoi) = txtPaymentstat.Text
         .Range("P" & dong_cuoi) = txtPIC.Text
    End With
End Sub

Sub Macro_print()
'
' Macro_print Macro
'

'
    ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Sub Macro1_sortmonth()
'
' Macro1_sortmonth Macro
'

'
    ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key _
        :=Range("I9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveSheet.AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sample (2).xlsm

Shared with Dropbox

www.dropbox.com

 

[link57]

Thank you for your help

 

[mohadin]

You are welcome
And thank you for the feedback
Be happy & safe