Copying a row
Closed
texaslavender
Posts
1
Registration date
Wednesday November 12, 2014
Status
Member
Last seen
November 12, 2014
-
Nov 12, 2014 at 03:34 PM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Nov 13, 2014 at 01:02 AM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Nov 13, 2014 at 01:02 AM
Related:
- Copying a row
- Saints row 2 cheats - Guide
- How to delete a row in a table in word - Guide
- Protect pdf from copying - Guide
- Saints row free download - Download - Action and adventure
- Vba last non empty row - Guide
1 response
venkat1926
Posts
1863
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
811
Nov 13, 2014 at 01:02 AM
Nov 13, 2014 at 01:02 AM
OPEN A NEW SHEET AND CALL LIT "sum" (without quotes)
presume that you have used formula for totalling either "autosum" or using formula with =sum(....)
now try this macro
presume that you have used formula for totalling either "autosum" or using formula with =sum(....)
now try this macro
Sub test()
Dim j As Integer
Dim tot As Range
For j = 1 To Worksheets.Count
If Worksheets(j).Name = "sum" Then GoTo nextj
With Worksheets(j)
Set tot = .Cells.Find(what:="sum", lookat:=xlPart)
'MsgBox tot.Address
tot.EntireRow.Copy
With Worksheets("sum")
.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End With
End With
nextj:
Next j
End Sub
