Crea sito
Skip to content
Pietro Lazzaro

Pietro Lazzaro

TECNOLOGIA, FOTOGRAFIA, MONTAGGIO VIDEO, MUSICA, TANGO, MAGIA, CUCINA, VIAGGI, RISTORANTI, ecco alcune delle mie passioni….

  • Home
  • Tecnologia
    • Hardware
    • Sistemi Operativi
      • WEB-APP
      • Linux
      • MacOS
      • Windows
      • Excel
    • Smartphone
      • Android
      • Ios
      • APP
    • Videogame
      • Videogame
      • Giochi Elettronici
      • Console
    • Fotografia
    • Montaggio Video
  • Turismo
    • ViaggiPosti da visitare, esperienze e tanto altro!!
    • Vacanze
    • Luoghi da visitare
    • Dove pernottare
  • Scienza
    • L’ANGOLO DEL NUTRIZIONISTA
      • Consigli del nutrizionista
      • Ricette Low Carb
      • Domande e risposte dal Nutrizionista
    • Ambiente
      • IPLA SPA Istituto Per le Piante da Legno e l’Ambiente
      • LOTTA ALLE ZANZARE!
      • Ambiente, Foreste, Suoli, Vini, Tartufi
  • Cultura
    • Antiche Religioni E Mitologia
      • Antiche Religioni e Mitologia
      • La linea tellurica dellarcangelo michele
    • Fengshui Fabio Petrella
    • Libri
    • Pillole di Pasky
    • Teatro/Spettacoli
  • Tempo libero
    • Risultati partite seria A
    • Oroscopo
    • MagiaTra le tante mie passioni c’è anche la magia, presto publichero video e date di spettacoli
    • CucinaRicette e idee in cucina!
    • Spartiti per chitarra
    • Film e Serie TV
      • Film
      • Serie TV
    • Eventi
  • Tango!
    • I musicalizadores
    • Milonghe
      • Milonghe stabili
      • Dove si balla stasera? –>Fai Tango
    • Abiti e scarpe
      • Officina Tanguera
    • Interviste e cultura
      • IntervisTangoInterviste a personoaggi in vista nel mondo del tango.
    • Scuole di TANGO!
      • Accademia Tango Club asd
      • Accademia Tango Tradición – Scuola di Tango a Lecce
      • Balla tango –> le scuole
      • Beppe Scòzzari
      • Crecion Tango
      • M. Guevara y S.Giudice
      • Scuola TANGONAUTI
      • Voglio Vederti Ballare
    • Eventi Tango
    • Vacanze Tango
  • EXTRA!
    • Mi consiglieresti un….
    • Mercatino dell’usato
    • Chi sono
    • Forum
    • Log In
    • Register
    • Download
Watch MOBILE
  • Home
  • TECNOLOGIA
  • Sistemi Operativi
  • Windows
  • Come inviare messaggi Whatsapp da Excel con VBA!

Come inviare messaggi Whatsapp da Excel con VBA!

Pietro Lazzaro 15 Novembre 2021
3.6
(9)

Ci sono mille ragioni per cui potrebbe tornarvi utile inviare messaggi da Excel.
Vediamo come ralizzare velocemente un foglio che ci permetta di inviare messaggi a più numeri di telefono; la condizione perchè il tutto funzioni corretamente è che i numeri siano presenti nella rubrica del vostro cellulare.

whatsap_by_pietrolazzaroDownload

Vi consiglio di scaricarlo e provarlo! Il codice vba utilizzato per realizzare il file quà sopra è il seguente:

Private Sub CommandButton1_Click()

‘ Pulisci notifiche
Range(“c4:c1000”).Select
Selection.ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Private Sub CommandButton2_Click()

‘ Pulisci messaggio personalizzato
Range(“d4:d1000”).Select
Selection.ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Private Sub CommandButton3_Click()
‘ Pulisci data invio
Range(“e4:e1000”).Select
Selection.ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Private Sub Invia_per_numero_Click()
Dim RowCnt As Integer
Dim contatti As String
Dim testo As String
Dim cellulare As String
Dim promemoria_data As Date, data_di_invio As Date, presunta_spedizione As String
Dim BeginRow As Integer, LastRow As Integer

‘ Individua l’ultima riga con il numero di cellulare
With ActiveSheet
LastRow = .Cells(.Rows.Count, “B”).End(xlUp).Row
End With
BeginRow = 4

ActiveWorkbook.FollowHyperlink Address:=”https://web.whatsapp.com/”
Application.Wait (Now + TimeValue(“00:00:10”))

‘ Scorri la tabella e invia messaggi

For RowCnt = BeginRow To LastRow

‘Prima controlla che ci sia un numero di cellulare nella cella. Se è vuoto salta alla riga successiva
If IsEmpty(ActiveSheet.Cells(RowCnt, 2)) = False Then
cellulare = ActiveSheet.Cells(RowCnt, 2).Value

promemoria_data = ActiveSheet.Cells(RowCnt, 3).Value
presunta_spedizione = ActiveSheet.Cells(RowCnt, 5).Value ‘verifica cosa contiene la data di “spedizione”

‘ Verifica che il promemoria non sia stato ancora inviato (la cella “sent_date” contiene una data
If IsEmpty(ActiveSheet.Cells(RowCnt, 5)) Or IsDate(presunta_spedizione) = False Then
‘ Devi controllare che per data devi inviare il promemoria e registrare la data di spedizione
If promemoria_data <= Date Then
Call SendKeys(“{TAB}”, True) ‘Posiziona il cursore nel campo “cerca”
Application.Wait (Now + TimeValue(“00:00:02”))
Call SendKeys(cellulare, True)
Call SendKeys(“~”, True)
Application.Wait (Now + TimeValue(“00:00:05”))
testo = ActiveSheet.Cells(RowCnt, 4).Value
Call SendKeys(testo, True)
Application.Wait (Now + TimeValue(“00:00:2”))
Call SendKeys(“~”, True)
ActiveSheet.Cells(RowCnt, 5).Value = Date ‘registra la data di spedizione
Call SendKeys(“{TAB}”, True) ‘Posiziona il cursore nel campo “cerca”
Application.Wait (Now + TimeValue(“00:00:03”))
End If

End If
End If
Next RowCnt

End Sub

Private Sub Invia_messaggio_Click()
Dim RowCnt As Integer
Dim contatti As String
Dim testo As String
Dim cellulare As String
Dim promemoria_data As Date, data_di_invio As Date, presunta_spedizione As String
Dim BeginRow As Integer, LastRow As Integer

With ActiveSheet
LastRow = .Cells(.Rows.Count, “A”).End(xlUp).Row
End With
BeginRow = 4

ActiveWorkbook.FollowHyperlink Address:=”https://web.whatsapp.com/”
Application.Wait (Now + TimeValue(“00:00:10”))

‘ Scorri la tabella e invia messaggi

For RowCnt = BeginRow To LastRow

‘ Prima controlla che ci sia un nome nella cella. Se è vuoto salta alla riga successiva
If IsEmpty(ActiveSheet.Cells(RowCnt, 1)) = False Then
contatti = ActiveSheet.Cells(RowCnt, 1).Value
promemoria_data = ActiveSheet.Cells(RowCnt, 3).Value
presunta_spedizione = ActiveSheet.Cells(RowCnt, 5).Value ‘cosa contiene la data di “spedizione”

‘ Verifica che il promemoria non sia stato ancora inviato (la cella “sent_date” contiene una data)
If IsEmpty(ActiveSheet.Cells(RowCnt, 5)) Or IsDate(presunta_spedizione) = False Then
‘ Devi controllare che per data devi inviare il promemoria e registrare la data di spedizione
If promemoria_data <= Date Then
Call SendKeys(“{TAB}”, True) ‘Posiziona il cursore nel campo “cerca”
Application.Wait (Now + TimeValue(“00:00:02”))
Call SendKeys(contatti, True)
Call SendKeys(“~”, True)
Application.Wait (Now + TimeValue(“00:00:02”))
testo = ActiveSheet.Cells(RowCnt, 4).Value
Call SendKeys(testo, True)
Application.Wait (Now + TimeValue(“00:00:2”))
Call SendKeys(“~”, True)
ActiveSheet.Cells(RowCnt, 5).Value = Date ‘registra la data di spedizione
Call SendKeys(“{TAB}”, True) ‘Posiziona il cursore nel campo “cerca”
Application.Wait (Now + TimeValue(“00:00:03”))
End If

End If
End If
Next RowCnt

End Sub


Se avete domande lasciate un commento vi risponderò il prima possibile!!

Quanto ti è piaciuto questo post?

Clicca sulle stelle e vota

Valutazione media 3.6 / 5. Conto voti: 9

Nessun voto per ora ! Sarai il primo a votare questo post.

We are sorry that this post was not useful for you!

Tell us how we can improve this post?

Tags: excell vba whatsapp

Continue Reading

Previous: OBS: SOFTWARE PER LO STREAMING E LA CATTURA DELLO SCHERMO E DELL’AUDIO
Next: Ti sei mai chiesto cosa significano i codici delle cpu Intel? Scopriamolo insieme!!

Related Stories

Come usare CTRL + E in Excel una fantastica scorciatoia per unire segmentare ed estrarre velocemente dati.

Come usare CTRL + E in Excel una fantastica scorciatoia per unire segmentare ed estrarre velocemente dati.

10 Maggio 2022
INVIA MESSAGGI WHATSAPP DA EXCEL SENZA UTILIZZO DI MACRO

INVIA MESSAGGI WHATSAPP DA EXCEL SENZA UTILIZZO DI MACRO

20 Aprile 2022
USBY… TI AVVISA QUANDO MANCA LA CORRENTE!!

USBY… TI AVVISA QUANDO MANCA LA CORRENTE!!

7 Aprile 2022
RDS RelaxRDS Relax
Listen on myTuner radio!

    Accedi

    Effettua il login al sito.

    Messaggi recenti del forum

    L’attività fisica, che ruolo ha?da Pietro Lazzaro9 mesi fa
    Quanto dura una dieta dimagrante?da Pietro Lazzaro9 mesi fa
    Qual è il mio peso ideale?da Pietro Lazzaro9 mesi fa
    Maggio 2022
    L M M G V S D
     1
    2345678
    9101112131415
    16171819202122
    23242526272829
    3031  
    « Apr    

    Articoli recenti

    • Come usare CTRL + E in Excel una fantastica scorciatoia per unire segmentare ed estrarre velocemente dati.
      2 settimane fa

      Come usare CTRL + E in Excel una fantastica scorciatoia per unire segmentare ed estrarre velocemente dati.

    • INVIA MESSAGGI WHATSAPP DA EXCEL SENZA UTILIZZO DI MACRO
      1 mese fa

      INVIA MESSAGGI WHATSAPP DA EXCEL SENZA UTILIZZO DI MACRO

    • TANGO Workshop Torino Domenica 22 Maggio 2022  con i Maestri Pamela marmol y Emiliano Pilloni
      1 mese fa

      TANGO Workshop Torino Domenica 22 Maggio 2022 con i Maestri Pamela marmol y Emiliano Pilloni

    • USBY… TI AVVISA QUANDO MANCA LA CORRENTE!!
      1 mese fa

      USBY… TI AVVISA QUANDO MANCA LA CORRENTE!!

    • Windows: Come bloccare l'accesso ai programmi che vogliamo usare solo noi.
      2 mesi fa

      Windows: Come bloccare l'accesso ai programmi che vogliamo usare solo noi.

    • Come mandare WhatsApp a numeri non registrati in rubrica
      2 mesi fa

      Come mandare WhatsApp a numeri non registrati in rubrica

    • SpidMail, la prima Casella PEC gratuita per la ricezione!
      2 mesi fa

      SpidMail, la prima Casella PEC gratuita per la ricezione!

    • CERTBOT: Come installare semplicemente un certificato gratuito sul tuo server ubuntu per avere il tuo sito in HTTPS!
      2 mesi fa

      CERTBOT: Come installare semplicemente un certificato gratuito sul tuo server ubuntu per avere il tuo sito in HTTPS!

    • Arriccia capelli automatico, bellissime in pochi minuti!!
      2 mesi fa

      Arriccia capelli automatico, bellissime in pochi minuti!!

    • Pernottare a Torino:  CYCLISTS’ CORNER    Zona Lingotto Fiere, Metro Bengasi
      2 mesi fa

      Pernottare a Torino: CYCLISTS’ CORNER    Zona Lingotto Fiere, Metro Bengasi

    • Pernottare a Torino: BRITISH CORNER Appartamentino luminoso con: cucina, letto matrimoniale e bagno.
      2 mesi fa

      Pernottare a Torino: BRITISH CORNER Appartamentino luminoso con: cucina, letto matrimoniale e bagno.

    • Excel:FILTRO di RICERCA su DATI EXCEL con una TextBox programmata all'evento CHANGE di VBA, MACRO e SUB
      3 mesi fa

      Excel:FILTRO di RICERCA su DATI EXCEL con una TextBox programmata all'evento CHANGE di VBA, MACRO e SUB

    • Come monitorare lo spazio del disco in linux e ricevere una e-amail raggiunta una determinata percentuale di occupazione
      3 mesi fa

      Come monitorare lo spazio del disco in linux e ricevere una e-amail raggiunta una determinata percentuale di occupazione

    • Linux: Come contare il numero di file contenuti in una cartella.
      4 mesi fa

      Linux: Come contare il numero di file contenuti in una cartella.

    • Usi Windows pirata? Occhio che puoi rischiare grosso!
      4 mesi fa

      Usi Windows pirata? Occhio che puoi rischiare grosso!

    Articolo casuale

    Leggi un articolo a caso
    Se pensi che il mio aiuto ti è servito in qualche modo e avresti voglia di ringraziarmi, puoi offrirmi un caffè

    POTRESTI AVERE PERSO....

    Come usare CTRL + E in Excel una fantastica scorciatoia per unire segmentare ed estrarre velocemente dati.

    Come usare CTRL + E in Excel una fantastica scorciatoia per unire segmentare ed estrarre velocemente dati.

    10 Maggio 2022
    INVIA MESSAGGI WHATSAPP DA EXCEL SENZA UTILIZZO DI MACRO

    INVIA MESSAGGI WHATSAPP DA EXCEL SENZA UTILIZZO DI MACRO

    20 Aprile 2022
    TANGO Workshop Torino Domenica 22 Maggio 2022 con i Maestri Pamela marmol y Emiliano Pilloni

    TANGO Workshop Torino Domenica 22 Maggio 2022 con i Maestri Pamela marmol y Emiliano Pilloni

    13 Aprile 2022
    USBY… TI AVVISA QUANDO MANCA LA CORRENTE!!

    USBY… TI AVVISA QUANDO MANCA LA CORRENTE!!

    7 Aprile 2022

    Apri un sito e guadagna con Altervista - Disclaimer - Segnala abuso - Privacy Policy - Personalizza tracciamento pubblicitario