excel-perchè mi cancella le righe in un collegamento?

[balapao]

ok ma se non lo metto mi pesca la cella nel foglio riepilogo

[balapao]

ES: se inserisco questa in A7 del foglio riepilogo: =SE(INDIRETTO(INDIRIZZO(RIF.RIGA(A2);RIF.COLONNA(A2);;;"Foglio1"))="";"";INDIRETTO(INDIRIZZO(A2);RIF.COLONNA(A2);;;"Foglio1")))
mi pesca A2 del foglio riepilogo.....

[Anthony47]

=SE(INDIRETTO(INDIRIZZO(RIF.RIGA(A2);RIF.COLONNA(A2);;;"Foglio1"))="";"";INDIRETTO(INDIRIZZO(A2);RIF.COLONNA(A2);;;"Foglio1")))
E' diversa da quella che ti ho data io, manca un rif.riga nell' area in rosso

Ciao

[Flash30005]

Leggi post precedenti (soluzione con formule)

Se vuoi usare la stessa macro di aggiornamento è sufficiente che sotituisci quella esistente con questa

Codice: Seleziona tutto

Sub Aggiorna()

Application.ScreenUpdating = False
Application.Calculation = xlManual

Dim Ws1, Ws2 As Worksheet
Dim UR1, Ur2, RR1, NB As Integer

Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Riepilogo")

NB = 1
    Ws1.Select
    Range("A2").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Sheets("Riepilogo").Select
    UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
    Ur2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row
    If Ur2 < 7 Then Ur2 = 7
    Ws2.Range("A7:G" & Ur2).ClearContents
    For RR1 = 2 To UR1
    Ur2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
    Ws1.Range("A" & RR1 & ":A" & RR1).Copy
        Ws2.Range("A" & Ur2).PasteSpecial Paste:=xlPasteValues
        Ws2.Range("B" & Ur2).Value = NB
        NB = NB + 1
    Ws1.Range("B" & RR1 & ":D" & RR1).Copy
        Ws2.Range("C" & Ur2).PasteSpecial Paste:=xlPasteValues
    Ws1.Range("F" & RR1 & ":G" & RR1).Copy
        Ws2.Range("F" & Ur2).PasteSpecial Paste:=xlPasteValues
    Next RR1
   
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Allego il file modificato
E' sufficiente premere il comando "Aggiorna Dati"
(noterai anche che il file è di dimensioni inferiori, circa la metà)

Ora hai diverse soluzioni, scegli quella più adatta alle tue esigenze

Ciao

[Anthony47]

Non perdere il messaggio di Flash, sopra.

Tra le tante cose mi pare che sia stato detto che le righe possono solo aumentare; in questo caso credo che possa bastare impostare nelle proprieta' dell' intervallo dati della query l' opzione "Sovrascrivi le celle esistenti con i nuovi dati e cancella le celle inutilizzate". Per questo:
-seleziona l' area della query, es A2 su Foglio1
-tasto dx, scegli Proprieta' intervallo dati
-spunta la voce che ho detto, Ok

Inoltre la formula che io ho dato per C7 pesca i dati in Foglio1-C2 (copiando la formula che avevi pubblicato nel tuo secondo messaggio); dai file che hai pubblicato vedo invece che Riepilogo-C7 pesca da Foglio1-B2. Insomma ci sarebbe lo scostamento di una colonna.
La modifica e' ovvia: invece che
=SE($A7="";"";INDIRETTO(INDIRIZZO(RIF.RIGA(C2);RIF.COLONNA(C2);;;"Foglio1")))
userai
=SE($A7="";"";INDIRETTO(INDIRIZZO(RIF.RIGA(B2);RIF.COLONNA(B2);;;"Foglio1")))

Ciao a tutti.

[balapao]

ciao di nuovo! Ieri pomeriggio nn ho avuto modo di lavorarci.........ora riprovo. Anthony grazie dei suggerimenti ma lo scambio di colonne lo avevo già corretto....(nn sono ferratissima ma fin lì ci arrivo) vi faccio sapere in giornata come va e grazie ancora del lavoro e della pazienza!

[balapao]

tutto OK sto sistemando "tutti" i file (di fatto ne sono 11 uno per ogni capitolo) con i vs aiuti.
Grazie ancora.

[balapao]

Eccomi di nuovo! dunque tutto a posto il problema è stato risolto. Ho provato sia le formule di Anthony47 che il file di Flash30005 tanto per sperimentare le diverse possibilità! Grazie ancora