• DİKKAT

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

formül oluşturma sorunu

Katılım
28 Aralık 2006
Mesajlar
23
Excel Vers. ve Dili
2003 türkçe
F hücresindeki değere göre G,H,I hücrelerinden uygun olanına +, - değerleri atamaya çalıştım, ancak H hücresinde bunu gerçekleştiremedim. F hücresindeki değer 2 ya da 3 ise H hücresi + olsun istiyorum. Buna formül atayamadım.
Bir de G,H,I hücrelerinden hangisi + olursa o hücrenin rengi değişebilir mi? Teşekkürler şimdiden.
 

Ekli dosyalar

  • TGS.xls
    TGS.xls
    15.5 KB · Görüntüleme: 6
yanıt

Hücre renkleri için biçimden koşullu biçimlendirmeye girip hücre değerine eşit + yazınız
Kod:
=+EĞER(YADA(F3=2;F3=3);"+";"")
 
Sayın N. Ziya Hiçdurmaz,
Teşekkür ederim yardımınızdan dolayı. H hücresindeki sorunu sayenizde çözmüş olduk. Ancak G,H,I hücrelerinden hangisinde + mevcutsa o bölüm farklı renk alsın demek istemiştim. Teşekkürler...
 
Sayın tekintek,
Çok teşekkürler gayet güzel olmuş, elinize sağlık.
 
Kendimce bir şeyler ekleyerek geliştirmek istiyorum tabloyu, ancak yardımınıza ihtiyaç duyduğum noktalar oluyor. Yeni eklediğim dosyada A ve B hücrelerine yazacağım sayılar takımların PQ hücrelerindeki gibi sıralarıyla alakalı. İstediğim şu: A2 hücresine 17 yazdığımda Q17 deki takım adı A2 hücresinde çıksın istiyorum. Mümkün müdür acaba? Teşekkürler...
 

Ekli dosyalar

Kendimce bir şeyler ekleyerek geliştirmek istiyorum tabloyu, ancak yardımınıza ihtiyaç duyduğum noktalar oluyor. Yeni eklediğim dosyada A ve B hücrelerine yazacağım sayılar takımların PQ hücrelerindeki gibi sıralarıyla alakalı. İstediğim şu: A2 hücresine 17 yazdığımda Q17 deki takım adı A2 hücresinde çıksın istiyorum. Mümkün müdür acaba? Teşekkürler...

A2 hücresine hem sayı yazıyorsunuz,hemde o hücrede Q17 deki takım çıksın istiyorsunuz;böyle olmaz tabiiki..Ama A Sütununa bir sütun daha ekleyip,A sütuna sayı yazıp B sütununada düşeyara formülü ile Verinizi alabilirsiniz..
 
Sayın tekintek,
A ve B hücrelerinin yanına birer sütun daha ekledim, ancak geri kalan kısımda bir şey yapamadım. Henüz yeni sayılırım o nedenle fazla zahmet veriyorum sanırım. Yine de teşekkür ederim ilginize...
 
Merhaba,

Bu istediğinizi makro ile yapabilirsiniz.

Sayfanın kod bölümüne aşağıdaki kodları yapıştırın.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A2:B65536]) Is Nothing Then Exit Sub
Dim c As Range
Set c = Range("P1:P20").Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Target = Range("Q" & c)
End If
Son:
End Sub

.
 
Sayın Ömer,
Teşekkür ediyorum, istediğim gibi olmuş, elinize sağlık.
Bu arada bu kodları nasıl yazıyorsunuz bunu merak ediyorum yani çok karışık görünüyor ilk bakışta. Bunları öğrenebilmek için yararlanabileceğim linkler var mı? Teşekkürler. İyi çalışmalar...
 
Merhaba,
Sn.Ömer bey soruna her zamanki gibi harika bir çözüm üretmiş,teşekkürler.
Ekli dosya alternatif olsun..
 

Ekli dosyalar

Çok teşekkür ediyorum ilginize. Gerçekten excel bir okyanus misali. Şu anda bunları kendi kendime oluşturabilmemin imkânsız olduğunu düşünüyorum ve gönderdiğiniz dosyalardaki formülleri anlamaya çalışıyorum ama maalesef henüz bu konuda yetersizim. Umarım sizlerin sayesinde bu okyanusta boğulmadan yüzebileceğim :)
 
Geri
Üst