hi,
i have this code it work but now i need only value to b paste in new sheet how can i do pl help i try that comment part but it give me error 1004 Application-define or object define error
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")
'ws.Range(rTFind.Offset(-1), rBFind.Offset(-2)).EntireRow.Copy
'Sheets(sname).Range(Cells(rTitle + 1, "A")).Paste 'Special.x1Value
Else
ws.Range(rTFind.Offset(-1), ws.Cells(LR, "A")).EntireRow.Copy _
Sheets(sname).Cells(rTitle + 1, "A") '.PasteSpecial.x1Value
End If
in this segment i get error
'ws.Range(rTFind.Offset(-1), rBFind.Offset(-2)).EntireRow.Copy _
Sheets(sname).Cells(rTitle + 1, "A")
''' i change this to next one
ws.Range(rTFind.Offset(-1), rBFind.Offset(-2)).EntireRow.Copy
Sheets(sname).Range(Cells(rTitle + 1, "A")).Paste 'Special.x1Value
thanks for any help.
Bookmarks