krashone
00sabato 21 gennaio 2017 13:35
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
krashone
00lunedì 23 gennaio 2017 18:42
Attendo fiducioso
krashone
00domenica 29 gennaio 2017 10:10
Suggerimenti ...
patel45
00domenica 29 gennaio 2017 10:31
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
rollis13
00domenica 29 gennaio 2017 22:35
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 SubPer i risultati dovrai attendere qualche istante.
krashone
00lunedì 30 gennaio 2017 19:08
Perfetto grazie
e per rinominare la scheda in base alla prima cella dei dati importati con l'aggiunta della data !
rollis13
00lunedì 30 gennaio 2017 22:29
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.