Find og opdater records
jeg har et excel ark, hvor jeg på sheet 2 har rådata, som overskrives med nye data. Disse rådata skal så opdateres på sheet 1.Nedenstående kode kan finde ud af om record eksistere og hvis ikke indsættes denne record.
Men hvordan får jeg den til at opdatere eksisterende record med opdateret rådata?
Dim iLast As Long
Dim iCounter As Integer
iLast = Sheets(2).Range("I" & Application.Rows.Count).End(xlUp).Row
Dim rng As Range
For iCounter = 2 To iLast
Set rng = Sheets(1).Range("J:J").Find(Sheets(2).Range("I" & iCounter).Value)
If rng Is Nothing Then
Sheets(2).Range("B" & iCounter & ":" & "M" & iCounter).Copy
Sheets(1).Range("C" & Sheets(1).Range("J" & Application.Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteAll
Range("B2").Select
'Insert mailto link
Selection.Copy
Sheets(1).Range("B" & Sheets(1).Range("J" & Application.Rows.Count).End(xlUp).Row).Select
'Range("B3").Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
Else
MsgBox "update existing row with new data - how to"
End If
Next iCounter