Umuligt at lave en talrække ud af to tal?
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Formler
Forum beskrivelse: Hjælp til formler i regneark og/eller brugen af disse.
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4309
Udskrevet den: 24.Apr.2024 kl. 07:51
Emne: Umuligt at lave en talrække ud af to tal?
Besked fra: Denjo17
Emne: Umuligt at lave en talrække ud af to tal?
Posteringsdato: 02.Jul.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" uploads/2270/Salt_skema_til_PowerBi_2020-07-02_09-18-32.xls" rel="nofollow - uploads/2270/Salt_skema_til_PowerBi_2020-07-02_09-18-32.xls Ved godt det er en indviklet opgave og har svedt meget over den. Hvis der er noget i forklaringen der forvirrer, så skriv endelig
|
Svar:
Besked fra: Hans K.
Posteringsdato: 03.Jul.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?
|
Besked fra: fiajakt
Posteringsdato: 04.Jul.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. mvh kjeld |
Besked fra: Denjo17
Posteringsdato: 05.Jul.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.
|
Besked fra: fiajakt
Posteringsdato: 05.Jul.2020 kl. 20:42
 mvh kjeld
|