Anyone can shrink this code?

[fucell]

is there a way to shorten this code ?

Range("b2").Value = frmquote.txtdate.Value
Range("b3").Value = frmquote.txtquote.Value
Range("b4").Value = frmquote.txtsalesman.Value
Range("b5").Value = frmquote.txtdterequired.Value
Range("b8").Value = frmquote.txtCompName.Value
Range("b9").Value = frmquote.txtadd1.Value
Range("b10").Value = frmquote.cmbo1.Value

frmquote.txtdate.enable = false
frmquote.txtquote.enable = false
frmquote.txtsalesman.enable = false
frmquote.txtdterequired.enable = false
frmquote.txtCompName.enable = false
frmquote.txtadd1.enable = false
frmquote.cmbo1.enable = false

thanks in advance.

 

[Carl Colijn]

so since after clicking the commandbuttong.click this code will activated

ActiveWorkbook.Worksheets("EngInfo").Select
Range("b2").Value = frmquote.txtdate.Value
frmquote.txtdate.enable = false
end sub

I would write that as:

ActiveWorkbook.Worksheets("EngInfo").Range("b2").Value = frmquote.txtdate.Value
frmquote.txtdate.enable = false
end sub

This way the selection is unchanged after the code is done (if another worksheet than "EngInfo" is selected it will remain selected).

In your form's module you'll probably have a line like

Private Sub commandbuttong_click
...
End Sub

You'd best put the sub I suggested in that module as well, outside of any other sub or function (like right above the "_click" sub itself).

Kind regards,
Carl Colijn

 

[fucell]

thank you mr. coljin!