Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос копировать значение ячейки на другой лист в пустую строку(без форматов и формул)
 
Здравствуйте помогите написать вышеупомянутый макрос, мои попытки сделать это не работают:

Код
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 - 3 Апр 2015 03:01:52
 
Код
Sub d()
    Dim lngLastRow As Long
      
    lngLastRow = Sheets("Лист1").UsedRange.Rows.Count
     
    Sheets("Ëèñò1").Cells(lngLastRow + 1, 1).value = 1
End Sub
Изменено: Cancel - 3 Апр 2015 05:13:05
 
Cancel, спасибо, подставил свое значение и заработало!!! прекрасно!
Страницы: 1
Читают тему (гостей: 1)