23. november 2013 - 11:59Der er
9 kommentarer og 1 løsning
Makro for et område der flytter den markederede celle to kolonner til højre
Makro der gælder for et område med 60 rækker.
Jeg har lavet en makro der flytter den markerede celle to kolonner til højre efter indtast af værdi. Det virker fint, men den skal virke på 60 rækker og jeg har derfor skrevet en linje i makroen for hver række.
Er der en nemmere måde at skive makroen på, så jeg ikke skal skrive 60 linjer?
Jeg tænker på, at man starter med at definere området hvor makroen skal virke og derefter skriver, at der i det gælden område, skal flyttes to celler til højre efter indtast af værdi.
Makroen for de 60 rækkker:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("A1:A60"), Target) Is Nothing Then
If Target.Address = "$A$1" Then Range("C1").Activate If Target.Address = "$A$2" Then Range("C2").Activate If Target.Address = "$A$3" Then Range("C3").Activate - - - - - - - - If Target.Address = "$A$60" Then Range("C60").Activate
Supertekst lavede noget kode til mig i en faktura skabelon, hvor indtatet data blev flyttet to kolonner til venstre og slettet i det første felt. Den ser sådan ud makroen.
Private Sub Worksheet_Change(ByVal Target As Range) Dim række As Byte If Target.Column = 3 And Target.Text <> "" Then række = Target.Row Range("E" & CStr(række)) = Target Target.Value = ""
Range("D" & CStr(række)).Select End If End Sub
Ved ikke om den evt kan tilpasses dit brug? Tak endnu engang til supertekst for den assistance jeg har fået over flere gange, med min faktura :-)
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.
