vba2

uso di For Each c in Selection...trasferimento dati anche in secondo foglio(DATI)

Private Sub CommandButton1_Click()
'uso di For each c (=q) in selection
'introduzione di ciclo for-g per aumentare risultati
'trasferimento risultati in foglio2(=rinominato DATI )
Dim valore As Variant
Dim q As Variant
Dim k, h As Integer
Dim g As Integer
k = 10
h = 0
For g = 1 To 4
For Each q In Selection
valore = q.Value
If valore > 0 Then
h = h + 1
dati.Cells(h, 4) = q.Value * k
Cells(h, 4) = q.Value * k
End If
Next q
Next g
End Sub

creare PULSANTE,inserire numeri in colonna A,selezionarla,cliccare P.

risultati (numero positivo*10) in colonna D del foglio1

risultati trasferiti in foglio2(rinominato DATI)

inizio