27. september 2005 - 09:11Der er
4 kommentarer og 1 løsning
Udskriftskontrol i Excel
Jeg har lavet et finansprogram i Excel, hvor alle data automatisk bliver opdateret fra kassekladen, både når jeg udskriver journal, konto og balance. Det jeg gerne vil have er en slags udskrifts ID. som laves på Kassekladens data, som jeg kan sætte på alle udskrifter. Til at bevise at alle udskrifter er lavet på præcis alle data i kassekladen. fx. Nr.255845
Jeg har tænkt mig, hvis man kunne lave sådan, at ligegyldig hvilken celle fra E5-E3000, I5-I3000 eller J5-J3000, der forandres skal der skrives et nyt Nr. i celle A1.
Det er Excel 95 jeg bruger, fordi den et bedst til de ting jeg bruger. Jeg har tænkt mig en formel som skriver et 6 ciffers tal, som bare forandre sig hele tiden når man taster ind, eller retter.
Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range Set rng = Union(Range("C5:C3000"), Range("I5:I3000"), Range("J5:J3000")) If Not Intersect(Target, rng) Is Nothing Then Cells(Target.Row, 1) = Application.WorksheetFunction.Max(Range("A5:A3000")) + 1 End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range Dim MyMax As Long
Set rng = Union(Range("C5:C3000"), Range("I5:I3000"), Range("J5:J3000")) If Not Intersect(Target, rng) Is Nothing Then MyMax = Application.WorksheetFunction.Max(Range("A5:A3000")) If Not Cells(Target.Row, 1) = MyMax Then Cells(Target.Row, 1) = Application.WorksheetFunction.Max(Range("A5:A3000")) + 1 End If End If End Sub
Undskyld den lange svartid. Jeg kan desværre ikke få det til at virke i Excel 95.
Men jeg har fundet en løsning jeg kan bruge. I skjulte celler i Oplysninger skrives i B11 skrives =SUM(Kasseklade!E5:E3000)*1,1+SUM(Kasseklade!I5:I3000)*1,5+SUM(Kasseklade!J5:J3000)*1,75 i B12 skrives =HØJRE(B11;9) i A12 skrives =VENSTRE(B12;6) her har jeg så formelen, som har sat ind i kassekladen, journal, konto og balance.
Bak tusind tak for din altid villighed til at hjælpe. Hvis du ligger et svar får du dine point alligevel.
point behøves ikke, fagpoler,tag du dem selv (du lavede selv en ok løsning... Men hvornår skifter du til en lidt mere moderne version af xl ? Kan godt anbefale xl2000 :-)
Der er desvære ikke al ting jeg kan bruge de nyrere ver. til, men jeg bruger også Xp 2003 til de ting jeg kan
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.
