Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Email()
- Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
- Dim FName As Range, LName As Range, Company As Range
- Application.ScreenUpdating = False
- For i = 2 To ws.Range("A" & ws.Rows.Count).End(xlUp).Row
- Select Case ws.Range("C" & i) 'DO YOUR VLOOKUP HERE'
- Case "Format1" 'First.Last@Company.Com
- ws.Range("D" & i) = ws.Range("A" & i) & "." & ws.Range("B" & i) & "@" & ws.Range("C" & i) & ".Com"
- Case "Format2" 'F.Last@Company.Com
- ws.Range("D" & i) = Left(ws.Range("A" & i), 1) & "." & ws.Range("B" & i) & "@" & ws.Range("C" & i) & ".Com"
- Case "Format3" 'First@Company.Com
- ws.Range("D" & i) = ws.Range("A" & i) & "@" & ws.Range("C" & i) & ".com"
- End Select
- Next i
- Application.ScreenUpdating = True
- End Sub
Add Comment
Please, Sign In to add comment