@zack_46, chiede:
Problema 1:
Avrei la necessità di scrivere in una riga composta da 6 celle e alla fine della 6 cella andare a capo automaticamente,tutto questo per tutto il modulo.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F1:F65536")) Is Nothing Then Cells(Target.Row + 1, 1).Select
End Sub
Non conoscendo la Release di Excel che utilizzi (SP3 ???) ho prposto 65536 come ultima Riga.
Problema 2 :
Sto creando un modulo per la preventivazione ed a volte può essere distribuito su più pagine.
Il foglio è composto da una parte fissa in alto con l'intestazione della ditta e una parte bassa dove si sommano tutti i parziali dell'offerta.
Avrei necessità di aggiungere righe nella 'parte descrittiva' spostando sull'eventule seconda/terza pagina la parte sotto composta da celle in cui visualizzo la somma dei parziali.
Spero di essere stato abbatsnza chiaro!
Senza un File d'esempio non riesco ad aiutarti.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013