good day to all..

i am new in making macro in excel and i want to make a macro that will copy a certain range to my active sheet and print it...

I have a multiple file so i already made a form for the program that will ask the starting filename and another inputbox that will ask the end of the file...

i have 11112.xls for start file
up to 11145.xls for end file

can anyone please help me...

thanks

Try the record macro feature...

Good Luck

Try the record macro feature...

Good Luck

i try that already but i did not come up with the result i wanted...

here is the sample program that i created so far

Option Explicit
Private Sub CommandButton1_Click()

Dim vTime As Date, vNumber As String, i As Long, j As Long, k As Long

UserForm1.TextBox5.Visible = True
UserForm1.Label3.Visible = True
UserForm1.TextBox6.Visible = True
UserForm1.Label4.Visible = True
UserForm1.TextBox7.Visible = True
UserForm1.Label5.Visible = True
UserForm1.TextBox8.Visible = True
UserForm1.Label6.Visible = True
UserForm1.TextBox9.Visible = True
UserForm1.Label7.Visible = True

Range("B116") = TextBox5.Text
Range("N116") = TextBox6.Text
Range("y116") = TextBox7.Text
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub Label7_Click()

End Sub

Private Sub TextBox5_Change()
Range("B116") = TextBox5.Text
End Sub

Private Sub TextBox6_Change()
Range("N116") = TextBox6.Text
End Sub


Private Sub TextBox7_Change()
Range("y116") = TextBox7.Text
End Sub

Private Sub TextBox8_Change()
' this will the start of the file that i will copy to my active program for printing .. the file will be incrementing by 1
End Sub

Private Sub TextBox9_Change()
' this will be the end of the file tha i will copy to my active program and print
End Sub

Private Sub UserForm_Initialize()

Call RemoveCaption(Me)


End Sub

hope somebody can help me...

thanks

for those who view this thank you but i guess nobody can help me... for what ever reason that they don't know the answer or i don't know but thanks anyway