Guest User

Untitled

a guest
Jul 22nd, 2018
174
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.81 KB | None | 0 0
  1. Sub Email()
  2.  
  3. Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
  4.  
  5. Dim FName As Range, LName As Range, Company As Range
  6.  
  7. Application.ScreenUpdating = False
  8. For i = 2 To ws.Range("A" & ws.Rows.Count).End(xlUp).Row
  9. Select Case ws.Range("C" & i) 'DO YOUR VLOOKUP HERE'
  10. Case "Format1" 'First.Last@Company.Com
  11. ws.Range("D" & i) = ws.Range("A" & i) & "." & ws.Range("B" & i) & "@" & ws.Range("C" & i) & ".Com"
  12. Case "Format2" 'F.Last@Company.Com
  13. ws.Range("D" & i) = Left(ws.Range("A" & i), 1) & "." & ws.Range("B" & i) & "@" & ws.Range("C" & i) & ".Com"
  14. Case "Format3" 'First@Company.Com
  15. ws.Range("D" & i) = ws.Range("A" & i) & "@" & ws.Range("C" & i) & ".com"
  16. End Select
  17. Next i
  18. Application.ScreenUpdating = True
  19.  
  20. End Sub
Add Comment
Please, Sign In to add comment