Avatar billede kace Nybegynder
13. august 2008 - 11:24 Der er 4 kommentarer

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.

På forhånd tak for hjælpen.
Avatar billede kace Nybegynder
13. august 2008 - 11:25 #1
Bemærk venligst at tallene ikke nødvendigvis hedder og kommer i følgende rækkefølge 1, 2, 3
Avatar billede excelent Ekspert
13. august 2008 - 15:52 #2
ret evt. fra/til ark

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

End Sub
Avatar billede excelent Ekspert
13. august 2008 - 16:02 #3
obs marker først værdierne i kolonne A
Avatar billede excelent Ekspert
26. august 2008 - 18:13 #4
?
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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