Copying a row
Closed
texaslavender
Posts
1
Registration date
Wednesday 12 November 2014
Status
Member
Last seen
12 November 2014
-
12 Nov 2014 à 15:34
venkat1926 Posts 1863 Registration date Sunday 14 June 2009 Status Contributor Last seen 7 August 2021 - 13 Nov 2014 à 01:02
venkat1926 Posts 1863 Registration date Sunday 14 June 2009 Status Contributor Last seen 7 August 2021 - 13 Nov 2014 à 01:02
Related:
- Copying a row
- Saints row 2 cheats - Guide
- Protect pdf from copying - Guide
- How to delete a row in word - Guide
- Saints row pc download - Download - Action and adventure
- Vb net find last row in excel sheet - Guide
1 response
venkat1926
Posts
1863
Registration date
Sunday 14 June 2009
Status
Contributor
Last seen
7 August 2021
811
13 Nov 2014 à 01:02
13 Nov 2014 à 01:02
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
