Textbox value in selected cells

[S P P]

Textbox value in selected cells

Exemple

 

[Belleke]

Like this?

 

[S P P]

On the contrary

>>> use - code tags <<<

ActiveCell.Value = TextBox1
ActiveCell.Offset(1, 0).Value = TextBox2 =

 

[S P P]

I got it like this

>>> use - code tags <<<

Private Sub Copy_Click()
    On Error GoTo EH
    Application.ScreenUpdating = False
    With Selection
    .Offset(0, 0).Value = Format(TextBox1.Text, "R$ #,##0.00")
    .Offset(1, 0).Value = Format(TextBox2.Text, "R$ #,##0.00")
    .Offset(2, 0).Select
End With
    Application.ScreenUpdating = True
    TextBox3.Text = ""
    Unload Me
Exit Sub
EH:
End Sub
Private Sub UserForm_Initialize()
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    Set Rng = ActiveCell
    TextBox3.Text = Rng.Address
End Sub

 

[S P P]

Moderator Note:
Is it so hard to add/use code-tags as those has asked to add/use?

How to put this format for accounting
.Offset(0, 0).Value = Format(TextBox1.Text, "R$ #,##0.00")
.Offset(1, 0).Value = Format(TextBox2.Text, "R$ #,##0.00")

I tried this but it didn't work
Format(TextBox1.Text,"$ * #,##0.00") 'Accounting

 

[Belleke]

Like this?
Fill a value in textbox 1 and textbox 2 and press copy.
And please next time put your code between code tags
Do it like this < your code and at the end />
And next time post a representative example instead of a weak example

 

[S P P]

I need the value when copying to be in accounting format

 

[Belleke]

What is accounting format?
My last example does exactly what you asked.
Post a similar example with the desired results or figure it out yourself.

 

[Belleke]

That is the last time I help.

 

[S P P]

Thanks for the help