Hej! Behöver hjälp med att utveckla min kod, har koden nedan som kopierar en rad i t.ex Blad1 om en cell i den raden innehåller ett specifikt värde. Behöver hjälp med att komplementera koden med att den även ska ta med sig första raden i Blad1. Så makrot ska kopiera första raden (A:A) samt kopiera raderna som innehåller ett specifikt cellvärde, i detta fall (yes). Sedan ska allt detta klistras in i Blad2. Tack för hjälpen!
Sub CopyYes()
Dim c As Range
Dim j As Integer
Dim Source As Worksheet
Dim Target As Worksheet
Set Source = ActiveWorkbook.Worksheets("Blad1")
Set Target = ActiveWorkbook.Worksheets("Blad2")
j = 1 ' Start copying to row 1 in target sheet
For Each c In Source.Range("Z1:Z1000") ' Do 1000 rows
If c = "yes" Then
Source.Rows(c.Row).Copy Target.Rows(j)
j = j + 1
End If
Next c
End Sub