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