stampe automatizzate con filtro

[Andrea.9]

ciao a tutti.
ho un foglio che contiere dati relativi al movimento di attrezzature
queste attrezzature sono affidate ad una serie di nominativi
ho necessità di stampare periodicamente l'elenco delle attrezzature
affidate ad un certo nominativo
cosa che ottengo facilmente usando il filtro automatico e quindi
stampando
vorrei automatizzare la procedura stampando "in una botta unica" tutti
gli elenchi delle attrezzature filtrati per nominativo.
cosa mi suggerite?
una bella macro in vba che io non so fare?
grazie
andrea

[Bruno Campanini]

Proprio quella! (avendo il layout della tabella che contiene
attrezzature e nominativi).

Bruno

[Andrea.9]

grazie per la disponibilita' bruno.
condivido un file semplificato ma che ha la struttura necessaria
https://docs.google.com/leaf?id=0B1kt3cvRBcZwYmYyZjIzNGQtZTNmYy00MmQ2LWIwM2YtODk4OTBiMzhjMTFl&hl=it
all'interno c'e' una nota con le necessita'
grazie
andrea

[eliano]

> condivido un file semplificato ma che ha la struttura necessariahttps://docs.google.com/leaf?id=0B1kt3cvRBcZwYmYyZjIzNGQtZTNmYy00MmQ2...

> all'interno c'e' una nota con le necessita'
> grazie

> andrea- Nascondi testo citato
>
> - Mostra testo citato -

Ciao Andrea.
Vedo che Bruno si è attivato per la tua richiesta, per cui attendiamo
fiduciosi.
Non ho stampante a disposizione (il rumore disturba la "signora") e
il progetto di Bruno sarà senzaltro ottimo, per cui ti invito a dare
un'occhiata ad una utility prodotta nel lontano 2005 per un amico
biscazziere tenutario di una serie di slot machines.

Al link: http://mio.discoremoto.alice.it/falinieliano/
Il file: CreaFogliUtentiInterniClic.xls

Saluti
Eliano
P.S. Evita di inserire caratteri blank nel nome dei Fogli e/o dei
Files. Excel sembra non gradire.

[Bruno Campanini]

Andrea.9 on 09-09-11 wrote:

> grazie per la disponibilita' bruno.
> condivido un file semplificato ma che ha la struttura necessaria
> https://docs.google.com/leaf?id=0B1kt3cvRBcZwYmYyZjIzNGQtZTNmYy00MmQ2LWIwM2YtODk4OTBiMzhjMTFl&hl=it
> all'interno c'e' una nota con le necessita'
> grazie

Guarda un po'...

http://myfreefilehosting.com/f/d1d8509300_0.06MB

Bruno

[Bruno Campanini]

Bruno Campanini on 10-09-11 wrote:

> Guarda un po'...
>
> http://myfreefilehosting.com/f/d1d8509300_0.06MB

Ho dimenticato la stampa per valori unici di ciascuna colonna.
Sto provvedendo.

Bruno

[Bruno Campanini]

Bruno Campanini on 10-09-11 wrote:

> Ho dimenticato la stampa per valori unici di ciascuna colonna.
> Sto provvedendo.

Eccolo qui... frettolosamente:
http://myfreefilehosting.com/f/c59a8349d8_0.07MB

Bruno

[Andrea.9]

grazie bruno per la tua disponibilita' (e grazie anche a eliano)
ho provato il tuo file (ma in questo momento non ho la stampante)
se ho capito bene filtra e stampa in base a cosa contiene la cella
attiva
non e' esattamente quello che mi serve in quanto velocizza ma non
automatizza del tutto il processo che devo svolgere
infatti quello che devo ottenere e' la stampa di tutte le condizioni
possibili delle due colonne "nominativo destinazione" e "cantiere"
cioe', nell'esempio, "cip ciop" - "gastone" - "minnie" - "pippo" -
"milano" - "roma"
il tutto fatto con un unico comando
ora nell'esempio sono solo sei stampe e si fa abbastanza presto a
selezionarle anche con il filtro automatico
nella pratica sono un centinaio e la casa diventa lunga e laboriosa
con la possibilita' di sbagliare facilmente (cioe' stampare due volte
la stessa cosa o dimenticarne qualcuna); tieni conto che e'
un'operazione che e' da fare almeno una volta al mese.
ti ringrazio nuovamente ed attendo una tua ispirazione
ciao
andrea

[Bruno Campanini]

Prova questo:
http://myfreefilehosting.com/f/0a59d0508f_0.07MB

ￜ abilitato solo il Preview di stampa; dal Preview - con ESCAPE - vedi
la sequenza di stampa.
Si puￜ stampare dal Preview ovvero abilitare nel codice la riga:
'SourceRange.PrintOut Copies:=1, Collate:=True
disabilitando quella successiva:
SourceRange.PrintPreview

Le operazioni di filtro avvengono con riferimento ai valori della
ActiveCell; possono essere eseguite in cascata (AND).
Le operazioni di stampa avvengono con riferimento ai valori unici della
colonna in cui si trova l'ActiveCell.

Bruno

[Andrea.9]

> abilitato solo il Preview di stampa; dal Preview - con ESCAPE - vedi
> la sequenza di stampa.

> Si pu stampare dal Preview ovvero abilitare nel codice la riga:

> 'SourceRange.PrintOut Copies:=1, Collate:=True
> disabilitando quella successiva:
> SourceRange.PrintPreview
>
> Le operazioni di filtro avvengono con riferimento ai valori della
> ActiveCell; possono essere eseguite in cascata (AND).
> Le operazioni di stampa avvengono con riferimento ai valori unici della
> colonna in cui si trova l'ActiveCell.
>
> Bruno

fantastico !!!!
proprio quello che serviva :-)))
grazie
andrea

[Andrea.9]

solo una precisazione:
il filtro con la colonna data non funziona
si può fare qualcosa?
grazie
ciao
andrea

[Bruno Campanini]

Il filtro della colonna data funziona benissimo sul tuo file che ti ho
rispedito (v3).
Almeno qua da me (Win7 Ultimate, Excel 2010, 64bit, ENG).

Quali sono le tue condizioni di lavoro?

Bruno

[Andrea.9]

XP SP3
excel 2003 ita
ho notato che se formatto le celle come generale o testo il filtro
funziona
se invece le formatto come data o numero non funziona (nasconde tutto)
andrea

[Bruno Campanini]

Andrea.9 on 10-09-11 wrote:

> XP SP3
> excel 2003 ita
> ho notato che se formatto le celle come generale o testo il filtro
> funziona
> se invece le formatto come data o numero non funziona (nasconde tutto)
> andrea

Sul tuo file la colonna Data risulta formattata come data col formato
14-03-01, Locale English (U.S.), e non l'ho fatto io.

Il problema delle date sorge spesso col sistema operativo in lingua
diversa dall'originale e/o quando si utilizzano separatori di Date/Time
diversi da quelli originali (Date "/" ovvero "-", Time ":" ).
Ed ￜ anche per questo - ma non solo! - che io uso sempre programmi in
lingua originale.

Altro dirti non vo'; ma la tua festa
ch'anco tardi a venir non ti sia grave.

Bruno

[eliano]

On 10 Set, 23:04, Bruno Campanini <brunoca...@libero.it> wrote:
> Andrea.9 on 10-09-11 wrote:
> > XP SP3
> > excel 2003 ita
> > ho notato che se formatto le celle come generale o testo il filtro
> > funziona
> > se invece le formatto come data o numero non funziona (nasconde tutto)
> > andrea
>
> Sul tuo file la colonna Data risulta formattata come data col formato
> 14-03-01, Locale English (U.S.), e non l'ho fatto io.
>
> Il problema delle date sorge spesso col sistema operativo in lingua
> diversa dall'originale e/o quando si utilizzano separatori di Date/Time
> diversi da quelli originali (Date "/" ovvero "-", Time ":" ).

> Ed anche per questo - ma non solo! - che io uso sempre programmi in

> lingua originale.
>
> Altro dirti non vo'; ma la tua festa
> ch'anco tardi a venir non ti sia grave.
>
> Bruno

E a questo punto caro Andrea, non ti resta altro che godere !
Accidenti Bruno, non me n'ero accorto: Sabato è trascorso ed è già
Domenica!
Chissà se l'esortazione è ancora valida ? :-))
Eliano

[Bruno Campanini]

eliano on 11-09-11 wrote:

> E a questo punto caro Andrea, non ti resta altro che godere !
> Accidenti Bruno, non me n'ero accorto: Sabato è trascorso ed è già
> Domenica!
> Chissà se l'esortazione è ancora valida ? :-))

A regola di briscola da godere ci sarebbe rimasto poco.
Resta l'augurio "non ti sia grave".

Se hai gli "attrezzi" in ITA prova tu a sdipanare il groviglio della
formattazione della colonna Data col formato e il separatore di data
definiti nel Control Panel di Windows.
Penso che il mistero sia tutto lì, perché lo stesso file che ho inviato
funziona perfettamente coi miei "attrezzi" in ENG.

- Modificando la riga di codice:
Criteria1:="=" & ElementColl(j), _
- con:
Criteria1:="=" & CDate(ElementColl(j)), _
Criteria1:="=" & Format(ElementColl(j), "mm/dd/yy"), _
etc...

Bruno

[Andrea.9]

grave non e' grave in effetti ....
ma non ne vengo a capo probabilmente per la mia profonda ignoranza di
vba
il formato cella delle date mi e' abbastanza indifferente (basta che
si legga) ora e' settato a personalizzato gg-mm-aa
ho provato a sostituire Criteria1 come indicato ma non ha sortito il
risulato desiderato (sara' perche' mi manca l'eccetera)
abbiate pazienza
ciao
andrea

[eliano]

On 11 Set, 11:11, Bruno Campanini <brunoca...@libero.it> wrote:

Non ho Xl disponibile, ma credo di aver risolto in passato con Stringa
(o text ?).
Farotti sapere appena possibile.:-))
Eliano

[eliano]

On 11 Set, 11:11, Bruno Campanini <brunoca...@libero.it> wrote:

Bruno, ho fatto qualche decina di prove ma senza risultati
apprezzabili, ma rileggendo uno dei tuoi post precedenti dove accenni
alla strana formattazione della colonna credo di aver risolto.
Ho formattato la colonna con Data: 14/03/01 e modificato la macro
del filtro con:

FieldNum = ActiveCell.Column - SourceRange(, 1).Column + 1
SourceRange.AutoFilter Field:=FieldNum, _
Criteria1:=ActiveCell.Text, _
VisibleDropDown:=False

Sembrerebbe quindi che il problema fosse nella formattazione
originale.
Saluti
Eliano

[Andrea.9]

ciao eliano
ho seguito le tue istruzioni ed effettivamente adesso si vedono i dati
nell'anteprima di stampa
solo che non stampa tutti i valori disponibili ma solo quello di
activecell
ho provato a lasciare il for next ma e' ininfluente e non so come
poter inserire la variabile ElementColl
inoltre tutto cio' vale per il pulsante stampa ma se fosse possibile
sarebbe utile anche per il pulsante filter on/off
grazie a entrambi
andrea

[eliano]

> andrea- Nascondi testo citato
>
> - Mostra testo citato -

Ciao Andrea, ma non capisco.

Io ho modificato solo la macro di filtraggio dei dati che adesso
funziona anche a me, mentre per la macro di stampa pensavo che
provvedesse Bruno, dal momento che non amo testare progetti che non
posso testare a fondo (mancando della stampante).

Dal tuo post sembra il contrario visto che dici che "sarebbe utile
anche per il pulsante filter on/off."
La mia modifica riguardava SOLO la macro assegnata a quel pulsante e
mi sembra ovvio che se nella macro di stampa hai sostituito la
variabile ElementColl() con ActiveCell.Text ti stampi solo quello.:-))

La mia segnalazione doveva servire a Bruno per apportare alla gestione
della Collection le debite variazioni, sempre che ne abbia voglia.:-))

Preferirei non farlo, quindi torniamo a cuccia ed attendiamo
fiduciosi.

Saluti
Eliano

[eliano]

On 11 Set, 17:44, "Andrea.9" <a.novelli-...@dappolonia.it> wrote:

> andrea- Nascondi testo citato
>
> - Mostra testo citato -

Non vedo apparire due post di risposta (Google sta rompendo un
po'),per cui non sapendo se Bruno ha risposto ti invio le macro
modificate.

Option Explicit

Public Sub SelezioneFiltro()
Dim SourceRange As Range, NumCol As Integer, FieldNum As Integer

If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
Exit Sub
End If

NumCol = 9
Set SourceRange = [ELENCO!B4]
If Not IsEmpty(SourceRange(2, 1)) Then
Set SourceRange = SourceRange.Resize _
(SourceRange.End(xlDown).Row - SourceRange.Row + 1, NumCol)
End If

If Intersect(SourceRange, ActiveCell) Is Nothing Then
MsgBox "La cella attiva deve essere interna al range: " &
SourceRange.Address
Exit Sub
End If

FieldNum = ActiveCell.Column - SourceRange(, 1).Column + 1
SourceRange.AutoFilter Field:=FieldNum, _
Criteria1:=ActiveCell.Text, _
VisibleDropDown:=False

End Sub

Sub Button14_Click()
SelezioneFiltro
End Sub

Public Sub StampaValoriUniciColonna()
Dim SourceRange As Range, ElementColl As New Collection, i As Range
Dim j As Long, k As Long, NumCol As Integer, FieldNum As Integer, Swap

' Definizioni
' ----------------------------
NumCol = 9
Set SourceRange = [ELENCO!B4]
' ----------------------------

Application.ScreenUpdating = False

' Definisce SourceRange
If Not IsEmpty(SourceRange(2, 1)) Then
Set SourceRange = SourceRange.Resize _
(SourceRange.End(xlDown).Row - SourceRange.Row + 1, NumCol)
End If

' Verifica che ActiveCell appartenga a SourceRange
If Intersect(SourceRange, ActiveCell) Is Nothing Then
MsgBox "La cella attiva deve essere interna al range: " &
SourceRange.Address
Exit Sub
End If

' Acquisisce i valori unici della colonna
For Each i In SourceRange(2, ActiveCell.Column - _
SourceRange(2, 1).Column + 1). _
Resize(SourceRange.Rows.Count - 1)
On Error Resume Next
ElementColl.Add i, CStr(i)
On Error GoTo 0
Next

' Ordina ASC la sequenza dei filtri
For j = 1 To ElementColl.Count - 1
For k = j To ElementColl.Count
If ElementColl(j) > ElementColl(k) Then
Swap = ElementColl(j)
ElementColl(j) = ElementColl(k)
ElementColl(k) = Swap
End If
Next
Next

' Stampa il range filtrato
FieldNum = ActiveCell.Column - SourceRange(2, 1).Column + 1
For j = 1 To ElementColl.Count
SourceRange.AutoFilter Field:=FieldNum, _
Criteria1:="=" & ElementColl(j).Text, _
VisibleDropDown:=False

'SourceRange.PrintOut Copies:=1, Collate:=True

SourceRange.PrintPreview '<<-------------------
Next

' Esce dalla modalità AutoFilter
ActiveSheet.AutoFilterMode = False

Application.ScreenUpdating = True

End Sub
'abilitato solo il Preview di stampa; dal Preview - con ESCAPE - vedi

'la sequenza di stampa.
'Si pu stampare dal Preview ovvero abilitare nel codice la riga:
''SourceRange.PrintOut Copies:=1, Collate:=True
'disabilitando quella successiva:
'SourceRange.PrintPreview
'
'
'Le operazioni di filtro avvengono con riferimento ai valori della
'ActiveCell; possono essere eseguite in cascata (AND).
'Le operazioni di stampa avvengono con riferimento ai valori unici
della
'colonna in cui si trova l'ActiveCell

Sub Button16_Click()
StampaValoriUniciColonna
End Sub

Resto comunque in attesa delle modifiche apportate dall'autore che
ringrazio anticipatamente.
Eliano

[Andrea.9]

funziona perfettamente :-)))))
molte grazie a tutti e due
ahhh, questo benedetto vba ^__^
ciao
andrea

[Bruno Campanini]

eliano on 11-09-11 wrote:

[...]

> Resto comunque in attesa delle modifiche apportate dall'autore che
> ringrazio anticipatamente.

Le modifiche le hai fatte tu, funziona quindi siamo a posto.
Ho provato ad aggiungere il .Text e non cambia nulla; va bene come va
bene senza.

Piuttosto, ho perso il conto delle modifiche quindi: ti mando il file
che lima-lima ritengo possa essere quello definitivo? tu applichi le
modifiche opportune poi Andrea la preleva da te.
Ho ristabilito il Button Filter Off perché aggregando tale funzione a
quello Filter On si veniva a perdere la possibilità di filtrare in
cascata (AND), se mai fosse necessario farlo.
Poi ho reso il codice eseguibile direttamente dai Button.

Bruno

[eliano]

OK Bruno, ci provo ma non garantisco niente.:-))

[Bruno Campanini]

eliano on 11-09-11 wrote:

> OK Bruno, ci provo ma non garantisco niente.:-))

Eccolo qua:
http://myfreefilehosting.com/f/72536cd5a8_0.07MB

Bruno

[Andrea.9]

ciao bruno
ciao eliano
ho inserito il codice V4 nel mio file definitivo
per adattarlo ai nuovi intervalli ho modificato (in due punti)

NumCol = 9
Set SourceRange = [ELENCO!B4]

in
NumCol = 12
Set SourceRange = [ELENCO!B7]
il filtro funziona bene (bello anche la possibilita' di fare AND)
ho pero' un problema con la stampa
succede quanto segue:
seleziono una cella ad esempio nella colonna nominativo provenienza
stampo con il pulsante
il primo record viene stampato con il gruppo di celle vuote della
colonna ma cancellando il dato nella cella
stampa quindi tutti i vari gruppi correttamente
a fine stampa trovo il dato contenuto nel primo record della colonna
cancellato e trovo quel dato nella prima cella libera della stessa
colonna.
spero di essere stato chiaro
scusate ma al momento non posso condividere il file
grazie
andrea

[eliano]

Ciao Andrea, ciao Bruno.
Io invece non condivido niente (ho problemi con la chiavetta Tim 14.4)
e ti riporto nel post l'intera serie delle macroBruno.:-))

Dopo aver formattato la colonna J (quella delle date) con Data:
14/03/01 oppure Data: 14/3/2001, copia innun Modulo Standard, ad
esempio Modulo1 le seguenti macro:

Sub StampaValoriUniciColonna()
'
' Excel 2010 10-09-2011 File: MultiFilter.xlsm
'
' Per ogni valore unico della colonna in cui si trova ActiveCell,
' viene applicato e stampato l'AutoFilter
'

Dim SourceRange As Range, ElementColl As New Collection, i As Range
Dim j As Long, k As Long, NumCol As Integer, FieldNum As Integer, Swap

' Definizioni
' ----------------------------

NumCol = 9
Set SourceRange = [ELENCO!B4]

' ----------------------------

ActiveSheet.AutoFilterMode = False

Application.ScreenUpdating = False

' Definisce SourceRange
If Not IsEmpty(SourceRange(2, 1)) Then
Set SourceRange = SourceRange.Resize _
(SourceRange.End(xlDown).Row - SourceRange.Row + 1, NumCol)
End If

' Verifica che ActiveCell appartenga a SourceRange
If Intersect(SourceRange, ActiveCell) Is Nothing Then
MsgBox "La cella attiva deve essere interna al range: " &
SourceRange.Address
Exit Sub
End If

' Acquisisce i valori unici della colonna
For Each i In SourceRange(2, ActiveCell.Column - _
SourceRange(2, 1).Column + 1). _
Resize(SourceRange.Rows.Count - 1)
On Error Resume Next
ElementColl.Add i, CStr(i)
On Error GoTo 0
Next

' Ordina ASCending la sequenza dei filtri

For j = 1 To ElementColl.Count - 1
For k = j To ElementColl.Count
If ElementColl(j) > ElementColl(k) Then
Swap = ElementColl(j)
ElementColl(j) = ElementColl(k)
ElementColl(k) = Swap
End If
Next
Next

' Stampa il range filtrato PER OGNI valore unico
' della colonna su cui si trova ActiveCell

FieldNum = ActiveCell.Column - SourceRange(2, 1).Column + 1
For j = 1 To ElementColl.Count
SourceRange.AutoFilter Field:=FieldNum, _
Criteria1:="=" & ElementColl(j).Text, _
VisibleDropDown:=False

' Attivando la prima riga di codice che segue il
' commento e disattivando la successiva,
' viene eseguita la stampa senza il Preview.
'

'SourceRange.PrintOut Copies:=1, Collate:=True
SourceRange.PrintPreview

Next

' Esce dalla modalità AutoFilter
ActiveSheet.AutoFilterMode = False

Application.ScreenUpdating = True

End Sub

Sub AutoFilterOn()
'
' Esegue l'AutoFilter applicando ActiveCell come Criterium.
' Se sono disabilitate le righe seguenti:
' ActiveSheet.AutoFilterMode = False
' Exit Sub
' è possibile applicare l'AutoFilter in cascata (AND).
'

If ActiveSheet.AutoFilterMode Then
'ActiveSheet.AutoFilterMode = False
'Exit Sub
End If

Dim SourceRange As Range, NumCol As Integer, FieldNum As Integer

' Definisce SourceRange

NumCol = 9
Set SourceRange = [ELENCO!B4]

If Not IsEmpty(SourceRange(2, 1)) Then
Set SourceRange = SourceRange.Resize _
(SourceRange.End(xlDown).Row - SourceRange.Row + 1, NumCol)
End If

' Verifica che ActiveCell appartenga a SourceRange
If Intersect(SourceRange, ActiveCell) Is Nothing Then
MsgBox "La cella attiva deve essere interna al range: " &
SourceRange.Address
Exit Sub
End If

' Applica AutoFilter

FieldNum = ActiveCell.Column - SourceRange(, 1).Column + 1
SourceRange.AutoFilter Field:=FieldNum, _

Criteria1:="=" & ActiveCell.Text, _
VisibleDropDown:=False


End Sub
Sub AutoFilterOff()
ActiveSheet.AutoFilterMode = False
End Sub

Ritengo che questa versione funzioni con tutte le versioni a partire
dalla XL2003 (e di questo chiedo conferma ad Andrea, Bruno ed
eventuali lettori), per cui altre versioni funzionanti SOLO su una
versione di excel successiva dovrebbero essere limitate e ridondanti,
a meno che non esista una causa invalidante eliminabile che a me
personalmente sfugge (uso XL2003).

Saluti
Eliano

[Andrea.9]

> Eliano- Nascondi testo citato

>
> - Mostra testo citato -

eliano ho provato il nuovo codice ma il problema non si e' risolto.
adattato ai nuovi intervalli con modifica (in due punti)
NumCol = 12 (anziche' 9)
Set SourceRange = [ELENCO!B7] (anziche' B4)

con la stampa succede quanto segue:

seleziono una cella in qualsiasi colonna
stampo con il pulsante
il primo record (che contiene un dato nella colonna scelta) viene
stampato non con il suo gruppo ma con il gruppo delle celle vuote in
quanto il dato viene cancellato.

stampa quindi tutti i vari gruppi correttamente

a fine stampa trovo quanto segue:
1) il dato che era presente nel primo record, nella colonna oggetto di
stampa , e' cancellato
2) detto dato viene inserito nel primo record vuoto della colonna
ad esempio:
in G8 avevo topolino
stampo e nel gruppo topolino non c'e' la riga 8
trovo la riga 8 nella stampa del gruppo di celle vuote
a fine stampa in G8 non c'e' niente
ritrovo topolino in G54 che e' la prima cella vuota
aiuto
grazie
ciao

[Bruno Campanini]

Andrea.9 on 12-09-11 wrote:

> eliano ho provato il nuovo codice ma il problema non si e' risolto.
> adattato ai nuovi intervalli con modifica (in due punti)
> NumCol = 12 (anziche' 9)
> Set SourceRange = [ELENCO!B7] (anziche' B4)

B7 deve essere la cella della label Gruppo, lo è?
Non deve essere la cella che contiene il primo gruppo.

Bruno

[Andrea.9]

On 12 Set, 15:50, Bruno Campanini <brunoca...@libero.it> wrote:
> Andrea.9 on 12-09-11 wrote:
> > eliano ho provato il nuovo codice ma il problema non si e' risolto.
> > adattato ai nuovi intervalli con modifica (in due punti)
> > NumCol = 12 (anziche' 9)
> > Set SourceRange = [ELENCO!B7] (anziche' B4)
>

> B7 deve essere la cella della label Gruppo, lo ?

> Non deve essere la cella che contiene il primo gruppo.
>
> Bruno

si infatti la riga 7 e' quella delle intestazioni di colonna.
andrea

[eliano]

Andrea, non so che dirti; nel file fornito da Bruno, con le
intestazioni di colonna che terminano a riga 4, funziona da 10 e non
ho certamente la voglia di crearmi un file diverso da quello per fare
delle prove, dal momento che il filtro delle date e/o delle ore sembra
abbastanza ballerino.
Consiglierei di mandare il nuovo file a Bruno per effettuare le debite
variazioni (compreso il .Text), in modo da avere delle macro che
funzionino su tutte le versioni di excel.
Saluti
Eliano

[Andrea.9]

eliano ho mandato la mail come mi hai suggerito
bruno il tuo indirizzo di posta mi da errore
ciao
andrea

[eliano]

> andrea- Nascondi testo citato

>
> - Mostra testo citato -

Ma.......quella mail.......è partita........oppure è dispersa in Libia
alla ricerca di gheddafi?? :-))
Se non fosse andata, prova a condividerla o mandala a me:
falinielianoULLALLA'@DANTE&Virgilio.it
Coi provo e se le modifiche funzionano, domani la rivoghiamo anche a
Beuno.
Eliano

[eliano]

> Eliano- Nascondi testo citato

>
> - Mostra testo citato -

Visto come è venuta scritta, per i maldicenti chiarisco:"Sto bevendo
SOLO thè".:-))

[Bruno Campanini]

Andrea.9 on 12-09-11 wrote:

> eliano ho mandato la mail come mi hai suggerito
> bruno il tuo indirizzo di posta mi da errore

È sbagliato... volutamente!

Excel 97-2003
http://myfreefilehosting.com/f/56f162d9e9_0.07MB

Excel 2007-2010
http://myfreefilehosting.com/f/faee6ce985_0.04MB

Ma che faticaccia... voglio veder chi mi paga...

Bruno

[Andrea.9]

On 13 Set, 09:23, Bruno Campanini <brunoca...@libero.it> wrote:
> Andrea.9 on 12-09-11 wrote:
> > eliano ho mandato la mail come mi hai suggerito
> > bruno il tuo indirizzo di posta mi da errore
>

> sbagliato... volutamente!
>
> Excel 97-2003http://myfreefilehosting.com/f/56f162d9e9_0.07MB
>
> Excel 2007-2010http://myfreefilehosting.com/f/faee6ce985_0.04MB

>
> Ma che faticaccia... voglio veder chi mi paga...
>
> Bruno

ciao bruno
ho provato il file nella versione 2003 (copiando il codice nella
versione definitiva del file) ma purtroppo il problema si ripresenta
come descritto precedentemente.
vorrei inviarti il mio file definitivo per farti vedere il problema ma
non ho la tua mail e non riesco a condividerlo perche' il server
aziendale non me lo consente (eventualmente lo faccio da casa).
per il pagamento ...... sicuramente prima o poi qualcuno te ne
rendera' merito ;-)
grazie
andrea

[Bruno Campanini]

Andrea.9 on 13-09-11 wrote:
> On 13 Set, 09:23, Bruno Campanini <brunoca...@libero.it> wrote:
>> Andrea.9 on 12-09-11 wrote:
>>> eliano ho mandato la mail come mi hai suggerito
>>> bruno il tuo indirizzo di posta mi da errore
>>
>> sbagliato... volutamente!
>>
>> Excel 97-2003http://myfreefilehosting.com/f/56f162d9e9_0.07MB
>>
>> Excel 2007-2010http://myfreefilehosting.com/f/faee6ce985_0.04MB
>>
>> Ma che faticaccia... voglio veder chi mi paga...
>>
>> Bruno
>
> ciao bruno
> ho provato il file nella versione 2003 (copiando il codice nella
> versione definitiva del file)

Hai copiato l'intero modulo? ci sono definizioni a livello di
Declarations che nella versione precedente non esistono.

> ma purtroppo il problema si ripresenta
> come descritto precedentemente.
> vorrei inviarti il mio file definitivo per farti vedere il problema ma
> non ho la tua mail

brun...@libero.it

> e non riesco a condividerlo perche' il server
> aziendale non me lo consente (eventualmente lo faccio da casa).
> per il pagamento ...... sicuramente prima o poi qualcuno te ne
> rendera' merito ;-)

Bruno

[Andrea.9]

> Bruno- Nascondi testo citato

>
> - Mostra testo citato -

file inviato ^__^
ho provato anche su una macchina con 2007 e il problema e' sempre
lostesso
credo pero' di aver capito che dipenza dal fatto che ci sono alcuni
record "incompleti" cioe' che contengono dati solo su alcune colonne;
il problema si presenta quando stampo in base al criterio di colonna
che ha delle celle vuote in corrispondenza proprio ai quie record
incompleti.
non mi sono reso conto che probabilmente e' una informazione
fondamentale nella struttura dei dati e per mia ignoranza non l'ho
evidenziato :-(
grazie
andrea

[eliano]

On 13 Set, 10:27, "Andrea.9" <a.novelli-...@dappolonia.it> wrote:

> On 13 Set, 10:05, Bruno Campanini <brunoca...@libero.it> wrote:
>
>
>
>
>
> > Andrea.9 on 13-09-11 wrote:
> > > On 13 Set, 09:23, Bruno Campanini <brunoca...@libero.it> wrote:
> > >> Andrea.9 on 12-09-11 wrote:
> > >>> eliano ho mandato la mail come mi hai suggerito
> > >>> bruno il tuo indirizzo di posta mi da errore
>
> > >> sbagliato... volutamente!
>
> > >> Excel 97-2003http://myfreefilehosting.com/f/56f162d9e9_0.07MB
>
> > >> Excel 2007-2010http://myfreefilehosting.com/f/faee6ce985_0.04MB
>
> > >> Ma che faticaccia... voglio veder chi mi paga...
>
> > >> Bruno
>
> > > ciao bruno
> > > ho provato il file nella versione 2003 (copiando il codice nella
> > > versione definitiva del file)
>
> > Hai copiato l'intero modulo? ci sono definizioni a livello di
> > Declarations che nella versione precedente non esistono.
>
> > > ma purtroppo il problema si ripresenta
> > > come descritto precedentemente.
> > > vorrei inviarti il mio file definitivo per farti vedere il problema ma
> > > non ho la tua mail
>

> > bruno...@libero.it

>
> > > e non riesco a condividerlo perche' il server
> > > aziendale non me lo consente (eventualmente lo faccio da casa).
> > > per il pagamento ...... sicuramente prima o poi qualcuno te ne
> > > rendera' merito ;-)
>
> > Bruno- Nascondi testo citato
>
> > - Mostra testo citato -
>
> file inviato ^__^
> ho provato anche su una macchina con 2007 e il problema e' sempre
> lostesso
> credo pero' di aver capito che dipenza dal fatto che ci sono alcuni
> record "incompleti" cioe' che contengono dati solo su alcune colonne;
> il problema si presenta quando stampo in base al criterio di colonna
> che ha delle celle vuote in corrispondenza proprio ai quie record
> incompleti.
> non mi sono reso conto che probabilmente e' una informazione
> fondamentale nella struttura dei dati e per mia ignoranza non l'ho
> evidenziato :-(
> grazie

> andrea- Nascondi testo citato

>
> - Mostra testo citato -

Prova a cancellare tutte le righe dalla 54 alla fine, salva il file,
con Ctrl+Fine controlla che non ci siano righe oltre le 54 e riprova
le macro.
A stasera,
Eliano

[Bruno Campanini]

Andrea.9 on 13-09-11 wrote:

> file inviato ^__^
> ho provato anche su una macchina con 2007 e il problema e' sempre
> lostesso
> credo pero' di aver capito che dipenza dal fatto che ci sono alcuni
> record "incompleti" cioe' che contengono dati solo su alcune colonne;
> il problema si presenta quando stampo in base al criterio di colonna
> che ha delle celle vuote in corrispondenza proprio ai quie record
> incompleti.
> non mi sono reso conto che probabilmente e' una informazione
> fondamentale nella struttura dei dati e per mia ignoranza non l'ho
> evidenziato :-(

Fanne tesoro per la prossima volta.

Bruno

[Andrea.9]

miseriaccia .....

[Andrea.9]

> Eliano- Nascondi testo citato

>
> - Mostra testo citato -

si, ho visto, completando tutti i dati (o cancellando quelli
incompleti) la macro di stampa funziona bene.
ma e' possibile gestire record incompleti (cioe' filtrare e quindi
stampare) anche per campo vuoto?
ciao
andrea

[eliano]

> miseriaccia .....- Nascondi testo citato

>
> - Mostra testo citato -

LOL

L'importante è che tu abbia capito l'importanza della coerenza,
correttezza, completezza dei dati reali da trattare, anche in fase di
test.
Procedi tranquillo con le prove sul file completo e definitivo e
quando ritieni esaustive le prove sul tuo/nostro XL2003 ripassa la
palla a Bruno per la conferma con XL2010, utilizzando le stesse macro
del XL2003.

Per Bruno: qui purtroppo non paga nessuno, ma Zeussss te ne renderà
merito, prima o poi.:-))
Attendi fiducioso e, a parte le battute, GRAZIE.

Eliano

[eliano]

Non ho esperienza nelle Collection che ritengo formidabili, se non
per qualche test conoscitivo, nei quali non ho mai considerato quella
eventualità.
Dalla cadenza dei post ti ricordo che Bruno ha sempre dichiarato il
corretto funzionamentro delle macro con il suo XL2010, mentre i test
con il nostro XL2003 fallivano miseramente; la cosa, insieme ad altre
evidenziazioni desunte da diversi thread, sembrerebbe confermare la
non perfetta compatibilità delle due versioni, con buona pace di Zio
Bill & Company (li possino acciaccà).
La domanda deve essere girata a San Bruno, oppure, in mancanza di
risposte certe, occorrerà applicare il metodo dell'Accademia del
Cimento.:-))
Hasta luego Andrea
Eliano