VBA Code

Posted on 2014-07-28
Last Modified: 2014-07-31
Hi Experts,

Will anyone help me with piece of code which execute “Copy Trigger data” Module in attached WB.
If below Condition Match.
If time is between 9:40 to 15:30 & Column L <>”” & Column M<>”Posted”
Range for looping = L2: L1699 & M2:M1699
Flow like this if say L2<>”” i.e. in attached it is “Testing” & M2 <>”Posted” & time is between 9:40 – 15:30
Then Execute Module “Copy Trigger Data”
         Put “Posted” in Cell M2.
If above AND condition doesn't match then exit.
Code run on real time basis.

Question by:Naresh Patel
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
LVL 23

Accepted Solution

Ejgil Hedegaard earned 500 total points
ID: 40225141
Use the function Timevalue to check for time.

To match the conditions, replace
If c.Value <> "" Then

Open in new window

If c.Value <> "" And TimeValue(Now()) >= TimeValue("09:40:00") And TimeValue(Now()) <= TimeValue("15:30:00") And c.Offset(0, 1) <> "Posted" Then
            c.Offset(0, 1) = "Posted"

Open in new window


Author Comment

by:Naresh Patel
ID: 40225509
May i have Sample WB please!!!

Author Comment

by:Naresh Patel
ID: 40226076
Mr.Ejgil Hedegaard,

Did what you said - this is the error messageError Message
Office 365 Training for Admins - 7 Day Trial

Learn how to provision tenants, synchronize on-premise Active Directory, implement Single Sign-On, customize Office deployment, and protect your organization with eDiscovery and DLP policies.  Only from Platform Scholar.

LVL 23

Expert Comment

by:Ejgil Hedegaard
ID: 40227585
Here is the WB.

Author Comment

by:Naresh Patel
ID: 40227898
Perfect - Just need to confirm this Code will run on real time basis without human intervention? as row 2 to 1699 data updated on real time basis & column L have referencing formula to these real time data as and when condition match, column L produce some string else it will "". i guess you got my point.

LVL 23

Expert Comment

by:Ejgil Hedegaard
ID: 40229565
The conditions for the row processed (2 to 1699) are
- The cell in column L must have a value, anything will do
- The cell in column M must not have the text "Posted"
- The real time (Now) is between 9:40 and 15:30
Then the text "Posted" is put in the cell in column M

And the rest of the code add values and formulas to the first empty row below 1700 for the processed row.
Did not check what, just that it happens.

Author Closing Comment

by:Naresh Patel
ID: 40231145
Yes it is happen ...I thought for Real time I have to ask new question .....Thank You Very Much

Featured Post

Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Excel can be a tricky bit of software to get your head around. Whilst you’ll be able to eventually get to grips with the basic understanding of how to get by, there are a few Excel tips that not everybody will even know about let alone know how to d…
Cancel future meetings from user mailboxes in Office 365 using Remove-CalendarEvents
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.

617 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question