Avatar billede RazzP Mester
08. december 2022 - 20:25 Der er 1 kommentar og
1 løsning

Kopiere celler ved match

Hej.
Jeg kan ikke rigtig gennemskue hvordan koden til følgende skal se ud?

Jeg har en værdi i en celle (C3) i et ark "Master". Den værdi vil jeg gerne slå op i kolonne A i et ark "Ordreliste". Hver gang der er et match i ark "Ordreliste", så skal den kopiere værdien i celle(B) over i ark "Master" startende i celle (A15) og ned, så mange gange at der er et match.

Fx.
Find "2G Cloud ApS" i "Ordreliste" kolonne (A).
For hvert match, kopiere værdien i "Ordreliste" kolonne (B) over i "Master" kolonne (A15)
Avatar billede store-morten Ekspert
08. december 2022 - 21:35 #1
Prøv:
IndRække = 14
SidsteRække = Sheets("Ordreliste").Range("A" & Rows.Count).End(xlUp).Row

For Each c In Sheets("Ordreliste").Range("A2:B" & SidsteRække).Cells
   
    If c.Value = Sheets("Master").Range("C3").Value Then
        Sheets("Master").Range("A" & IndRække).Offset(1, 0) = c.Offset(0, 1).Value
            IndRække = IndRække + 1
    End If

Next c
Avatar billede RazzP Mester
08. december 2022 - 21:53 #2
Tak store-morten, det virker som ønsket.
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

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