Jeg ved ikke lige hvad du skal have den til, men hvis det er sådan at den celle du står i (den aktive celle) skal have kopieret sit indhold ned i cellen nedenunder, så kan det se således ud:
Sub Demo() ActiveCell.Offset(1,0).Value = ActiveCell.Value End Sub
jeg har 2 kolonner som indeholder hhv fornavn og efternavn disse data skal sammenlægges i en celle for mange personer. Makroen jeg laver virker kun på de celler jeg oprettede den i, og kan derfor ikke genanvendes på de øvrige celler
Public Sub FlytSammen() R = Range("A65536").End(xlUp).Offset(1, 0).Row For I = 1 To R Cells(I, 1) = Cells(I, 1) & " " & Cells(I, 2) Next End Sub
Synes godt om
Slettet bruger
08. marts 2004 - 22:32#4
Det letteste er nok at vælge relativ reference når du indspiller makroen v.h.a. excels finktioner/makro. Så får du det du ønsker (hvis jeg forstår dig ret)
Synes godt om
Slettet bruger
08. marts 2004 - 22:34#5
Makroen ser sådan ud i excel vb:
Sub Makro3() ' ' Makro3 Makro ' Makro indspillet 08-03-2004 af Tommy ' ' Genvejstast:Ctrl+n ' Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(0, 1).Range("A1").Select ActiveSheet.Paste End Sub
til kabbak, jeg vil gerne give dig point, idet din løsning virker, men kan du ikke fortælle mig hvorledes jeg gør den uafhængig af om det er kollonne A og B. Det kunne lige så godt være B og C.
Ok, efternavnet skal stå i kolonnen til højre for fornavnet.
Public Sub FlytSammen() Set C = Application.InputBox(" Maker kolonnen med fornavne", Type:=8) Col = C.Column R = Cells(65536, Col).End(xlUp).Row For I = 1 To R Cells(I, Col) = Cells(I, Col) & " " & Cells(I, Col + 1) Next End Sub
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.
Slettet bruger
Ny bruger
Nybegynder
Opret
Preview
