Answers for "vba range if"

vba excel range loop

'Define variables
Dim range as range
Dim cell as range

'Define your range in your worksheet
Set range = Sheets("Example").range("A1:A5")

'Loop through every cell in our defined range (range1)
For each cell in range
	'Every value for each cell in range ("A1:A5") will be "Test1"
	cell.value = "Test1"
 	'Every value for each cell in range ("B1:B5") will be "Test2"
    cell.offset(0,1).value = "Test2"
    'Every value for each cell in range ("C1:C5") will be "Test3"
    cell.offset(0,2).value = "Test3"
Next cell

excel vba range contains

' Tests if a range contains a value
Sub TestMe()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(1)
    If Application.WorksheetFunction.CountIf(ws.Range("A2:A10"), _
           ws.Range("A1")) = 0 Then
        Debug.Print "No match"
    Else
        Debug.Print "Range contains value " & ws.Range("A1").Cells(1, 1).Value
    End If
End Sub