Avatar billede Gramstrup Mester
10. maj 2017 - 20:08 Der er 1 kommentar og
1 løsning

VBA: Efter userform gå til første tomme felt i kolonne A

Jeg har lavet en userform som når man trykker færdig fint fylder tingene ind i arket som ønsket.
Men når den er færdig vender den tilbage til A15, jeg vil gerne havde at den istedet står i det sidste felt i kolone A som er udfyldt eller det første lige efter. Men lige meget hvad jeg prøver at sætte ind så virker det ikke. Den vender hvergang tilbage til A15.
Køre jeg de funktioner som jeg har sat ind som selvstændig makro så virker det.
Den sub jeg her er:

Private Sub CommandButton2_Click()
    Range("m1").Select
    ActiveCell.FormulaR1C1 = glkost
    Range("n1").Select
    ActiveCell.FormulaR1C1 = Nykost
    Range("h1").Select
    ActiveCell.FormulaR1C1 = Varsling
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "KP"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = Ændring
    Range("l1").Select
    ActiveCell.FormulaR1C1 = Ændring
    Range("j1").Select
    ActiveCell.FormulaR1C1 = Beholdning
    Range("p1").Select
    ActiveCell.FormulaR1C1 = Pris
    Range("r1").Select
    ActiveCell.FormulaR1C1 = Pris
    Range("g2").Select
    ActiveCell.FormulaR1C1 = Application.UserName
    Range("x2").Select
    ActiveCell.FormulaR1C1 = Evt
    Range("a15").Select
    If Range("a15").Value = "" Then
    Range("a15").Activate
    Else
    Range("a15").CurrentRegion.Select
    ActiveCell.Offset(Selection.Rows.Count, 0).Activate
    End If
    With ActiveCell
    .Value = Range("A2")
    .Offset(0, 1).Value = Range("B2")
    .Offset(0, 2).Value = Range("C2")
    .Offset(o, 3).Value = Range("D2")
    .Offset(o, 4).Value = Range("E2")
    .Offset(o, 5).Value = Range("F2")
    .Offset(o, 6).Value = Range("G2")
    .Offset(o, 7).Value = Range("H2")
    .Offset(o, 8).Value = Range("I2")
    .Offset(o, 9).Value = Range("J2")
    .Offset(o, 10).Value = Range("K2")
    .Offset(o, 11).Value = Range("L3")
    .Offset(o, 12).Value = Range("M2")
    .Offset(o, 13).Value = Range("N2")
    .Offset(o, 14).Value = Range("O2")
    .Offset(o, 15).Value = Range("P2")
    .Offset(o, 16).Value = Range("q2")
    .Offset(o, 17).Value = Range("Q3")
    .Offset(o, 18).Value = Range("S3")
    .Offset(o, 19).Value = Range("T3")
    .Offset(o, 23).Value = Range("X2")
    .Offset(o, 24).Value = Range("Y2")
    .Offset(o, 25).Value = Range("Z2")
    .Offset(o, 26).Value = Range("AA2")
    .Offset(o, 27).Value = Range("AB2")
    .Offset(0, 28).Value = "=COUNT(RC[-8]:RC[-6])"
    .Offset(o, 32).Value = "=RC[-15]-RC[-17]"
    .Offset(o, 33).Value = "=IF(RC[-22]=RC[-25],RC[-24]*RC[-19],0)"
    .Offset(o, 34).Value = "=IF(RC[-23]>RC[-26],-1*RC[-25]*RC[-20],0)"
    End With
    Unload Me
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
    False, AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowFiltering _
    :=True
End Sub
Avatar billede kabbak Professor
10. maj 2017 - 22:42 #1
skal være
      Range("a15").End(xlDown).Offset(1, 0).Select
for at vælge cellen efter den sidste udfyldte
Avatar billede Gramstrup Mester
11. maj 2017 - 05:20 #2
Så fik jeg det til at virke... Perfekt.. Tak.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester