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

yildirim2004 · Cuma saat 14:57'de

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 · Cuma saat 15:01'de

yildirim2004' Alıntı:
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.

Kod:

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 · Cuma saat 16:39'de

volki_112' Alıntı:

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

Kod:

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 · Cuma saat 16:45'de

yildirim2004' Alıntı:
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 · Cuma saat 16:51'de

volki_112' Alıntı:
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 · Cuma saat 17:04'de

yildirim2004' Alıntı:
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 · Cuma saat 19:31'de

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 = "-"