VBA For Each Cell In Range problem

[Mladen82]

Hi,

Im new in VBA world so I dont know how to fix this.

Dim rng As Range, cell As Range, tip As String
Set rng = Range("F2:F5000")
Set tip = Range("C2:C5000")
For Each cell In rng
If Value.tip = "TIP2EV" Then
cell.Value = cell.Value * 2
End If
Next cell

I want if cell in column C="TIP2EV" then cell in column F is cell.value*2

Thanks

 

[most]

Not completely sure what you want to accomplish, but maybe this will get you in the right direction.

For Each cell In tip
If cell.Value = "TIP2EV" Then
cell.Offset(0, 3).Value = cell.Offset(0, 3).Value * 2
End If

 

[Trebor76]

Hi Mladen82,

Welcome to MrExcel!!

Try this:

Option Explicit
Sub Macro1()

    Dim rng As Range, rngMyCell As Range
    
    Application.ScreenUpdating = False
    
    Set rng = Range("F2:F5000")
 
    For Each rngMyCell In rng
        If Range("C" & rngMyCell.Row) = "TIP2EV" Then
            rngMyCell.Value = rngMyCell.Value * 2
        End If
    Next rngMyCell
    
    Application.ScreenUpdating = True
 
End Sub

Regards,

Robert

 

[Michael M]

try

Sub test()
Dim cell As Range, trp As Range
Set trp = Range("C2:C5000")
For Each cell In trp
If cell.Value = "TIP2EV" Then
cell.Offset(, 3).Value = cell.Offset(, 3).Value * 2
End If
Next cell
End Sub

 

[Mladen82]

Oh thats working fine. Thank you. But can you explain whats mean Application.ScreenUpdating

 

[Michael M]

Eliminates the flashing as items on the screen change !!