Experts Required..

[VBABEGINER]

Function FindOperatingMode()
Dim i
Dim j
For j = 13 To i
For i = 13 To Range("BR13").End(xlDown).Row
If Cells(i, "BR") <> "O" Then
Cells(j, "L").Value = "" & Cells(j, "K").Value
End If
Next
End Function

Hey Hi All,
I have stuck pls experts required.
Col Br contains - O , S, D values.
Col K contains some value. eg- 125, 325 etc.
i tryed for,
In the Col "BR", suppose any cells which does contain value "O" (i.e- other than "O")
in this case value contain in col k should get cut and paste into the col L.
Exactly wht i required -
if col BR contain value S or D, that respective cell value in Col k should get cut and paste into the Col L.
Can any one help me on this?, Experts..

 

[VBABEGINER]

Can any one pls suggest?

 

[Ralajer]

Try using only one for loop as you and it should probably be a sub rather than a function.

Sub FindOperatingMode()
    Dim i As Long
    For i = 13 To Range("BR13").End(xlDown).Row
        If Cells(i, "BR").Value <> "O" Then
            Cells(i, "L").Value = Cells(i, "K").Value
        End If
    Next i
End Sub

 

[evnoort]

u can use the cells(row,column).value so not the "BR" (replace row, column with i,j) the column can have an integer value so looping through is easy