Avatar billede overisen Novice
08. december 2023 - 20:00

overskrive datasæt hvis det allerede eksistere

Jeg har nedenstående VBA-makro til excel. Den går ud på, at  kopier en række data ("Field1", "Field2", "Field3", "Field4", "Field5", "Field6") over i et selvstændigt regneark, hvorfra der så kan laves selvstændige beregninger.

Er der mulighed for at udvide koden således at hvis "Field1" (kundenummer) allerede eksistere i destinationsregnearket, så overskrives de eksisterende data med de nye?

På forhånd tak :-)

Sub CopyDataToSheetB()

    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim nextEmptyRow As Long
    Dim sourceNames As Variant
    Dim i As Integer
    Dim content As Variant
    Dim destinationSti As String
       
    destinationSti = "C:\test\Regneark.xlsm"
   
    Workbooks.Open destinationSti
       
    'data ligger i aktuel regneark kopies til regnark B
    Set wsDest = ActiveWorkbook.Worksheets("Worksheet B")

    'Definerede celler
    sourceNames = Array("Field1", "Field2", "Field3", "Field4", "Field5", "Field6")

    ' Finder næste tomme række i Worksheet B"
    nextEmptyRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row + 1

    ' Finder næste feldt
   
    For i = LBound(sourceNames) To UBound(sourceNames)

        ' Find the worksheet containing the named range
        Set wsSource = ThisWorkbook.Names(sourceNames(i)).RefersToRange.Worksheet

        ' henter data i navneområdet
        content = wsSource.Range(sourceNames(i)).Value
 
 
        ' placere datainhold i næste tomme  række i "Worksheet B", i antal kolonner
        wsDest.Cells(nextEmptyRow, i + 1).Value = content

    Next i

'lukker modtagerregnearket og gemmer ændringerne

Workbooks("Regneark.xlsm").Close SaveChanges:=True

    MsgBox "Data kopieret  to Worksheet B."

End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester