Avatar billede larskoch Nybegynder
01. oktober 2012 - 11:47 Der er 5 kommentarer og
1 løsning

Data fra et ark til et andet hvis felt har værdi

Har et Ark1 med disse data:

Nr    Dato          Beløb  Tekst Kriterie Kriterie2 Kriterie3
100    12-03-2012    1000    Blå    1       
101    12-03-2012    1100    Rød        1   
102    12-04-2012    1200    Gul    1    1   
103    12-04-2012    1000    Blå        1   
104    12-05-2012    1000    Blå            1
105    12-05-2012    1200    Gul           

Vil gerne have overført de poster der har værdien 1 i et eller flere af kriteriefelterne. De skal overføres til et ny ark2

Kan dette gøre med VBA og hvordan........
Avatar billede supertekst Ekspert
01. oktober 2012 - 12:25 #1
Er det alle kolonner, der skal overføres?
Avatar billede larskoch Nybegynder
01. oktober 2012 - 12:33 #2
Alle kolonner - lige pånær Kriterierne skal overføres.
Avatar billede supertekst Ekspert
01. oktober 2012 - 13:03 #3
Dim antalRækker As Long, ræk As Long, ræk2 As Long
Dim tilArk As Worksheet
Public Sub overførTilArk2()
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    Set tilArk = ActiveWorkbook.Sheets("Ark2")
    ræk2 = 2
   
    Application.ScreenUpdating = False
   
    For ræk = 2 To antalRækker
        If erKriterieOpfyldt(ræk) = True Then
            overfør ræk
        End If
    Next ræk
   
    Application.ScreenUpdating = True
   
    tilArk.Activate
    tilArk.Columns.AutoFit
End Sub
Private Function erKriterieOpfyldt(ræk)
Dim område As Range, cc
    Set område = Range("E" & ræk & ":G" & ræk)
    For Each cc In område.Cells
        If cc.Value = 1 Then
            erKriterieOpfyldt = True
            Exit Function
        End If
    Next cc
    erKriterieOpfyldt = False
End Function
Private Sub overfør(ræk)
Dim område As Range
    Set område = Range("A" & ræk & ":D" & ræk)
    område.Select
    Selection.Copy
   
    tilArk.Activate
    tilArk.Range("A" & ræk2).Select
    tilArk.Paste
    ræk2 = ræk2 + 1
       
    Sheets(1).Select
    Application.CutCopyMode = False
   
End Sub
Avatar billede larskoch Nybegynder
01. oktober 2012 - 13:18 #4
Hej Supertekst!

Super .... Det var lige sådan den skulle være. Så kan jeg selv bygge videre på den.....

Mange tak
Avatar billede supertekst Ekspert
01. oktober 2012 - 13:28 #5
Selv tak - men skulle du ikke have Accepteret mit Svar - i stedet for selv at lægge et?
Avatar billede supertekst Ekspert
01. oktober 2012 - 13:28 #6
Det er så udført - tak.. ..
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