THANK YOU VERY MUCH SIR
On Wed, Jan 25, 2012 at 5:09 PM, Sam Mathai Chacko wrote:
> Should be
>
>
> Private Sub cmdsave_Click()
> With Sheet1
> With UserForm1
> Range("F3") = .Name
> Range("F4") = .txtdesign
> Range("F6") = .txtdob
> Range("F7") = .txtdoj
> Range("F8") = .txtdor
> Range("F11") =
Should be
Private Sub cmdsave_Click()
With Sheet1
With UserForm1
Range("F3") = .Name
Range("F4") = .txtdesign
Range("F6") = .txtdob
Range("F7") = .txtdoj
Range("F8") = .txtdor
Range("F11") = .txtdor
Range("E11") = .txtdoj
Range("D29") = .txtpay
Range("H29") = .cbogp
Range("B40") = .txtpay
Range("E
Thank you very much.
On Mon, Jan 23, 2012 at 11:13 PM, Sam Mathai Chacko wrote:
> And for printing
>
> Private Sub CommandButton2_Click()
>
> Worksheets("Page1").PrintOut
> Worksheets("Page2").PrintOut
>
> End Sub
>
> Regards,
>
> Sam Mathai Chacko
>
>
> On Mon, Jan 23, 2012 at 6:44 PM, N
And for printing
Private Sub CommandButton2_Click()
Worksheets("Page1").PrintOut
Worksheets("Page2").PrintOut
End Sub
Regards,
Sam Mathai Chacko
On Mon, Jan 23, 2012 at 6:44 PM, NOORAIN ANSARI wrote:
> Dear Bheema,
>
> use below code format for your query..
>
> Private Sub cmdsave_Cl
Dear Bheema,
use below code format for your query..
Private Sub cmdsave_Click()
With Sheet1
with Userform1
.Range("F3")=.Name
.Range("F4")=.Design
.Range("F6")=.Dob
.Range("F7")=.Doj
.Range("F8")=.DOR
.Range("F11")=.DOR
.Range("E11")=.DOJ
.Range("D29")=.Pay
.Range("H29")=.GP
.Range("B40")=.Pay
.