Select case

[honestman]

Merhaba,

Aşağıdaki formülü select case kullanarak nasıl kurgularım acaba?


Teşekkürler


sonucu AC2 sütununa yazdır

yapmak istediğim Z sütunundaki tüm değerler için olacak fonksiyn olduğu için Z2 yazmak zorunda kaldım..

=IF(Z2<=1500;1500;IF(Z2<=4999;5000;IF(Z2<=9999;9999;IF(Z2>10000;"10.000'DEN BÜYÜK"))))

 

[mancubus]

böyle de kullanılabilir.

Sub test()

Dim ss As Long

Application.DisplayAlerts = False
Application.ScreenUpdating = False

ss = Range("Z" & Rows.Count).End(xlUp).Row

With Range("AC2:AC" & ss)
    .Formula = "=IF(Z2<=1500,1500,IF(Z2<=4999,5000,IF(Z2<=9999,9999,IF(Z2>[COLOR="Red"]=[/COLOR]10000,""10.000'DEN BÜYÜK""))))"
    Calculate
    .Value = .Value
End With

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

 

[mancubus]

Sub test()

Dim ss As Long, i As Long

Application.DisplayAlerts = False
Application.ScreenUpdating = False

ss = Range("Z" & Rows.Count).End(xlUp).Row

For i = 2 To ss
    Select Case Range("Z" & i).Value
        Case Is <= 1500
            Range("AC" & i).Value = 1500
        Case Is <= 4999
            Range("AC" & i).Value = 5000
        Case Is <= 9999
            Range("AC" & i).Value = 9999
        Case Else
            Range("AC" & i).Value = "10.000'DEN BÜYÜK"
    End Select
Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub