Макрос копировать значение ячейки на другой лист в пустую строку(без форматов и формул)

Пользователь

Сообщений: 67 Регистрация: 16.03.2015

03.04.2015 02:56:01

Здравствуйте помогите написать вышеупомянутый макрос, мои попытки сделать это не работают:

Код
Sub 111() Dim m% m = lngLastRow = Sheets("Лист1").UsedRange.Rows.Count Sheets("Лист1").Range [m + 1].Value = Range("B4").Value End Sub

или еще:

Код
Sub 222() Dim lngLastRow As Long lngLastRow = Sheets("Лист1").UsedRange.Rows.Count Sheets("Лист1").Range(lngLastRow + 1).Value = Range("B4").Value End Sub

думаю ошибки в формулировках: Range(lngLastRow + 1) и .Range [m + 1], не знаю как правильно прописать... да и вообщем не уверен что макрос рабочий...) прошу помощи)

Изменено: Paha_Fil - 03.04.2015 03:01:52

Cancel

Пользователь

Сообщений: 3 Регистрация: 02.04.2015

03.04.2015 05:01:53

Код
Sub d() Dim lngLastRow As Long lngLastRow = Sheets("Лист1").UsedRange.Rows.Count Sheets("Ëèñò1").Cells(lngLastRow + 1, 1).value = 1 End Sub

Изменено: Cancel - 03.04.2015 05:13:05

Paha_Fil Пользователь Сообщений: 67 Регистрация: 16.03.2015	#3 03.04.2015 06:02:02 Cancel, спасибо, подставил свое значение и заработало!!! прекрасно!