allenhasdeviant [2020-08-13 04:33:47 +0000 UTC]

👍: 0 ⏩: 0

allenhasdeviant [2020-08-13 03:58:10 +0000 UTC]

👍: 0 ⏩: 0

allenhasdeviant [2016-02-06 12:37:48 +0000 UTC]

In order to store predefined mail 'templates' within Your mailbox You have an exceptional possibility; 

Once You have the message composed the way You would like to store it, 
Click More \ Save as Stationery. 

Once You have a couple of stationaries stored, 
You can compose a message using the specific stationary using More \ New Message using Stationery. 

You can access the stored stationaries in Your mailbox on the left side at Tools \ Stationery. 

👍: 0 ⏩: 0

allenhasdeviant [2016-01-05 08:36:52 +0000 UTC]

row highlight

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

NO FILL
Rows(ActiveCell.Row).Select
   With Selection.Interior
       .Pattern = xlNone
       .TintAndShade = 0
       .PatternTintAndShade = 0
   End With
End Sub

LIGHT RED
Rows(ActiveCell.Row).Interior.Color = RGB(255, 153, 153)

LIGHT GREEN
Rows(ActiveCell.Row).Interior.Color = RGB(153, 255, 153)

LIGHT YELLOW
Rows(ActiveCell.Row).Interior.Color = RGB(255, 255, 153)

👍: 0 ⏩: 0

allenhasdeviant [2016-01-01 04:23:45 +0000 UTC]

multiple if function

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

1 if 

=IF(ISNUMBER(SEARCH("SWORD1",A1)),"EWORD1"
,IF(A1="","NO DECISION",""))

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

2 ifs

=IF(ISNUMBER(SEARCH("SWORD1",A1)),"EWORD1"
,IF(ISNUMBER(SEARCH("SWORD2", A1)),"EWORD2"
,IF(A1="","NO DECISION","")))

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

4 ifs

=IF(ISNUMBER(SEARCH("SWORD1",A1)),"EWORD1"
,IF(ISNUMBER(SEARCH("SWORD2", A1)),"EWORD2"
,IF(ISNUMBER(SEARCH("SWORD3", A1)),"EWORD3"
,IF(ISNUMBER(SEARCH("SWORD4", A1)),"EWORD4"
,IF(A1="","NO DECISION","")))))

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

👍: 0 ⏩: 0

allenhasdeviant [2016-01-01 04:06:35 +0000 UTC]

for hiding userform
turn off modal prop

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Hide
Unload UserForm1
End Sub

👍: 0 ⏩: 0

allenhasdeviant [2016-01-01 03:56:05 +0000 UTC]

BOB'S REQUEST

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
   If Target.Cells = "Closed" Then
       Application.EnableEvents = False
       Cells(Target.Row, 4).Value = Date
       Application.EnableEvents = True
       
       End If
               
   If Target.Cells = "" Then
       Application.EnableEvents = False
       Cells(Target.Row, 4).Value = ""
       Application.EnableEvents = True
       
   End If
   
End Sub

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

dont forget to delete and re enter closed to activate code

👍: 0 ⏩: 0

allenhasdeviant [2016-01-01 03:53:40 +0000 UTC]

^for vab hyperlink

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Sub Button2_Click()
On Error Resume Next
ThisWorkbook.FollowHyperlink Address:="C:\Users\ajvdg\Desktop\lagoon a"
End Sub

👍: 0 ⏩: 0

allenhasdeviant [2016-01-01 03:53:14 +0000 UTC]

^for creation of new sheet with date name

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Sub CopyActiveSheetToLast()
 ActiveSheet.Copy After:=Sheets(Sheets.Count)
 SheetNameAsCurrentDate
End Sub

Sub SheetNameAsCurrentDate()
On Error GoTo Handler

Dim SheetName As String

SheetName = Format(Date, "MMM-dd") 'Change the format as per your requirement

ActiveSheet.Name = SheetName

Handler:
   MsgBox ("!!!")

End Sub

👍: 0 ⏩: 0