Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
macro code required
Hi,
I have a macro to calculate the time ... Col A - Start time Col B - End Time similarly, I have Col C , Col D , Col E , Col F......... ( Start Time & End Time) I have Created Buttons ( in top row Button 1, Button 2 , Button 3 ) Button 1 - for Col A , B Button 2 - for Col C, D Button 3 - for Col E, F If user click that buttton it gives the system time as 00:06:53 in A5 (hh:mm:ss) and again if user click that button it will gives the system 00:06:55 in B5 & moves to A6 cell. if user click that button it gives the time in A6 and Moves to B6. similarly it moves down as and when user clicks.. What i need is - If the user clicks button 1, the activecell should be A5 and it moves on. If user click button 3, the activecell should be E5. Please Check code and test it and advice if you there is better option rather than this ? Here is my code : Sub macro1() ActiveCell.Select If ActiveCell = "" Then ActiveCell.FormulaR1C1 = "=now()-Today()" Selection.Copy 'ActiveCell.Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Else If ActiveCell < "" Then ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=now()-Today()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False If ActiveCell 0 Then ActiveCell.Offset(1, -1).Select End If End If End If End Sub |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
macro code required
See my reply in .Programming
-- HTH, Bernie MS Excel MVP "muddan madhu" wrote in message ... Hi, I have a macro to calculate the time ... Col A - Start time Col B - End Time similarly, I have Col C , Col D , Col E , Col F......... ( Start Time & End Time) I have Created Buttons ( in top row Button 1, Button 2 , Button 3 ) Button 1 - for Col A , B Button 2 - for Col C, D Button 3 - for Col E, F If user click that buttton it gives the system time as 00:06:53 in A5 (hh:mm:ss) and again if user click that button it will gives the system 00:06:55 in B5 & moves to A6 cell. if user click that button it gives the time in A6 and Moves to B6. similarly it moves down as and when user clicks.. What i need is - If the user clicks button 1, the activecell should be A5 and it moves on. If user click button 3, the activecell should be E5. Please Check code and test it and advice if you there is better option rather than this ? Here is my code : Sub macro1() ActiveCell.Select If ActiveCell = "" Then ActiveCell.FormulaR1C1 = "=now()-Today()" Selection.Copy 'ActiveCell.Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Else If ActiveCell < "" Then ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=now()-Today()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False If ActiveCell 0 Then ActiveCell.Offset(1, -1).Select End If End If End If End Sub |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
macro code required
Bernie,
Thank u very much, it works great. I need small help, Please help me. I need to learn advance coding in Excel VBA. Can u guide me ? On Apr 28, 7:14*pm, "Bernie Deitrick" <deitbe @ consumer dot org wrote: See my reply in .Programming -- HTH, Bernie MS Excel MVP "muddan madhu" wrote in message ... Hi, I have a macro to calculate the time ... Col A - Start time Col B - End Time similarly, I have Col C , Col D , Col E , Col F......... ( Start Time & End Time) I have Created Buttons ( in top row Button 1, Button 2 , Button 3 ) Button 1 - for Col A , B Button 2 - for Col C, D Button 3 - for Col E, F If user click that buttton it gives the system time as 00:06:53 in A5 (hh:mm:ss) and again if user click that button it will gives the system 00:06:55 in B5 & moves to A6 cell. if user click that button it gives the time in A6 and Moves to B6. similarly it moves down as and when user clicks.. What i need is - If the user clicks button 1, the activecell should be A5 and it moves on. If user click button 3, the activecell should be E5. Please Check code and test it and advice if you there is better option rather than this ? Here is my code : Sub macro1() ActiveCell.Select If ActiveCell = "" Then ActiveCell.FormulaR1C1 = "=now()-Today()" Selection.Copy 'ActiveCell.Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Else If ActiveCell < "" Then ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=now()-Today()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False If ActiveCell 0 Then ActiveCell.Offset(1, -1).Select End If End If End If End Sub- Hide quoted text - - Show quoted text - |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro Code required | Excel Discussion (Misc queries) | |||
help required in completing the code | Excel Discussion (Misc queries) | |||
Code required for VLookup returning #NA | Excel Discussion (Misc queries) | |||
Macro required | Excel Worksheet Functions | |||
Macro Help required | Excel Discussion (Misc queries) |