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