Boogerbut74
New Member
- Joined
- Oct 17, 2022
- Messages
- 26
- Office Version
- 365
- Platform
- Windows
I am trying to add all the data from cell B3 to the last column with data in row B
VBA Code:
Set devTrack = New ArrayList
' code bellowis brocken
devTrack.Add.Sheets("Historian deviation").Range(. cells(3,B), .Cells(3,Columns.Count.End))
'code above is broken
Set columnrng = Sheets("Deviation tracker").Columns.Count.End(xlToLeft).Offset + 1
For i = 1 To 7
'If their is a duplicate it delete that row in the historian
Sheets("Historian Deviation").Range("A" & i).Select
If devTrack.Contains(ActiveCell) Then
Dim element As Variant
For Each element In devTrack
Debug.Print element
Next element
' Sheets("Historian Deviation").Range(.Cells(i, A), .Cells(i, l)).ClearContents
' This adds the data from historian and adds it to row 3,4,5,6 of the last columb of devtracker sheet and adds 8-24 from the sheet
Else
Range("A" & i).Select
Selection.Copy
Sheets("Deviation tracker").Select
Range("columnrng" & 3).Select
ActveCell.Paste
Application.CutCopyMode = False
Sheets("Historian deviation").Select
Range("B" + i).Select
Selection.Copy
Sheets("Deviation tracker").Select
Range("columnrng" & 4).Select
ActveCell.Paste
Sheets("Historian deviation").Select
Range("D" + i).Select
Selection.Copy
Sheets("Deviation tracker").Select
Range("columnrng" & 5).Select
ActveCell.Paste
Sheets("Historian deviation").Select
Range("K1").Select
Selection.Copy
Sheets("Deviation tracker").Select
Range("columnrng" & 6).Select
ActveCell.Paste
Range("B8:B28").Select
Selection.Copy
Range("columnrng" & 6).Select
ActveCell.Paste
End If
Next
devTrack.Clear
End Sub