|
|
|
![]() |
|
Strumenti |
![]() |
#1 |
Member
Iscritto dal: May 2005
Messaggi: 59
|
[Excel] Intervallo
ciao, c'è un modo per portare in automatico nelle righe successive lo stesso tipo di intervallo? mi spiego meglio...
A1 = ---> R15:R23 A2 = ---> R33:R41 A3 = ---> R51:R59 come vedete l'intervallo comprende sempre 8 celle e fra un'intervallo e l'altro vorrei saltare di 10 come nell'esempio sopra purtroppo se faccio il copia/incolla di $R15:$R23 in A2 mi diventa $R16:$R24 in A3 $R17:$R25 e così via consigli per automatizzare il tutto? |
![]() |
![]() |
![]() |
#2 |
Senior Member
Iscritto dal: Dec 2004
Messaggi: 3210
|
Non ho chiaro cosa intendi.
In A1 scrivi un indirizzo Range e vorresti creare una regola speciale per l'operazione di trascinamento... ? |
![]() |
![]() |
![]() |
#3 | |
Member
Iscritto dal: May 2005
Messaggi: 59
|
Quote:
esempio... A1=range Q10:Q15 <---> trascinando in A2... A2=range Q27:Q32 ...come vedi tra Q15 e Q27 ha saltato 12 celle... A3=range Q54:Q59 A4=range Q71:Q76 |
|
![]() |
![]() |
![]() |
#4 | |
Senior Member
Iscritto dal: Dec 2004
Messaggi: 3210
|
Quote:
In ogni caso con un semplice trascinamento non risolvi, secondo me l'unica è farsi un pulsante e generare gli indirizzi con VBA. |
|
![]() |
![]() |
![]() |
#5 | |
Senior Member
Iscritto dal: Aug 2004
Messaggi: 1703
|
Quote:
Non credo però che con un semplice trascinamento te ne esci. |
|
![]() |
![]() |
![]() |
#6 |
Member
Iscritto dal: May 2005
Messaggi: 59
|
avete ragione perchè ho sbagliato a riportare l'intervallo nell'esempio, cmq dovrebbe essere costante, lo riporto corretto...
A1=range Q10:Q15 A2=range Q27:Q32 A3=range Q44:Q49 A4=range Q61:Q66 x MarcoGG purtroppo con VBA sto a zero ^^ conosci l'eventuale parametro per lo stesso? oppure se sapete rimandarmi a qualche Tutorial che possa fare al mio caso? thx |
![]() |
![]() |
![]() |
#7 | |
Senior Member
Iscritto dal: Dec 2004
Messaggi: 3210
|
Quote:
Codice:
Dim celle() As String Dim cellaI As Range Dim cellaF As Range Dim nuovaCellaI As String Dim nuovaCellaF As String Dim i As Long For i = 1 To 3 celle = Split(Range("A" & i).Text, ":") Set cellaI = Range(celle(0)) Set cellaF = Range(celle(1)) nuovaCellaI = Left(cellaI.Address(1, 0), InStr(1, cellaI.Address(1, 0), "$") - 1) & cellaI.Row + 17 nuovaCellaF = Left(cellaF.Address(1, 0), InStr(1, cellaF.Address(1, 0), "$") - 1) & cellaF.Row + 17 Range("A" & (i + 1)).FormulaR1C1 = nuovaCellaI & ":" & nuovaCellaF Next i ![]() |
|
![]() |
![]() |
![]() |
#8 | |
Senior Member
Iscritto dal: Aug 2004
Messaggi: 1703
|
Quote:
Ultima modifica di limpid-sky : 21-04-2009 alle 14:43. |
|
![]() |
![]() |
![]() |
#9 |
Member
Iscritto dal: May 2005
Messaggi: 59
|
ok grazie mille Marco adesso provo a personalizzarla e vediamo che ne esce
![]() |
![]() |
![]() |
![]() |
#10 | |
Member
Iscritto dal: Aug 2008
Messaggi: 178
|
Quote:
se ho capito bene vorresti, per es. sommare, in A1 i dati compresi nel range R15:R23 quindi trascinando la formula in A2 sommare i dati contenuti in R33:R41 e così via sommando le prime 8 celle ogni 18. In A1 inserisci la formula: Codice:
=SOMMA(SCARTO($R$15;(RIF.RIGA()-1)*18;;8)) Ciao |
|
![]() |
![]() |
![]() |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 03:03.