Sostituzione di valori della stessa riga in excel

[giamoros]

Ho questo problema su un foglio excel 2007 contenente 11 colonne per ogni riga.
Nella colonna E ci sono le quotazioni borsistiche che arrivano tramite DDE in automatico dalla Borsa Italiana, una riga per ogni titolo.
Vorrei che quando un successivo valore superasse il dato presente in E6 oltre che aggiornare la suddetta cella ( cosa che già avviene in automatico )vada a sostituirsi nella casella J6 che conterrà quindi il valore massimo raggiunto da tale azione.
Faccio un esempio :
E6 valore 26,50 J6 valore attuale 25,59 cambia in 26,50
E6 arriva 26,10 J6 valore attuale 26,50 non cambia perché inferiore al massimo raggiunto di 26,50
E6 arriva 26,45 J6 valore attuale 26,50 non cambia perché inferiore al massimo raggiunto di 26,50
E6 arriva 26,55 J6 valore attuale 25,50 cambia in 26,55
E6 arriva 26,56 J6 valore attuale 25,55 cambia in 26,56
Avevo pensato di risolvere il problema inserendo nella casella J6 la formula =SE(E6>J6;E6;0) ma all'arrivo di un dato la casella J6 mi dà =SE(#RIF!>#RIF!;#RIF!;0) e non so come risolvere il problema.
Grazie e cordiali saluti

[aurelio37]

Sposto in Applicazioni Office Windows

[ricky53]

Ciao,
la procedura DDE per la ricezione di nuovi dati come viene applicata al tuo file?

[giamoros]

La procedura DDE consta di due fasi.
La prima é l'attivazione sul PC client di un piccolo programa fornito dal datore di dati che in realta crerà un icona (collegamento) con il sito del fornitore.
La seconda è la predisposizione dei dati da ricevere su un foglio excel sul quale per ogni cella viene immessa una formula che individua il dato da ricevere quindi una cella per un solo dato.
Nella formula c'è l'indicazione del tipo di dato che si vuole ricevere; ad esempio il nome del tiolo,il valore attuale, l'ora della contrattazione,la quantità contrattata.
In questo caso si dovranno predisporre 4 celle.
A questo punto lanciando il foglio excel da client i due sistemi fornitore e client si contattano ed i dati affluiscono sul PC client
Tutto qui, più facile a farsi che a dire.

[scossa]

Come ho già risposto in altri forum dove hai posto lo stesso quesito, la soluzione da usare quando si ha a che fare con le DDE è ricorrere al metodo SetLinkOnData, per cui suggerisco di leggere l'help di questo metodo.

[giamoros]

Dove trovo l'help del metodo SetLinkonData o una discussione risolta con tale metodo?
Grazie e cordiali saluti.

[Anthony47]

Apri l' editor delle macro, premi F1 e cerchi usando la stringa "SetLinkOnData"

Tra le discussioni precedenti, questa tua:
viewtopic.php?f=26&t=92122

O queste altri:
viewtopic.php?f=26&t=84343
viewtopic.php?t=86214

Qui invece era stato suggerito di usare una macro di "On Time" per campionare periodicamente i dati:
viewtopic.php?f=26&t=102171

Ciao

[giamoros]

Sono passato ad usare il metodo SetLinkonData che sembra funzuinare.
Ora però mi trovo a risolvere un problema nell'ambito dello stesso file.

Codice: Seleziona tutto

If nomefoglio = "Titoli di proprietà" Then
        If IsError(Range("J" & priga).Value) Then Exit Sub
        If IsError(Range("N" & priga).Value) Then Exit Sub
       MsgBox "Valore di E6 = " & Range("E" & priga).Value
 If Range("E" & priga).Value > Range("J" & priga).Value Then
                                      Range("J" & priga).Value = Range("E" & priga).Value
                                                               End If
        MsgBox "tutto ok"

[Anthony47]

Ora però mi trovo a risolvere un problema nell'ambito dello stesso file.

Non tenerci sulle spine, dicci quale e'!

Ciao

[giamoros]

Scusatemi ma a volte ottengo un errore e stavo scrivendo l' ultima richiesta quando ho dato l'invio inavvertitamente.
Nel frattempo ho pensato ad un bypass del problema per cui voglio fare ulteriori ed approfondite prove.
Comunque vi terrò informati sul problema.
Cordiali saluti.

[giamoros]

Come promesso rieccomi a Voi.
La notizia buona è che il sistema sembra funzionare anche se sto continuando la prove che purtoppo posso fare solo a Borsa Italiana aperta.
Il primo problema di cui chiedo eventuale spiegazione e/o aiuto è questo:
Nell'esempio sottoindicato la prima volta che passa il programma ottengo un errore tipo non corrispondente alla seguente istruzione
If Range("E" & priga).Value > Range("J" & priga).Value Then
e il programma si ferma accendendo tale riga in giallo e mostrando un cursore ;se sposto il mouse sui due range dell'istruzione vedo i due valori giusti.
A questo punto fra le proposte fornite dal sistema scelgo vai avanti fine alla fine e tutti rifunziona.
Di seguito la parte del programma interessato.
code][/code]Dim lRiga As Long, sTitolo As String, vPrezzo As Variant, bChanged As Boolean, vOra As Variant
Dim Aspetta As Single
Dim nomefoglio As String, lcolore As Integer, segno As Integer, limite As Integer, suona As Integer, percent As Integer
Dim diffperc As Integer, Nminmax As Integer, lsuono As Integer, MinMax As String, Colore As Integer '
Dim Gif As String, Alto As Integer, sinistra As Integer, valore As Integer, ora As Integer
nomefoglio = "Titoli di proprietà"
nomefoglio = ActiveSheet.Name
If nomefoglio = "Titoli di proprietà" Then
If IsError(Range("J" & priga).Value) Then Exit Sub
' If IsError(Range("N" & priga).Value) Then Exit Sub

If Range("E" & priga).Value > Range("J" & priga).Value Then
MsgBox "Valore di E" & priga & " = " & Range("E" & priga).Value
Range("J" & priga).Value = Range("E" & priga).Value
Range("K" & priga).Value = Range("E" & 3).Value
End If

If Range("E" & priga).Value < Range("L" & priga).Value Then
'MsgBox "Valore di E" & priga & " = " & Range("E" & priga).Value
Range("L" & priga).Value = Range("E" & priga).Value
Range("M" & priga).Value = Range("E" & 3).Value
End If
Exit Sub[code][/code]
Il secondo problema è che se voglio vedere le istruzioni di questo foglio se dalla lingletta faccio tasto destro e scelgo visualizza codice mi appare una schermata bianca del modulo da cui tramite il visualizzazione oggetti ottengo un elenco e poi con doppio click sull'oggetto desiderato ho la lista del programma.
Io uso Excel 2007 : tale funzione è variata dall'Excel 2003 ?
Infine i colori ; quote ed altri tag non compaiano nell'anteprima?
A disposizione e saluti a tutti.

[giamoros]

Qualcuno sa spiegarmi per quale motivo se nel seguente modulo uso l'istruzione
If Range("E" & priga).Value > Range("J" & priga).Value mi dà la prima volta che viene eseguita errore ed il programma si ferma in attesa di una mia risposta come già descritto in un precedente post mentre su uso l'istruzione If Range("E" & priga).text > Range("J" & priga).text non ho nessun errore salvo ulteriori anomalie nel proseguio del programma?

Codice: Seleziona tutto

Option Base 1
'Private FrmMessaggio As MyMsg
Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1
Public Sub Macroriga6()
nriga = 6
'MsgBox "0006 con nriga " & nriga
Call LinkChange(nriga)
End Sub
Public Sub Macroriga7()
nriga = 7
'MsgBox "0007 con nriga " & nriga
Call LinkChange(nriga)
End Sub
Public Sub Macroriga8()
nriga = 8
'MsgBox "0008 con nriga " & nriga
Call LinkChange(nriga)
End Sub

Public Sub LinkChange(priga)
Dim lRiga As Long, sTitolo As String, vPrezzo As Variant, bChanged As Boolean, vOra As Variant
Dim Aspetta As Single
Dim nomefoglio As String, lcolore As Integer, segno As Integer, limite As Integer, suona As Integer, percent As Integer
Dim diffperc As Integer, Nminmax As Integer, lsuono As Integer, MinMax As String, Colore As Integer '
Dim Gif As String, Alto As Integer, sinistra As Integer, valore As Integer, ora As Integer

nomefoglio = "Titoli di proprietà"
nomefoglio = ActiveSheet.Name
If nomefoglio = "Titoli di proprietà" Then
If IsError(Range("J" & priga).Value) Then Exit Sub
If IsError(Range("N" & priga).Value) Then Exit Sub

If Range("E" & priga).Text > Range("J" & priga).Text Then
'MsgBox "Valore di E" & priga & " = " & Range("E" & priga).Value
Range("J" & priga).Value = Range("E" & priga).Value
Range("K" & priga).Value = Range("E" & 3).Value
End If

If Range("E" & priga).Text < Range("L" & priga).Text Then
'MsgBox "Valore di E" & priga & " = " & Range("E" & priga).Value
Range("L" & priga).Value = Range("E" & priga).Value
Range("M" & priga).Value = Range("E" & 3).Value
End If
End If
End Sub

Codice: Seleziona tutto

[Flash30005]

Molto probabilmente hai un numero in formato testo pertanto puoi provare ad usare questo codice

Codice: Seleziona tutto

If Val(Range("E" & priga)) > Val(Range("J" & priga)) then

ciao

[Anthony47]

Guarda il suggerimento di Flash, sopra...

Rispondo al penultimo messaggio, perche' a quello spero tu faccia riferimento quando dici "si ferma in attesa di una mia risposta come già descritto in un precedente post"

Nell'esempio sottoindicato la prima volta che passa il programma ottengo un errore tipo non corrispondente alla seguente istruzione
If Range("E" & priga).Value > Range("J" & priga).Value Then

Quell' errore fa pensare che in origine in una delle due celle ci sia "un qualcosa" che non sia comparabile con quanto presente nell' altra cella; propendo per una indicazione di errore.
Quale siano le celle da confrontare dipende dal valore che assume PRIGA in quel momento.

Il secondo problema è che se voglio vedere le istruzioni di questo foglio se dalla lingletta faccio tasto destro e scelgo visualizza codice mi appare una schermata bianca del modulo da cui tramite il visualizzazione oggetti ottengo un elenco e poi con doppio click sull'oggetto desiderato ho la lista del programma.

Nel modulo raggiunto con Tasto dx, Visualizza codice ci vanno le macro "di evento" di quel foglio; quelle standard vanno in un "Modulo" standard. La tua e' una macro standard. Se premi Alt-F8, scegli la tua macro dall' elenco che ti propne, premi Modifica e ti dovrebbe aprire il Modulo in cui e' scritto il codice.

Infine i colori ; quote ed altri tag non compaiano nell'anteprima?

I tag vanno messi ai bordi del testo che vuoi taggare: seleziona il testo, applicagli il tag. Se guardi il tuo messaggio (non l' ho editato per lasciartelo visibile), vedrai che i tag sono messi "per conto loro"