Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Копирование ячеек листов в одной книге, Копирование ячеек макросом
 
Здравствуйте! Прошу помощи, поправьте пожалуйста макрос, чтобы запись начиналась с первой строки и самое важное на листе "Поступление" ячейки (Range("C8")), Range("C10"), Range("D6"), Range("F6") сдвигаются в зависимости от количества наименований товара, как передаваемые ими данные в лист "Архив"  привязать на постоянку, так как наименование товара каждый раз разное (в приведенном мной примере "4", но оно каждый раз разное, соответственно и ячейки с которых берутся нужные данные каждый раз сдвигаются).  
 
Цитата
соответственно и ячейки с которых берутся нужные данные каждый раз сдвигаются.  
Ищете строку со словом Итого: и данные привязываете к найденной строке
Код
Dim FoundItogo As Range
  Set FoundItogo = Columns("A").Find("Итого:", , xlValues, xlWhole)
 arr = Array(CDate(Cells(FoundItogo.Row + 2, "C")), Cells(FoundItogo.Row + 4, "C"), _
             Cells(FoundItogo.Row, "D"), Cells(FoundItogo.Row, "F"))
Дальше ваш код
 
Спасибо! Теперь работает на 100%, на будущее, если правильно понимаю любые ячейки можно вытянуть, важно задать 0 (в моем случае Columns("A").Find("Итого:", , xlValues, xlWhole) )
 
Цитата
важно задать 0
Это при условии, что строки с Дата: и Поставщик: будут располагаться относительно строки с Итого: также, как в примере
Страницы: 1
Читают тему (гостей: 1)