Страницы: 1
RSS
Как скопировать данные с одного листа на другой на основании данных в столбце
 
Код
НаименованиеЦенаКоличество Яблоки160р10кгГруши190р18кгВиногшрад210р15кг

Как скопировать данные с одного листа на другой на основании данных в столбце (то есть где попадаются яблоки). Есть формула, но не работает хоть ты тресни:

=filter(Лист1!A:C;Лист1!A:A="Яблоки")  

Причем я так понял формулу надо вставлять в ячейку A2 второго листа. или нет. Всё время ругается на Имя. Имя ему не нравится.

Так же нашел макро, выложил какой то индус и тоже ни не работает:

Sub Copy_Criteria ()
Dim i, LastRow
LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet2").Range("A2:I500").ClearContents
For i = 2 To LastRow
If Sheets("Sheet1").Cells(i, "E").Value = "" Then
Sheets("Sheet1").Cells(i, "E").EntireRow.Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
End Sub
Изменено: ole-van-de - 15.09.2019 18:00:27
 
Глубоко извиняюсь, исправил VBA и скрипт заработал:

Sub Copy_Criteria ()
Dim i, LastRow
LastRow = Sheets("Лист1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Лист2").Range("A2:I500").ClearContents
For i = 2 To LastRow
If Sheets("Лист1").Cells(i, "A").Value = "Яблоки" Then
Sheets("Лист1").Cells(i, "A").EntireRow.Copy Destination:=Sheets("Лист2").Range("A" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
End Sub

А вот формула... интересно..  
Изменено: ole-van-de - 15.09.2019 18:01:02
 
ole-van-de, код следует оформлять соответствующим тегом: ищите такую кнопку (см. скрин) и исправьте своё сообщение.
Страницы: 1
Наверх