Hücredeki Değeri Tamamlama

[ozgurpeh]

Merhaba,

Bir hücredeki sayısal değer 2500 ün altındaysa eğer 2500 e otomatik olarak nasıl tamamlatabiliriz ? eğer 2500 ve üstünde bir değer varsa değişmesin

 

[YUSUF44]

Aşağıdaki kodu ilgili sayfanın kod bölümüne yapıştırırsanız herhangi bir hücreye 2500'den küçük bir sayısal değer girdiğinizde 2500'e tamamlar, metin ya da 2500'den büyük girerseniz işlem yapmaz:

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) = True Then
    If Target < 2500 Then
        Application.EnableEvents = False
        Target = 2500
        Application.EnableEvents = True
    End If
End If
End Sub

Eğer her hücrede değil örneğin A1:A1000 aralığında bu işlemin olmasını istiyorsanız aşağıdaki gibi kullanmalısınız:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A1000]) Is Nothing Then Exit Sub
If IsNumeric(Target) = True Then
    If Target < 2500 Then
        Application.EnableEvents = False
        Target = 2500
        Application.EnableEvents = True
    End If
End If
End Sub

 

[yanginci34]

Denermisiniz.
Ekli dosyayı görüntüle 2500 e tamamlama.xlsm