salve a tutti
vorrei un aiuto su un piccolo problema .
devo stampare da una listform alcuni dati utilizzando qursto comando:
Private Sub CommandButton6_Click()
Set Fogliostampa = Worksheets("Foglio2") 'impostiamo con la variabile "Fogliostampa" il foglio 2
Fogliostampa.Cells.ClearContents 'e puliamo tutte le celle del foglio
n = UserForm1.ListBox1.ListCount - 1 'con "n" prendiamo il numero di quanti dati sono presenti ora nella 'ListBox
Dim X As Long 'la variabile X ora diventa il vettore del numero indice scorso dal ciclo, dal 'numero zero (che corrisponde al primo dato, non scordiamocelo) fino al valore numerico 'rappresentato da "n" ed iniziamo il ciclo
For X = 0 To n
'sotto: rendiamo la cella del foglio 2, colonna A, riga corrispondente al numero rappresentarto da X + 1 (infatti all'inizio X sarebbe zero, e su un foglio la riga zero non esiste) uguale al dato 'rappresentato da List(X), mentre nella ListBox X inizialmente corrisponde al valore "gunny", cioè 'all'indice riga zero. Ovviamente ad ogni Next X si imcrementa di un valore, scalando così di uno 'sia i nomi nella listbox, sia le righe sul Fogliostampa nelle quali celle verrà copiato il nome stesso.
Fogliostampa.Range("A" & X + 1).Value = UserForm1.ListBox1.List(X, 0) 'la prima colonna
Fogliostampa.Range("B" & X + 1).Value = UserForm1.ListBox1.List(X, 1) 'la seconda colonna
Fogliostampa.Range("C" & X + 1).Value = UserForm1.ListBox1.List(X, 2) 'la terza colonna
Fogliostampa.Range("D" & X + 1).Value = UserForm1.ListBox1.List(X, 3) 'la quarta colonna
Fogliostampa.Range("E" & X + 1).Value = (UserForm1.ListBox1.List(X, 4)) 'la quinta colonna
Fogliostampa.Range("F" & X + 1).Value = (UserForm1.ListBox1.List(X, 5))
Fogliostampa.Range("g" & X + 1).Value = (UserForm1.ListBox1.List(X, 6))Next
Fogliostampa.PrintOut 'quindi 'quindi si stampa il Fogliostampa con i dati copiati
End Sub
tutto è ok però
le ultime tre colonne che portano valori decimali di importi euro me li stampa e/o li inserisce nel foglio2 con errore di formato testo , quindi senza il simbplo euro ma con decimali giusti.
ho provato a mettere val
Fogliostampa.Range("D" & X + 1).Value =val UserForm1.ListBox1.List(X, 3) 'la quarta colonna
e va ok con il simbolo dell'euro però mi da l'importo con due zeri decimali anzi che i valori decimali esatti.
qualcuno può aiutarmi grazie martin