Moderatori: Anthony47, Flash30005
Sub inserisciDDE1700()
Sheets("OptionPage").Select
Cells(32, 24).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'19312106?bestBidPrice'"
Cells(32, 25).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'19312106?bestAskPrice'"
Cells(33, 24).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'19310211?bestBidPrice'"
Cells(33, 25).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'19310211?bestAskPrice'"
Cells(34, 24).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'19311411?bestBidPrice'"
Cells(34, 25).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'19311411?bestAskPrice'"
Cells(35, 24).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'19312655?bestBidPrice'"
Cells(35, 25).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'19312655?bestAskPrice'"
Cells(36, 24).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'19310583?bestBidPrice'"
Cells(36, 25).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'19310583?bestAskPrice'"
End Sub
Sub eliminaDDE1700()
Sheets("OptionPage").Select
Range("X32:Y36").ClearContents
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Cdati = "C5:I5"
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target = 1 Then Call inserisciDDE1900
End If
End Sub
Sub inserisciDDE1700()
With Sheets("OptionPage").
.Cells(32, 24).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'19312106?bestBidPrice'"
.Cells(32, 25).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'19312106?bestAskPrice'"
'etc etc
End With
End Sub
Sub eliminaDDE1700()
Sheets("OptionPage").Range("X32:Y36").ClearContents
End Sub
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target <> "" Then Run "inserisciDDE" & Target.Value
End If
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target <> "" Then Run "inserisciDDE" & Target.Value
End If
Private Sub Worksheet_Change(ByVal Target As Range)
Cdati = "C5:I5"
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target <> "" Then Run "inserisciDDE" & Target.Value
End If
End Sub
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target <> "" Then Run "inserisciCall" & Target.Value
If Target <> "" Then Run "inserisciPut" & Target.Value
End If
Private Sub Worksheet_Change(ByVal Target As Range)
Cdati = "C5:I5"
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target <> "" Then Run "inserisciCall" & Target.Value
Cdati = "J5:O5"
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target <> "" Then Run "inserisciCPut" & Target.Value
End if
scusa è questa quella che mi sembra piu adatta
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Cdati = "C5:I5"
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target <> "" Then Run "inserisciCall" & Target.Value
Cdati = "J5:O5"
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target <> "" Then Run "inserisciCPut" & Target.Value
End if
fammi sapere che ne pensi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Cdati = "C5:I5"
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target <> "" Then Run "inserisciCall" & Target.Value
Else
Cdati = "J5:O5"
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target <> "" Then Run "inserisciCPut" & Target.Value
End If
End If
End Sub
Sub inserisciCall1850()
With Sheets("OptionPage")
Cells(47, 4).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'16752111?bestBidPrice'"
Cells(47, 5).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'16762111?bestAskPrice'"
End With
End Sub
Sub inserisciCall1900()
With Sheets("OptionPage").Select
Cells(52, 4).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'16763300?bestBidPrice'"
Cells(52, 5).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'16763300?bestAskPrice'"
End With
End Sub
Anthony un paio di giorni fa ha scritto:
- Codice: Seleziona tutto
With Sheets("OptionPage").
.Cells(32, 24).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'19312106?bestBidPrice'"
.Cells(32, 25).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'19312106?bestAskPrice'"
'etc etc
End With
larzillo oggi ha scritto:
- Codice: Seleziona tutto
With Sheets("OptionPage")
Cells(47, 4).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'16752111?bestBidPrice'"
Cells(47, 5).FormulaR1C1 = "=IWDDE|STOCK_PRICE!'16762111?bestAskPrice'"
End With
Torna a Applicazioni Office Windows
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Perchè l'importazione dati con Selenium non fuziona? Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 7 |
copia di dati da un file chiuso e elaborazione Autore: luca62 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 6 ospiti