VBA

VBA

'turn off calculations to make it speedy
Application.Calculation = xlManual
'turn calculations back on.
Application.Calculation = xlAutomatic

'For loop
sub loop()
  For i = 1 To 206
  Next i
End sub

Sheets("Sheet1").Select
Range("A2").select
range(A2:B2).select
ActiveCell.FormulaR1C1 = _ 
Selection.End(xlDown)).Select
Selection.End(xlToRight)).Select

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

activecell.select
activecell.value
activecell.offset(1,1).select

.Value = "=" & selectedvalueoffset

intcolumn = Target.Column
introw = Target.Row

Dim rng As Range
Set rng = Range(Selection.Address)
    For Each c In rng.Cells
    c.select
    

Sub condform()
Dim rng As Range

Set rng = Range(Selection.Address)
    For Each c In rng.Cells
    c.Select
    selectedvalueoffset = ActiveCell.Offset(0, -1).Address
    ActiveCell.Offset(0, -1).Select
    myrow = ActiveCell.Row
    mycol = ActiveCell.Column
    ActiveCell.Offset(0, 1).Select
    cll = Cells(myrow, mycol)
    
    
    Selection.FormatConditions.AddIconSetCondition
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .ReverseOrder = False
        .ShowIconOnly = False
        .IconSet = ActiveWorkbook.IconSets(xl3Arrows)
    End With
    With Selection.FormatConditions(1).IconCriteria(2)
        .Type = xlConditionValueFormula
        .Value = "=" & selectedvalueoffset
        .Operator = 7
    End With
    With Selection.FormatConditions(1).IconCriteria(3)
        .Type = xlConditionValueFormula
        .Value = "=" & selectedvalueoffset
        .Operator = 5
    End With
    Next
    
End Sub

    

Sub foreach()
Set Rng = Range("a2:b5")
For Each c In Rng.Cells
    c.Value = "test"
    Next
    
End Sub