code Moficatio

I had this question after viewing Code Modification.
Hi Experts,

need little change in existing code -----Module SingleToPost - Sub Cash - which post entries to sheet Cash & Sheet LogFile ...i need bit changes when it  post to Sheet LogFile....in present scenario it over past cash entries in LogFile need to post new entries in last available rows.

See Attached

Thanks
Portfolio-V06.xlsm
LVL 8
Naresh PatelTraderAsked:
Who is Participating?
 
Subodh Tiwari (Neeraj)Connect With a Mentor Excel & VBA ExpertCommented:
Do you mean you want to paste them in the first empty row available on LogFile instead of pasting always in A2?
If this is the case try this.....

With WS.Rows(1)
   .AutoFilter field:=4, Criteria1:="Cash"
   If WS.Range("A1:A" & MaxRow).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
      WS.Range("A2:H" & MaxRow).SpecialCells(xlCellTypeVisible).Copy WSL.Range("A" & Rows.Count).End(3)(2)
   End If
   .AutoFilter
End With

Open in new window

0
 
Naresh PatelTraderAuthor Commented:
Thanks
0
 
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
You're welcome.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.