[EXCEL] Selezione Variabile Celle

[beastmaster]

Inannzitutto buongiorno a tutti.

E' il mio primo post nel forum e devo fare i miei complimenti per l'ottimo lavoro che svolgete.

io ho 2 fogli di lavoro
sul primo ho l'elenco dei miei contatti
sul secondo ho una maschera che impostero' per la stampa

sul primo foglio ho impostato i filtri automatici

avrei bisogno di impostare sul secondo foglio i campi relativi alla voce selezionata dal filtro ma non so come impostare nel secondo i valori variabili.

spero di esser stato chiaro.

grazie anticipatamente per il consiglio.

BM

[Avatar3]

Puoi usare una macro di questo tipo

Codice: Seleziona tutto

Sub CompilaScheda()
 UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False

    If Sheets("Foglio1").AutoFilterMode Then
        UR = Range("A" & Rows.Count).End(xlUp).Row
        For I = 2 To UR
            If Rows(I).EntireRow.Hidden = False Then
'<<<< qui inserirai i campi da copiare dal foglio1 al foglio2
                MsgBox Worksheets("Foglio1").Range("A" & I).Value  '<<<< messaggio test che ti fa vedere il contenuto della colonna "A"
            End If
        Next I
    End If
    Application.ScreenUpdating = True
End Sub


[beastmaster]

purtroppo non so proprio come applicare la macro

io ho sempre lavorato con le forume base di excel

io avrei delle colonne da reimportare nella seconda maschera, come faccio ad associarle?

[Avatar3]

E come pensi possiamo aiutarti se non indichi dove sono i dati originali e dove vorresti inserirli?
es.:
il dato della colonna A del foglio1 dove vorresti averlo nel foglio2?
così pure il dato della colonna B del foglio1 in quale cella del foglio2 vorresti averlo

perché immagino che il foglio2 sia un modello di stampa e quindi i dati che sono su una riga del foglio1 vadano ad inserirsi su questo modello che hai preparato.

A questo punto è opportuno che invii le "coordinate In" e "coordinate Out" oppure il file

[ricky53]

Ciao,
in merito a:

avrei bisogno di impostare sul secondo foglio i campi relativi alla voce selezionata dal filtro ma non so come impostare nel secondo i valori variabili.

puoi dire quali "campi" (colonne del Foglio1) vuoi avere in stampa ?

Invece in

io avrei delle colonne da reimportare nella seconda maschera, come faccio ad associarle?

cos intendi con "seconda maschera" ?
Forse le celle del Foglio2 ?

Puoi fornire informazioni dettagliate e ... leggendo la mia firma ...

[Anthony47]

Ciao beastmaster, benvenuto nel forum.
Mi associo a quanto detto da Avatar e Ricky: senza un minimo di layout dei tuoi dati, quelli di partenza e quelli che vuoi ottenere, e' difficile dare un contributo; per allegare un file di esempio o lo screenshot vedi qui: viewtopic.php?f=26&t=80395

Ciao

[beastmaster]

Avete proprio ragione, sono un casinaro.

Allora.

Foglio1

colonne suddivise con i rispettivi campi

nome - col.A
indirizzo - col.B
telefono - col.C
email - col.D
e così via
il tutto ordinato col filtro automatico

Foglio2

una simil maschera dove visualizzare solamente il campo filtrato dal foglio1

non so proprio come collegare le righe filtrate con i campi della "maschera di stampa" del foglio2.


spero di esser stato un pelino piu' chiaro.

grazie a tutti

[beastmaster]

allego fotografie spero esemplificative

foglio1
http://imageshack.us/photo/my-images/842/foglio1.jpg/

foglio2
http://imageshack.us/photo/my-images/13/foglio2.jpg/

superati i 3 post allega anche file

https://rapidshare.com/files/3686861541/rubrica.xls

[Avatar3]

Una macro che compila la scheda per la stampa potrebbe essere questa

Codice: Seleziona tutto

Sub CompilaScheda()
 UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    If Sheets("Foglio1").AutoFilterMode Then
        UR = Sheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
        For I = 2 To UR
            If Rows(I).EntireRow.Hidden = False Then
                Worksheets("Foglio1").Range("A" & I).Copy Destination:=Worksheets("Foglio2").Range("B2")
                Worksheets("Foglio1").Range("B" & I).Copy Destination:=Worksheets("Foglio2").Range("B4")
                Worksheets("Foglio1").Range("D" & I).Copy Destination:=Worksheets("Foglio2").Range("B6")
                Worksheets("Foglio1").Range("F" & I).Copy Destination:=Worksheets("Foglio2").Range("B8")
                Worksheets("Foglio1").Range("G" & I).Copy Destination:=Worksheets("Foglio2").Range("B10")
                Worksheets("Foglio1").Range("H" & I).Copy Destination:=Worksheets("Foglio2").Range("B12")
                Worksheets("Foglio1").Range("I" & I).Copy Destination:=Worksheets("Foglio2").Range("B14")
                'exit sub
            End If
            'Worksheets("Foglio2").select
            'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        Next I
    End If
    Application.ScreenUpdating = True
End Sub


adesso bisogna capire se dopo la filtratura tu hai più righe e devi stampare tutti i contatti filtrati o solo il primo
nel caso di voler stampare solo il primo togli il commento a 'exit sub
avrai la tua scheda e la stamperai a mano
Se devi stampare tutte le righe (caso di più righe filtrate)
togli il commento alle righe

Codice: Seleziona tutto

'Worksheets("Foglio2").select
 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

[ricky53]

Ciao,
oltre quanto già suggerito con la macro di Avatar, se non vuoi utilizzare una macro oppure come alternativa
prova con:
1. Definisci un nome elenco (sono i clienti di colonna "A" del Foglio1) con il nome "Clienti"
2. vai sul foglio 2 cella "B2" ed inserisci la convalida, elenco, e scrivi "=Clienti"
3. scegli dalla cella "B2" (dall'elenco a tendina un cliente) un cliente
4. in "B4" scrivi

Codice: Seleziona tutto

=CERCA.VERT(B2; Foglio1!$A$2:$I$10; 2; 0)

ed avrai la località
5. stesssa cosa del punto "4" per gli altri campi dove sostituirai nel CERCA.VERT il "; 2;" con il numero della colonna del foglio 1 che contiene il dato che cerchi (es. la Provincia è "3", l'e-mail è "8", ecc.)

[beastmaster]

grazie mille per l'aiuto a tutti

la soluzione per me più fattibile e di semplice comprensione è quella di ricky - non avertene a male avatar ma non ne capisco nulla di macro.

io ho provato a compilare la maschera di ricerca associando la funzione postata da ricky alle rispettive celle ma...

https://rapidshare.com/files/2104740684/prova.xls

dalla cella 10 va in blocco #RIF e lo stesso con le righe superiori al 10.

dove sbaglio? sto diventando matto...

dopo aver provato il menù a tendina in discesa pensavo di aver risolto il mio problema ma mi trovo bloccato ora...

grazie anticipatamente ragazzi!

[Avatar3]

Per farti prendere gusto alle macro ti invio il file completo
https://rapidshare.com/files/637481841/prova3.xls

Vai sul foglio maschera e seleziona un cliente nella cella B2...

che ne dici?

[beastmaster]

che spettacolo!

con questo metodo la selezione del cliente e la compilazione automatica della scheda è proprio come volevo io!!!

l'unico problema è che se confermo la stampa non stampa

comunque sia è ottima come tabella!

ora la provo e vi farò sapere se va bene così o se necessita di miglioramenti.

grazie per l'aiuto!!!

[Avatar3]

Si c'è un'errore nella variabile di RispStampa
dal foglio premi i tasti ALT+F11
ti troverai il codice della macro
Alla fine della macro troverai questo codice (riporto 7 righe come riferimento)

Codice: Seleziona tutto

Stampa:
    Application.ScreenUpdating = True
RispStampa = MsgBox(Prompt:=" VUOI STAMPARE ?", Buttons:=vbYesNo)
        If Scelta4 = 6 Then   '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  riga da modificare
            Worksheets("MASCHERA STAMPA").Select
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        End If

Devi solo modificare la riga evidenziata con '<<<<<<<<<<<<<<<<<<<<<
inserendo RispStampa invece di Scelta4 in questa maniera

Codice: Seleziona tutto

 If RispStampa = 6 Then   

Adesso, se hai fatto tutto correttamente, stamperai quando premi SI sul messaggio di stampa

[beastmaster]

OTTIMO E FUNZIONANTE!!!

ora lo provo e vi farò sapere!