VBA Code:
j = 2 ' Reset j back to 2.
' Sets starting point for copy/paste of data to correct Cell.
Set rFoundCell = Worksheets("overview").Range("G1")
' Starts for loop to search for 'start' vaule on the Overview Worksheet in the Fire Detect column.
For lCount = 1 To Application.WorksheetFunction.CountIf(Worksheets("overview").Range("g1:g200"), start)
' Finds the 'start' value on the Overview Worksheet in the Fire Detect column.
Set rFoundCell = Worksheets("overview").Columns(7).Find(what:=start, after:=rFoundCell, LookIn:=xlValues, lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False)
' Start of the copy/paste data from Overview to new Group # Worksheet in a transpose form.
With rFoundCell
' The offset will move the source from column G to column AM, Source is now column G, not A. Column G = 0, H = 1, F = -1
Worksheets("overview").Range(rFoundCell.Address).Offset(, 32).Copy
Worksheets("group " & start).Activate
' .Cells([row], [column]). .Cells(109, j) moves down to Row 109.
Worksheets("group " & start).Cells(109, j).PasteSpecial xlPasteValues
j = j + 1
End With
Next lCount
Using the above code does what I need, except when it comes to boolean values. All boolean values are converted to raw text. That breaks most if not all of my formulas in the workbook.
What can I replace the .PasteSpecial xlPasteValues with to not change the destination formatting, but keep the boolean source value?