eğer hücre değeri 7 den büyükse farklı sayfa aralığı büyükse farklı aralık seçmek

[nihattt]

İstediğim şey au2 hücresinin değeri 7'ye eşit veya 7'den küçükse A1:I65 aralığını(tek sayfa çıktı), 7'den büyük 14'ten küçük ise a1:I130 aralığını(iki sayfa çıktı), 14'e eşit ve 14'ten büyük ise de a1:I185 aralığını(üç sayfa çıktı) yazdırmak. Aşağıda böyle bir kod yazmaya çalıştım ama olmadı. Bayada uğraştım olmuyor sorun ne acaba.


Private Sub CommandButton2_Click()
If Worksheets("data").Range("AU2") <= 7 Then
Worksheets("rapor").PageSetup.PrintArea = "$A$1:$I$65"
Worksheets("rapor").PrintOut
Exit Sub
End If
If Worksheets("data").Range("AU2") > 7 < 14 Then
Worksheets("rapor").PageSetup.PrintArea = "$A$1:$I$130"
Worksheets("rapor").PrintOut
Exit Sub
End If
If Worksheets("data").Range("AU2") >= 14 Then
Worksheets("rapor").PageSetup.PrintArea = "$A$1:$I$185"
Worksheets("rapor").PrintOut
End If
End Sub

 

[halit3]

bu kodu denermisiniz.

Private Sub CommandButton2_Click()
If Worksheets("data").Range("AU2") <= 7 Then
Worksheets("rapor").PageSetup.PrintArea = "$A$1:$I$65"
Worksheets("rapor").PrintOut
ElseIf Worksheets("data").Range("AU2") > 7 And Worksheets("data").Range("AU2") < 14 Then
Worksheets("rapor").PageSetup.PrintArea = "$A$1:$I$130"
Worksheets("rapor").PrintOut
ElseIf Worksheets("data").Range("AU2") >= 14 Then
Worksheets("rapor").PageSetup.PrintArea = "$A$1:$I$185"
Worksheets("rapor").PrintOut
End If
End Sub

 

[nihattt]

evet gayet güzel çalışıyor tşk ederim. elseif in de kullanılışını öğrenmiş oldum. elseif le denemiştim ama hepsinden sonra end if le bitirdim birazda dengesiz sallayarak eline sağlık tekrardan.