Benvenuto Ospite

Aiutamici Forum » Computer & Internet » Suite Microsoft Office » [Excel 2007] Ricostruzione, partendo da tabella Pivot, dei dati filtrati IV

[Excel 2007] Ricostruzione, partendo da tabella Pivot, dei dati filtrati IV

Opzioni

Topic Precedente · Topic Sucessivo

aetio

Inviato: Monday, December 13, 2010 5:00:56 PM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723

Ciao,
sto cercando di applicare i ragionamenti delle istruzioni delle ultime due macro del 3D ad una variante della ricostruzione dati da tabellaPivot, precisamente:
anziché lavorare su TABELLA2 e col.34... lavorare su TABELLA1 e TABELLA2.

Mi aiuto con qualche immagine:
in Foglio2 ho TABELLA1 e TABELLA2 rispettivamente da col.C a col.G e da col.H a col.AG
(l'immagine mostra le tabelle filtrate sul cod.1 di col.C di TABELLA1 e sul cod.5 di col.R di TABELLA2,che ha 4 ricorrenze)

in TabPivot la situazione vista sopra è così strutturata:

Le col.C e T sono state NASCOSTE per comodità dato che in col.B e S sono state compilate tutte le righe delle 2 colonne di competenza, per permetterne la visione durante i filtri (come da vecchi 3D)
La tabella di sin. va da col.E a col.Q (1^ parte di TABELLA2 di foglio2) e la tabella di des. (2^ parte di TABELLA2 di foglio2) va da col.V a col.AH
Ho tolto dalle Impostazioni di campo i Subtotali

Ecco le 2 macro che ho ricavato, partendo dalle due del 3D del link visto sopra

Code:

Public Cellrif As String
Sub evidenziaInTabella()
Dim Area As Range
Application.ScreenUpdating = False
Ur = Range("D" & Rows.Count).End(xlUp).Row
criterio = InputBox("Inserisci il Criterio di Filtro")
Select Case criterio
Case 3
colore = 3
Case 4
colore = 41
Case 5
colore = 7
End Select
col = 5
Colfin = 17
Riga = 1
For n = 1 To 2
Range(Cells(Riga, col), Cells(Ur, Colfin)).Select
Selection.AutoFilter
For i = 1 To 13
Selection.AutoFilter Field:=i, Criteria1:=criterio
On Error Resume Next
Set Area = Range(Cells(7, col), Cells(Ur, col)).SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Area Is Nothing Then
GoTo Fine
End If
For Each cl In Area
cl.Select
Call EvidenziaSorgente
With Sheets("foglio3").Range(Cellrif)
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlMedium
.Borders.ColorIndex = colore
End With
Next cl
Fine:
Range("a1").Select
Selection.AutoFilter Field:=i
col = col + 1
Set Area = Nothing
Next i
Ur = Range("U" & Rows.Count).End(xlUp).Row
col = 22
Colfin = 34
Next n
Application.ScreenUpdating = True
End Sub

Sub EvidenziaSorgente()
With Sheets("TabPivot")
Riga = ActiveCell.Row
Select Case Riga
Case 4 To 8999
Tab1 = 5
Case 9000 To 17999
Tab1 = 9001
Case 18000 To 26999
Tab1 = 18001
Case 27000 To 35999
Tab1 = 27001
Case 36000 To 44999
Tab1 = 36001
End Select
col = ActiveCell.Column
Select Case col
Case 5 To 17
Y = 2
Z = 4
Case 22 To 34
Y = 19
Z = 21
End Select
Nrtab1 = Cells(Tab1, 5).Value
Nrtab2 = .Cells(6, col).Value
Nr = .Cells(Riga, Y).Value
Comp = .Cells(Riga, Z).Value
End With
With Sheets("foglio3")
Set Area = .Range("C3", .Range("G3").End(xlDown)) ' le tabelle partono da riga 3
For Each cl In Area
If cl.Value = Nr And Comp = .Cells(cl.Row, Nrtab2).Value Then
Cellrif = .Cells(cl.Row, Nrtab2).Address
Exit For
End If
Next
End With
Set Area = Nothing
End Sub

Ometto di spiegare alcune cose ovvie scritte nelle macro...

Segnalo che le tabelle di sin. e di des. di TabPivot pur iniziando dalla stessa riga (come da istruzione) durante il loro sviluppo assumono lunghezze diverse...
come nell'immagine qui sotto

Domanda: perché nel foglio3 (che è una copia di Foglio2 senza bordi e colori alle celle) NON mi vengono evidenziate giuste tutte le celle, ma solo quelle della prima parte della TABELLA2? Dipende forse dal fatto che le 2 tabelle di TabPivot non sono allineate per cui la scansione fatta dalle istruzioni della macro vanno in confusione oppure ho commesso qualche errore nell'istruire le nuove macro?
Come al solito..... GRAZIE infinite, saluti
eZio

EDIT.
svelato l'arcano: non c'è ERRORE nel lavoro delle macro... mi aiuto con un'immagine:

in foglio3 il cod.86 di col.AF, riga17 viene evidenziato come codice di TABELLA2 che, filtrato con un codice di TABELLA1, ha avuto 4 ricorrenze (come richiesto dalla MsgBox compilata in foglio TabPivot). Il codice di TABELLA1 è cod.19 che in riga17 è segnalato come appartenete a col.C, mentre in realtà il cod.19 che genera le 4 ricorrenze col cod.86 di col.AF è in col.G
A questo punto la mia domanda è: come faccio a fare rispettare, nella scansione che le macro fanno, la giusta colonna del codice di TABELLA1? Nell'esempio dell'immagine il cod.19 è in col.C, per cui la segnalazione fatta è sì corretta da un punto di vista esecutivo della macro :)) ma è fuorviante nella ricerca che debbo fare... in quanto i criteri che dovrei rispettare sarebbero:
il cod.86 di col.AF di TABELLA2 filtrato col.cod.19 di col.C di TABELLA1 (o il cod.18 di col.D, o il cod.23 di col.E, o il cod.81 di col.F, o il cod.72 di col.G) ha prodotto 4 ricorrenze... qui però è terreno da fuoriclasse :)))))))
:))
Grazie per l'enorme pazienza!! :))