separating time and date in two columns

Hey,

How can I separate date and time in the following excel?

The user should be able to insert the two columns "Date&Time" and "Power" any where in any worksheet and the button should separate date and time in 2 columns and copy power next to them in the same worksheet where data is.

Thanks

Put this behind your commandbutton behind your Userform

Please Login or Register  to view this content.

Originally Posted by JEC.

Put this behind your commandbutton behind your Userform

Please Login or Register  to view this content.

Could you explain this part:

Please Login or Register  to view this content.

what if the data is another worksheet than the button?

That is where the user specifies the first cell of his data, which is been asked in you UF.
When de button is in another sheet, you need a sheetreference too.

I tried the code but didn't work.

For 'any' worksheet then move the code to a standard module and add ActiveSheet. before UsedRange ...

With sheet reference below.
You can also delete your Textbox, where they have to put the first cell with data.

Please Login or Register  to view this content.

Originally Posted by Marc L

According to your attachment an Excel basics VBA demonstration (v2) as a beginner starter
to paste only in the Tabelle1 worksheet module :

PHP Code: 

Sub Demo1()
         Dim Rc As Range
         Set Rc = UsedRange.Find("Time stamp", , , 1, 1):  If Rc Is Nothing Then Beep: Exit Sub
         Application.DisplayAlerts = False
    With Range(Rc, Rc.End(xlDown)).Resize(, 2).Columns
        .Item(2).Insert
        .Item(1).TextToColumns , 1, xlTextQualifierNone, , False, False, False, True, False
    End With
         Application.DisplayAlerts = True
         Rc(2).Resize(, 2) = Split(Rc(2), "-")
         Set Rc = Nothing
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon ? ★ Add Reputation ? ! ◄ ◄

Thanks alot! ^_^

Originally Posted by Marc L

According to your attachment an Excel basics VBA demonstration (v2) as a beginner starter
to paste only in the Tabelle1 worksheet module :

PHP Code: 

Sub Demo1()
         Dim Rc As Range
         Set Rc = UsedRange.Find("Time stamp", , , 1, 1):  If Rc Is Nothing Then Beep: Exit Sub
         Application.DisplayAlerts = False
    With Range(Rc, Rc.End(xlDown)).Resize(, 2).Columns
        .Item(2).Insert
        .Item(1).TextToColumns , 1, xlTextQualifierNone, , False, False, False, True, False
    End With
         Application.DisplayAlerts = True
         Rc(2).Resize(, 2) = Split(Rc(2), "-")
         Set Rc = Nothing
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon ? ★ Add Reputation ? ! ◄ ◄

What does

Please Login or Register  to view this content.

do? I mean , I know it findes the "time stamp" column but what is this ", , , 1, 1" part?

Originally Posted by (T_T)

... How can I separate date and time in the following excel?

Were you able to analyze the proposal of message #8?