Excel Forum

	Soluzioni Excel Domande e Risposte
		ripetere dati con stesso criterio

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

ripetere dati con stesso criterio

Ultimo Aggiornamento: 09/06/2017 07:32

Berand68

Post: 2

Registrato il: 08/06/2017

Città: PESARO

Età: 55

Utente Junior

excel 2016

OFFLINE

08/06/2017 21:18

00#1

Vorrei suggerimenti su come ripetere in un altro foglio tutte le righe che hanno in comune una certa caratteristica.

Esempio:

categ. classe valore
pippo aaa 1
pippo a 2
pippo aa 3
pluto bbb 4
pluto bb 5
pluto b 6
paperino c 7
paperino cc 8
paperino ccc 9

Vorrei una formula che digitando per esempio la categoria pippo mi ripeta in un altro foglio tutte le classi ed il relativo valore che hanno tale categoria

classe importo
aaa 1
a 2
aaa 3

grazie

Download (6 KB)

federico460

Post: 1.216

Registrato il: 10/10/2013

Città: VICENZA

Età: 69

Utente Veteran

365

OFFLINE

08/06/2017 21:34

10#2

ciao

con indice aggrega si può fare
(se ho capito bene )

allega un file con i dati e
la struttura che vorresti
con i risultati che vorresti scritti a mano

Berand68

Post: 2

Registrato il: 08/06/2017

Città: PESARO

Età: 55

Utente Junior

excel 2016

OFFLINE

08/06/2017 22:07

00#3

file esempio

Ti allego il file
Grazie

Download (8 KB)

federico460

Post: 1.217

Registrato il: 10/10/2013

Città: VICENZA

Età: 69

Utente Veteran

365

OFFLINE

08/06/2017 22:44

00#4

ciao
in D18 e tira in giù

=SE.ERRORE(INDICE($B$2:$B$300;AGGREGA(15;6;RIF.RIGA($1:$1000)/($A$2:$A$300=$D$15);RIF.RIGA(A1)));"")

in E18
e tira in giù

=SE.ERRORE(INDICE($C$2:$C$300;AGGREGA(15;6;RIF.RIGA($1:$1000)/($A$2:$A$300=$D$15);RIF.RIGA(B1)));"")

alfrimpa

Post: 3.276

Registrato il: 21/06/2013

Città: NAPOLI

Età: 70

Utente Master

Excel 365

OFFLINE

08/06/2017 22:46

00#5

Ciao Andrea

Ti riallego il tuo file (lievemente modificato) dove ho inserito la macro che vedi qui ed una convalida dati in L1.

Ogni volta che andrai a scegliere una voce in convalida compariranno sotto i dati relativi al dato prescelto.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ur As Long
Dim lr As Long
Dim rng As Range
Dim cel As Range
If Not Intersect(Target, Range("l1")) Is Nothing Then
    ur = Cells(Rows.Count, 1).End(xlUp).Row
    Set rng = Range("a2:a" & ur)
    Range("l4:m50").ClearContents
        For Each cel In rng
            lr = Cells(Rows.Count, "l").End(xlUp).Row
            If cel.Value = Target.Value Then
                Cells(lr + 1, "L").Value = cel.Offset(0, 1).Value
                Cells(lr + 1, "M").Value = cel.Offset(0, 2).Value
            End If
        Next cel
End If
End Sub

P.S. Ciò non esclude, ovviamente, che il problema si possa risolvere anche con le formule come diceva Gianfranco che saluto.