Soru A Hücresine elle girilen degerin 2500 den kücük olmasi durumunda ,deger otomatik eksi (-) isaretini alsin

[yildirim2004]

Arkadaslar, bu soruya konularda cevap bulamadigim icin yeni konu actim, eger daha önce acildiysa simdiden özür diliyorum.
Yapmak istedigim sey A:A hücresine el ile girilen sayinin 2500 den kücük olmasi durumunda otomatik - degerini girsin, büyük ise girilen degeri sabit biraksin.
simdiden tesekkür ediyorum.

 

[volki_112]

Arkadaslar, bu soruya konularda cevap bulamadigim icin yeni konu actim, eger daha önce acildiysa simdiden özür diliyorum.
Yapmak istedigim sey A:A hücresine el ile girilen sayinin 2500 den kücük olmasi durumunda otomatik - degerini girsin, büyük ise girilen degeri sabit biraksin.
simdiden tesekkür ediyorum.

formülle veri girilen hücrede değişiklik olmz. makro ile olur.
sayfanın kod bölümüne bunu yaz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Dim hucre As Range
        Application.EnableEvents = False
        For Each hucre In Intersect(Target, Range("A:A"))
            If IsNumeric(hucre.Value) And hucre.Value <> "" Then
                If hucre.Value < 2500 Then
                    hucre.Value = -Abs(hucre.Value)
                Else
                    hucre.Value = Abs(hucre.Value)
                End If
            End If
        Next hucre
        Application.EnableEvents = True
    End If
End Sub

 

[yildirim2004]

formülle veri girilen hücrede değişiklik olmz. makro ile olur.
sayfanın kod bölümüne bunu yaz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Dim hucre As Range
        Application.EnableEvents = False
        For Each hucre In Intersect(Target, Range("A:A"))
            If IsNumeric(hucre.Value) And hucre.Value <> "" Then
                If hucre.Value < 2500 Then
                    hucre.Value = -Abs(hucre.Value)
                Else
                    hucre.Value = Abs(hucre.Value)
                End If
            End If
        Next hucre
        Application.EnableEvents = True
    End If
End Sub

yardiminiz icin cok tesekkür ederim, yanliz yanlis ifade kullanmisim, 2500 den kücük ise girilen rakamin eksi degerini yaziyor, demek istedigim aslinda 2500 den kücük ise - isaretini yani hücreyi bos birakmamak icin - yazsin


hocam yaptim, asagidaki gibi degisiklik yaptim oldu sanirim dogru degisiklik.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D")) Is Nothing Then
Dim hucre As Range
Application.EnableEvents = False
For Each hucre In Intersect(Target, Range("D"))
If IsNumeric(hucre.Value) And hucre.Value <> "" Then
If hucre.Value < 2500 Then
hucre.Value = "-"
Else
hucre.Value = "-"
End If
End If
Next hucre
Application.EnableEvents = True
End If
End Sub

 

[volki_112]

yardiminiz icin cok tesekkür ederim, yanliz yanlis ifade kullanmisim, 2500 den kücük ise girilen rakamin eksi degerini yaziyor, demek istedigim aslinda 2500 den kücük ise - isaretini yani hücreyi bos birakmamak icin - yazsin

Bu satır yerine
hucre.Value = -Abs(hucre.Value)
Alttakini yazınız
hucre.Value = "-"

 

[yildirim2004]

Bu satır yerine
hucre.Value = -Abs(hucre.Value)
Alttakini yazınız
hucre.Value = "-"

maalesef yaptigim degisiklik olmamis, 2500 den düsük ise - isaretini koyuyor fakat 2500 den büyüklerde de - isratini koydu,

sizin dedginiz gibi yaptim onda da ayni sorun,

hocam su sekilde sorun cözüldü yardiminiz icin cok tesekkür ederim

If hucre.Value > 2500Then
hucre.Value = Abs(hucre.Value)
Else
hucre.Value = "-"

 

[volki_112]

maalesef yaptigim degisiklik olmamis, 2500 den düsük ise - isaretini koyuyor fakat 2500 den büyüklerde de - isratini koydu,

sizin dedginiz gibi yaptim onda da ayni sorun,

Alttakini deneyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Dim hucre As Range
Application.EnableEvents = False
For Each hucre In Intersect(Target, Range("A:A"))
If IsNumeric(hucre.Value) And hucre.Value <> "" Then
If hucre.Value < 2500 Then
hucre.Value = "-"
Else
hucre.Value = hucre.Value
End If
End If
Next hucre
Application.EnableEvents = True
End If
End Sub

 

[yildirim2004]

hocam su sekilde sorun cözüldü yardiminiz icin cok tesekkür ederim

If hucre.Value > 2500Then
hucre.Value = Abs(hucre.Value)
Else
hucre.Value = "-"