Prisliste med logbog

Øhhh... hvilket program ?

Når man ændre noget på Sheet1 så noteres det på Sheet2 i samme celle. Sheet2 kol A, B og C bruges til logningerne.

EKS.

Sheet1
... D1  Lokal pris    €kurs  £kurs indkøbspris
... D2      10          7,42            742
... D3      11                  8,50    935

Sheet2 er tomt da det er førstegangsindtastninger i Sheet1

Bo Hansen ændre €kursen fra 7,42 til 7,50 =>

Sheet1
... D1  Lokal pris    €kurs  £kurs indkøbspris
... D2      10          7,50            750
... D3      11                  8,50    935

Sheet2
A1 Dato/tid            Bruger    D1 Tidl. Lokalpris Tidl. €kurs
A2 12-12-2010 22:49:10 Bo Hansen  D2                7,42

Alle værdier til højre for F2 ændres også da der her beregnes salgspris m. og u. moms + etc.
Så kan man se hvem og hvornår der er ændret på Sheet1 samt hvad kosekvensen har været.
På Sheet1 A2 til C2 kunnder der stå varenumre og varetekst.

Kun du koge noget på dette eksempel supertekst?

Ok - vender tilbage...

>teamchefen

Er så småt begyndt på prisloggen, men jeg vil bede om at få tilsendt ovennævnte eksempel i en Excel-fil for at undgå unødige misforståelser.

@-adresse under min profil.

På de pt givne forudsætninger:

Dim arkPris As Worksheet
Dim glVærdi As Variant

Dim arkLog As Worksheet
Dim logRække As Long
Private Sub Worksheet_Activate()
    aktivering
End Sub
Private Sub aktivering()
    With ActiveWorkbook
        Set arkPris = .Sheets(1)
        Set arkLog = .Sheets(2)
    End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    opdaterlog Target.Row, Target.Column, glVærdi
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If IsEmpty(Target) = False And Target.Column >= 5 And Target.Column <= 6 Then
        glVærdi = Target.Value
    End If
End Sub
Private Sub opdaterlog(række, kolonne, værdi)
    Application.ScreenUpdating = False
   
    aktivering
       
    With arkPris
        Rows(CStr(række) & ":" & CStr(række)).Select
        Selection.Copy
    End With
   
    With arkLog
        .Activate
        logRække = ActiveCell.SpecialCells(xlLastCell).Row + 1
        .Range("A" & CStr(logRække)).Select
        ActiveSheet.Paste
       
        .Range("A" & CStr(logRække)) = CStr(Now)
        .Range("B" & CStr(logRække)) = Application.UserName
       
        .Columns.AutoFit
    End With
   
    Application.CutCopyMode = False
   
    arkPris.Activate
    Application.ScreenUpdating = True
End Sub

Noget nyt?

Jeps der nyt!

Min forventet efterlønsperiode, hvor jeg bare skulle sidde og lege med den tids nye software er aflyst! Der er ikke efterløn til mig bare fordi min far var lidt genert, eller fordi han måske var for optaget af sin ny indkøbte Regnestok....

Og omkring logbogen er der også nyt, jeg har testet dit forslag og det virker optimalt, så jeg acceptere gerne dit svar.

Godt nytår! og tak.

I lige måde og selv tak..