Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 14-11-2017, 15:07   #1
firfir
 
Giriş: 16/04/2010
Şehir: canada
Mesaj: 1
Excel Vers. ve Dili:
2016
Varsayılan Koşullu Biçimlendirme hk.

Merhaba arkadaşlar,

Benim şöyle bir sorum olacaktı;

Bir gelir gider tablosu düşünün, diyelim ki A1 Sütununda Gelir veya Gider yazıyor,
ben birde B1 sütununa Miktar giriyorum, benim yapmak isteyip yapamadığım şu:

ben A1-GELİR-GİDER sütununa gider yazdığımda B1-MİKTAR sütununa girdiğim rakam otomatikman - ve kırmızı renkte olsun.

Yardımlarınız için şimdiden teşekkürler.
firfir Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 15:40   #2
çıtır
 
Giriş: 06/03/2005
Şehir: kdz.ereğli
Mesaj: 859
Varsayılan

B sütunun seçin.Koşullu biçimlendirme, yeni kural,Biçimlendirilecek hücreleri belirlemek için formül kullan,aşağıdaki formülü yapıştır,biçim ,yazı rengi kırmızı.sayı biçimi isteğe uyarlamış , -# ayaralyınız .kolay gelsin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=$A1="GİDER"

Bu mesaj en son " 14-11-2017 " tarihinde saat 16:09 itibariyle çıtır tarafından düzenlenmiştir....
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 17:42   #3
Necdet Yeşertener
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 11,917
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

B sütunundaki bir değişiklikle kodlar çalışır, rakamı eksiye çevirir ve biçimlendirir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If UCase(Replace(Target.Offset(0, -1), "i", "İ")) = "GİDER" Then
        Application.EnableEvents = False
        Target.Value = Target.Value * -1
        Target.NumberFormat = "#,##0.00;[Red]-#,##0.00"
        Application.EnableEvents = True
    End If
    
End Sub
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Yeşertener Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 03:52


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden