28. oktober 2008 - 21:32Der er
3 kommentarer og 1 løsning
aktiver makro ved indsæt af række
Jeg vil gerne kunne indsætte en række fra udklipsholder i et regneark, og derved få kopieret formlerne fra rækken ovenfor kopieret ned i nogle af de celler der lige er blevet indsat.
Jeg forestiller mig det gjort med en makro, men kan man aktivere den ved "indsæt fra udklipsholder"?
Med version 7 af TeamShare tager Lector næste skridt og bygger en platform for AI-agenter, der i højere grad kan følge medarbejderen gennem hele arbejdsprocessen.
Et sted at starte: Funktionen Worksheet_Change kaldes automatisk, når der sker ændringer i arket (Koden skal ligge i kodemodulet til det aktuelle ark)
Private Sub Worksheet_Change(ByVal Target As Range) MsgBox "Row:" & Target.Row & " Col:" & Target.Column End Sub
Brug Target til at afgøre hvilken række, der er blevet ændret. Jeg ved ikke hvordan du kan skelne Paste fra andre ændringer i arket? Måske er det bedre at lægge Paste-funktionen ind i en makro og måske bruge et "kladdeark" til at lave ændringerne i, inden de kopieres over på det rigtige sted?
Denne kopierer formlen ovenfor ved ændringer, hvis formelfeltet i forvejen er tomt. Ikke helt perfekt, men kan måske bruges (der skal nok være flere betingelser for at sætte formelen ind). Koden skal ligge i kodemodulet for Ark1, hvis det er Ark1 der skal have denne funktionalitet.
Private Sub Worksheet_Change(ByVal Target As Range) 'Ændr konstanten formulaCell til den aktuelle formelcelle uden rækkenummer Const formulaCell = "$F$" if range(formulaCell & target.row).formula ="" then if target.row > 1 then range(formulaCell & target.row).formula = range(formulaCell & target.row-1).formula end if end if End Sub
Bedre sent end aldrig :-). Jeg husker ikke selv spørgsmålet, men svaret ser interessant ud :-)
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.