Medlem: 22.Aug.2010
Land: Danmark
Status: Offline
Point: 35
Emne: Automatisk oprettelse af et sagsnr i et regneark Sendt: 23.Aug.2010 kl. 17:13
Jeg prøver at få VB til at oprette et nyt sagsnr under det forige når jeg trykker på en knap i en Userform.
Fx.
Sags Nr.
1001
1002
1003
Jeg vil gerne have en kode der automatisk giver mig 1004 neden under når der trykkes på OK knappen i min Userform.
Private Sub CommandButton1_Click() x = 1
ActiveWorkbook.Sheets("ark1").Activate Range("a1").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True ActiveCell.Offset(0, 0) = ActiveCell.Offset(0, 1)
Range("a1").Select
End Sub
Jeg har forsøgt mig med denne kode men kan ikke rigtig komme vidre.
Medlem: 22.Aug.2010
Land: Danmark
Status: Offline
Point: 35
Sendt: 23.Aug.2010 kl. 17:32
Jeg har fundet en løsning :)
Private Sub CommandButton1_Click() x = 1
ActiveWorkbook.Sheets("ark1").Activate Range("a1").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True ActiveCell.Offset(0, 0) = ActiveCell.Offset(-1, 0) + 1
Range("a1").Select
Men istedet for at bruge activeCell kan man så ikke henlede til arket uden at aktiverer det?
Du kan ikke oprette nye emner i dette forum Du kan ikke besvare beskeder i dette forum Du kan ikke slette dine beskeder i dette forum Du kan ikke redigere dine beskeder i dette forum Du kan ikke oprette afstemninger i dette forum Du kan ikke stemme i dette forum
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Automatisk oprettelse af et sagsnr i et regneark
Emne funktioner
andreas skrev: