• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücredeki yazıya göre girilen değere eksi işareti..

A

arser83

Katılım
20 Kasım 2006
Mesajlar
27
Excel Vers. ve Dili
excel
Merhaba;

Benim tablomda A1 den A2000 kadar "odeme" ve " tahsilat" yazıyor. B1 den B2000 e kadarda rakamlar var. (Örn. 5.600 , 4.300 gibi)..

A TAHSILAT B ye herhangi bir rakam yazdığımda herhangi birşey yapmasın ama
A ya ODEME B ye herhangibir rakam yazdığımda , girdiğim değer kırmızı olsun ve başınada "-" eksi işareti koysun.


Umarım anlatabilmişimdir.

Teşekkür ederim.
 
Selamlar,


Sorunuzu destekleyen örnek dosya ekleyebilirmisiniz,
 
arser83' Alıntı:
Merhaba;

Benim tablomda A1 den A2000 kadar "odeme" ve " tahsilat" yazıyor. B1 den B2000 e kadarda rakamlar var. (Örn. 5.600 , 4.300 gibi)..

A TAHSILAT B ye herhangi bir rakam yazdığımda herhangi birşey yapmasın ama
A ya ODEME B ye herhangibir rakam yazdığımda , girdiğim değer kırmızı olsun ve başınada "-" eksi işareti koysun.


Umarım anlatabilmişimdir.

Teşekkür ederim.
Genişletmek için tıkla ...

merhaba
B sütununu seçin
biçim - koşullu biçimlendirme - formül bölümüne
Kod: 
=$A1="odeme"
yazın
biçim'den önce sayıya tıklayın isteğe uyarlanmış tür bölümüne
Kod: 
-0
yazın yazı tipi olarak kırmızıyı seçin ve tamam diyerek kapatın ve deneyin
 
Selamlar,



Altarnatif olarak örnek dosyayı inceleyebilirsiniz,
 

Ekli dosyalar

Vedat Özer' Alıntı:
Selamlar,



Altarnatif olarak örnek dosyayı inceleyebilirsiniz,
Genişletmek için tıkla ...

merhaba
kod ile isterseniz
vedat bey'in dosyasını örnek alırsak
boş bir module
Kod: 
Option Explicit
Sub ödemeleri_eksile_boya()
Dim ts, kaplan
kaplan = MsgBox("Ödemeleri Eksileyip Boyuyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
For ts = 5 To Cells(65536, "A").End(xlUp).Row
If Cells(ts, "A") = "ÖDEME" And Cells(ts, "B") > 0 Then
Cells(ts, "B") = -Cells(ts, "B")
Range("A" & ts).Font.Color = vbRed
Range("B" & ts).Font.Color = vbRed
End If
Next
MsgBox "Ödemeleri Eksileyip Boyadım", vbInformation, "Onay"
End Sub
bu kodu kopyalayın .
 
HEpsini deneyip cevap vericem , bu kadar kısa sürede bu kadar cevap inanın beklemiyordum. Allah herkesten razı olsun. Teşekkür ederim.

Anlatmak istediğim ekte mevcut.Teşekkür ederim.
 

Ekli dosyalar

Son düzenleme:
İhsan Bey'in verdiği makro ile yaptım , ama şöyle bir sorum var.
Bu makroyu sürekli nasıl çalıştırabilirim ve onay almadan..

Teşekkürler
 
arser83' Alıntı:
İhsan Bey'in verdiği makro ile yaptım , ama şöyle bir sorum var.
Bu makroyu sürekli nasıl çalıştırabilirim ve onay almadan..

Teşekkürler
Genişletmek için tıkla ...

merhaba
Sayfa1'in kod bölümüne kopyalayınız
B sütununda değişiklik olduğunda tetiklenir
Kod: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="Red"]If Intersect(Target, Range("G3:G65536")) Is Nothing Then Exit Sub[/COLOR]
Dim ts, kaplan
For ts = 3 To Cells(65536, "B").End(xlUp).Row
If Cells(ts, "B") = "ODEME" Then
If Cells(ts, "D") > 0 And Cells(ts, "E") > 0 And Cells(ts, "F") > 0 Then
Cells(ts, "D") = -Cells(ts, "D")
Cells(ts, "E") = -Cells(ts, "E")
Cells(ts, "F") = -Cells(ts, "F")
Range("B" & ts).Font.Color = vbRed
Range("D" & ts).Font.Color = vbRed
Range("E" & ts).Font.Color = vbRed
Range("F" & ts).Font.Color = vbRed
ElseIf Cells(ts, "D") = "" Or Cells(ts, "E") = "" Or Cells(ts, "F") = "" Then
Cells(ts, "D") = -Cells(ts, "D")
Cells(ts, "E") = -Cells(ts, "E")
Cells(ts, "F") = -Cells(ts, "F")
Range("B" & ts).Font.Color = vbRed
Range("D" & ts).Font.Color = vbRed
Range("E" & ts).Font.Color = vbRed
Range("F" & ts).Font.Color = vbRed
End If
End If
Next
End Sub
 
İhsan hocam,

Verdiğiniz kodu yapınca, istediğim hücreler kırmızı oluyor.Ancak - işaretini bazen koyuyor (bazenden kasıt önce rakamı sonra ODEME yazınca) , - işareti koymasında bir sıkıntı var.

Teşekkürler
 
arser83' Alıntı:
İhsan hocam,

Verdiğiniz kodu yapınca, istediğim hücreler kırmızı oluyor.Ancak - işaretini bazen koyuyor (bazenden kasıt önce rakamı sonra ODEME yazınca) , - işareti koymasında bir sıkıntı var.

Teşekkürler
Genişletmek için tıkla ...

evet öyle bir şey oluyor sebebi ise B sütununda işlem yaptığınız için son olarak B sütununda işlem yapsanız o zaman farklı olurdu.

siz B sütununda başka işlem yaptığınızda otomatik hemen işlemleri gerçekleştiriyor

rica ederim
:yazici:
 
Peki hocam;

B hücresine veya rakamları yazdığım D E F hücrelerinde öncelik olmaksızın - işareti çıkmasını nasıl sağlarım.Yardımın için çok sağol.
 
arser83' Alıntı:
Peki hocam;

B hücresine veya rakamları yazdığım D E F hücrelerinde öncelik olmaksızın - işareti çıkmasını nasıl sağlarım.Yardımın için çok sağol.
Genişletmek için tıkla ...

üstteki kod'u güncelledim
G sütununu baz aldım
girişleri yaptıktan sonra G sütununa herhangi bir giriş yapın yeterli
 
arser83' Alıntı:
Evet Hocam , bunla - ve kırmızı yapıyor...Kızmazsan bir sorum daha var. :)

G sütununa bir tetikleme yerine otomatik olabilirmi veya bunu bir butona ekleyebilirmiyim.
Genişletmek için tıkla ...

g sütununa tetikleme eklemediğimizde kod hata veriyor
butona atamak için
boş bir module kopyalayın ve bir butona atayın
Kod: 
Option Explicit
Sub boya_ve_düş()
Dim ts, kaplan
For ts = 3 To Cells(65536, "B").End(xlUp).Row
If Cells(ts, "B") = "ODEME" Then
If Cells(ts, "D") > 0 And Cells(ts, "E") > 0 And Cells(ts, "F") > 0 Then
Cells(ts, "D") = -Cells(ts, "D")
Cells(ts, "E") = -Cells(ts, "E")
Cells(ts, "F") = -Cells(ts, "F")
Range("B" & ts).Font.Color = vbRed
Range("D" & ts).Font.Color = vbRed
Range("E" & ts).Font.Color = vbRed
Range("F" & ts).Font.Color = vbRed
ElseIf Cells(ts, "D") = "" Or Cells(ts, "E") = "" Or Cells(ts, "F") = "" Then
Cells(ts, "D") = -Cells(ts, "D")
Cells(ts, "E") = -Cells(ts, "E")
Cells(ts, "F") = -Cells(ts, "F")
Range("B" & ts).Font.Color = vbRed
Range("D" & ts).Font.Color = vbRed
Range("E" & ts).Font.Color = vbRed
Range("F" & ts).Font.Color = vbRed
End If
End If
Next
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst