Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 13-07-2011, 13:33   #1
akmes
 
Giriş: 27/05/2010
Şehir: İzmir
Mesaj: 480
Excel Vers. ve Dili:
Excel 2003 Turkçe
Varsayılan Hücre Dolgu Rengine Göre Değer Atama

Merhaba,

A1 hücresi yeşil dolgulu, A2 hücresi kırmızı dolgulu olduğunu düşünelim, B1 hücresine A1 hücresi yeşil dolgulu ise 1, kırmızı ise 2 değeri alsın diye bir formül yazmak istiyorum.Bu konuda yardımcı olurmuzunuz.
akmes Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-07-2011, 13:44   #2
Huseyinkis
 
Huseyinkis kullanıcısının avatarı
 
Giriş: 23/09/2004
Şehir: İstanbul
Mesaj: 1,747
Excel Vers. ve Dili:
Excel 2010 TR
Varsayılan

Alıntı:
akmes tarafından gönderildi Mesajı Görüntüle
Merhaba,

A1 hücresi yeşil dolgulu, A2 hücresi kırmızı dolgulu olduğunu düşünelim, B1 hücresine A1 hücresi yeşil dolgulu ise 1, kırmızı ise 2 değeri alsın diye bir formül yazmak istiyorum.Bu konuda yardımcı olurmuzunuz.
Yapmak istediğiniz yapılabilir fakat renk kodları olması lazım ben sanki Vb renkleri ile yapılmış formulu ekte gonderdim siz kendi renklerinizin kodlarını alarak VbRed ve VbGreen olarak tanımladığım yerlere renk kodlarını yazmanız lazım. daha fazla renk varsa elseif kısımlarını arttırın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Renk()
For i = 1 To 2
If Cells(i, "A").Interior.Color = vbRed Then
Cells(i, "A").Value = 1
ElseIf Cells(i, "A").Interior.Color = vbGreen Then
cells(i, "A").Value = 2
Else
Cells(i, "A").Value = "YOK"
End If
Next
End Sub
__________________
///Ya severek "Acı Çekmesini" biliceksin yada Sevmeyeceksin hep "Acı Çekeceksin"///
Huseyinkis Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-07-2011, 13:56   #3
akmes
 
Giriş: 27/05/2010
Şehir: İzmir
Mesaj: 480
Excel Vers. ve Dili:
Excel 2003 Turkçe
Varsayılan

Alıntı:
Huseyinkis tarafından gönderildi Mesajı Görüntüle
Yapmak istediğiniz yapılabilir fakat renk kodları olması lazım ben sanki Vb renkleri ile yapılmış formulu ekte gonderdim siz kendi renklerinizin kodlarını alarak VbRed ve VbGreen olarak tanımladığım yerlere renk kodlarını yazmanız lazım. daha fazla renk varsa elseif kısımlarını arttırın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Renk()
For i = 1 To 2
If Cells(i, "A").Interior.Color = vbRed Then
Cells(i, "A").Value = 1
ElseIf Cells(i, "A").Interior.Color = vbGreen Then
cells(i, "A").Value = 2
Else
Cells(i, "A").Value = "YOK"
End If
Next
End Sub
İlgin için teşekkür ederim.Bu kodlar işimi görmedi.
akmes Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-07-2011, 14:13   #4
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,633
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Merhaba,

Renk sorgusu için kullanıcı tanımlı fonksiyon kullanmalısınız.

Aşağıdaki kodu boş bir modüle uygulayın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Option Explicit
 
Function RENK(Hücre As Range)
    Application.Volatile True
    RENK = Hücre.Interior.ColorIndex
End Function
Daha sonra sonucu görmek istediğiniz hücreye aşağıdaki formülü uygulayın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=EĞER(RENK(A1)=3;1;EĞER(RENK(A1)=4;2;""))
Eklenmiş Dosyalar
Dosya Türü: rar ÖRNEK.rar (6.5 KB, 249 Görüntülenme)
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-07-2011, 14:35   #5
akmes
 
Giriş: 27/05/2010
Şehir: İzmir
Mesaj: 480
Excel Vers. ve Dili:
Excel 2003 Turkçe
Varsayılan

Alıntı:
Korhan Ayhan tarafından gönderildi Mesajı Görüntüle
Merhaba,

Renk sorgusu için kullanıcı tanımlı fonksiyon kullanmalısınız.

Aşağıdaki kodu boş bir modüle uygulayın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Option Explicit
 
Function RENK(Hücre As Range)
    Application.Volatile True
    RENK = Hücre.Interior.ColorIndex
End Function
Daha sonra sonucu görmek istediğiniz hücreye aşağıdaki formülü uygulayın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=EĞER(RENK(A1)=3;1;EĞER(RENK(A1)=4;2;""))
Üstadım tam istediğim gibi,emeğinize sağlık,teşekkür ederim.
akmes Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-08-2011, 12:16   #6
real_agabey
 
Giriş: 03/04/2008
Şehir: Mersin
Mesaj: 23
Excel Vers. ve Dili:
2003
Varsayılan

Bende benzer konu olduğundan sorumu burda sorayım.

G sütunundaki, hücre değeri 0 dan büyükse aynı satırdaki A-J arasındaki tüm hücrelerin dolgu rengini sarıya çevirmesini istiyorum.

tek satır için yapabiliyorum sıkıntı olmuyorda bi türlü döngüye sokamadım.

Tek satır için kodlar

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Range
If Range("G2").Value > "0" Then
For Each i In Range("A2:H1")
i.Interior.ColorIndex = 6
Next i
End If
End Sub
real_agabey Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-08-2011, 12:28   #7
İhsan Tank
Misafir
 
Mesaj: n/a
Varsayılan

koşullu biçimlendirme ile deneseniz daha mantıklı değil mi_?
makroya gerek kalmaz böylece
dilerseniz dosya ekleyin yardımcı olmaya çalışalım
  Alıntı Yaparak Cevapla
Eski 02-08-2011, 13:01   #8
real_agabey
 
Giriş: 03/04/2008
Şehir: Mersin
Mesaj: 23
Excel Vers. ve Dili:
2003
Varsayılan

İhsan Bey ilginiz için teşekkür ederim.
Koşullu biçimlendirmede benim bildiğim sadece seçili hücrenin dolgu rengini ayarlanabiliyor.
Benim istediğim ise G sütunundaki 0 dan büyük olan hücrelerdeki tüm satırın dolgu rengini değiştirmek.

Örnek dosyası ekte
Eklenmiş Dosyalar
Dosya Türü: xls Örnek.xls (15.5 KB, 31 Görüntülenme)
real_agabey Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-08-2011, 13:12   #9
hasaki
 
Giriş: 28/03/2011
Şehir: bandırma
Mesaj: 36
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

merhaba,

dosyanız ektedir. inceleyin. takıldığınız bir yer olursa görüşürüz.

kolay gelsin
Eklenmiş Dosyalar
Dosya Türü: xls Örnek(1) bicimli.xls (27.0 KB, 93 Görüntülenme)
hasaki Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-08-2011, 14:08   #10
real_agabey
 
Giriş: 03/04/2008
Şehir: Mersin
Mesaj: 23
Excel Vers. ve Dili:
2003
Varsayılan

Sn hasaki emeğiniz için çok teşekkür ederim.
Tam olarak istediğim sizin yaptığınız gibi hatta bi adım ötesi malzeme gönderilmişse ve hala kalan malzeme varsa kalan hücre rengini örneğin turkuaz yapmak.

Nasıl yaptığınız hakkında fikir sahibi olamadım. Kısaca bilgilendirme yaparsanız çok sevinirim.
Eklenmiş Dosyalar
Dosya Türü: xls Örnek.xls (16.0 KB, 41 Görüntülenme)
real_agabey Ç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 10:45


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-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden