hi i have following code it give this error can u pl help how to use paste special hear?
ws.Range(rTFind.Offset(-1), rBFind.Offset(-2)).EntireRow.Copy _ Sheets(sname).Cells(rTitle + 1, "A").PasteSpecial.x1Value
hi i have following code it give this error can u pl help how to use paste special hear?
ws.Range(rTFind.Offset(-1), rBFind.Offset(-2)).EntireRow.Copy _ Sheets(sname).Cells(rTitle + 1, "A").PasteSpecial.x1Value
Remove the Line Continuation underscore on the first line
I expect the student to do their homework and find all the errrors I leeve in.
Please take the time to read the Forum FAQ
The second line should also read:
(note the constant starts with XL and not X1)Sheets(sname).Cells(rTitle + 1, "A").PasteSpecial xlPasteValues
Be as you wish to seem
i did try that but still giving error
ws.Range(rTFind.Offset(-1), rBFind.Offset(-2)).EntireRow.Copy Sheets(sname).Cells(rTitle + 1, "A").PasteSpecial xlPastevalues
Partial information, partial answers,,,,
Sheets(sname).Cells(rTitle + 1, "A").entirerow.resize(2)=rTFind.Offset(-2).resize(2).entirerow.value
thanks snb here is my do loop
Do Set rBFind = ws.Range("A:A").FindNext(rTFind) sname = Format(Day(Int(rTFind.Offset(-1))) + 1, "DD") If Not Evaluate("=ISREF('" & sname & "'!A1)") Then 'create sheet if needed Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sname Else 'clear sheet if it exists Sheets(sname).Move After:=Sheets(Sheets.Count) Sheets(sname).Cells.Clear End If ws.Rows(rTitle).Copy Sheets(sname).Cells(rTitle, "A") If rBFind.Address <> rFirst.Address Then 'ws.Range(rTFind.Offset(-1), rBFind.Offset(-2)).EntireRow.Copy _ Sheets(sname).Cells(rTitle + 1, "A")'.PasteSpecial 'xlPastevalues ws.Range(rTFind.Offset(-1), rBFind.Offset(-2)).EntireRow.Copy Sheets(sname).Range(Cells(rTitle + 1, "A")).PasteSpecial xlPasteValuesAndNumberFormats ''' error 1004 at last line now ""application define or object define error loop
You'd better use autofilter than find...findnext
Sub M_snb() with sheet1.columns(1) .autofilter 1, "searchitem" for each cl in .specialcells(12) if cl.row>1 then ' etc end if next end with End Sub