| | Post: 11 | Registrato il: 04/03/2017
| Città: CAPACCIO | Età: 52 | Utente Junior | 2007 | | OFFLINE | |
|
16/07/2017 18:50 | |
Ciao a tutti ragazzi, vorrei porvi un quesito , scarico da internet queste classifiche dei vari campionati, in questo caso le squadre sono 30, ma potrebbero essere 18, 20, 24, 8, ecc. ( vedi Foglio 2 e 3 )a secondo degli stessi.
La mia difficoltà è: Vorrei sistemare i dati della seconda parte scaricata, da B41, in una tabella ( da crearsi tipo O5) in modo automatico, visto che le tabelle scaricate si accorciano e si allungano in modo dinamico,il tutto sempre sul Foglio1.
(Foglio2 A23, Foglio3 A29, es. di come si allungano e si accorciano le tabelle) e di conseguenza anche le stesse tabelle che si scaricano da internet variano in funzione delle squadre in classifica. Quindi anche se varia la seconda tabella, che in questo caso,Foglio A1, parte da A40, ma potrebbe partire da A23 per es., vorrei che in O5 mi ritrovassi la tabella che ora è presente da B41. Riporto a mano una riga, per intenderci, in O5, ciò che vorrei in maniera dinamica. Come posso fare?
|
|
| | Post: 1.478 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
17/07/2017 09:48 | |
Ciao
(mi spieghi che vuol dire il titolo della tua discussione??)
Come si fa a capire dove inizia la seconda tabella che vuoi riportare a fianco della prima? Potrebbe essere corretto trovare il secondo # in colonna B per capire l'inizio?
Ci possono essere più di 2 tabelle?
Il numero di colonne è sempre lo stesso?
Poi devi cancellare la Tab copiata? (Per intenderci quella che nel foglio1 parte da B41, nel foglio2 da B23 ecc ecc )
Come le importi le tabelle?
saluti [Modificato da dodo47 17/07/2017 10:19] Domenico
Win 10 - Excel 2016 |
| | Post: 11 | Registrato il: 04/03/2017
| Città: CAPACCIO | Età: 52 | Utente Junior | 2007 | | OFFLINE | |
|
17/07/2017 17:36 | |
Ciao dodo47, grazie per avermi dedicato del tempo a rispondermi,
ma in primis non sono molto pratico di excel, per il titolo ho pensato così perché vorrei che mi comparisse sempre la classifica della seconda tabella, che scarico, al fianco della prima, come dici nella tua risposta, il tutto con una formula, io ho provato con indice e confronta, ma ho ottenuto il risultato per metà, quindi non mi va bene.
Per quanto riguarda il #, si è corretto nel capire l’inizio della nuova tabella, e le tabelle sono sempre quelle 2,
ma per le colonne il numero varia a secondo delle squadre, nel momento in cui le importo, ecco perché nel foglio 2 parte da B23 ecc..
Le Tab copiate, le cancello nel momento in cui importo le altre classifiche sul foglio1 posizionandomi sempre in A1, quindi importo il tutto attraverso il copia e incolla.
Spero di essere stato chiaro nel rispondere le tue domande e
Grazie ancora
|
| | Post: 1.479 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
17/07/2017 17:50 | |
Carmine.17, 17/07/2017 17.36:
....ma per le colonne il numero varia a secondo delle squadre, nel momento in cui le importo, ecco perché nel foglio 2 parte da B23 ecc..
Ciao
parlavo di numero di colonne, lascia stare la riga dove inizia la seconda tabella, quella non è un problema.
Io vedo che in tutti i fogli le colonne sono sempre da A a M.
Quindi mi stai dicendo che le colonne possono essere meno o più di 13.
Comunque non con le formule (almeno per quanto mi riguarda) ma con una macro che vale per tutti i fogli.
Una volta eseguita stando nel foglio interessato, la routine cancella la 2^ tabella (dopo la copia a fianco delle prima) e non funzionerà più finche non ci saranno 2 tabelle che iniziano in col. B
Option Explicit
Sub CopiaTabella()
Dim Cnt As Long, mRng As Range, Occurrence As Long, lCol1 As Long, lCol2 As Long
Dim rTab As Long, LastR As Long, c As Object, firstaddress As String, DelFrom As Long
Const ToFind As String = "#"
Set mRng = Range("B:B")
Occurrence = 2
Cnt = 0
With mRng
Set c = .Find(ToFind, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
firstaddress = c.Address
lCol1 = Cells(c.Row, 2).End(xlToRight).Column
Do
Cnt = Cnt + 1
rTab = c.Row
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
If Cnt = 2 Then
lCol2 = Cells(rTab, 2).End(xlToRight).Column
DelFrom = Application.WorksheetFunction.Max(lCol1, lCol2) + 2
Range(Cells(1, DelFrom), Cells(Rows.Count, Columns.Count)).ClearContents
LastR = Range("B" & rTab).End(xlDown).Row
Range(Cells(rTab, 2), Cells(LastR, lCol2)).Copy
Cells(4, DelFrom).PasteSpecial
Range(Cells(rTab, 2), Cells(LastR, lCol2)).ClearContents
If DelFrom - lCol1 > 2 Then
Range(Cells(1, lCol1 + 1), Cells(Rows.Count, DelFrom - 2)).Delete Shift:=xlToLeft
End If
Application.Goto Range("A1"), True
Exit Sub
End If
MsgBox "tabella non trovata"
End Sub
Se servono i commenti fammi sapere che li inserisco.
saluti
[Modificato da dodo47 17/07/2017 19:28] Domenico
Win 10 - Excel 2016 |
| | Post: 12 | Registrato il: 04/03/2017
| Città: CAPACCIO | Età: 52 | Utente Junior | 2007 | | OFFLINE | |
|
18/07/2017 21:10 | |
Ciao dodo47,si le colonne sono sempre A-M.
Comunque era quello che cercavo.
Sei stato bravissimo. Grazie |
| | Post: 1.486 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
19/07/2017 09:22 | |
Ciao e grazie per il riscontro.
A chi dovesse interessare, la macro ("mirata" all'esigenza di Carmine) affianca le due tabelle, anche se sono composte da un numero di colonne diverso; per esempio la prima tabella di 10 col e la seconda di 8 o viceversa, lasciando sempre lo stesso numero di colonne di intervallo tra le due
saluti
[Modificato da dodo47 19/07/2017 09:23] Domenico
Win 10 - Excel 2016 |
| | Post: 13 | Registrato il: 04/03/2017
| Città: CAPACCIO | Età: 52 | Utente Junior | 2007 | | OFFLINE | |
|
28/07/2017 18:48 | |
Ciao Dodo47, vorrei chiederti: mi potresti aiutare a sistemare le varie tabelle che si susseguono in un altro foglio che io ho preparato? La base del file è la stessa, ma che ti invierò se ho il tuo consenso perchè ho notato che sei molto bravo. |
| | Post: 1.513 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
28/07/2017 19:13 | |
Carmine.17, 28/07/2017 18.48:
Ciao Dodo47, vorrei chiederti: mi potresti aiutare a sistemare le varie tabelle che si susseguono in un altro foglio che io ho preparato? La base del file è la stessa, ma che ti invierò se ho il tuo consenso perchè ho notato che sei molto bravo.
Ciao
ti ringrazio ma....sono tutti "bravi" coloro che rispondono.
Sottoponi il tuo quesito e probabilmente qualcuno ti risponderà; nei forum non si "indirizza" una richiesta ad un particolare utente, leggi bene il regolamento:
"2.8..............Le discussioni indirizzate ai singoli utenti verranno chiuse e cancellate.........."
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 14 | Registrato il: 04/03/2017
| Città: CAPACCIO | Età: 52 | Utente Junior | 2007 | | OFFLINE | |
|
29/07/2017 16:56 | |
Va bene e scusami. |
| | Post: 1.517 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
29/07/2017 16:59 | |
ciao
nessun problema e non c'è nulla di cui scusarti; solo atteniamoci alle regole dei vari forum...
Come detto, sottoponi il tuo problema....
saluti
[Modificato da dodo47 29/07/2017 17:00] Domenico
Win 10 - Excel 2016 |
|
|