Здравствуйте все! Встала следующая проблема : в книге весь расчёт производится на 2-ом листе протягиванием(длинной) строки, а на первом листе заносятся исходные данные , необходимо чтобы расчитаные данные (не все ),а только красные заносились в таблицу на первом листе и чтобы расчет производился нажатием кнопки на первом листе, я пока иду по следующему пути: [vba]
Endrow = Cells.Find("*", , , , xlByRows, xlPrevious).Row Range(Cells(StartRow, StartCol), Cells(Endrow, Endcol)).FillDown End Sub
[/vba] но что то не получается и не соображу как сделать кнопку на другой странице и чтоб заносились данные ...прошу подтолкнуть в нужное русло. P.S спасибо еще раз за прошлую помощь Boroda и Pelena
Здравствуйте все! Встала следующая проблема : в книге весь расчёт производится на 2-ом листе протягиванием(длинной) строки, а на первом листе заносятся исходные данные , необходимо чтобы расчитаные данные (не все ),а только красные заносились в таблицу на первом листе и чтобы расчет производился нажатием кнопки на первом листе, я пока иду по следующему пути: [vba]
Endrow = Cells.Find("*", , , , xlByRows, xlPrevious).Row Range(Cells(StartRow, StartCol), Cells(Endrow, Endcol)).FillDown End Sub
[/vba] но что то не получается и не соображу как сделать кнопку на другой странице и чтоб заносились данные ...прошу подтолкнуть в нужное русло. P.S спасибо еще раз за прошлую помощь Boroda и Pelenazmur2004
каждый день я заношу данные X,Y,Z на лист"данные", потом лезу на лист "расчет" ,протягиваю строчку и выполняется расчет, потом копирую с листа "расчёт" то что выделено красным и вставляю в таблицу на листе "данные", Оччень муторно, мысль была сделать кнопку или как qlinq подсказал-но я так и не пойму как энтим пользоваться, еще раз выкладываю файл (исправил названия листов) ЛЮДИ ДОБРЫЕПОМОГИТЕ!
каждый день я заношу данные X,Y,Z на лист"данные", потом лезу на лист "расчет" ,протягиваю строчку и выполняется расчет, потом копирую с листа "расчёт" то что выделено красным и вставляю в таблицу на листе "данные", Оччень муторно, мысль была сделать кнопку или как qlinq подсказал-но я так и не пойму как энтим пользоваться, еще раз выкладываю файл (исправил названия листов) ЛЮДИ ДОБРЫЕПОМОГИТЕ!zmur2004
Русел, вроде, не так уж и много Попробуйте так [vba]
Код
Sub test() Dim LastRow As Long LastRow = Sheets("данные").Cells(Rows.Count, "I").End(xlUp).Row - 6 If LastRow = 0 Then Exit Sub With Sheets("расчет").Range("M7:AP7") .Resize(LastRow).FillDown Sheets("данные").Range("L7:Q7").Resize(LastRow).Value = _ .Offset(, 12).Resize(LastRow, 6).Value ' .CurrentRegion.Offset(2).ClearContents End With End Sub
Русел, вроде, не так уж и много Попробуйте так [vba]
Код
Sub test() Dim LastRow As Long LastRow = Sheets("данные").Cells(Rows.Count, "I").End(xlUp).Row - 6 If LastRow = 0 Then Exit Sub With Sheets("расчет").Range("M7:AP7") .Resize(LastRow).FillDown Sheets("данные").Range("L7:Q7").Resize(LastRow).Value = _ .Offset(, 12).Resize(LastRow, 6).Value ' .CurrentRegion.Offset(2).ClearContents End With End Sub