You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] UF Ricerca Materiale – Bottone Elimina-Rispondi a: [RISOLTO] UF Ricerca Materiale – Bottone Elimina
Rispondi a: [RISOLTO] UF Ricerca Materiale – Bottone Elimina2017-11-25T08:47:01+01:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] UF Ricerca Materiale – Bottone Elimina Rispondi a: [RISOLTO] UF Ricerca Materiale – Bottone Elimina

BySalvBySalv
Amministratore del forum
    Post totali: 693

    Ciao REAPAT, una mia svista in quanto il Codice ID ricavato, viene ricavato come Stringa, pertanto nella ricerca dell’ID non viene riconosciuto, questa la Modifica da fare nella Macro che ho scritto sopra.

    '----------------------------------- righe aggiunte
    If sh2.Cells(2, 1) = "" Then rr = 2 Else rr = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1
    For x = 2 To sh1.Cells(Rows.Count, 1).End(xlUp).Row
        If sh1.Cells(x, 7) = Val(k) Then '<--------------- Convertito k in valore Modificare
            Range(sh1.Cells(x, 1), sh1.Cells(x, 8)).Copy sh2.Cells(rr, 1)
            Range(sh1.Cells(x, 1), sh1.Cells(x, 8)).Delete
            Exit For
        End If
    Next x
    '----------------------------------- fine righe aggiunte

    Ciao By Sal :bye:

    Ciao By Sal (8-)
    se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie