Excel VBA #48 Trasformazione dati in VBA da verticale a tabulare con escamotage

[@massimopumpo5796]

Sig. Gerardo colgo l'occasione di questo video per informarla di un messaggio che le ho scritto sul forumexcel.it. perdoni il mio disturbo confido in lei per un aiuto in merito. Grazie davvero per tutto, è un vero è proprio maestro .

[@francescosedita6938]

Grazie Per vba è sempre un piacere apprendere delle cose nuove. Saluti Francesco

[@gerardozuccala]

Grazie a te Francesco

[@paolocorradin1249]

Sempre molto interessante Per me continua Grazie

[@sergio_molinari]

Gerardo, Grazie per la tua dedizione ed impegno nell'insegnare. Sempre più verso il Top!

[@sscire]

Ottimo Gerardo. Sisi, continua pure con questo tipo di video ... e soprattutto col VBA.

[@enzodamico2967]

Grande come sempre, buona giornata Gerardo

[@grazia6035]

👍

[@ThePero3067]

Come al solito ti posso fare solo i complimenti,spieghi veramente bene. Questo data base é molto piccolo, ma giá si puo notare la lentezza di questo codice. Con un data base di 10mila righe,sarebbe utile aggiungere qualche istruzione per velocizzarlo. Magari potrebbe essere uno spunto per un prossimo video. Ciao Gerardo

[@paolorepetto2698]

Grazie Gerardo 😀 La tecnica per rendere variabile il numero di cella "Range("A" & i)" si può applicare ad esempio ai nomi dei campi (ad. es. di una textbox) di una userform, forse creando una collection. Ho trovato in rete degli esempi scritti ma non un tutorial. Potrebbe essere un'idea farlo 💡

[@ciroliuzzi4072]

Ciao Gerardo, riguardo i blocchi ciò che dovresti ulteriormente precisare é: i valori dei blocchi devono essere disposti tuttu allo stesso modo, in caso contrario, il database si genererebbe in maniera disordinata.

[@giacomodelbianco]

Secondo me fai più che bene ad andare avanti con questi esempi del VBA

[@giacomodelbianco]

Su Resize(Righe, Colonne) stavi mettendo 0 in colonne, probabilmente era corretto 1. Penso che di Default prende il valore 1.

[@ranger1519]

Prima o poi ti denuncio per spaccio di excel

[@paolopeterle5792]

potresti fare un tutorial nel caso i bocchi non fossero costituiti tutti dallo stesso numero di righe?

[@fender569]

Ciao Gerry, potresti far qualcosa sulle listview? Grazie mille

[@gerardozuccala]

Ciao Fender, se trovo il tempo più che volentieri

[@fender569]

@@gerardozuccala grazie, sono anni che ti seguo, sei bravissimo

[@alessiopustorino85]

L'incremento che hai usato tu, si usa molto nei cicli while in JavaScript.

[@perronemarcello7555]

Option Explicit 'codice per 400mila righe ovvero molte ma molte righe ^_^ Sub trasponi() Dim uRiga As Long, c As Long, i As Long, j As Long Dim Arr() As Variant, cella As Range Range("C:F").ClearContents uRiga = Range("A" & Rows.Count).End(xlUp).Row / 4 ReDim Arr(1 To uRiga, 1 To 4) c = 1 For i = 1 To uRiga For j = 1 To 4 Arr(i, j) = Cells(c, 1) c = c + 1 Next j Next i Range("C1", "F" & uRiga) = Arr With Range("C1:F1") .Interior.ColorIndex = 5 .Font.ColorIndex = 2 End With End Sub

[@gerardozuccala]

spettacolo!! anziché copia ed incolla fai qualcosa di più leggero assegnando un valore, giù sotto a studiare

[@absamagraphic]

ciao ma come mai non è conveniente usare End(xlDown) per avere il numero di righe ma fargli trovare l’ultima con (xlUp)?

[@gerardozuccala]

Ciao Perchè se c'è qualche cella vuota (nel tragitto dall'alto verso il basso) la cella attiva si ferma quando trova l'ultima cella piene", un saluto

[@absamagraphic]

Ho dato per buono di avere sempre celle piene è vero ottimo trick