Loop through certain cells column

Hello people I hade made following code but I dont get it work,

I want to loop through the whole column,
then take the each cellvalue from column "L" *1.35
put the new result same row but column K




I got this code so far

Dim ws As Worksheet 
 
 
For Each ws In ThisWorkbook.Worksheets 
    Dim c As Range 
     
     
    For Each c In ws.UsedRange.Columns("L").Cells 
         
         
        Dim mycell As String 
        Dim nomatchfom As String 
         
        mycell = c.Value 
        nomatchform = 1.35 
         
         
        myresult = Val(mycell * nomatchform) 
         
        MsgBox myresult 
         
    Next c 
Next ws

Does this help?

Sub elmnasx()

Dim ws As Worksheet
Dim c As Range
For Each ws In ThisWorkbook.Worksheets
With ws
    For Each c In .Range("K2:K" & ws.UsedRange.Rows.Count)
         c.Value = c.Offset(, -1).Value * 1.35
    Next c
End With
Next ws
End Sub

I get this error
run-time error '13':
type mismatch

RMpQMzc.png

Try:

Sub elmnasx()

Dim ws As Worksheet
Dim c As Range
For Each ws In ThisWorkbook.Worksheets
With ws
    For Each c In .Range("K2:K" & .UsedRange.Rows.Count)
         c.Value = c.Offset(, -1).Value * 1.35
    Next c
End With
Next ws
End Sub

I solved it by myself

Sub NoMatch()

ActiveWS = ActiveSheet.UsedRange.Rows.Count 'count the number of rows used'
Dim cell As Range

For Each cell In Range("L1:L" & ActiveWS) 'define range of cells
    If InStr(1, cell.Value, "", vbTextCompare) > 0 Then ' if zero
    myresult = Val(cell.Value * 1.35) ' math formula
    Range("P" & cell.Row).Value = myresult 'result of math formula + cellvalue also do add in column P
    End If
Next

End Sub

Cross posted at http://www.vbaexpress.com/forum/show...oop#post326842