+ Rispondi al Thread
Pagina 2 di 2 primaprima 12
Visualizzazione dei risultati da 11 a 12 su 12

Discussione: Copia dati in prima cella vuota

  1. #11
    L'avatar di dodo47
    dodo47 non è in linea Topo di biblioteca
    Post
    3,107
    'mbè, mi sembrava di averti descritto il perché....

    Il tuo codice, una volta trovata la corrispondenza, continuava a cercarla e quindi accodava

    Comunque:
    codice:
    Sub Copia_Dati()
    x = False
    For i = 1 To 10
        For r = 1 To 10
            If Worksheets("Foglio1").Cells(i, 1) = Worksheets("Foglio2").Cells(r, 1) Then
                Worksheets("Foglio2").Cells(r, 2) = Worksheets("Foglio1").Cells(i, 1)
                x = True
                Exit For
            End If
        Next r
        If x = False Then
            Riga = Worksheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
            Worksheets("Foglio2").Range("A" & Riga) = Worksheets("Foglio1").Cells(i, 1)
        End If
        x = False
    Next i
    End Sub
    saluti

  2. #12
    massimo83 non è in linea Novello
    Post
    10
    Aggiungete pure [RISOLTO] al thread perché il mitico dodo47 non sbaglia un colpo! Entrambe le soluzioni sono funzionanti! Grazie ancora dodo47, sei molto disponibile!

+ Rispondi al Thread
Pagina 2 di 2 primaprima 12

Tag per questa discussione

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi