Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

macro per spostare di una casella i valori

Ultimo Aggiornamento: 12/01/2017 18:38
Post: 16
Registrato il: 04/11/2016
Città: SASSARI
Età: 48
Utente Junior
2010
OFFLINE
12/01/2017 15:17

salve a tutti, mi chiedevo se fosse possibire fare tutto cio che ho citato nel titolo, mi spiego meglio.
ho dei numeri da 0 a 10 con rispettive macro (realizzate grazie all aiuto di questo forum)che inseriscono il valore proprio nelle celle (V41:Y41), MI CHIEDEVO SE ogni volta che inserisco un nuovo valore i numeri inseriti in precedenza potessero spostarsi di una cella indietro dando spazio ad un nuovo numero e eliminando il primo...
non so se mi sono spiegato bene....

es: scrivo 1,2,3,4

nuovo numero 5, ora diventa 2,3,4,5

tutto all interno di 4 celle (v41:y41)

allego file
Post: 16
Registrato il: 04/11/2016
Città: SASSARI
Età: 48
Utente Junior
2010
OFFLINE
12/01/2017 16:38

chi mi puo' aiutare?
chi mi puo' aiutare?
Post: 1.064
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
12/01/2017 17:30

Ciao
così come è stato progettato devi variare tutte le macro;
se è solo per l'ultima cifra un modo è:

....
Dim numCellePiene As Integer
numCellePiene = Application.WorksheetFunction.CountA(Range("V41:X41"))
If numCellePiene = 3 Then
    For c = 22 To 24
        Cells(41, c) = Cells(41, c + 1)
    Next
End If
Cells(41, numCellePiene + 22).Value = 1
...


Se lo devi fare per qualsiasi inserimento va modificato

Saluti

[Modificato da dodo47 12/01/2017 17:32]
Domenico
Win 10 - Excel 2016
Post: 17
Registrato il: 04/11/2016
Città: SASSARI
Età: 48
Utente Junior
2010
OFFLINE
12/01/2017 18:38

ciao #dodo47
e grazie per la tia disponobilita',
la macro potrebbe andare anche bene,
tranne il fatto che a celle vuote sfasa un po... comunque va bene...
se poi riesci a risolvere sarebbe il massimo.
grazie ancora


ho risolto cosi'....
col bottone calcella ho aggiunto questo codice, puo' andare?


Private Sub CommandButton12_Click()
Range("V41:Y41").ClearContents
Range("V41").Select
ActiveCell.FormulaR1C1 = "-"
Range("W41").Select
ActiveCell.FormulaR1C1 = "-"
Range("X41").Select
ActiveCell.FormulaR1C1 = "-"
Range("V41").Select
End Sub
[Modificato da ema.cab 12/01/2017 18:50]
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 15:10. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com