Leggere numeri

Hai un problema con Excel?

Nuova discussione

Leggere numeri
di Attilio data: 10/03/2013 08:27:18
Un caro saluto a tutti, era tanto che non venivo qui a darvi fastidio, ma mi serve un , passo alla spiegazione:

Ho un foglio1 dove in una colonna P1:P37 ci sono inseriti dei numeri che scompaiono in base a questa condizione messa in P1 =se(A1:A18;"=1");"";1), quindi in P2 troveremo il numero 2 e così via fino al numero 37, una volta che, la cella A18 conterrà un numero, nelle celle B18 fino alla cella Y18 mi dovrebbero comparire i numeri rimasti visibili nella colonna P1:P37, FINE - Speriamo essermi saputo spiegare, per ogni delucidazione più chiara, chiedete senza farvi nessun problema.........
Correzione....PARDON
di Attilio data: 10/03/2013 08:42:17
Un caro saluto a tutti, era tanto che non venivo qui a darvi fastidio, ma mi serve un , passo alla spiegazione:

Ho un foglio1 dove in una colonna P1:P37 ci sono inseriti dei numeri che scompaiono in base a questa condizione messa in P1 =se(CONTA.SE(A1:A18;"=1");"";1), quindi in P2 troveremo il numero 2 e così via fino al numero 37, una volta che, la cella A18 conterrà un numero, nelle celle B18 fino alla cella Y18 mi dovrebbero comparire i numeri rimasti visibili nella colonna P1:P37, FINE - Speriamo essermi saputo spiegare, per ogni delucidazione più chiara, chiedete senza farvi nessun problema.........
di totygno71 data: 10/03/2013 09:59:36
mmm...
scomparire in che senso? Tipo "sim sala bim?"
A parte gli scherzi, potresti essere un po piu chiaro... io personalmente non ho capito cosa vorresti ottenere_
Ciauz
P.S. cmq credo non serva codice ma solo formula.
di Attilio (utente non iscritto) data: 10/03/2013 10:41:16
Ti ho mandato un esempio, spero che sia spiegato bene li, intanto grazie per la celere risposta
di totygno71 (utente non iscritto) data: 10/03/2013 11:16:53
OK
ma ti sei accorto che i numeri rimasti scritti nella riga b18:y18 potrebbero intersecare la colonna P e quindi sovrascivere la formula i P18?

di totygno71 data: 10/03/2013 11:42:09
Sicuramente si può fare in altri cento modi...
Cmq se i numeri che rimangono in colonna P:P sono >= 15 sovrascrive la formula in P18
ciao

Sub legginumeri()
i = 0
col = 2
r = 18

For Each c In Range("P1:P37")
       
        If c.Value = i Then
        Cells(r, col).Value = i
        col = col + 1
        End If
i = i + 1
        
Next c

End Sub

di totygno71 data: 10/03/2013 11:56:08
ps ti ho allegato esempio
di Attilio (utente non iscritto) data: 10/03/2013 12:11:20
okay, ti ringrazio, ti farò sapere se va bene
di Attilio (utente non iscritto) data: 10/03/2013 14:00:17
Ma non si potrebbe attivare la macro in automatico al riempimento della cella A18?
di totygno71 data: 10/03/2013 18:13:59
Certo!
Utilizza
Worksheet_SelectionChange

Vuoi Approfondire?