Newsgroup: it.comp.aiuto
Titolo: Help Excel

on 
irc.tin.it
 nick: O-Line
    ^.^

 e ciao.
Ho una cartella che fa esattamente questo, se mi
autorizzi, te la invio, ma tieni presente quanto segue:
1- non l'ho programmata io
2- l'ho scaricata da un sito internet (che per quel che mi riguarda è
affidabile)
3- te la posso inviare in allegato via e-mail
4- l'ho usata, funziona e non ho rilevato alcun macro virus
In ogni caso, se la vuoi, prima di aprirla controllala
con il tuo antivirus (io l'ho controllata con AVP ed è
risultata a posto).
Fammi sapere, ed eventualmente segnalami se la
tua e-mail è diversa da quella che risulta in alto.
Saluti !
----------------------------------------------------------
Ti sono stato utile?
http://www.intelliad.com/?24D75F77
----------------------------------------------------------


Ciao, si effettivamente mi sei stato utile,speriamo che tutto vada per
il meglio, puoi spedire all'indirizzo in calce, ed approfitto della
occasione, (non si sa mai), sarei in cerca di un programma macro, che
mi copiasse delle notizie da internet e me le trasportasse su un
foglio di lavoro excel, magari con un tempo di 1 minuto o oltre da
segliere.Conosci o hai qualcosa al riguardo?
Ti ringrazio tantissimo e resto in attesa della tua e-mail.
Ciao.


 ha scritto nel messaggio
news:8j1vcu$q8q$1...@lacerta.tiscalinet.it...


Io sono curioso. Perché non fai un copia incolla del testo della macro ?
Ciao,
non ho bene capito se hai cercato di darmi qualche suggerimento o
altro.
Io posso crearla direttamente nel foglio di exel la macro, ma mi sai
spiegare come con questa macro riesco ad aprire nescape o I.E., andare
in un certo sito e copiare determinate notizie ed incollarle poi sul
foglio di excel.
Se sai la soluzione di prego di dirmela e te ne saro' grato.


 attiva.
Non ho seguito la discussione dall'inizio ma per intercettare il
cambiamento di un valore è possibile usare l'evento
Worksheet_Change per il foglio che vuoi controllare.
Vb.sw
=================================
Vuoi imparare a scrivere più velocemente?
Allora vai su 
http://digilander.iol.it/quickeyboard
e scarica QuicKeyboard 2001, è Freeware
ICQ: 75621885
=================================





Ed a grande richiesta (si fa per dire...) ecco la macro, anche se cosě
com'č non capisco che te ne devi fare. Fuori dal suo contesto,infatti
č poco utile, ad ogni modo eccola:
Option Explicit
Sub FormuleAttivateDaScheda()
    Cells(2, 1).Select
    FormuleAttivate
End Sub
Sub FormuleDisattivateDaScheda()
    Cells(2, 1).Select
    FormuleDisattivate
End Sub
Sub FormuleAttivate()
    Dim RgAtt As Integer
    RgAtt = ActiveCell.Row
    Cells(RgAtt, 5).Select
    Selection.FormulaR1C1 = "=CHOOSE(RC[-2],10000,15000,20000)"
    Cells(RgAtt, 7).Select
    Selection.FormulaR1C1 = "=CHOOSE(RC[-4],10000,15000,20000)*0.5"
    Cells(RgAtt, 8).Select
    Selection.FormulaR1C1 = "=(RC[-4]*RC[-3])+(RC[-2]*RC[-1])"
    Cells(RgAtt, 10).Select
    Selection.FormulaR1C1 = "=IF(RC[-1]-TODAY()<0,""scaduto da "" &
TODAY()-RC[-1],""scade tra "" & RC[-1]-TODAY())"
End Sub
Sub FormuleDisattivate()
    Dim RgAtt As Integer
    RgAtt = ActiveCell.Row
    Range(Cells(RgAtt, 1), Cells(RgAtt, 10)).Select
    SoloValori
End Sub
Sub SoloValori()
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub
Sub ArchiviaInDati()
    Range("A2:J2").Copy
    Sheets("DATI").Select
    Cells(65536, 1).End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    If MsgBox("dati archiviati ! ritorno al foglio SCHEDA ?", vbYesNo) =
vbNo Then Exit Sub
    Sheets("SCHEDA").Select
    Range("A2").Select
End Sub
----------------------------------------------------------
Ti sono stato utile?
Ti sarei grato se dessi almeno un'occhiata a:
http://www.intelliad.com/?24D75F77
----------------------------------------------------------

č poco utile, ad ogni modo eccola:
Grazie del vostro interessamento ma mi avete confuso piu' di prima...
:)
Non ho capito piu' cosa devo fare per "salvare" il valore di una cella
in un altra cella, come avevo chiesto nel primo messaggio, quindi se
potreste riepilogare il tutto ve ne sarei grato
ciao
