Input box

Hai un problema con Excel?

Nuova discussione

Input box
di Maxxim (utente non iscritto) data: 06/01/2010
Ciao a tutti
in particolare a mabolsie che ormai non
posso fare a meno di sentire.

vengo al dunque!

nel foglio1 ho una cella d30 dove inserito un codice isin, in cella d31 è presente un link.
in un form obbligazionario è presente un button,
con il codice postato sotto.
mi servirebbe fare questo:

cliccando sul pulsante se la cella d30 è vuota
mi deve partire una inputbox che chiede questo dato.
una volta preso questo dato deve concatenarlo
con la cella d31 ed andare al sito direttamente.
in caso la cella d30 è piena mi deve concatenare
con la cella d31 ed andare al sito.

spero di essere stato chiaro!

grazie 100000000000000000

Private Sub CommandButton1_Click()
Dim Nome
If Range("d30") = "" Then
Nome = InputBox(prompt:="Digita Codice ISIN : ", Title:="Ricerca i Dati in internet")
If Nome = "" Then
MsgBox "Operazione annullata non hai inserito il codice"
Else
If Nome <> "" Then
MsgBox "Va al sito"
End If
End If
End If
End Sub

di Mabolsie (utente non iscritto) data: 07/01/2010
Ciao

non sò se questo è un'altro programma.

però guarda quello che ti ho inviato .zip.

p.s. guarda che sto finendo le ferie

da lunedì avrò pochissimo tempo da dedicare al

mio hobby sigh

ciao
di Maxxim (utente non iscritto) data: 07/01/2010
Idem anche per me

spero di sentirti lo stesso con calma.

visto il programmino very good, lo ricontrollo
e ti faccio sapere.
la richiesta fa parte dello stesso programma
però in un'altra form obbligazionaria, dove
devo inserire dei dati per il calcolo del rendimento
del titolo tipo btp bot ecc, mi servono delle indicazioni
dal sito di borsaitaliana.
per questo quando arrivo alla form dell'obbligazione mi servirebbe quello descritto
nel post precedente.

per il coffi, il pranzo hai già un posto in prima fila,
vediamo per la cena cosa riesci a fare.

ciao

grazie 1000000000000000

spero che mi hai capito.

di Maxxim (utente non iscritto) data: 07/01/2010
Ti posto alcune cosa prese in qua e là se ti possono
fare comodo.

in pratica è quasi fatta, pero non trovo il codice
per inviare direttamente in caso la cella d30 sia piena e in caso sia vuota mi concatena d30+d31 e parte al sito.
vedi post precedente.
spero di essere stato chiaro

ciao

' per concatenare
Sub Concatena()
Dim a, b, c, z

a = Range("a1")
b = Range("a2")
c = Range("b1")
z = a + b + c
Range("c1").Value = z
End Sub


' per trasformare il testo in link
Sub hyper()
'Trasforma un link dal testo di una cella in questo caso A1 (naturalmente qui deve trasformare
' la cella concatenata

Riga = Cells(Rows.Count, 1).End(xlUp).Row
For y = 1 To Riga
    x = Cells(y, 1).Text
    Cells(y, 2).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=x
Next y
End Sub

di Mabolsie (utente non iscritto) data: 08/01/2010
Ciao maxxim

per concatenare le celle fai così

ciao

'Pre concatenare celle fai cosi

Sub commandbutton1_click()
x = Cells(2, 1) & Cells(2, 2) & Cells(2, 3)
Cells(2, 4) = x
End Sub

Vuoi Approfondire?