How to Track Current Time of different GMT

[Akash]

Hi,

I had a new requirement this time.... I tried a lot but fail to get
the exact outup in regard to this matter. right Now i am staying in
India and follow (GMT+05:30)Chennai, Kolkata, Mumbai. New Delhi

I have a sheet in which i have to enter current Time in Cell E2 as per
(GMT+05:30). As soon as I enter Current Time in Cell E2 i want the
current time in E6, E7, E8, E9....E18,

E6...... GMT/UTC + 01:00
hour......A6...Paris---------------------------- C6... France
E7...... GMT/UTC + 00:00 hour...... A7...
London------------------------C7... United Kingdom
E8...... GMT/UTC - 10:00 hour....... A8... Hawaii National Park ----
C8... United States
E9...... GMT/UTC - 08:00 hour....... A9... Hawaiian Gardens----------
C9... United States
E10.... GMT/UTC - 06:00 hour....... A10..
Chicago-----------------------C10.. United States
E11.... GMT/UTC - 05:00 hour....... A11.. NewYork----------------------
C11.. United States
E12.... GMT/UTC - 06:00 hour....... A12.. Moscow-----------------------
C12.. United States
E13.... GMT/UTC + 02:00 hour...... A13.. Cape Town--------------------
C13.. South Africa
E14.... GMT/UTC + 08:00 hour......
A14..Beijing---------------------------C14.. China
E15.... GMT/UTC + 08:00 hour...... A15..Singapore----------------------
C15.. Singapore
E16.... GMT/UTC + 09:00 hour...... A16..
Tokyo---------------------------C16.. Japan
E17.... GMT/UTC + 10:00 hour...... A17..
Sydney-------------------------C17.. Australia
E18.... GMT/UTC + 12:00 hour...... A18.. Queenstown -----------------
C18.. New Xealand

Kindly Help Me in this regards.

Thanks

Akash Maheshwari

 

[Guest]

Use a worksheet_change macro. Enter code on VBA sheet (not module). go to
worksheet and right click tab on bottom (normally sheet1) and select view
code. Past code below in VBA. I add the line for Paris France. You need to
add the other locations.


Sub worksheet_change(ByVal Target As Range)

If (Target.Row = 2) And (Target.Column = 5) Then
If IsDate(Target) Then
Range("E6") = Target + TimeSerial(1, 0, 0)
End If
End If

End Sub

 

[Bob Phillips]

answered in your previous post

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)