Wątek przeniesiony 2021-09-16 10:12 z Inne języki programowania przez cerrato.

VBA makro kopiowanie zawartości komórek do drugiego arkusza pod warunkiem

0

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

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1