Recent content by mberggren

Hi, Can´t really get this to work as i wanted. Not really sure where to put in this line. LastRowIn Range = ActiveCell.End(xlDown).Row Getting error message. I did create a empty row between the numbers like this. row 4, 10000 row 5, 10001 row 6, * empty * row 7, 20000 row 8, 20001 row...

Thx for the answers! Brian: It worked just fine :) If you have the following scenario: row 23, 7001 row 24, 7002 row 25, 7003 row 26, 8001 row 27, 8002 row 28, 8003 If you stand on row 7001 and presses Ctrl + a you get 8004 on row 29, is it possible to get the next number in line...

Thx, That did actually work :) .. Did some changes to it, works fine now. Sub Macro3() ' ' Macro3 Macro ' ' Keyboard Shortcut: Ctrl+a ' Selection.Copy Selection.Insert shift:=xlDown Selection.Cells(2, 1).Select ActiveCell.Value = ActiveCell.Cells(0, 1).Value + 1...

I addad this row, it almost works .. problem is that it count´s backwords :) Senario 1: So if i stand on ROW 26 and the number in the active cell is 8001 and presses Ctrl+a three times the result is: ROW 26, 8003 ROW 27, 8002 ROW 28, 8001 So 8001 jumps down to ROW 28. And the active row...

Thx for quick answer, well it didn´t work out the way i wanted it to do. See result in attached file. default.jpg is showing when nothing has been done using_macro.jpg is showing result of the code below wanted_result.jpg is showing what i´m looking for Sub Macro3() ' ' Macro3 Macro ' '...

Hi all, I have a simple macro that just copies a row like this below. This one is executed by Ctrl+A on the keyboard. Sub Macro1() ' ' Macro1 Macro ' Selection.Copy Selection.Insert Shift:=xlDown End Sub Cell A is suppose to work like an auto increment number. So for every...