Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
UserForm1.TextBox1 = Range("A1").Formula
Application.EnableEvents = True
End Sub
Это в модуль формы
Код
Private Sub TextBox1_Change()
Application.EnableEvents = False
Range("A1").Formula = Me.TextBox1.Value
Application.EnableEvents = True
End Sub
МатросНаЗебре, у меня выкидывает с ошибкой если ввести на форме, например, =35+ ... и всё. Арифм.действие не нравится... ПыСы я то через кнопочку хотел делать ввод в ячейку...
написал: у меня выкидывает с ошибкой если ввести на форме, например, =35+
Тогда так:
Код
Private Sub TextBox1_Change()
Application.EnableEvents = False
On Error Resume Next
Range("A1").Formula = Me.TextBox1.Value
On Error GoTo 0
Application.EnableEvents = True
End Sub
Что то я делаю не так, у меня в книге 5 листов с разными названиями и в одном (выводной форме) эта формула ссылающаяся на другие листы =ОКРУГЛ((Source!F774/1000); 2) в первом варианте на до что бы делилось на 1000 во втором убрать 1000