Falentin Seniormester
05. august 2020 - 00:59 Der er 2 kommentarer og
1 løsning

Udfyld kollone indtil 7 række, derefter næste række

Hej

Jeg forsøger at lave et lille VBA-kode, der udfylder indtil den 7 kollone og derefter springer ned til næste række indtil denne 7 række er udfyldt, osv.

Grafisk skal det se sådan ud

1 2  3  4    5  6  7
8 9 10 11 12 13 14
15 16 17 18 ...

Her er hvad jeg har indtil videre:

Dim x As Integer
Dim c As Integer
Dim r As Integer
r = 1
c = 1
x = 1


Do Until x >= 26 'er antal gange programmet skal foretage skrive til cellen.
For c = 1 To 7
Sheets("Ark1").Range(Sheets("Ark1").Cells(r, c), Sheets("Ark1").Cells(r, c)) = x

x = x + 1
Next c
Loop

Men jeg kan ikke få skidtet til at virke :-(
lene-fredborg Ekspert
05. august 2020 - 01:34 #1
Hvis jeg forstår din forklaring korrekt, skulle følgende give det resultat, du ønsker. Jeg har givet variablerne navne, som gør det lettere (for mig i hvert tilfælde) at holde styr på, hvad de bruges til:

Dim intCount As Integer
Dim intCol As Integer
Dim intRow As Integer
Dim oSheet As Worksheet

intCount = 0
intRow = 1

Set oSheet = ActiveWorkbook.Sheets("Ark1")

Do
    For intCol = 1 To 7
        intCount = intCount + 1
        oSheet.Cells(intRow, intCol) = intCount
       
        If intCount = 26 Then Exit Do
    Next intCol
   
    intRow = intRow + 1
Loop

Set oSheet = Nothing
store-morten Ekspert
05. august 2020 - 01:49 #2
Dim x As Integer
Dim c As Integer
Dim r As Integer
r = 1
c = 1
x = 1

'Antal gange programmet skal foretage skrive til cellen.
Do Until x >= 26

    'Gentag 7 gange (c)
    For c = 1 To 7
    'Skriv tal i celle (x)
    Sheets("Ark1").Range(Cells(r, c), Cells(r, c)) = x
    'Forøg tal med 1 (x)
    x = x + 1
    Next c
   
        'Forøg række med 1 (r)
        r = r + 1
Loop
Falentin Seniormester
05. august 2020 - 10:34 #3
Tak, Lene. Det virker perfekt :-)
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Se billederne: Her er det tophemmelige spiondatacenter på Amager
På sydspidsen af Amager ligger Sandagergård, der huser et hemmeligt datacenter tilhørende Forsvarets Efterretningstjeneste. Datacentret, der er bygget med hjælp fra amerikanske NSA-agenter, driver et avanceret spionværktøj, der er brugt til at spionere mod danskere.
Computerworld
Ups!: Gammelt fjernsyn lagde internetforbindelsen ned i hel landsby i halvandet år
I halvandet år var en hel landsby i Wales plaget af elendig bredbåndsforbindelse, som begyndte hver dag klokken syv om morgenen. Teknikere kæmpede med at løse mysteriet, men lige meget hjalp det. Årsagen viste sig at være et brugt tv, som en af byens familier havde taget i brug.
CIO
Torben Fabrin og Arla måtte på få dage omstille hele deres produktion da coronaen ramte
Da coronaen ramte verden måtte mejerigiganten Arla på få dage omstille sin produktion. Samtidig voksede salget massivt til supermarkeder mens institutioner og restauranter gik næsten i stå. Hør hvordan Arla kom gennem krisen ved blandt andet være klar med realtime analytics.
Job & Karriere
På jagt efter et it-job i Jylland? Her er 10 stillinger fra Aabenraa til Aalborg, der ledige netop nu
Vi har fundet en række spændende stillinger til dig, der jagter et it-job. Her kan du vælge og vrage mellem ledige stillinger lige fra Aabenraa til Aalborg.
White paper
Sådan kan du arbejde effektivt uanset tid, sted og type af enhed
Hvad nu hvis dit arbejde, din information, dine processer og teknologien bag ved, var organiseret på en måde så det passede til din organisation – alt sammen guidet af en intelligent udgave af det digitale arbejdsrum? Det er visionen bag Atea og Citrix´s samarbejde med digital workspace – en smartere og mere effektiv måde at arbejde på. I dette whitetpaper kan du derfor læse om, hvordan du kan skabe et mere effektivt og brugervenligt arbejdsrum uanset tid, sted og enhed. En løsning der på en gang er både enkel og som sætter brugeren i centrum.