Hej Alle

så har jeg et spørsmål igen.

Bruger denne kode for at overføre mit userform data til et worksheet.

Når jeg gemmer ligger den på næste tomme linje som den skal.

Nu er det bare sådan at hvis jeg vil gemme en aftaleseddel med et nummer der allerede eksistere gemmer den også på en ny linje, hvordan får jeg den til at gemmen den redigeret aftaleseddel på den gamle linje?? altså Aftaleseddel nr.1 bliver gemt under nummer 1

    

Worksheets("Bilag B").Activate

    Range("D4").Select

    If Range("D4").Value = "" Then

        Range("D4").Activate

    Else

        Range("D4").CurrentRegion.Select

        ActiveCell.Offset(Selection.Rows.Count, 0).Activate

    End If

    With ActiveCell

        .Value = txtAftale.Text

        .Offset(0, 1).Value = txtbesk.Text

        .Offset(0, 2).Value = Range("Aftaleseddel!Ialt")

        .Offset(0, 6).Value = txtDato.Text

        .Offset(0, 7).Value = txtVare1.Text

        .Offset(0, 8).Value = txtPris1.Text

        .Offset(0, 9).Value = txtVare2.Text

        .Offset(0, 10).Value = txtPris2.Text

        .Offset(0, 11).Value = txtVare3.Text

        .Offset(0, 12).Value = txtPris3.Text

        .Offset(0, 13).Value = txtVare4.Text

        .Offset(0, 14).Value = txtPris4.Text

        .Offset(0, 15).Value = txtVare5.Text

        .Offset(0, 16).Value = txtPris5.Text

        .Offset(0, 17).Value = txtVare6.Text

        .Offset(0, 18).Value = txtPris6.Text

    End With

 

Nu har jeg ikke dit regneark, så det bli'r lidt "ud af hovedet", hvor jeg antager, at aftalenummeret i dit UserForm ligger i 'txtAftale', og aftale nummeret i dit regneark står i kolonne D, og dine aftaler begynder fra og med række 4..

On Error Resume Next Worksheets("Bilag B").Select Dim Række As Long Række = WorksheetFunction.Match(txtAftale.Text, Range("D:D"), 0) If Række < 4 Then Række = Range("D" & Rows.Count).End(xlUp).Row + 1 If Række < 4 Then Række = 4 Range("D" & Række).Select

...og, herefter kan du bare indsætte dine værdier, som du gør efter

With ActiveCell ...

Bemærk, at, hvorvidt kode linjen...

WorksheetFunction.Match(txtAftale.Text, Range("D:D"), 0)

...rent faktisk finder dit aftalenummer kommer måske lidt an på, hvordan aftalenummeret bliver gemt i regnearket, da jeg kan se, at du benytter '.Text' i stedet for '.Value'.
Du kan evt. blive nødt til, at konvertere frem og tilbage mellem tekst og tal, hvis du har behov for at tingene er i tekst format.

 

Kan ikke få det til at virke. den gemmer udenfor side 1 på arket og erstatter ikke det gamle nummer.

Og når jeg hente aftaleseddel nummer over 4 er der fejl.

Her er filen, har slettet alle tal.

uploads/527/Byggesagsøkonomi_Test6.xlsm" rel="nofollow - uploads/527/Byggesagsøkonomi_Test6.xlsm

Nu er det aftaleseddels nr. der afgøre hvor meget resultatet skal offset.