|
Login
  • Page:
  • 1

TOPIC: Copia mail al posto di una cella

Copia mail al posto di una cella 8 years 2 months ago #8785

  • fabiaiz
  • fabiaiz's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 1
  • Karma: 0
Ciao ragazzi, ho un documento che nella colonna D4 ha degli indirizzi e-mail, avrei bisogno di una macro che ogni volta che trova un indirizzo e-mail lo copi nella colonna A, al posto del primo numero che trova salendo verso l'inizio del documento.
Allego il documento per farvi capire.
I

File Attachment:

File Name: esempio.xlsx
File Size: 9 KB

n pratica quando trova una mail deve copiarla nel numero sopra della colonna A
( non è fondamentale che sia al posto del numero, va bene anche in una nuova cella affianco)
The administrator has disabled public write access.

Copia mail al posto di una cella 8 years 1 month ago #8831

  • p3pq3
  • p3pq3's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 175
  • Thank you received: 28
  • Karma: 10
Ciao,

se ho ben capito quello che vuoi ottenere questa macro dovrebbe aiutarti:

Sub Macro1()
'
' Macro1 Macro
'

'
Range("D1048576").Select
Selection.End(xlUp).Select
n = Selection.Row
Set R = Range("D2:D" & n)

For Each cell In R
If Left(cell, 7) = "E-mail:" Then
t = Replace(cell, "E-mail: ", "")
cell.Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
ActiveCell.Value = t
End If
Next

End Sub


P.S.: la macro funziona solo se l'indirizzo email viene scritto preceduto dalla stringa "E-mail: "
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.521 seconds