[Excel] Dati in cella specifica

[chiabgigi]

[Excel] Dati in cella specifica

ciao a tutti
come descritto nel titolo devo inserire un dato in una specifica cella del foglio attivo.
ogni foglio è cosi' suddiviso:
A: contatore
B: descrizione
sezione
tipo posa cavo
E: materiale
F: venditore
G: codice
I: quantita'

In ogni foglio c'è un pulsante "Gestione Dati" che apre una form

Con una serie di pulsanti posso scegliere il foglio che mi interessa e da una combobox il materiale
dopo di che' i dati relativi al materiale sono visualizzati sulla form
nello specifico la txtbox8 visualizza il materiale attualmente in carico (colonna I, riga x)
la txtbox9 serve pex scrivere quantita' del materiale da aggiungere
il commandbutton17 serve ad incrementare la quantita' del materiale in carico

Bene: questo è un pezzo di codice che serve in questo caso a chiamare il foglio "SFlex"

Private Sub CommandButton8_Click()
Nome_Foglio = Me.CommandButton8.Caption
Sheets(Nome_Foglio).Activate
Call attiva_form
End Sub

MODULO

Dim CL As Object

For Each CL In Range("B3:B152")
Dim x As String
x = Indirizzario.TextBox1.Value
If CL = x Then 'se la cella (CL) è ugule a X
CL.Select 'faccio selezionare (fermo il ciclo) questa cella
Y = CL.Value
Indirizzario.TextBox2 = CL.Value
Indirizzario.TextBox3 = CL.Offset(0, 1).Value
Indirizzario.TextBox4 = CL.Offset(0, 2).Value
Indirizzario.TextBox5 = CL.Offset(0, 3).Value
Indirizzario.TextBox6 = CL.Offset(0, 4).Value
Indirizzario.TextBox7 = CL.Offset(0, 5).Value
Indirizzario.TextBox8 = CL.Offset(0, 6).Value
Indirizzario.TextBox9 = CL.Offset(0, 7).Value
Indirizzario.TextBox10 = CL.Offset(0, -1).Value
Dim irisposta As Integer 'Imposto la msgbox e relativa domanda
irisposta = MsgBox("Trovato " & Y & ". Vuoi fermarti ?", vbYesNo)
If irisposta = vbYes Then 'se rispondo si allora
Exit For 'esco dal ciclo
End If
End If
Next CL 'altrimenti proseguo al successivo

Questo è il codice del commandbutton17

Private Sub CommandButton17_Click()

If TextBox8 = "" Then Exit Sub
If TextBox9 = "" Then
MsgBox "DEVI SCRIVERE LA QUANTITA'"
TextBox9.SetFocus
Exit Sub
End If

Dim Ro As Integer
Ro = Cells.Row
Cells(Ro, 9) = Cells(Ro, 9) + CDbl(TextBox9.Value)
MsgBox "CARICO EFFETTUATO"


TextBox8 = Cells(Ro, 9).Value 'aggiorno la q.tà
'TextBox3 = "" 'pulisco il carico
'TextBox2 = "" 'pulisco l'articolo trovato

End Sub

il problema è che non riesco a scivere nella cella (I, x) della riga selezionata, anzi mi scrive sempre in (I, 1)

grazie in anticipo
ciao