Avatar billede FinnLauridsen Forsker
16. juni 2016 - 20:40 Der er 4 kommentarer

Hjælp til Formel

Hej
Er der en der kan hjælpe mig med en formel der samler data fra et ark og skriver det ind i et andet ark
eks. data ( tekst ) fra Ark1 C52 skal til Ark2 A9, Ark 1 E52 skal til Ark2 B9, Ark1  G52 skal til Ark2 F9
Der forekommer flere data fra Ark1 . eks fra c77,E77, G77
Disse data skal så Indskrives på næste ledige linie i Ark2  i celle A10,B10,F10

Altså skal enhver Data der kommer fra Ark1 kolonne C,E,G overføres til næste ledige linie i Ark2 Kolonne A,B,F

Er det noget der kan lade sig gøre?
Avatar billede komputerdk Mester
16. juni 2016 - 22:15 #1
='ARK1'!C52 skrives i Ark2 A9 etc

men er dit ark 1 med data i alle kolonner i alle rækker
og er der altid data i alle tre kolonner ?
Avatar billede FinnLauridsen Forsker
17. juni 2016 - 06:13 #2
der er ikke altid data i Ark 1 c52 eller C77 osv.
men når der kommer skal de automatisk ligge sig i Ark 2  fortløbene
Avatar billede komputerdk Mester
17. juni 2016 - 06:36 #3
En pivot hvor du filtrerer de tomme fra vil nok være det nemmeste.
Avatar billede FinnLauridsen Forsker
18. juni 2016 - 08:55 #4
Hej igen
Jeg har denne formel i Ark 1 men den samler data og ligger dem i første ledige række i kolonne A
Men jeg ville gerne have den til af finde data i ark1 c52 og flere Eks. C77 ,C78 og så samle data i Ark2 , som beskrevet i mit spørgsmål
gir det lidt mening?

Option Explicit

Dim antalKol As Integer, antalRæk As Long
Dim ræk As Long, kol As Integer, værdi, nyRæk As Long
Public Sub samlingAfKolonner()
    antalKol = ActiveCell.SpecialCells(xlLastCell).Column
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
Rem find første ledige celle i kol A
    nyRæk = findFørsteLedigeKolA
   
    For kol = 2 To antalKol
        For ræk = 1 To antalRæk
            Cells(ræk, kol).Select
            værdi = Selection.Value
            If værdi <> "" Then
                Selection.ClearContents
                Cells(nyRæk, 1) = værdi
                nyRæk = nyRæk + 1
            End If
        Next ræk
    Next kol
End Sub
Private Function findFørsteLedigeKolA()
Dim ræk As Long
    For ræk = 1 To antalRæk
        If Range("A" & ræk) = "" Then
            findFørsteLedigeKolA = ræk
            Exit Function
        End If
    Next ræk
    findFørsteLedigeKolA = antalRæk + 1
End Function
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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