Coping formulas to next row using a macro
Solved/Closed
jd438
-
Apr 2, 2009 at 11:30 AM
CADU1947 Posts 3 Registration date Friday December 4, 2015 Status Member Last seen December 4, 2015 - Dec 4, 2015 at 10:30 AM
CADU1947 Posts 3 Registration date Friday December 4, 2015 Status Member Last seen December 4, 2015 - Dec 4, 2015 at 10:30 AM
Related:
- Coping formulas to next row using a macro
- Saints row 2 cheats - Guide
- How to delete a row in a table in word - Guide
- Spreadsheet formulas - Guide
- Little alchemy formulas - Guide
- Spell number in excel without macro - Guide
Apr 2, 2009 at 08:23 PM
paste values from the copy range as you stated.
Sub PasteValues()
Dim EndRow
EndRow = Range("B65536").End(xlUp).Row
Range("B" & EndRow, "AC" & EndRow).Copy Range("B" & EndRow + 1, "AC" & EndRow + 1)
Range("B" & EndRow, "AC" & EndRow).Copy
Range("B" & EndRow, "AC" & EndRow).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("B" & EndRow).Select
End Sub
Dec 4, 2015 at 10:30 AM
May 25, 2012 at 04:24 PM
May 26, 2012 at 08:30 AM
Sample Calls :
Get last used row lastrow = getItemLocation("*", sheets("sheet1").cells)
get first used row firstrow = getItemLocation("*", sheets("sheet1").cells), true, false)
get last column firstrow = getItemLocation("*", sheets("sheet1").cells), true, true, false)
get first column firstrow = getItemLocation("*", sheets("sheet1").cells), true, false, false)
Dec 4, 2015 at 10:30 AM