copy, paste and print

[marc0627]

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

[vb5prgrmr]

Try the record macro feature...

Good Luck

[marc0627]

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

[marc0627]

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