Risultati da 1 a 3 di 3

Discussione: Inserire valori da colona ad un array dinamicamente



  1. #1
    L'avatar di Lety88
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Brindisi
    Età
    29
    Messaggi
    131
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    7

    Inserire valori da colona ad un array dinamicamente

    Buongiorno,

    desideravo sapere come poter inserire i dati contenuti in una colonna K con un range che può variare es:

    1) da K2:K7
    2) da K2:K10

    in un array? grazie per l'attenzione.

  2. #2
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    739
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215
    dai un'occhiata a questo link
    http://www.forumexcel.it/forum/7-dom...na-di-un-range
    e poi implementa un ciclo for per passare i valori all'array...

  3. #3
    L'avatar di Lety88
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Brindisi
    Età
    29
    Messaggi
    131
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    7
    Grazie ggratis, sono riuscita a modificare parte del codice .
    Codice: 
    Sub archivia()    Dim wks1, wks2, wks3 As Worksheet
        Dim x As Integer, y As Integer
        Set wks1 = Worksheets("Principale")
        Set wks2 = Worksheets("Archivio")
        Set wks3 = Worksheets("Fornitori")
        Dim codart, codart_forn As Variant
        codart = wks1.Range("K2:K3").Value 'Questo range lo desidero dinamico, perché non so quante celle si riempiranno
        codart_forn = wks3.Range("A2:A3").Value
        cont = 1
        While cont <= UBound(codart)
            x1 = codart(cont, 1)
            y1 = codart_forn(cont, 1)
            If x1 = y1 Then
                MsgBox "Uguali"
            Else: MsgBox "Diversi"
            End If
            cont = cont + 1
        Wend
        Application.ScreenUpdating = False
        For y = 1 To 1000
            y = wks2.Range("F" & Rows.Count).End(xlUp).Row + 1
            wks1.Range("A2:AH50").Copy
            wks2.Range("A" & y).PasteSpecial xlPasteValues
            Exit For
        Next
        With wks2
            For x = y To 2 Step -1
                If .Range("K" & x).Value = "" Then
                    .Range("K" & x).EntireRow.Delete
                    Application.CutCopyMode = False
                End If
            Next
        End With
        MsgBox "Archiviazione effettuata con successo!"
        Set wks1 = Nothing
        Set wks2 = Nothing
        Application.ScreenUpdating = True
        Application.CutCopyMode = False
    End Sub

Discussioni Simili

  1. Risposte: 4
    Ultimo Messaggio: 30/01/17, 16:31
  2. [Risolto] Riempire array in un modulo e richiamare lo stesso array su un modulo diverso
    Di Domynix nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 07/01/17, 19:36
  3. formula in una colonna
    Di Francoan nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 20/08/16, 19:57
  4. Modificare dinamicamente le date
    Di lala10 nel forum Domande su Excel in generale
    Risposte: 21
    Ultimo Messaggio: 26/04/16, 20:46
  5. Popolare un array con dati di altri array
    Di Lcbsm nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 08/03/16, 20:31

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •