Hatayı anlayabilen var mı acil yardım lazım

[himutku]

Sub Hesapla()
If SORU2.Cells(1, 2) < 1000 Then
SORU2.Cells(2, 2) = 10

ElseIf SORU2.Cells(1, 2) >= 1000 And SORU2.Cells(1, 2) <= 5000 Then
SORU2.Cells(2, 2) = 8

ElseIf SORU2.Cells(1, 2) > 5000 And SORU2.Cells(1, 2) < 10000 Then
SORU2.Cells(2, 2) = 6

Else: SORU2.Cells(2, 2) = 5

End If

SORU2.Cells(3, 2) = SORU2.Cells(2, 2) * SORU2.Cells(2, 3)

End Sub

 

[hamitcan]

Ne yapmak istediğinizi yazsanız...

 

[himutku]

Ne yapmak istediğinizi yazsanız...

satılan malın miktarı 1000den azsa 10 yazdırıcam
1000-5000 arasınadysa 8 falan.


ama kodun yazımında hata var bi yerde çalışmıyor, yapmak istediğim aynı

 

[hamitcan]

Function Hesapla(Tutar As Long)
        Select Case Tutar
            Case Is < 1000: Hesapla = 10
            Case 1000 To 5000: Hesapla = 8
        End Select
End Function
Sub Test()
    MsgBox Hesapla(999)
End Sub