Soru Girilen Hücre Aralığın başına Küçük veya Büyük İşareti Koymak

[bulentkars]

Arkadaşlar Merhaba,

Ekteki Tabloda gösterdiğim gibi :C2:O2 arasına sayı girilecek ancak sayı girilirken sayının önüne büyük işareti ">" veya Küçük "<" işaretini seçenek ile girlen sayının önüne yazmak istiyorum, yardımcı olabilirseniz sevinirim. Şİmdiden Teşekkürler

 

[Ali]

Sayfanın kod bölümüne aşağıdaki kodları ekleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim answer As Integer
If Not Intersect(Target, Range("D2:O2")) Is Nothing Then
Target.Value = InputBox("Bir değer gir")
answer = MsgBox("Evet >, Hayır <", vbQuestion + vbYesNo + vbDefaultButton2, "Sayı değerlendirme")
If answer = vbYes Then
  Target.Value = ">" & Target.Value
Else
  Target.Value = "<" & Target.Value
End If
End If
End Sub

 

[bulentkars]

Ali Bey Merhaba,

Çok Teşekkür Ederim, Elinize sağlık tam istediğim gibi olmuş, sadece hücre üzerine gelince değilde hücreye başında küçük veya büyük girmediğimiz anda bu uyarı gelse çok güzel olacak.

 

[Korhan Ayhan]

Deneyiniz.

 

[bulentkars]

Korhan Bey Çok Teşekkür ederim. Elinize sağlık