Question

I’m having some problems with Mod.

My errors says Incompability

Sub test()    
For a = 1 To 5    
Dim cellValuekm As String    
cellValuekm = Range("C1").Offset(a, 0)    
If Mid(cellValuekm, 9, 1) Mod 2 = 0 Then
    Range("G1").Offset(a, 0) = "Kvinna"
Else
    Range("G1").Offset(a, 0) = "Man"
End If    
Next a    
End Sub

Answer 1

Mid returns a string, format the string to a int/long/double/float ect….

Mid(cellValuekm, 9, 1) Mod 2 = 0 



Sub test()


    For a = 1 To 5
        Dim cellValuekm As String
        cellValuekm = Range("C1").Offset(a, 0)
        If Len(cellValuekm) < 10 Then
            MsgBox "String is less then 10 digits"
        End If            
        If CInt(Mid(cellValuekm, 9, 1)) Mod 2 = 0 Then
            Range("G1").Offset(a, 0) = "Kvinna"
        Else
            Range("G1").Offset(a, 0) = "Man"
        End If
    Next a
End Sub