Ciao,
sto facendo una serie di macro per delle tabelle uguali, ma di pagine differenti. La prassi in parole povere è questa:
-per prima cosa seleziono una cella (a seconda di dove devo elaborare i dati, all'interno delle tabelle, ma sempre nella stessa colonna) in Foglio 1 e lancio la macro

Sub griglia_esc()
' gestisce le operazioni di compilazione della griglia esc che poi, al termine,
' verrà copiata nei Foglio 2 e Foglio 3 A PARTIRE DALLA CELLA SELEZIONATA
ActiveCell.Range("A1:F11").Select
Application.Run "incolonna1"
Selection.Cut
Sheets("F.2").Select
Range("C13").Select
ActiveSheet.Paste
Application.Run "griglia_per_esc"
Selection.Copy
Sheets("Foglio 2").Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-1, 0).Range("A1").Select
Sheets("Foglio 3").Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-1, 0).Range("A1").Select
Sheets("Foglio 1").Select
ActiveCell.Offset(-21, -161).Range("A1").Select
End Sub

Come si vede, ora i riferimenti sono tutti gestiti previa selezione di una cella all'interno di ogni pagina, selezione che varia di volta in volta a seconda dell'area delle tabelle che devo compilare (nella macro sopra ActiveCell.Range("A1:F11").Select e ActiveCell.Select nei Fogli 2 e 3)
Io avrei invece bisogno di implementare una situazione mista, ovvero
che ActiveCell.Range("A1:F11").Select rimanga tale
e che le ActiveCell.Select nei Fogli 2 e 3 siano invece celle specifiche che hanno una posizione precisa riferita alla cella di Foglio 1 che di volta in volta seleziono per poter compilare le tabelle di Foglio 2 e 3.
Per dare riferimento preciso:
in Foglio 1 se partissi dalla cellaB1984 e in Foglio 2 e 3 vorrei già "puntate" le celle AJ1984, anziché dover andare nei rispettivi fogli e selezionare di volta in volta le celle... L'unica cosa che dovrei fare è selezionare la cella di Foglio 1.
Qual'è la sintassi corretta da inserire nella macro? Non sono riuscito a trovare il minimo indizio...
Grazie assai e buona serata,
eZio

salve
sperando di aver capito bene.
La macro che segue, copia un area del foglio1 e la copia a partire dalla riga della cella selezionata nel foglio1 nei fogli 2 e 3

Sub copia()
x = ActiveCell.Row
Range("a11:f11").Copy
Sheets("foglio2").Range("J" & x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("foglio3").Range("J" & x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

saluti
Giap

---

salve
Arabo!!..............
La macro che hai postato precedentemente non aiuta la comprensione visto che richiama altre due macro.
cosa dovresti fare esattamente?
saluti
Giap

---

salve
sono le due istruzioni sopra riportate che non capisco.
Passi al foglio 2 e al foglio Sigma richiamando l'Activecell, ma come fai sapere che celle sono attive in quei fogli??
La logica mi pare di averla capita Copi un range la cui variabilità è dettata dalla cella selezionata nel foglio di partenza, e vorresti copiarla nei fogli 2 e Sigma ma in quali celle?? qui mi perdo..
saluti
Giap

---

salve




Si torna alla mia prima risposta.
Ricapitolo:

1) Selezioni la cella B100 del foglio 1
2) nel foglio2 la cella relazionata sarà AJ100
3) nel foglio3 la cella relazionata sarà AJ100

stante così le cose cosa c'era che non andava nel nio precedente suggerimento??
Non hai nessun bisogno di preselezionare le celle.
andava solo adattato in questo modo:
....................

Sub Copia_Valori()
ActiveCell.Range( _
"A1,F1,K1,P1,U1,Z1,AE1,AJ1,AO1,AT1,AY1,BD1,BI1,BN1,BS1,BX1,CC1,CH1,CM1,CR1,CW1,DB1,DG1,DL1,DQ1,DV1" _
).Select
x = ActiveCell.Row
ActiveCell.Offset(0, 5).Range("A1").Activate
Selection.Copy
Sheets("foglio2").Select
Range("AJ" & x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-1, 28).Range("A1").Select
Sheets("foglio3").Select
Range("AJ" & x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-1, -55).Range("A1").Select
End Sub

Evidentemete la riga in rosso produce un errore perchè lo spostamento di -55 colonne indietro arriverebbe fuori
del foglio
saluti
Giap

---

Ciao,

in effetti volevo già postartele dall'inizio, ma temevo che alla fine il tuo giudizio esatto sarebbe stato "Arabo all'ennesima potenza"!! :)
Prima di procedere specifico che il Foglio 3 è stato eliminato, dato che riesco a fare la stessa cosa senza bisogno di averlo "tra i piedi".
Allora: Problema, dati questi valori elaborare dei dati e copiarli in fogli collegati, in posizioni tra di esse legate.

- situazione di partenza: sett. 72'94 , seleziono la cella del settore in col.B di Foglio 1
in Foglio 2 seleziono la cella in col.AJ, pari riga di foglio 1
in foglio Sigma seleziono la cella in col.A, pari riga di Foglio 1 e Foglio 2

e da Foglio 1 faccio partire una macro che esegue una serie di operazioni di ordinamento e le restituisce in F.2 sotto forma di riga scritta sempre nella stessa riga, K22, indipendentemente dagli altri Fogli dato che F.2 è solo un foglio di calcolo)

Sub griglia_esc()
ActiveCell.Range("A1:F11").Select
Application.Run "incolonna1"
Selection.Cut
Sheets("F.2").Select
Range("C13").Select
ActiveSheet.Paste
Application.Run "griglia_per_esc"
Selection.Copy
Sheets("Foglio 2").Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, -28).Range("A1").Select
Sheets("Foglio 1").Select
ActiveCell.Offset(-20, -161).Range("A1").Select
End Sub
- - - - - - -
(le due macro richiamate)
Sub incolonna1()
ActiveCell.Offset(-10, 0).Range("A1:F11").Select
ActiveCell.Activate
Selection.Copy
ActiveCell.Offset(30, 160).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Range("A1:A11").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveCell.Offset(0, 2).Range("A1:A11").Select
Selection.Cut
ActiveCell.Offset(11, -1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(-11, 2).Range("A1:A11").Select
Selection.Cut
ActiveCell.Offset(22, -2).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(-22, 3).Range("A1:A11").Select
Selection.Cut
ActiveCell.Offset(11, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(-11, 0).Range("A1:A22").Select
Selection.Cut
ActiveCell.Offset(33, -4).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(-33, 0).Range("A1:A55").Select
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
- - - - - - -
Sub griglia_per_esc()
Selection.Copy
ActiveCell.Offset(33, 8).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
ActiveCell.Offset(-33, -8).Range("A1").Select
ActiveWindow.SmallScroll Down:=24
ActiveCell.Range("A1:A55").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveCell.Offset(9, 8).Range("A1").Select
ActiveCell.Range("A1:CL1").Select
End Sub
- - - - - -

Risultato: in Foglio 2 a partire dalla cella di Col.AJ, nella stessa riga di quella del sett. di Foglio 1, vengono scritti dei nostri codici interni e alla fine viene puntata in Foglio 2 la cella da cui dovrà partire la macro "copia_Valori" (cella in col.H nella stessa riga) e in Foglio 1 verrà riselezionata la cella di partenza (quella di partenza di tutta l'operazione, col.B di Foglio 1, da cui dovrà partire la macro "Sigma_55". La pagina attiva torna quindi Foglio 1
- - - - - -

- faccio partire la macro

Sub Sigma_55()
Sheets("F.2").Select
ActiveWindow.SmallScroll Down:=24
ActiveCell.Offset(24, 0).Range("A1").Select
ActiveCell.Range("A1:BC1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sigma").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 55).Range("A1").Select
Sheets("Foglio 1").Select
ActiveCell.Offset(1, 6).Range("A1").Select
End Sub
- - - - -

Risultato: in foglio Sigma vengono scritti dei valori a partire dalla cella A della stessa riga del sett. di Foglio 1 (e di Foglio 2). Al termine in foglio Sigma viene selezionata la cella successiva all'ultimo valore scritto dalla macro Sigma_55, e in Foglio 1 la cella in col.L della riga precedente a quella del settore (è una riga contenente delle formule che restituiscono nelle colonne A1,F1,K1,P1,U1,Z1,AE1,AJ1,AO1,AT1,AY1,BD1,BI1,BN1,BS1,BX1,CC1,CH1,CM1,CR1,CW1,DB1,DG1,DL1,DQ1,DV1 dei valori relativi al sett. in esame, che col sistema di trascinamento della cella si autocalcolano di volta in volta) La pagina su cui torna la macro è sempre Foglio 1
- - - - -

-faccio partire la macro

Sub prepara_eCopia_Sigma()
ActiveCell.Select
ActiveCell.Range("A1:DZ1").Select
Selection.AutoFill Destination:=ActiveCell.Offset(-1, 0).Range("A1:DZ2"), _
Type:=xlFillDefault
ActiveCell.Offset(-1, 0).Range("A1:DZ2").Select
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveCell.Offset(0, 4).Range("A1").Select
Application.Run "Copia_Valori"
Application.CutCopyMode = False
Sheets("Foglio 1").Select
ActiveCell.Offset(-1, -15).Range("A1").Select
End Sub
- - - - -
(la macro richiamata)
Sub Copia_Valori()
ActiveCell.Range( _
"A1,F1,K1,P1,U1,Z1,AE1,AJ1,AO1,AT1,AY1,BD1,BI1,BN1,BS1,BX1,CC1,CH1,CM1,CR1,CW1,DB1,DG1,DL1,DQ1,DV1" _
).Select
x = ActiveCell.Row
ActiveCell.Offset(0, 5).Range("A1").Activate
Selection.Copy
Sheets("foglio2").Select
Range("AJ" & x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-1, 28).Range("A1").Select
Sheets("Sigma").Select
Range("AJ" & x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-1, -55).Range("A1").Select
End Sub
- - - - -

Risultato: in foglio Sigma vengono scritti dei valori a partire dalla cella BD della stessa riga del sett. di Foglio 1 (e di Foglio 2), valori che vengono anche scritti in Foglio 2 a partire dalla cella selezionata dalla macro griglia_esc. Al termine in foglio Sigma viene selezionata la cella di col.A della riga superiore a quella del sett. in esame, in Foglio 2 viene selezionata la cella di col.AJ della riga superiore a quella del sett. in esame, in Foglio 1 (che rimane durante tutto il ciclo il foglio attivo) viene selezionata la cella di col.B della riga superiore a quella del sett. in esame (il tutto pronto per il giro successivo), che poi in realtà è il sett. successivo a quello in esame, ma la tabella procede al contrario, dal basso verso l'alto... in Arabo, appunto!!!!!!!!! ahahahahahahahaha
Spero di essere stato chiaro e preciso in modo sufficiente....
Grazie assai e buona serata,
eZio.

Ciao,
le macro che ti ho scritto sono state fatte dal programma, che seguiva passo-passo le mie operazioni :)
uno dei requisiti indispensabili di queste macro dev'essere obbligatoriamente- dico purtroppo- la possibilità di un "facile" intervento da parte di chi, come me, non è in grado di metter mano ad apparenti semplici istruzioni (rimango allibito dalla tua sintesi e precisione nel redigere la macro

quando l'ho letta mi si è aperta in automatico la bocca dall'ammirazione... ammirazione che dopo qualche secondo ha lasciato il posto alla rabbia con me stesso per non essere in grado di seguirti fino a questo punto!)

purtroppo il mio (e pure di coloro che useranno "sul terreno" le tabelle) livello di ignoranza in questa materia m'impone un passo indietro... un ritorno coi piedi per terra. Le tabelle a cui applico le macro sono assai variegate e richiedono continui interventi manuali per adattarle alle varie tipologie; ad esempio il foglio F.2 nella realtà contiene una corposa serie di codici interni a cui quelle tabelle si riferiscono, e viene intercambiato di volta in volta a seconda delle esigenze contingenti... come pure le colonne di Foglio 1 nominate "A1,F1,K1,P1,U1,Z1,AE1,AJ1,AO1,AT1,AY1,BD1,BI1,BN1,BS1,BX1,CC1,CH1,CM1,CR1,CW1,DB1,DG1,DL1,DQ1,DV1" in realtà sono il risultato di calcoli fatti nelle colonne ad esse adiacenti che come risultato danno i valori in esse contenuti... In poche parole in questo caso specifico la cosa si complica in modo esponenziale e dopo lunga e ponderata riflessione (non senza svariate prove di simulazione)sono costretto a dover dire che abbiamo raggiunto il tetto... e siamo solo al piano terra ahahahahah...
Ho provato a preparare uno stralcio per inviartelo, ma mi sono reso conto che appena vario la cartella di tabelle a cui devo applicare le macro sono di nuovo a capo...
Per darti un'idea di come mi sento mentre ti sto crivendo questa "semi-bandiera bianca" ti rimando alle scene iniziali del capolavoro di Kubrick "2001: Odissea nello spazio" quando il pitecantropo ha visto il misterioso monolito nero e con aria impaurita, ma con altrettanta curiosità, lo tocca con grande timore... Purtroppo avendo a che fare con altri collaboratori devo cercare di ehm...mixare... il tutto tenendo ben presente quali sono le capacità di chi utilizzerà queste tabelle :)))))
Penso che tu abbia ben compreso... ;)
Una cosa certamente fattibile sarebbe invece quella di adattare la macro

Sub confronta()

Dim colonna As Integer
For n = 14 To 14 'da impostare ogni volta
colonna = 82
Set area1 = Range(Cells(n, 56), Cells(n, 81))
Set area2 = Range(Cells(n, 1), Cells(n, 55))
For Each cl In area1
For Each cl2 In area2
If cl = cl2 Then
With cl
.Interior.ColorIndex = 36
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlThin
End With
Cells(n, colonna).Value = cl.Value
colonna = colonna + 1
End If
Next cl2
Next cl
Set area = Nothing
Set area2 = Nothing
Next n
Columns("CD:ED").ClearContents
End Sub

ad un confronto della riga attiva, dato in automatico in base alla riga in cui ci si trova, anziché all'istruzione di esaminare tutta la tabella...
Grazie assai e buona giornata,
eZio

Ciao,

Scritta così è disarmante... ahahahahah ...Beh! a intuito capisco che il codice fa quelle operazioni, ma è la sintassi così filante, sintetica, elaborata che mi manda in estasi..... Gran bel lavoro Giap!! Eccezionale........
per quanto riguarda la macro "confronta" la 2 soluzione è perfetta... è proprio quella.
Grazie assai e buona notte,
eZio