Just nu i M3-nätverket
Jump to content

Hjälp med VBA


miksor65
 Share

Recommended Posts

Hej! Har lyckats skapa ett macro som skapar en ny rad samt får in datum i Datum (D4), skulle även vilja ha in en 1:a i Nr (A4) som sedan blir en 2:a, 3:a osv vartefter nya rader skapas.

Finns det någon här som kan hjälpa mig det?

Screenshot_4.jpg.236e62304d287d2df8064d0133210ced.jpg

 

/Micke

Link to comment
Share on other sites

Ove Söderlund

Jag förmodar att du vill ha en "radräknare" som visar hur många rader du har i tabellen och enklast är väl att beräkna fram antal rader till sista raden med ett datum i D-kolumnen. Då kan du lägga in följande formel i cell A4;

 

=RAD(FÖRSKJUTNING(D4;ANTALV(D:D)-1;0))-3

 

-3 på slutet för att du börjar på rad 4.

 

 

Link to comment
Share on other sites

VBA:

Högsta värdet i A-kolumnen +1

ActiveCell.Offset(0, -3).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1

 

Eller Oves formel med hjälp av WorksheetFunction

 

Man kan även tänka sig att lägga på ett värde från raden ovanför:

ActiveCell.Offset(0, -3).Value = ActiveCell.Offset(-1, -3).Value + 1

 

Eller, för att hantera första raden så kan du använda Excels Summa() för att räkna rubrik/tomma celler som 0

ActiveCell.Offset(0, -3).Value = WorksheetFunction.Sum(ActiveCell.Offset(-1, -3), 1)

 

 

För övrigt misstänker jag att Monshi sitter på sina händer för att inte kommentera alla select du har...

Edited by MH_
Någon jäkel tänkte fel med min hjärna
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share



×
×
  • Create New...