Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email     « Discussione Precedente | Lista | Discussione Successiva »
Autore

Inserire formule su piu righe da VBA + rinomina foglio

Ultimo Aggiornamento: 30/01/2017 22:29
krashone
Post: 315
Registrato il: 29/09/2003
Città: ACCIANO
Età: 26
Utente Senior
2003/2007
OFFLINE
21/01/2017 13:35
00#1
Salve a tutti,
ho un paio di quesiti da chiedervi:

in allegato trovate il mio file di lavoro Excel/VBA
sul foglio inizio un pulsante per aprire l'interfaccia
nella quale ho inserito un bottone per importare i dati da un altro foglio aperto e copiarli sul foglio chiamato "Temp"

poi vorrei che tramite il secondo bottone riuscissi ad inserire
la seguente formula (=H2-A2) differenza di data per ogni riga sulla colonna J per le sole righe piene

come posso fare ?

inoltre volevo chiedervi come rinominare il foglio "Temp" con un nome specifico con l'aggiunta della prima data inserita nella cella A2

GRAZIE 1000
Excel 2007 - 2010
krashone
Post: 315
Registrato il: 29/09/2003
Città: ACCIANO
Età: 26
Utente Senior
2003/2007
OFFLINE
23/01/2017 18:42
00#2
Attendo fiducioso
Excel 2007 - 2010
krashone
Post: 316
Registrato il: 29/09/2003
Città: ACCIANO
Età: 26
Utente Senior
2003/2007
OFFLINE
29/01/2017 10:10
00#3
Suggerimenti ...
Excel 2007 - 2010
patel45
Post: 3.667
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
29/01/2017 10:31
00#4
hai allegato un solo file, la tua macro ne prevede 3, per questo non ti risponde nessuno.
Per avere risposte devi mettere gli altri in condizione di poter testare il tuo file col minimo sforzo senza doversi ricreare tutte le condizioni per farlo funzionare

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
rollis13
Post: 450
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
29/01/2017 22:35
00#5
Per inserire la formula come hai chiesto puoi modificare la macro CommandButton2_Click in:
Private Sub CommandButton2_Click()

    Dim UR As Long
    Dim x As Long
    
    Range("A2").Select
    ActiveCell.FormulaLocal = "=Conta.valori(Temp!A2:A15000)"
    Sheets("Temp").Select
    
    UR = Range("H" & Rows.Count).End(xlUp).Row     'calcola l'ultima riga utile
    For x = 2 To UR
        Range("J" & x).FormulaLocal = "=H" & x & "-A" & x   'inserisci la formula dinamica
    Next x

End Sub
Per i risultati dovrai attendere qualche istante.

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
krashone
Post: 317
Registrato il: 29/09/2003
Città: ACCIANO
Età: 26
Utente Senior
2003/2007
OFFLINE
30/01/2017 19:08
00#6
Perfetto grazie

e per rinominare la scheda in base alla prima cella dei dati importati con l'aggiunta della data !
Excel 2007 - 2010
rollis13
Post: 451
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
30/01/2017 22:29
00#7
Aggiungi questa riga di codice prima dell' "End Sub", dovrebbe bastare:
    ActiveSheet.Name = "partefissa_" & Format(Range("A2"), "dd-mm-yyyy")
Cambia "partefissa_" con qualcosa di utile. E' anche necessario cambiare il formato della data considerato che il carattere "/" non è permesso.

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Cerca
nei titoli, nei messaggi, con Google
Tag discussione
righe vba foglio
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 06:34. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com

  • Anteprima