Left Function

[VBABEGINER]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call ColBT
End Sub

Public Function ColBT() '(rng As Range) As Double
Dim i
For i = 13 To Range("BT13").End(xlDown).Row
Cells(i, "F") = Left(Cells, Len(Cells) - 3) & Cells(i, "BT")
Next
End Function

I want to use Left function On Col BT and then i copy this value to COl F.
Problem is unble to use Left function.
Any one correct my code, pls tell me what i did mistke?

 

[VoG]

You are missing the row and column references

Cells(i, "F") = Left(Cells(?,?), Len(Cells(?,?) - 3) & Cells(i, "BT")

 

[VBABEGINER]

but any way i am not getting this formula answer?

Can u pls suggest

 

[VoG]

Have you amended your code? If so, please post it.

 

[VBABEGINER]

i didnt get you sir?
what is mean of amended?

 

[VoG]

Have you changed the code to include the rows and columns?

Cells(i, "F") = Left(Cells(?,?), Len(Cells(?,?) - 3) & Cells(i, "BT")

 

[VBABEGINER]

Yes, let me show u my code.

Public Function ColBT() '(rng As Range) As Double
Dim i
For i = 13 To Range("BT13").End(xlDown).Row
Cells(i, 6) = Left(Cells(i, "BT"), Len(Cells(i, "BT") - 3)) '& Cells(i, "BT")
Next
End Function

 

[VoG]

I think you have a ) in the wrong place

Cells(i, 6) = Left(Cells(i, "BT"), Len(Cells(i, "BT")) - 3) '& Cells(i, "BT")

 

[VBABEGINER]

but is this right code?

simply,,
col BT contains value like 123 km

i dont want "km" in col F.

if my code is wrong, can u pls suggest what is the rright code?

 

[VoG]

Try

Cells(i, 6).Value = Val(Trim(Left(Cells(i, "BT").Value, InStr(Cells(i, "BT").Value, " "))))