Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 62
  • Last Modified:

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
0
Naresh Patel
Asked:
Naresh Patel
  • 2
1 Solution
 
Subodh Tiwari (Neeraj)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

Featured Post

New feature and membership benefit!

New feature! Upgrade and increase expert visibility of your issues with Priority Questions.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now