stalledräng
New Member
- Joined
- Nov 11, 2002
- Messages
- 4
Ok, I managed to create a macro that steps thorugh every row and check/insert values if certain criteras are met. But it seems like if/elseif statements are very slow (?). Is there a way to optimize this macro either by using if/elseif-statements in a more brilliant way or by using some sort of arrays?
TIA/Staffan
Sub EUCheck()
Application.ScreenUpdating = False
Application.Cursor = xlWait
Range("a2", Range("a2").End(xlDown)).Select
For Each Cell In Selection
If Cell.Offset(0, 11).Value = "SE" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "DK" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "FI" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "DE" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "AT" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "NL" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "BE" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "LU" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "FR" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "GB" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "IT" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "ES" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "PT" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "GR" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "IR" Then
Cell.Offset(0, 12).Value = "EU"
Else
End If
Next Cell
Range("a1").Select
Application.Cursor = xlDefault
Application.ScreenUpdating = True
End Sub
TIA/Staffan
Sub EUCheck()
Application.ScreenUpdating = False
Application.Cursor = xlWait
Range("a2", Range("a2").End(xlDown)).Select
For Each Cell In Selection
If Cell.Offset(0, 11).Value = "SE" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "DK" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "FI" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "DE" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "AT" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "NL" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "BE" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "LU" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "FR" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "GB" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "IT" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "ES" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "PT" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "GR" Then
Cell.Offset(0, 12).Value = "EU"
ElseIf Cell.Offset(0, 11).Value = "IR" Then
Cell.Offset(0, 12).Value = "EU"
Else
End If
Next Cell
Range("a1").Select
Application.Cursor = xlDefault
Application.ScreenUpdating = True
End Sub