RIPORTARE ELENCO NUMERI

dodo47, 15/03/2017 17.00:

---

Ciao
da quel che sembra dall'allegato vorresti 2 colonne per ogni lettera (stringa), una per i valori negativi ed una per quelli positivi, ed è un po' diverso da quanto hai esposto nel tuo post.

Ciò premesso, i numeri, per esempio positivi, devono essere crescenti? Lo stesso vale per i negativi?

saluti

---

dodo47, 15/03/2017 17.40:

---

Ciao
perché non copi i dati dal foglio1 al foglio2 e su questo fai un ordina per colonna A ?

saluti

---

dodo47, 17/03/2017 09.36:

---

Ciao
si, è fattibile, ma se correggi nel foglio1 una lettera/numero già riportata nel foglio2, ti verrebbe aggiunta comunque.

Mi spiego meglio:
- nel foglio1 inserisci B...10 e nel foglio2 ti ritrovi B...10
- ora se correggi il B...10 di foglio1 con B...9, nel foglio2 ti ritrovi entrambi: B...10 e B...9

saluti

---

dodo47, 17/03/2017 11.49:

---

Ciao
lo puoi fare utilizzando l'evento change del foglio.

Questa la macro inserita nel foglio1:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sh As Worksheet, LastCell As Range
If Not Intersect(Target, Range("A:B")) Is Nothing Then
    Set Sh = Worksheets("Foglio2")
    If Target.Count > 1 Then Exit Sub
    If Target.Row = 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If Cells(Target.Row, 1) <> "" And Cells(Target.Row, 2) <> "" Then
        lettera = Cells(Target.Row, 1)
        numero = Cells(Target.Row, 2)
        With Sh.Range("1:1")
            Set C = .Find(lettera, LookIn:=xlValues, lookat:=xlWhole)
            If Not C Is Nothing Then
                If numero < 0 Then colonna = C.Column + 1 Else colonna = C.Column
                    Set LastCell = Sh.Cells(.Rows.Count, colonna).End(xlDown)
                    ur = LastCell.Row + 1
                    Sh.Cells(ur, colonna) = numero
            End If
        End With
    End If
End If
End Sub

NB: i valori vengono riportati solo dopo che sono stati inseriti entrambi in col A e B del foglio1.

saluti

---

dodo47, 17/03/2017 11.49:

---

Ciao
lo puoi fare utilizzando l'evento change del foglio.

Questa la macro inserita nel foglio1:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sh As Worksheet, LastCell As Range
If Not Intersect(Target, Range("A:B")) Is Nothing Then
    Set Sh = Worksheets("Foglio2")
    If Target.Count > 1 Then Exit Sub
    If Target.Row = 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If Cells(Target.Row, 1) <> "" And Cells(Target.Row, 2) <> "" Then
        lettera = Cells(Target.Row, 1)
        numero = Cells(Target.Row, 2)
        With Sh.Range("1:1")
            Set C = .Find(lettera, LookIn:=xlValues, lookat:=xlWhole)
            If Not C Is Nothing Then
                If numero < 0 Then colonna = C.Column + 1 Else colonna = C.Column
                    Set LastCell = Sh.Cells(.Rows.Count, colonna).End(xlDown)
                    ur = LastCell.Row + 1
                    Sh.Cells(ur, colonna) = numero
            End If
        End With
    End If
End If
End Sub

NB: i valori vengono riportati solo dopo che sono stati inseriti entrambi in col A e B del foglio1.

saluti

---

dodo47, 17/03/2017 13.22:

---

Ciao
come vuoi...ma spero non ci siano dati sensibili

saluti

---

dodo47, 17/03/2017 17.32:

---

Ciao
magari la prossima volta sottoponi l'esempio reale, così evitiamo tutti di perdere tempo.

Il foglio totali viene alimentato una volta che in conteggi hai inserito i valori in C e D.

Con la stessa struttura, in conteggi puoi aggiungere quello che vuoi, basta che in totali, riga 3 riporti il cer con sotto caricato/scaricato.

I totali del foglio totali li devi mettere in alto, così come li vedi, altrimenti non si riesce a rilevare la prima riga libera sulla quale scrivere.

saluti

---