mi collego alla discussione
https://forum-test.openoffice.org/it/fo ... ae28337784
Per esporre una ulteriore titubanza, che seppur correlata è palesemente off-topic rispetto alla suddetta discussione;
Utilizzando lo stesso file come Esempio, si vuole rendere l'intervallo "fisso" del Cerca.Vert (B2:C10) più "Dinamico", (cosa necessaria nel caso di aggiunta/eliminazione righe) ho provato a definire l'intervallo tramite PrimaCellaDelRange e UltimaCellaDelRange, per poi sostituirli nella formula e utilizzarli come riferimenti per le celle dell'intervallo; ho utilizzato il seguente codice, ma sto sbagliando qualcosa e va in errore; il primo errore che trovo sembra essere focalizzato su FormulaQuantita = "=CERCA.VERT(B2;Elenco."& PrimaCellaDelRange &":"& UltimaCellaDelRange &";2)"
Codice: Seleziona tutto
Sub pulsAggiungi
Dim NuovoProdotto As String
Dim NuovaQuantita As String
Dim FormulaQuantita As String
Dim FormulaProdotto As String
Dim FoglioElenco as Object
Dim FoglioRiepilogo as Object
Cursore = FoglioAttivo.createCursor
UltimaRiga = Cursore.RangeAddress.EndRow
UltimaColonna = Cursore.RangeAddress.EndColumn
'Cursore.gotoEndOfUsedArea(false)
PrimaCellaDelRange = foglioAttivo.GetCellByPosition (1,1)
UltimaCellaDelRange = foglioAttivo.GetCellByPosition (UtlimaColonna,UltimaRiga)
FormulaProdotto = "=COLLEGAMENTO([...])"
FormulaQuantita = "=CERCA.VERT(B2;Elenco."& PrimaCellaDelRange &":"&UltimaCellaDelRange &";2)"
[...]
Parte dove vengono inserite le righe necessarie sui fogli Elenco e Riepilogo, si apre l'InputBox, si trasmettono i dati al foglio Elenco e su riepilogo di riflesso, si esegue l'inserimento del nuovo foglio se non esiste già.
[/...]
End Sub
Un consiglio su come risolvere?
Grazie mille