Løkke der kan skelne mellem forskellige tal gennem en række
Hej genier
mit ark ser sådan ud A B C 1. 1 d d 2. 1 e e 3. 1 f f 4. 2 a a 5. 2 b b 6. 8 d d 7. 8 y y 8. 4 t t 9. 4 d d
Mit problem er så, jeg ønsker en vba kode som kan løbe igennem søjle A1, A2, A3 osv. så længe tallene er ens som A1 til A3, skal den kopier data (søjle B og C) og indsæt i et nyt ark. Dernæst skal den tage fat i næste område som i mit eksempel er A4:5C. Det område skal kopiers og indsættes ind i det nye ark ved siden af det andet område som er blevet kopieret og indsat.
denne løkke skal kun fortsætte da antallet af rækker kan variere måned til måned.
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
Sub tst() Set sh1 = Sheets("Ark2") ' Ark der kopieres fra Set sh2 = Sheets("Ark3") ' Ark der kopieres til kol = 1 For Each c In Selection
rk = sh2.Cells(1000, kol).End(xlUp).Row + 1
sh2.Cells(rk, kol) = c sh2.Cells(rk, kol + 1) = c.Offset(0, 1) sh2.Cells(rk, kol + 2) = c.Offset(0, 2) If c.Offset(1, 0) <> c Then kol = kol + 100 '3 If kol > 255 Then MsgBox ("Ikke flere kolonner ledig"): End Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
