Just nu i M3-nätverket
Gå till innehåll
Emilb

LÖST Hjälp med kod

Rekommendera Poster

Emilb
Postad (redigerade)

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 av Emilb

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
MH_

 

Sub move_stuff()
import_last_row = Sheets("Schema").Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
'Du använde helt enkelt "ActiveCell.Column" för att få reda på vilken kolumn (nummer) du står i

iPlanering = 1
'du måste ha en räknare på mottagar-bladet också (dvs om du vill lägga de hämtade på topp. ananrs använder du i för båda)

For i = 1 To import_last_row
    If Cells(i, ActiveCell.Column).Value = ("a") Then
        Sheets("Planering").Cells(iPlanering, 1).value = Sheets("Schema").Cells(i, 1).value
			' Jag föredrar  tilldelning istället för Copy. Det blir lättare att läsa
        iPlanering = iPlanering + 1
    End If
Next i

End Sub

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
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

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
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

image.png.66d45b7985ca8712d0808be5e4675236.png

 

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

image.png.8927cc869a5e9a4fa91eba36d60e6fe3.png

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
MH_
vilkenfärg = ActiveCell.Interior.Color
MsgBox (vilkenfärg)


 

Sub move_stuff_FärgTV()
'antag att du alltid har aktuell markeringfärg i Cell G1. Då kan du köra
iFärgKod = Sheets("Schema").Range("G1").Interior.Color

import_last_row = Sheets("Schema").Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
iPlanering = 1

For i = 1 To import_last_row
' Då kan du hämta celler med den färgen
    If Cells(i, ActiveCell.Column).Interior.Color = iFärgKod Then
    	Sheets("Planering").Cells(iPlanering, 1).Value = Sheets("Schema").Cells(i, 1).Value
        iPlanering = iPlanering + 1
    End If
Next i

End Sub

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
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

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...