- Katılım
- 15 Mart 2005
- Mesajlar
- 42,243
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
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
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