Errore di runtime 13 : tipo non corrispondente

[Beatrice Beatrice]

Buongiorno a tutti,

con questa formula dovrei sommare una determinata colonna di una listbox:

Private Sub CommandButton2_Click()

Dim lr As Long, wk As Worksheet, j As Long
Dim k As Long

Set wk = Worksheets("PER")
lr = wk.Range("A" & Rows.Count).End(xlUp).Row
k = 0
With Me.ListBox1
.Clear
For j = 2 To lr
If wk.Cells(j, 13) <> "/" Then 'VARIARE con ="/" nella macro del commButton da pagare
.AddItem
.List(k, 0) = wk.Cells(j, 1)
.List(k, 1) = wk.Cells(j, 7)
.List(k, 2) = wk.Cells(j, 11)
.List(k, 3) = wk.Cells(j, 13)
Tpag = Tpag + wk.Cells(j, 11) '<<<<<<<<<<<<<<<<<
k = k + 1
End If
Next j
End With
Me.TextBox1 = Tpag '<<<<<<<<<<<<<<<<<

End Sub

Nella riga in grassetto mi da l'errore, ma sto impazzendo per capire perchè visto che le altre colonne con la relativa somma e la stessa formula funzionano. Ho controllato praticamente tutto sia la tabella che la formula ma non ne vengo a capo.

Ringrazio chi cortesemente mi possa dare una spiegazione

[alfrimpaPartecipante alfrimpa Karma: 32 pts]

Se non si vede il file è difficile rispondere

[PMC77Partecipante PMC77 Karma: 18 pts]

Concordo con #Alfrimpa che saluto

In linea di massima è un mismatch di variabili (sommare un numero ed una stringa o simili)

Paolo

[Beatrice Beatrice]

Si, in pratica è una colonna la n. 11 che riporta nelle celle dei dati che tramite cmb deve fare la somma in una txb

[Luca73Partecipante Luca73 Karma: 58 pts]

Ciao 

io non vedo la dichiarazione e l'inizializzazione della variabile.

 

[Beatrice Beatrice]

Cosa dovrebbe esserci non ho capito..

[Aldo ErcoliniPartecipante Aldo Ercolini Karma: 19 pts]

Manca la dichiarazione della variabile Tpag (Dim Tpag as ......) in assenza viene assunto Variant

In wk.Cells(j, 11) cosa c'e'? Sempre lo stesso tipo di dato?

L'errore che hai, come detto da PCM77 di solito si verifica quando si mette una stringa in un campo numerico.

Quindi se il valore in wk.Cells(j, 11) viene memorizzato come stringa darebbe un errore se vuoi fare una somma.

 

[Autore]

Articoli