Run time error 1004: Application defined or object defined error

[m_a_advisoryforall]

Good afternoon everyone!

I am currently rebuilding a CRM system from the internet. Right now I am working on the part which is supposed to load the contacts from one range to another when selected (as shown on the screenshot). This is where I run into problems. I get following error displayed:

Error: Run-time error 1004: Application-defined or object-defined error

Code:
Sub Contact_Load()
Dim ContRow As Long, ContCol As Long
With Sheet1
.Range("B13").Value = True 'Set Contact load to True
ContRow = .Range("B12").Value 'Contact Row

For ContCol = 14 To 17
.Range(.Cells(36, ContCol).Value).Value = .Cells(ContRow, ContCol).Value 'Contact details

Next ContCol
.Range("B13").Value = False 'Set contact load to false
End With
End Sub

Excel shows that the error is supposed to be in the yellow marked line.

Also here is the link to the video of the CRM-system I am rebuilding:

I appreciate every help. Many thanks in advance!

 

[Micron]

May I suggest that you use code tags (vba button on posting toolbar) and paste your code within the tags? This will keep everything properly indented, assuming it is to begin with. Then use a comment to ID the problem line, like this:

Sub Contact_Load()
Dim ContRow As Long, ContCol As Long

With Sheet1
    .Range("B13").Value = True 'Set Contact load to True << this line raises the posted error
    ContRow = .Range("B12").Value 'Contact Row
    For ContCol = 14 To 17
        .Range(.Cells(36, ContCol).Value).Value = .Cells(ContRow, ContCol).Value 'Contact details
    Next ContCol
    .Range("B13").Value = False 'Set contact load to false
End With

End Sub

1004 has umpteen different messages and causes, most of them cryptic (IMO). That line does not err for me, but your .Range line in the loop does. All I can think of is that your cell is formatted in a way that won't accept TRUE, which looks like a boolean value to me, because you're not using "TRUE", which is text. Perhaps check the cell format or use "True" or use numeric values for T/F, which are 0 and -1 respectively.