Страницы: 1
RSS
Как перенести данный с листа на лист автоматичести?
 
Добрый день!  Есть файл , три листа.  На лист 1  копирую данные ( каждый день разное кол-во строк) , на листе 2 он считает разницу во времени(столбец E). На лист 3 надо перенести данные с листа 2  ВСЕ ЧТО БОЛЬШЕ 30 минут( в столбце E)  .  Все данные, всех ячеек нужной строки, больше 30 минут  с листа 2 .  Сейчас у меня на листе 3 проставленно все руками. Надо в такомже виде , но автоматически , при копировании данных на лист 1 .  
 
dimozavr,  такой вариант из приемов https://www.planetaexcel.ru/techniques/2/81/
смотрите файл.
Не бойтесь совершенства. Вам его не достичь.
 
Код
Sub vremya()
Dim lr As Long
Dim lr3 As Long

lr = Sheets("2").Cells(Rows.Count, 1).End(xlUp).Row
lr3 = 2
For i = 3 To lr
  If Sheets("2").Cells(i, 5).Value > 0.0209 Then
    Sheets("3").Cells(lr3, 5) = Sheets("2").Cells(i, 1)
    Sheets("3").Cells(lr3, 6) = Sheets("2").Cells(i, 2)
    Sheets("3").Cells(lr3, 7) = Sheets("2").Cells(i, 3)
    Sheets("3").Cells(lr3, 9) = Sheets("2").Cells(i, 5)
    lr3 = lr3 + 1
  End If
Next
Sheets("3").Cells(2, 8) = lr3 - 2 
  
End Sub
Изменено: Hellmaster - 30.10.2019 09:53:19
 
Огонь!! Спасибо!! работает.
 
dimozavr, вариант формулами к посту #2 - c автоматическим определением диапазона.
Не бойтесь совершенства. Вам его не достичь.
 
только хотел спросить как привязать кол-во !!! спасибо!! выручил..
 
изменил макрос из #3. Подсчитывает количество и не берет 0:30:00
Страницы: 1
Наверх