Здравствуйте! Поискав в поисковиках пока не нашёл ответа на свой вопрос. Возможно неправильно формулирую, а может уровень понимания слабоват; но искать продолжу. В общем, подскажите, как сделать так, чтобы данные из таблицы на листе "Сделано" переносились в такую же таблицу в листе "Отчёт"; но чтобы переносились лишь те, в которых цена выше "0". Файл с соответствующими листами прикрепил. Спасибо!
Павел, ДД. формулой .... но нужно создать с запасом... ил сводной там придется обновлять и ставить фильтр. можно еще макросом... но к вашему вниманию вариант формулой (один из вариантов) и сводной
Спасибо за столь чудесный файл пример. Особенно помог комментарий в файле
Цитата
h - карту ins - страховка ,9 - 9 очков в наборе st - остановиться ins4 - страховка, вышло 4 десятки h9 - 9 очков в наборе sur - саренде ins4*10 - страховка, вышло 4 десятки aa = s12 = a-a - идентичная запись d - дабл ev/a - равные против туза 10-10 = 1010 = 20 - идентичная запись sp - сплит ev/10 - равные против десятки 3-3 = 33 - идентичная запись
Андрей VG, приветствую. а че) ну пусть еще будет макрос)
Код
Sub material()
Dim i As Long
Dim lr As Long
Application.ScreenUpdating = False
Worksheets("Отчёт").Range("B4:E" & Worksheets("Отчёт").Cells(Rows.Count, 2).End(xlUp).Row + 3).ClearContents
With Worksheets("Сделано")
lr = .Cells(Rows.Count, 4).End(xlUp).Row
For i = 4 To lr
If .Cells(i, 7) > 0 Then
lr = Worksheets("Отчёт").Cells(Rows.Count, 2).End(xlUp).Row + 1
If lr < 4 Then lr = 4
Worksheets("Отчёт").Cells(lr, 2) = .Cells(i, 4)
Worksheets("Отчёт").Cells(lr, 3) = .Cells(i, 5)
Worksheets("Отчёт").Cells(lr, 4) = .Cells(i, 7)
Worksheets("Отчёт").Cells(lr, 5) = .Cells(i, 9)
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
Цитата
Андрей VG написал: Особенно помог комментарий в файле