Hej (igen)

Jag skulle behöva hjälp med lite VBA kod.

Jag får in massa arbetsböcker med massa data i men dem ligger dumt till, då jag måste snygga till filerna för att sen kunna importera dem i vårt affärssystem. Nu vill jag med hjälp av VBA göra upp snyggningen automatiskt.

Som ni ser i bilden är det 3 orders som kommit.

Det jag behöver är en kod som går efter Ordernr, i Kolumn H och känner av när det blir nytt ordernr. Flytta data beroende på Ordernr som värde. Validerar mot ordernr helt enkelt. 

Kolla kolumn H2 (där ordernr ligger)

Ta värde ”order 1”

Kolla om det finns ett värde i ”D2”.

Om JA

Kopiera värde Från D2 (serienummer)  till ”blad 2, rad2, Cell A2”

Kopiera värde från B2 ”blad 2, rad2, Cell B3”

 Sen kolla resten av raderna som tillhör order 1 (H2:H5) och upprepa

Loopa och leta nästa order.

Ta värde ”order 2”

Kolla om det finns ett värde i Kolumn D6.

Om NEJ

Kolla D7,

 Om Nej

Kolla D8,

Om JA

Kopiera värde till ”blad 2, rad3, Cell A2”

Kopiera värde från B2 ”blad 2, rad2, Cell B3”

Loopa och leta nästa order.

Den ska validera genom hela ordernumret innan den går till nästa order, finns det inget värde alls att hämta så går den vidare. 

Eller om den kunde hämta första raden på istället för sista i Ordernumret i det macrot jag har nu. Det nedanstående gör så den kollar sista ifyllda cellen, har testat att ändra xlUp till xlDown men då krachar det :)

Jag vill kolla första raden och inte sista :) 

lastRow1 = Sheets("Macro").Range("R" & Rows.Count).End(xlUp).Row

 lastRow2 = Sheets("Mall").Range("A" & Rows.Count).End(xlUp).Row