14. maj 2018 - 15:11Der er
19 kommentarer og 1 løsning
VBA kopier fra celler til andet ark, ny række hver gang
Hej Alle
På ark 1 skal jeg indtaste noget forskellig information i følgende celler: B3 B5 B6 B12 B14 B16 B18 B20 B22
Denne information skal kopiers til ark 3 (ved tryk på en knap): B3 skal kopiers til række A B5 skal kopiers til række B B6 skal kopiers til række C B12 skal kopiers til række D B14 skal kopiers til række E B16 skal kopiers til række F B18 skal kopiers til række G B20 skal kopiers til række H B22 skal kopiers til række I
Når informationen er kopiret så skal informationen slettes i cellerne i Ark1.
Næste gang der så bliver indtastet Information i Ark1 og der skal kopiers er det vigtigt det sker på næste række. Det er kun B3 i Ark 1 der 100% bliver tastet en værdi i hver gang.
Nikolaj, tak for dit fine arbejde, der sker dog ikke noget når jeg trykker på knappen. Jeg har lavet lidt om i mit ark, men det jeg har opdaget er at hvis jeg kopier information fra en dropdown liste så bliver hele dropdownlisten kopiret og ikke kun den valgte information. Og det samme sker når jeg kopier et notatfelt der består af ombrudt og flettet celler, så er det ikke kun notatet/værdien der bliver kopiret men hele cellen.
Det er B5 der er dropdownliste Det er A25 der er en ombryd/flettet celler B33 skal tælle +1 og derefter kopier
Jeg har lavet makroen, så i kan se kopi rækkefølgen, den skal stadigvæk hoppe ned på næste tomme række når der igen trykkes på knappen. Sub Kopier() ' ' Kopier Makro '
Dim shtInput As Worksheet Dim shtOutput As Worksheet Dim intSidsteraekke As Integer Dim intInputraekke As Integer
'find sidste række med data så der kopieres ind i næste række intSidsteraekke = Sheets("Sheet3").Cells(Sheets("sheet3").Rows.Count, "A").End(xlUp).Row intInputraekke = intSidsteraekke + 1
' kopier fra input til output Sheets("Sheet3").Cells(intInputraekke, 1) = Sheets("Sheet1").Range("B3").Value
End Sub
Du skal naturligvis have lavet flere linjer af denne: Sheets("Sheet3").Cells(intInputraekke, 1) = Sheets("Sheet1").Range("B3").Value
Næste linje hedder: Sheets("Sheet3").Cells(intInputraekke, 2) = Sheets("Sheet1").Range("B5").Value
Du skal slette min "sub test()" og "end sub", da du selv har lavet makroens start med din "private sub com..", jeg antager der ligger en end private sub end også i bunden.
Hmmmm, du får lige hele koden :-), jeg føler mig godt nok dum.
Private Sub CommandButton1_Click()
Dim shtInput As Worksheet Dim shtOutput As Worksheet Dim intSidsteraekke As Integer Dim intInputraekke As Integer
'find sidste række med data så der kopieres ind i næste række intSidsteraekke = Sheets("Sheet3").Cells(Sheets("sheet3").Rows.Count, "A").End(xlUp).Row intInputraekke = intSidsteraekke + 1
Jeg ved godt jeg er ved at være godt træls...men jeg har noget betinget formatering i cellerne B13..15..17.. osv... hvor de skifter farve. Kan jeg få farven kopiret med over? Jeg tænker det så er lettere at overskue og måske sortere.
Du har så ret Kim, jeg opretter ny trå, tak for din hjælp ind til videre.
Synes godt om
Ny brugerNybegynder
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.
