Mismatch Error

[MarkPuglia]

been tinkering with this for hours, any advice of what the mismatch might be coming from

Private Sub CommandButton1_Click()With ThisWorkbook.Worksheets("Elix2 Custom Systems")
    Set rngData = .Range("G13:G29")
    Set rngNum = .Range("C8")
      rngData = rngData * rngNum
End With
End Sub

 

[JoeMo]

I assume you are getting that error on this line:

rngData = rngData * rngNum

Can you explain what you want to accomplish with that line? Are you trying to multiply the value of each cell in rngData by the value in the cell rngNum?

 

[MarkPuglia]

Yes thats the line. And its just taking the value from one cell (rngNum) and multiplying that into the entire range of the (rngData) so that when they pick the value in a drop down for the rngNum it will automatically multiply the rngData that the user originally entered by that number

 

[JoeMo]

Yes thats the line. And its just taking the value from one cell (rngNum) and multiplying that into the entire range of the (rngData) so that when they pick the value in a drop down for the rngNum it will automatically multiply the rngData that the user originally entered by that number

Try it like this:

Set rngdata = .Range("G13:G29")
    Set rngNum = .Range("C8")
    For Each c In rngdata
      c.Value = c.Value * rngNum.Value
    Next c

 

[Joe4]

A different method of doing it with no loops:

    Sheets("Elix2 Custom Systems").Activate
    Range("C8").Copy
    Range("G13:G29").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False