Hjälp med kod

[Emilb]

Sub move_stuff()

 

"B" vill jag ha den markerade (selected) istället

import_last_row = Sheets("Schema").Range("B" & Rows.Count).End(xlUp).Row

 

For i = import_last_row To 1 Step -1

planering_last_row = Sheets("Schema").Cells(Rows.Count, 1).End(xlUp).Row

 

Här vill jag hitta alla rader med bokstaven a (önskar helst vilken färgkodning det är med det får bli nästa steg)

If Sheets("Schema").Cells(i, 2).Value = ("a") Then

    Sheets("Schema").Cells(i, 1).Copy Sheets("Planering").Cells(planering_last_row + 1, 1)

Fel!! Samma cellinfo dyker upp på rad 6 och inget mer, den letar inte upp alla celler i kolumn A fliken schema

End If

Next i

End Sub

 

 

Hur gör jag , tacksam för hjälp

Redigerad 8 juli, 2020 av Emilb

[Emilb]

Hej!

Tusen tack, ni är så hjälpsamma ! Vet inte hur jag ska tacka

 

Har en annan fråga, hur gör jag om jag vill söka på en färgkodning istället för namn och hur ser jag vilken färg jag använder?

 

mvh

Dan

[Mikael63]

3 minuter sedan, skrev Emilb:

Vet inte hur jag ska tacka

Förutom att du har tackat i text kan man tacka via symbol

 

Du kan även markera ett svar som bästa lösning

 

[Emilb]

Så himla najs!

dock går det inte länka då schemat är färglagt med villkorlig formatering, kan man kringgå det på något sätt? Kanske lättare att köra mot text. 

 

Mvh

Dan