|
Login
  • Page:
  • 1

TOPIC: sommare numero a cella sinistra

sommare numero a cella sinistra 8 years 2 months ago #8037

  • puccio
  • puccio's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 1
  • Karma: 0
salve a tutti ,sono riccardo e questo è il mio primo posto in questo forum che comunque seguo da un po'.
Ho provato a cercare qualcosa per il mio problema ma non sono riuscito a trovare nulla.
Ho creato una maschera in vba che mi permetta di inserire dei dati , tra questi anche una data che sarà la mia data di inizio.
vorrei assegnare in automatico alla cella a destra di questa ovvero la "data di scadenza", il valore data di inizio + 540 giorni(18 mesi).
quindi se nella maschera inserisco il valore 1/1/2013 vorrei che nella cella a destra in automatico mi inserisse il valore della data di scadenza.
Questo tramite vba perchè nel caso che la riga venisse cancellata, o pulito tutto il foglio di lavoro, la formula verrebbe in ogni caso generata con l'avvio della macro di inserimento dati.

questo pi' o meno e' il codice che ho creato,(non sono un esperto per nulla, quel poco che NON so è dovuto a letture sul forum):

Set Ws3 = Worksheets("Archivio")
Ws3.Select
ur = Range("A" & Rows.Count).End(xlUp).Row + 1

Cells(ur, 1).Value = Me.TextBox2
Cells(ur, 2).Value = "Italia"
Cells(ur, 3).Value = Me.TextBox3
Cells(ur, 4).Value = Me.TextBox4
Cells(ur, 5).Value = Me.TextBox5
Cells(ur, 6).Value = Me.TextBox6
Cells(ur, 7).Formula = 540 + Cells(ur, 7).Offset(, -1).Value


Grazie a chi mi puo' dare una mano in questo

Riccardo
The administrator has disabled public write access.

sommare numero a cella sinistra 8 years 2 months ago #8038

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
Riccardo,
al volo direi di provare questa:
Cells(UR, 7).FormulaR1C1 = "=540 + RC[-1]"

ciao, Lo
Last Edit: 8 years 2 months ago by lorenzo1957.
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.309 seconds