18. februar 2003 - 00:41Der er
13 kommentarer og 2 løsninger
Makro til kopiering af felt...
Jeg skal bruge en makro til at kopiere f.eks. felt B2 til første tomme felt i kolonne C.
Dvs. der står nogle rækker tal i kolonne C. Hvis f.eks. felt C1 til C17 alle indeholder et tal, vil C18 være næste tomme felt. Makroen skal herved kopiere indholdet i felt B2 til felt C18. Næste gang makroen køres kopieres indholdet til felt C19 osv osv.
Takker, men det virker desværre ikke helt... Hvis jeg kommer til at slette nederste felt i rækken, får jeg fejl og debuggeren stopper ved denne linie: ActiveCell.Offset(1, 0).Activate
Aller sidste felt i kolonnen 65000 bliver herved også markeret?
bak-> Jeg kan se at du sparer selecterne, men bortset fra det læser dit forslag vel bare nedefra og op, hvor min læse oppefra og ned. Når jeg afprøver dem er der ellers ingen forskel - uanset hvad jeg sletter af indhold.
Jeg kørte makroen een gang først og slettede derefter de test tal jeg havde indsat... nu bliver jeg bare smidt ned i sidste felt i kolonnen hver eneste gang :(
Range("B2").Select Selection.Copy Range("C1").Select If Range("c1").Value = 0 Then ActiveSheet.Paste Else Range("C65536").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Activate ActiveSheet.Paste End If
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.
Ny bruger
Nybegynder
Opret
Preview
