Sayfaları değişkene atamak

[Korhan Ayhan]

Selam arkadaşlar,

Aşağıdaki prosedürde bulunan Min(Sheets("DATA1") kısmında sayfa olarak 1 sayfa verilmiş bunu (DATA1,DATA2.....DATA15) aralığını nasıl verebilirim. Yardımlarınızı bekliyorum.

Dim ARA1 As Double, ARA2 As Double
ARA1 = WorksheetFunction.Min(Sheets("DATA1").[E1:E65536])
ARA2 = WorksheetFunction.Max(Sheets("DATA1").[E1:E65536])
If ARA1 >= TextBox5.Value * 1 And ARA2 <= TextBox6.Value * 1 Then
MsgBox ("Zimmetlemek istediğiniz seri aralığından" _
& Chr(10) & "" & ARA1 & "-" & ARA2 & " seri aralığı daha önceden zimmetlenmiştir." _
& Chr(10) & "Lütfen girdiğiniz değerleri kontrol ediniz."), vbExclamation, "DİKKAT !"
TextBox5.Value = ""
TextBox6.Value = ""
TextBox5.SetFocus
Exit Sub
End If

 

[Levent Menteşoğlu]

Bunu iki türlü yapabilirsiniz.

1.yazım şekli

[vb:1:23be4cd869]ara1 = WorksheetFunction.Min(Sheets("DATA1").[a1:a65536], Sheets("DATA2").[a1:a65536], Sheets("DATA3").[a1:a65536],..........)[/vb:1:23be4cd869]

2.yazım şekli olarak bir döngü kullanabilirsiniz.

[vb:1:23be4cd869]Dim ARA1 As Double, ARA2 As Double
For a = 1 To 15
ARA1 = WorksheetFunction.Min(Sheets("DATA" & a).[E1:E65536])
ARA2 = WorksheetFunction.Max(Sheets("DATA" & a).[E1:E65536])
If ARA1 >= TextBox5.Value * 1 And ARA2 <= TextBox6.Value * 1 Then
MsgBox ("Zimmetlemek istediğiniz seri aralığından" _
& Chr(10) & "" & ARA1 & "-" & ARA2 & " seri aralığı daha önceden zimmetlenmiştir." _
& Chr(10) & "Lütfen girdiğiniz değerleri kontrol ediniz."), vbExclamation, "DİKKAT !"
TextBox5.Value = ""
TextBox6.Value = ""
TextBox5.SetFocus
Exit Sub
End If
Next[/vb:1:23be4cd869]

 

[Korhan Ayhan]

Teşekkür ederim. :hey: