riempire automaticamente range di celle

[larzillo]

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

[Anthony47]

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

[Marius44]

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.

[Anthony47]

Ciao Mario, non c'e' niente da scusarsi; ora larzillo ha 3 soluzioni...

[larzillo]

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
grazie

[Anthony47]

Se ti da fastidio dillo e scoprirai il rovescio della medaglia

Alla prossima!

[larzillo]

un fastidio cosi, tutta la vita alla prossima
grazie a tutti