Questo sito utilizza cookie, anche di terze parti, per migliorare la tua esperienza e offrire servizi in linea con le tue preferenze. Chiudendo questo banner, scorrendo questa pagina o cliccando qualunque suo elemento acconsenti all’uso dei cookie

Rimani informato sugli aggiornamenti di SOS-OFFICE. Inserisci il tuo indirizzo e-mail: Informativa sulla privacy

Dati da listbox a file esterno

Vai
1 Anno 5 Mesi fa #579 da defra
COM_KUNENA_MESSAGE_CREATED_NEW
Ciao a tutti,
sono un nuovo utente :lol: e spero nel vostro aiuto per poter risolvere questo mio problema un pò spinoso :dry:
Ho una listbox con dei dati prelevati da una cartella esterna all'userform stessa.
Io avrei la necessità di trasferire tali dati in un'altra cartella esterna rispettando le righe, nel senso che i dati me li deve aggiungere e non sovrascrivermeli.
Di seguito il codice che ho ma che non funziona:
Dim i As Integer
Dim destWB As Workbook
Dim SH_Sheet3 As Worksheet
Const sCartella_Di_Destinazione As String = _
          "Esempioreport.xlsx"    '<<=== Modifica
    Const sFoglio_Di_Destinazione As String = "Sheet2"
Set destWB = Workbooks(sCartella_Di_Destinazione)
    With destWB
        Set SH_Sheet2 = .Sheets(sFoglio_Di_Destinazione)
End With
    With SH_Sheet2

For i = 0 To Me.ListBox1.ListCount - 1
    n = Sheets("Sheet2").Cells(Rows.Count, i + 9).End(xlUp).Row
    Sheets(2).Cells(n + 1, i + 9).Value = Me.ListBox1.List(i)
Next i
Ringrazio in anticipo chi vorrà aiutarmi e buona continuazione a tutti :)

Si prega Accedi o Crea un account a partecipare alla conversazione.

Vai
1 Anno 4 Mesi fa #584 da Alessandra
COM_KUNENA_MESSAGE_REPLIED_NEW
allega un file con l'esempio. Sarà più facile aiutarti

Si prega Accedi o Crea un account a partecipare alla conversazione.

Tempo creazione pagina: 0.316 secondi
Powered by Forum Kunena
Joomla templates by a4joomla