salve a tutti
il mio problema con vba è che usando la funzione Cells(x, y).Value non mi rende il valore aggiornato.
Ovvero: se nella cella A1 c'è il valore 15, al primo utilizzo della funzione sopra indicata mi rende il valore 15.
Se cambio il valore nella cella A1 e metto 10, la funzione mi rende sempre 15..
Cosa sbaglio?
grazie a tutti
Spostato nel forum appropriato.
Ciao.
"Perchè spendere anche solo 5 dollari per un S.O., quando posso averne uno gratis e spendere quei 5 dollari per 5 bottiglie di birra?" [Jon "maddog" Hall]
Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza
nessuno mi può aiutare? ;_;
up ;_;
Dovresti postare il codice effettivamente usato, in quanto penso che contenga un errore... non ho mai riscontrato quel problema in Excel !Originariamente inviato da vejita866
salve a tutti
il mio problema con vba è che usando la funzione Cells(x, y).Value non mi rende il valore aggiornato.
Ovvero: se nella cella A1 c'è il valore 15, al primo utilizzo della funzione sopra indicata mi rende il valore 15.
Se cambio il valore nella cella A1 e metto 10, la funzione mi rende sempre 15..
Cosa sbaglio?
grazie a tutti
IceCube_HT (VB6 fan Club)
Ecco il codice (so che è molto grezzo, ma sono alle prime armi...)
Sub mandamail()
Numeri = Cells(ActiveCell.Row, 5)
test = CreaVisualizzaMail(Numeri)
End Sub
Function CreaVisualizzaMail(Numeri)
Destinatario = Cells(ActiveCell.Row, 10)
Abbonato = Cells(ActiveCell.Row, 7)
Oggetto = "Book Seller: Arretrati arrivati"
Data = Cells(ActiveCell.Row, 1)
Fumetto = Cells(ActiveCell.Row, 3)
Nominativo = Cells(ActiveCell.Row, 8)
Corpo = "<html>Ciao " & Nominativo
If Len(Abbonato) Then
Corpo = Corpo & " (Abbonato n." & Abbonato & " )"
End If
Corpo = Corpo & "!
Volevo informarti che, in data odierna, è arrivato " & Fumetto & " numero/i " & Numeri _
& " ordinati il " & Data & ".
Puoi passare a ritirarli quando vuoi.
</html>"
Dim oMail As Outlook.MailItem, oApp As Outlook.Application
Set oApp = New Outlook.Application
Set oMail = oApp.CreateItem(olMailItem)
oMail.To = Destinatario
oMail.HTMLBody = Corpo
oMail.Subject = Oggetto
oMail.Display
Set oMail = Nothing
Set oApp = Nothing
End Function
Permessi di invio
Rispondi quotando