Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

riempire automaticamente range di celle

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

riempire automaticamente range di celle

Postdi larzillo » 22/01/18 04:17

buongiorno
avrei bisogno di una macro che selezioni un range di celle per esempio C5:M15 e che in automatico popoli tutte le celle del range a partire dalla prima a sinistra C5 , e procedendo verso destra sulla riga riempia le cella di lettere maiuscole tipo cella C5=A ,C6=B, usando un numero predefinito di lettere per esempio A-B-C-D-E-F e poi continuasse con A -B ecc il tutto sempre di seguito e rimanendo all'interno del range (tabella)come righe e colonne e che finisse il riempimento in corrispondenza dell'ultima cella del range in basso a destra nell'esempio M15,
per complicare le cose il range e il numero di lettere da usare dovrebbe prelevarli da celle predefinite nel foglio tipo in B2 legge il range
e in B4 il numero di lettere da usare

grazie
larzillo
Utente Junior
 
Post: 40
Iscritto il: 20/09/15 22:55

Sponsor
 

Re: riempire automaticamente range di celle

Postdi Anthony47 » 22/01/18 12:29

Se vuoi farlo con formule, selezioni l'area orizzontale da popolare (es C5:M15), scrivi nella barra della formula
Codice: Seleziona tutto
=CODICE.CARATT(65+RESTO(RIF.COLONNA(A1:Z1)-1;$B$4))
Confermi con Contr-Maiusc-Enter, non il solo Enter.

In B4 devi scrivere il numero di caratteri da riciclare.

Se proprio vuoi farlo con macro, supposto che in B2 tu ci scriverai un range valido (es C8:M8) e in B4 ci scriverai un numero intero a piacere, allora metti in un modulo standard del vba, es Modulo1, questo codice
Codice: Seleziona tutto
Sub Cippa()
Dim myC As Range, I As Long
'
On Error GoTo EXA
Range(Range("B2")).ClearContents
For Each myC In Range(Range("B2").Value)
    myC.Value = Chr(65 + I Mod Range("b4"))
    I = I + 1
Next myC
EXA:
On Error GoTo 0
End Sub
All'occorrenza lancerai la Sub Cippa

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 16798
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: riempire automaticamente range di celle

Postdi Marius44 » 22/01/18 12:35

Ciao
Scrivi in A2 quale è l'intervallo dove vuoi le lettere
scrivi in B2 le lettere da scrivere SEPARATE dal segno - (meno); per es. A-B-C-D ecc.

Poi inserisci in un Modulo standard di VBA il seguente codice e associalo ad un pulsante da inserire nel Foglio
Codice: Seleziona tutto
Sub Popola()
Dim c As Range, interv As String, slct As Range
interv = Range("A2").Value
Set slct = Range(interv)
nLet = Cells(2, 2).Text
tpL = Split(nLet, "-")
a = 0
For Each c In slct
    c.Value = tpL(a)
    a = a + 1
    If a > UBound(tpL) Then a = 0
Next c
End Sub


Fai sapere. Ciao,
Mario


PS - Ciao Anthony. Scusa la sovrapposizione.
Marius44
Utente Senior
 
Post: 479
Iscritto il: 07/09/15 22:00

Re: riempire automaticamente range di celle

Postdi Anthony47 » 22/01/18 12:39

Ciao Mario, non c'e' niente da scusarsi; ora larzillo ha 3 soluzioni...
Avatar utente
Anthony47
Moderatore
 
Post: 16798
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: riempire automaticamente range di celle

Postdi larzillo » 22/01/18 20:05

questo sito comincia a suscitare qualche sospetto, è frequentato da gente troppo preparata e disponibile , forse non sono in italia, mi sembra il paese che vorrei tutti bravi, cortesi e preparati da non credere :D :D :D
grazie
larzillo
Utente Junior
 
Post: 40
Iscritto il: 20/09/15 22:55

Re: riempire automaticamente range di celle

Postdi Anthony47 » 22/01/18 23:04

Se ti da fastidio dillo e scoprirai il rovescio della medaglia
:diavolo: :diavolo:
Alla prossima!
Avatar utente
Anthony47
Moderatore
 
Post: 16798
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: riempire automaticamente range di celle

Postdi larzillo » 23/01/18 00:57

un fastidio cosi, :oops: tutta la vita :) alla prossima
grazie a tutti
larzillo
Utente Junior
 
Post: 40
Iscritto il: 20/09/15 22:55


Torna a Applicazioni Office Windows


Topic correlati a "riempire automaticamente range di celle":

Dimensioni celle excel
Autore: nippon
Forum: Software Windows
Risposte: 1

Chi c’è in linea

Visitano il forum: Nessuno e 21 ospiti