Søg efter tekst og returner

Prøv med denne makro:

Sub flyt()
Dim x, y As Integer
y = 1
LastRow = Cells(65356, 1).End(xlUp).Row
On Error Resume Next
For x = 1 To LastRow
If InStr(1, Cells(x, 1), "blå") Then
Cells(x, 1).EntireRow.Copy Destination:=Worksheets("Sheet2").Cells(y, 1)
y = y + 1
End If
Next
End Sub

Her er et andet bud baseret på filterfunktionen:

http://gupl.dk/719861/

Jeg kan ikke rigtig få det til at virke. Har dansk udgave, og har erstattet Sheet2 med Ark2.

Jeg er ikke VBA kyndig, men skal der ikke stå noget om hvilken søjle (R), der skal tages udgangspunkt i?

Jo, kolonnen (eller søjle som du kalder det) er vigtig. Det er bestemt af tallet i
If InStr(1, Cells(x, 1), "blå") Then
(andet 1-tal)
Som jeg lavede den søger den i kolonne A

Ok - hvis jeg så har "Blå" i kolonne R, skal jeg så ændre et eller flere "1-taller" til 18?

Endnu en måde:

Navngiv dit område i kolonne R som d og brug følgende matrixformel:

=HVIS.FEJL(INDEKS(d;MINDSTE(HVIS(d="Blå";RÆKKE(d)-CELLE("row";d)+1);RÆKKER($1:1)));"")

Husk ved indtastning, at du skal holde Ctrl og Shift nede før du trykker på Enter. Når første formel er indtastet på denne måde han du kopiere på normal vis.

Hvis engelsksproget Excel så:

=IFERROR(INDEX(d;SMALL(IF(d="Blå";ROW(d)-CELL("row";d)+1);ROWS($1:1)));"")

Ja, kolonne R = 18

Brug Autofilter, skriv *blå*

Det virker fremragende hvis der skal slås på i A og ikke R, men:

Hvilke 1 skal erstattes af 18? Har prøvet mig frem, men ikke kommet i mål.

Sub flyt()
Dim x, y As Integer
y = 1
LastRow = Cells(65356, 1).End(xlUp).Row
On Error Resume Next
For x = 1 To LastRow
If InStr(1, Cells(x, 1), "blå") Then
Cells(x, 1).EntireRow.Copy Destination:=Worksheets("Sheet2").Cells(y, 1)
y = y + 1
End If
Next
End Sub

Sub flyt()
Dim x, y As Integer
y = 1
LastRow = Cells(65356, 1).End(xlUp).Row
On Error Resume Next
For x = 1 To LastRow
If InStr(1, Cells(x, 18), "blå") Then
Cells(x, 1).EntireRow.Copy Destination:=Worksheets("Sheet2").Cells(y, 1)
y = y + 1
End If
Next
End Sub

Bemærk at den diskriminerer mellem store og små bogstaver. Du kan for at undgå dette udskifte

If InStr(1, Cells(x, 18), "blå") Then

med

If InStr(1, Cells(x, 18), "blå") or InStr(1, Cells(x, 18), "Blå")  Then

Hov! Det skulle ikke have været et svar

Mange tak - jeg er "flyvende" :)