Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Opret ny bruger Opret ny bruger  Log ind Log ind


Umuligt at lave en talrække ud af to tal?

 Besvar Besvar
Forfatter
Denjo17 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 30-07-2018
Land: Syddanmark
Status: Offline
Point: 17
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Denjo17 Citér  BesvarSvar Direkte link til dette indlæg Emne: Umuligt at lave en talrække ud af to tal?
    Sendt: 02-07-2020 kl. 09:19
Hej, 

Jeg synes jeg har prøvet alt og ledt google igennem så nu spørger jeg her. 

Er det muligt at lave en talrække ud fra et start og slut tal ( skal være i rækkefølge)? Altså hvis start er 1 og slut er 16, så laver den en række med 1 2 3 4 5 6 osv. op til 16. 

Prøver at omforme et excel indtastningsskema til et mere læsevenligt skema til PowerBI. 

Har vedhæftet excelarket hvor jeg prøver mig frem. Opgaven består i at: 

- De to tal i Staknummer start og staknummer slut ( markeret med gul) skal laves om til en talrække i en enkel kolonne i fanen "Ark til powerBi". Så alle staknumre står i en enkel kolonne i kolonnen "staknummer". Den skal følge rækkefølgen der er i de to kolonner, altså fra 1-16 og så bagefter 17-32 osv( da den starter forfra når ny type bliver lavet). 

HVIS det kan lade sig gøre, kan procesordre og type nummer fra indtastningsskemaet "1"  så blive koblet på den enkelte staknummer i arket "ark til powerBI"


Ved godt det er en indviklet opgave og har svedt meget over den. Hvis der er noget i forklaringen der forvirrer, så skriv endelig
Til top



Til top
fiajakt Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05-10-2017
Land: Danmark
Status: Offline
Point: 69
Accepteret svar Accepteret svar
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér fiajakt Citér  BesvarSvar Direkte link til dette indlæg Sendt: 04-07-2020 kl. 10:14


Private Sub Worksheet_Change(ByVal Target As Range)




Dim Low As Long
Dim Hign As Long
Dim lastRow As Long
Dim Tæl As Long
Dim Rlast As Long

Ark2.Range("A6:G50000").ClearContents
lastRow = Ark2.Cells(Ark1.Rows.Count, "A").End(xlUp).Row
Rlast = lastRow + 1


Low = Ark1.Range("I8").Value
Hign = Ark1.Range("J8").Value


Do Until Low > Hign

Ark2.Cells(Rlast, 1).Value = Low
Ark2.Cells(Rlast, 1).Value = Low

Ark2.Cells(Rlast, 3).Value = Ark1.Range("B8").Value
Ark2.Cells(Rlast, 2).Value = Ark1.Range("A8").Value
Ark2.Cells(Rlast, 4).Value = Ark1.Range("G8").Value
Ark2.Cells(Rlast, 5).Value = Ark1.Range("K8").Value

Low = Low + 1
Rlast = Rlast + 1




Loop

''''''''' koden gentages med sidste linje
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


lastRow = Ark2.Cells(Ark1.Rows.Count, "A").End(xlUp).Row
Rlast = lastRow + 1


Low = Ark1.Range("I9").Value
Hign = Ark1.Range("J9").Value


Do Until Low > Hign

Ark2.Cells(Rlast, 1).Value = Low
Ark2.Cells(Rlast, 1).Value = Low

Ark2.Cells(Rlast, 3).Value = Ark1.Range("B9").Value
Ark2.Cells(Rlast, 2).Value = Ark1.Range("A9").Value
Ark2.Cells(Rlast, 4).Value = Ark1.Range("G9").Value
Ark2.Cells(Rlast, 5).Value = Ark1.Range("K9").Value

Low = Low + 1
Rlast = Rlast + 1




Loop




End Sub






jeg har lavet den første del af koden, hvis du copy/past og retter koden kan du selv tiltøje resten.





uploads/2064/Salt_skema_til_PowerBitest.xls



mvh kjeld



Til top
Hans K. Se dropdown
Sølv bruger
Sølv bruger


Medlem: 04-04-2019
Land: Danmark
Status: Offline
Point: 420
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Hans K. Citér  BesvarSvar Direkte link til dette indlæg Sendt: 03-07-2020 kl. 07:39
Skal det forstås sådan, at der skal stå 1, 2,3 ..... , 32 i Ark til PowerBI!A6:A37 og derefter 1,2,3,.... , 40 i A38:A77?

Det er altid en god ide manuelt at indtaste flere eksempler på ønskede resultater. Det kan fjerne en masse tvivl.
 
Hviken version af Excel arbejder du med?
Til top
fiajakt Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05-10-2017
Land: Danmark
Status: Offline
Point: 69
Accepteret svar Accepteret svar
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér fiajakt Citér  BesvarSvar Direkte link til dette indlæg Sendt: 04-07-2020 kl. 10:14


Private Sub Worksheet_Change(ByVal Target As Range)




Dim Low As Long
Dim Hign As Long
Dim lastRow As Long
Dim Tæl As Long
Dim Rlast As Long

Ark2.Range("A6:G50000").ClearContents
lastRow = Ark2.Cells(Ark1.Rows.Count, "A").End(xlUp).Row
Rlast = lastRow + 1


Low = Ark1.Range("I8").Value
Hign = Ark1.Range("J8").Value


Do Until Low > Hign

Ark2.Cells(Rlast, 1).Value = Low
Ark2.Cells(Rlast, 1).Value = Low

Ark2.Cells(Rlast, 3).Value = Ark1.Range("B8").Value
Ark2.Cells(Rlast, 2).Value = Ark1.Range("A8").Value
Ark2.Cells(Rlast, 4).Value = Ark1.Range("G8").Value
Ark2.Cells(Rlast, 5).Value = Ark1.Range("K8").Value

Low = Low + 1
Rlast = Rlast + 1




Loop

''''''''' koden gentages med sidste linje
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


lastRow = Ark2.Cells(Ark1.Rows.Count, "A").End(xlUp).Row
Rlast = lastRow + 1


Low = Ark1.Range("I9").Value
Hign = Ark1.Range("J9").Value


Do Until Low > Hign

Ark2.Cells(Rlast, 1).Value = Low
Ark2.Cells(Rlast, 1).Value = Low

Ark2.Cells(Rlast, 3).Value = Ark1.Range("B9").Value
Ark2.Cells(Rlast, 2).Value = Ark1.Range("A9").Value
Ark2.Cells(Rlast, 4).Value = Ark1.Range("G9").Value
Ark2.Cells(Rlast, 5).Value = Ark1.Range("K9").Value

Low = Low + 1
Rlast = Rlast + 1




Loop




End Sub






jeg har lavet den første del af koden, hvis du copy/past og retter koden kan du selv tiltøje resten.





uploads/2064/Salt_skema_til_PowerBitest.xls



mvh kjeld



Til top
Denjo17 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 30-07-2018
Land: Syddanmark
Status: Offline
Point: 17
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Denjo17 Citér  BesvarSvar Direkte link til dette indlæg Sendt: 05-07-2020 kl. 20:37
Det er vanvittigt godt stykke arbejde Kjeld, tak for det. 

Kan godt være der kommer opfølgende spørgsmål, men vil lige gerne selv lege lidt med det og se om jeg kan forstå det, for er vanvittig jaloux over folk som dig, der bare fikser sådan noget i VBA!

Men kan se det er løsningen, så tak. 
Til top
fiajakt Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05-10-2017
Land: Danmark
Status: Offline
Point: 69
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér fiajakt Citér  BesvarSvar Direkte link til dette indlæg Sendt: 05-07-2020 kl. 20:42

Du er velkommenSmile

mvh kjeld
Til top
 Besvar Besvar
  Del emne   

Skift forum Forum tilladelser Se dropdown

© 2010 - 2020 Dansk Regneark Forum - en del af Excel-regneark.dk