Witam!
OGROMNIE potrzebuję pomocy w napisaniu makra które pomoże mi w skopiowaniu określonego zakresu komórek spełniających określone warunki.
Powiedzmy że w moim arkuszu1 dane znajdują się w kolumnie A:B. W kolumnie B są listy wyboru: "wymagane", "niewymagane".
Potrzebuję do Arkusza2 skopiować zawartość kolumny A dla wierszy gdzie wartość w kolumnie B = "wymagane".
Utrudnieniem jest to że moje dane w Arkuszu1 znajdują się od 21 wiersza więc nie mogę skopiować calego arkusza.
Dane w Arkuszu2 potrzebuję wkleić również w określonym miejscu...
0
0
udadło mi się wymyślić coś takego, jak by kroś miał ochotę coś udoskonalić :
Sub copy()
Sheets("Arkusz1").Select
RowCount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
For i = 1 To RowCount
Range("b" & i).Select
check_value = ActiveCell
If check_value = "wymagany" Then
Cells(i, 1).Copy
Sheets("Arkusz2").Select
RowCount = Cells(Cells.Rows.Count, "c").End(xlUp).Row
Range("c" & i + 21).Select
ActiveSheet.Paste
Sheets("Arkusz1").Select
End If
Next
End Sub