hi all,
i have this Save macro which im using with data mapping
Sub Cont_Save()
With Sheet10
If .Range("C6").Value = Empty Then
MsgBox "Please enter todays date" 'This can be changed later
Exit Sub
End If
ContRow = .Range("C99999").End(xlUp).Row + 1 'First Available Row
For ContCol = 3 To 13 'Increase if adding new cols
.Cells(ContRow, ContCol).Value = .Range(.Cells(11, ContCol).Value).Value 'Saves new contact in first empty row In database
Next ContCol
.Shapes("ExistContGrp").Visible = msoCTrue
.Shapes("NewContGrp").Visible = msoFalse
.Range("B7").Value = False 'Set New Contact to False
End With
End Sub
and when ever i run the macro i get an error on the following line
.Cells(ContRow, ContCol).Value = .Range(.Cells(11, ContCol).Value).Value
the
.Range(.Cells(11, ContCol).Value).Value
is supposed to be when the cell row is supposed to start which in this case is row 11, which is correct.
i just cant understand why, i was sure i did everything right....obviously not!!!!
Bookmarks