vba assistance

[fireslguk]

hi the following code works wonders although before creating a blank new sheet for pasting the screen grab it brings the wrong date and time.

what amendment is required to ensure the exact current time date is changed before the screen copy to paste in a new sheet

this is the code:-


Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12
Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)



________________________________________________________________


Private Sub CommandButton2_Click()

keybd_event VK_MENU, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
ActiveSheet.Unprotect "6477"
Sheets("STATUS").Range("l2").Value = Now
ActiveSheet.Protect "6477"
Sheets.Add
MsgBox ("Screen Captured - Paste to new sheet")



End Sub

 

[nemmi69]

Not sure I understand. Is "Sheets("STATUS").Range("l2").Value = Now" not working?

 

[fireslguk]

Not sure I understand. Is "Sheets("STATUS").Range("l2").Value = Now" not working?

yes it does only after the event

 

[fireslguk]

Where I want this to do before the paste screen shot

 

[fireslguk]

Anyone?

 

[fireslguk]

So I get the feeling no one can conquer this right ?

 

[Caleeco]

Do you not just need to change the location of the NOW print in the code?

[COLOR=#333333]Private Sub CommandButton2_Click()[/COLOR]
[COLOR=#333333]ActiveSheet.Unprotect "6477"[/COLOR]
[COLOR=#333333]Sheets("STATUS").Range("l2").Value = Now[/COLOR]
[COLOR=#333333]ActiveSheet.Protect "6477"[/COLOR]
[COLOR=#333333]keybd_event VK_MENU, 0, 0, 0[/COLOR]
[COLOR=#333333]keybd_event VK_SNAPSHOT, 0, 0, 0[/COLOR]
[COLOR=#333333]keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0[/COLOR]
[COLOR=#333333]keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0[/COLOR]
[COLOR=#333333]Sheets.Add[/COLOR]
[COLOR=#333333]MsgBox ("Screen Captured - Paste to new sheet")[/COLOR]

[COLOR=#333333]End Sub[/COLOR]

If not, what do you mean by the wrong date and time? how is it wrong?

LMK
Caleeco

 

[fireslguk]

The date time is correct after the code has done the screen grabbing - I want the date time to be correct before the screen grab

 

[fireslguk]

Bump

 

[Caleeco]

Hi fireslguk,

I'd be happy to help, but you first need to explain what the"correct time" means, preferably with an example.

Many Thanks
Caleeco