Rounded before adding time
You gave me the perfect formula to add 10 minutes extra,I need the same formulas for 9,18 and 60 minutes
as example, with your given formula if the cell is 2:00, the end result is 2:20 (2 times 10 minutes) what is 100% correct but I want also for example to add 60...
Yes,this is what I am looking for.
Except there are 3 more: 9 mintes,18 minutes and 60 minutes
They can be separate formulas, they don't have to be combined.
Extra info: the hours are round up (on 5 minutes)
I have a result in a cell formated as uu:mm, for example 3:00, Then I need to add 3 times 10 minutes in another cell result should be 3:30 in a another cell. If the first cell is 2:30 then the result should be 2:55 (2 times 10 minutes and 1 time 5 minutes)
The goal is when somebody works on a...
@Yodelayheewho
I've been out of the loop forr 11 months.(I was in the hospital) I am a bit rusty.
I see your question isn't solved yet. I don't remember if there is a solution with msgboxes, but there is sure one when you make your own msgboxes with using homemade userforms that opens the...
Example when you want to choose de emails if you don't have to send to all the adresses.
I added and example how your Volunteers page should look like.
Sub gandal()
'
' EmailCopy Macro
Dim cell As Range
Dim rng As Range
Dim objOutlook As Object, OutMail As Object
Dim strto As...
=IF(WEEKDAY(TODAY(),2)=6,TODAY()-1) IF(WEEKDAY(TODAY(),2)=7,TODAY()-2)
I want to combine these 2 so that if it is weekend cell always returns last friday
Hi Bob,
Glad to help.
Let me know if your problem is solved.
What I meant by: it is the same in Excel, you just have to enter a letter just like in Access
Hi,
I have this code to empty junkfolders in outlook.
Unfortunately, it only works for the default account, what can I do to let it work for both accounts?
Thanks.
Sub EmptyDeletedItems()
Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim objExpl As Outlook.Explorer
Dim mboxCount...
Hi,
Like this?
Sub CleanCells()
For i = 3 To 17
Sheets("Plan1").ListObjects("Tabela1").ListColumns(i).DataBodyRange.ClearContents
Next i
For i = 24 To 28
Sheets("Plan1").ListObjects("Tabela1").ListColumns(i).DataBodyRange.ClearContents
Next i
End Sub
Do you mean this?
Sub CleanCells()
With Sheets("Plan1").ListObjects("Tabela1")
If Not .DataBodyRange Is Nothing Then .DataBodyRange.ClearContents
End With
End Sub