Jeg er lidt itvivl om dette spørgsmål høre til her eller i excel gruppen -
men nu prøver jeg mig frem, ellers må i rette mig.
Jeg er igang med at lavet et lille program som bla kan tilføje
nogle kundedata i sidste ledige række i et excel ark. Mit problem
består i denne linie - ICurrentRow = Range("b65000").End(xlUp).Offset(1, 0).Row
Linien findes i - Private Sub cmdTilfojKunde_Click() - og den finder godt nok
den rigtige ledige række, men når jeg så kalder funktion - Private Sub SaveRow() -
så bliver indholdet i variablen ændret til 5, som ikke er korrekt.
Men det som gør det endnu mere mærkeligt er at hvis jeg istedet benytter -
lCurrentRow = Worksheets("Kundeliste").UsedRange.Rows.Count + 1
Så funger det fint og der bliver gemt i den rigtige række i mit excel dokument.
- Kode -
Dim lCurrentRow As Long
Private Sub cmdTilfojKunde_Click()
lCurrentRow = Worksheets("Kundeliste").UsedRange.Rows.Count + 1
'ICurrentRow = Range("b65000").End(xlUp).Offset(1, 0).Row:
SaveRow
' Set focus to Name textbox:
TextBoxKundeNr.SetFocus
End Sub
Private Sub UserForm_Activate()
' Læser fra række 5 :
lCurrentRow = 5
LoadRow
End Sub
Private Sub LoadRow()
TextBoxKundeNr.Text = Worksheets("Kundeliste").Cells(lCurrentRow, 2).Value
TextBoxFirmaNavn.Text = Worksheets("Kundeliste").Cells(lCurrentRow, 3).Value
TextBoxCo2.Text = Worksheets("Kundeliste").Cells(lCurrentRow, 3).Value
End Sub
Private Sub SaveRow()
Worksheets("Kundeliste").Cells(lCurrentRow, 2).Value = TextBoxKundeNr.Text
Worksheets("Kundeliste").Cells(lCurrentRow, 3).Value = TextBoxFirmaNavn.Text
Worksheets("Kundeliste").Cells(lCurrentRow, 4).Value = TextBoxAdresse.Text
Worksheets("Kundeliste").Cells(lCurrentRow, 5).Value = TextBoxBy.Text
Worksheets("Kundeliste").Cells(lCurrentRow, 6).Value = TextBoxPostNr.Text
Worksheets("Kundeliste").Cells(lCurrentRow, 7).Value = TextBoxTlf.Text
Worksheets("Kundeliste").Cells(lCurrentRow, 8).Value = TextBoxEmail.Text
Worksheets("Kundeliste").Cells(lCurrentRow, 9).Value = TextBoxKontaktPerson.Text
End Sub
--
Mit fotoalbum
www.photo.activewebsite.dk