ema.cab
00lunedì 9 gennaio 2017 18:35
salve a tutti sono nuovo da queste parti , avrei un problema , magari ci sta qualcuno che possa risolverlo....
in pratica ho creato dei pulsanti che vanno a scrivere il numero da 1 a 10 ( quindi 10 pulsanti) in una singola cella . e possibile scriverli in 4 celle ....
mi spiego clicco un pulsante a caso con n' 4 e va su cella A1, pulsante 10 cella A2, 7 cella A3 , 2 cella A4.... GRAZIE PER ORA
cromagno
00lunedì 9 gennaio 2017 18:41
Ciao,
allega il file... sia per farci capire quello che hai fatto e soprattutto per non farcelo ricreare da zero per poter fare delle prove (visto che ce l'hai già pronto).
cromagno
00lunedì 9 gennaio 2017 18:48
Re:
[EDIT] se il file ha estensione
.xlsm devi "zipparlo" per poterlo allegare.
ema.cab
00lunedì 9 gennaio 2017 19:42
COME
COME SI ALLEGA? ..SCUSATE....
alfrimpa
00lunedì 9 gennaio 2017 19:46
Nella finestra di risposta in basso a sinistra c'è il pulsante "Carica file/foto"
ema.cab
00lunedì 9 gennaio 2017 20:16
SCUSATE LA MIA IGNORANZA MA NON LO TROVO.....
ema.cab
00lunedì 9 gennaio 2017 20:24
cromagno
00lunedì 9 gennaio 2017 20:32
ma quindi ti servirà anche un tasto per cancellare le 4 celle...altrimenti continuerai a scrivere fino alla fine delle colonne.
ema.cab
00lunedì 9 gennaio 2017 20:38
SI ANCHE.... ma quello che io intendo e' che i valori che vado a inserire devono essere solo nelle 4 celle .... a prescindere dal numero che clicco... non so se mi sono spiegato.
ema.cab
00lunedì 9 gennaio 2017 20:40
in pralica il primo numero nella prima il secondo nella seconda e cosi' via fino al quarto....
cromagno
00lunedì 9 gennaio 2017 20:50
Si, capito...
dopo cena, se nessuno è ancora intervenuto, provo a scriverti qualcosa.
ema.cab
00lunedì 9 gennaio 2017 20:52
ti ringrazio....
alfrimpa
00martedì 10 gennaio 2017 09:29
Ciao Ema
Ti riallego il tuo file con le macro associate ai pulsanti e ne ho aggiunto uno per la cancellazione del range A10:D10
Questo l'esempio delle macro associate ai pulsanti; sono tutte uguali tranne che per il valore.
vb
Private Sub CommandButton1_Click()
Dim numCellePiene As Integer
numCellePiene = Application.WorksheetFunction.CountA(Range("A10:D10"))
Cells(10, numCellePiene + 1).Value = 1
End Sub
Fai sapere se era questo quello che volevi
ema.cab
00martedì 10 gennaio 2017 13:46
ti ringrazio sei stato molto gentile... e' perfetto....
ema.cab
00martedì 10 gennaio 2017 17:34
x alfrimpa
alfrimpa, senti la macro e' perfetta, ma se volessi chE LA MACRO venga eseguita in alre celle?, si puo fare?.... ad esempio range (V40:Y40)....
ho provato a cambiare RANGE ma viene eseguito sempre in cella 10....
alfrimpa
00martedì 10 gennaio 2017 17:45
Ma vuoi fare l'una o l'altra cosa o entrambe?
In ogni caso va cambiato il codice
alfrimpa
00martedì 10 gennaio 2017 17:45
Post doppio
ema.cab
00martedì 10 gennaio 2017 17:56
SE POSSIBILE, in (V40:Y40)....
GRAZIE per il momento...
ema.cab
00martedì 10 gennaio 2017 22:46
CIAO alfrimpa..
dici che cosi' possa andare?.. allego il file
Dim numCellePiene As Integer
numCellePiene = Application.WorksheetFunction.CountA(Range("V:X"))
Cells(41, numCellePiene + 22).Value = 0
alfrimpa
00martedì 10 gennaio 2017 22:52
Se funziona come deve va bene
ema.cab
00martedì 10 gennaio 2017 23:32
mi sa che non va bene...
quando scrivo nelle celle adiacenti sopra o sotto, mi sballa il tutto ...che strazio....
cromagno
00mercoledì 11 gennaio 2017 07:34
Ciao a tutti,
@ema
perchè hai scritto il range in quel modo:
numCellePiene = Application.WorksheetFunction.CountA(Range("V:X")) se vuoi considerare solo il range V41:Y41, devi contare in quel range quante sono le celle piene...
Quindi per il pulsante 1 diventerebbe:
Private Sub CommandButton1_Click()
Dim numCellePiene As Integer
numCellePiene = Application.WorksheetFunction.CountA(Range("V41:X41"))
Cells(41, numCellePiene + 22).Value = 1
End Sub
ema.cab
00mercoledì 11 gennaio 2017 13:35
si hai ragione ... ma quando scrivo nelle celle adiacenti sopra o sotto, mi sballa il tutto.... come risolvo...
cromagno
00mercoledì 11 gennaio 2017 13:37
Re:
ema.cab, 11/01/2017 13.35:
si hai ragione ... ma quando scrivo nelle celle adiacenti sopra o sotto, mi sballa il tutto.... come risolvo...
Se scrivi il range esatto (come ti ho scritto sopra) non sballa nulla.
ema.cab
00mercoledì 11 gennaio 2017 17:34
perfetto ti ringrazio... e grazie a tutti per il tempo speso....