hücredeki bir değeri başka bir hücreye eğer formülü ile yazdırma

[bitirme]

Arkadaşlar bi mantıksal sınama yapmak istiyorum iki ayrı hücredeki değer birbirine eşitse hücrelerdeki değerlerden birini başka bir hücreye yazdırmak istiyorum. Bunu eğer formülüyle yapabilir miyim? ya da başka bir formülle yapılabilmekte mi?

 

[dEdE]

Merhaba
F1'e

=EĞER(A1=B1;B1;"")

K1'e

=EĞER(A1<>B1;B1;"")

 

[bitirme]

Merhaba
F1'e

=EĞER(A1=B1;B1;"")

K1'e

=EĞER(A1<>B1;B1;"")

Hücrelere ayrı ayrı yazdığımda oluyor ama benim o hücreleri boş bırakmam lazım çünkü hazırladığım dosyada o hücrelere başka formüller geliyor. O yüzden ayrı bir hücrede bir formül kullanarak o hücrelere değer yazdırmaya çalışıyorum.
Farklı hücrelere başka bir hücredeki değeri atamayı sağlayabilecek bir bir formül var mı bildiğiniz? o formülü de atama yapmak istediğim yerlere değil başka bir yere yazmak istiyorum.

 

[dEdE]

Merhaba,
Makro ile yapılabilir.
Aşağıdaki kodu sayfanızın kod bölümüne yapıştırarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B2:D2]) Is Nothing Then Exit Sub
    If [B2] = [D2] Then
        [P3] = [D2]
        [S3] = ""
    Else
        [S3] = [D2]
        [P3] = ""
    End If
End Sub

 

[bitirme]

Merhaba,
Makro ile yapılabilir.
Aşağıdaki kodu sayfanızın kod bölümüne yapıştırarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B2:D2]) Is Nothing Then Exit Sub
    If [B2] = [D2] Then
        [P3] = [D2]
        [S3] = ""
    Else
        [S3] = [D2]
        [P3] = ""
    End If
End Sub

Geliştiriciden kod görüntüleye tıklıyorum oradan gelen pencereye yazıyorum bu kodu.çalıştır dediğimde kaydedilmiş bir makroya ihtiyaç duyuyor. excelde makro kısmında çok acemiyim yeni yeni çalışmaya başlıyorum. Rica etsem biraz daha yardımcı olabilir misiniz? baya geç cevap yazdım kusura bakmayın

 

[dEdE]

Geliştiriciden kod görüntüleye tıklıyorum oradan gelen pencereye yazıyorum bu kodu.çalıştır dediğimde kaydedilmiş bir makroya ihtiyaç duyuyor. excelde makro kısmında çok acemiyim yeni yeni çalışmaya başlıyorum. Rica etsem biraz daha yardımcı olabilir misiniz? baya geç cevap yazdım kusura bakmayın

Ekranın sol alt tarafına yakın yerdeki sayfa adı üzerine sağ tıklayıp Kod Görüntüleyi seçin ve açılan sayfaya yapıştırın.

 

[bitirme]

Ekranın sol alt tarafına yakın yerdeki sayfa adı üzerine sağ tıklayıp Kod Görüntüleyi seçin ve açılan sayfaya yapıştırın.

Yaptım dediğiniz gibi ama çalıştır dediğimde Macros adlı bir pencere geliyor. Kaydedilmiş makro olmadığı için bişey seçemiyorum ne makrosu kaydedicem onu da anlamadım

 

[dEdE]

Merhaba,
3 numaralı mesajınıza eklediğiniz örnek dosyada;

=EĞER(D2=B2:B3;"sola yaz";"sağa yaz")
bu hücredeki formülün mantıksal sınamasını istediğim gibi yaptım. Ama doğruysadan sonrası istediğim gibi olmadı. Eğer doğruysa D2 deki değeri P3; değilse S3 e yazsın.
Böyle bir şey mümkün mü?

demiştiniz.

Makro kodu buna göre yazıldı ve otomatik çalışıyor. Çalıştır demenize gerek yok.
Kodları sayfanın kod bölümüne yapıştırdıktan sonra B2 ve D2 hücrelerine veri girdiğinizde, otomatik olarak P3 veya S3 hücresine istediğiniz sınamaya uygun olarak verileri yazar.
Hoşçakalın.

 

[bitirme]

Merhaba,
3 numaralı mesajınıza eklediğiniz örnek dosyada;
demiştiniz.

Makro kodu buna göre yazıldı ve otomatik çalışıyor. Çalıştır demenize gerek yok.
Kodları sayfanın kod bölümüne yapıştırdıktan sonra B2 ve D2 hücrelerine veri girdiğinizde, otomatik olarak P3 veya S3 hücresine istediğiniz sınamaya uygun olarak verileri yazar.
Hoşçakalın.

Çok teşekkür ederim yardımlarınız için.

 

[turankr]

Merhaba,
Makro ile yapılabilir.
Aşağıdaki kodu sayfanızın kod bölümüne yapıştırarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B2:D2]) Is Nothing Then Exit Sub
    If [B2] = [D2] Then
        [P3] = [D2]
        [S3] = ""
    Else
        [S3] = [D2]
        [P3] = ""
    End If
End Sub

Sevgili Hocam, Formülünüz üzerinde değişiklik yaparak sonuç almaya çalıştım, yapamadım.
M515 hücresi F515 Hücresine eşit olduğunda, G515 Hücresine ÇIKAN yazsın ve tüm F kolonunda çalışsın istiyorum. Yardımcı olursanız minnettar kalırım. Bir kaç gündür yapamadım.

 

[turankr]

http://hizliresim.com/m4rJny

 

[YUSUF44]

Sevgili Hocam, Formülünüz üzerinde değişiklik yaparak sonuç almaya çalıştım, yapamadım.
M515 hücresi F515 Hücresine eşit olduğunda, G515 Hücresine ÇIKAN yazsın ve tüm F kolonunda çalışsın istiyorum. Yardımcı olursanız minnettar kalırım. Bir kaç gündür yapamadım.

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub eşitlik()
For i = 1 To Cells(Rows.Count, "F").End(3).Row
    If Cells(i, "M") = Cells(i, "F") Then
        Cells(i, "G") = "ÇIKAN"
    End If
Next
End Sub

 

[turankr]

Sevgili YUSUF44 Hocam,
İlginize çok teşekkür ederim. Excel'de kontrol edebilmeniz için dosyayı eklediğim adresi yolluyorum. Size zahmet bakabilir misiniz? Çalışmadı.
http://s3.dosya.tc/server9/6hht9h/Ornek_calisma__Sifre_sorarsa_1001378.rar.html

 

[YUSUF44]

Dosyanızda bir gariplik var, siz F ve M sütunlarının eşitliğini arıyorsunuz. Örnek dosyanızda F ve M sütunlarında veri girilmiş hücrelerde hiç eşitlik yok. Başka bir şart da belirtmediğiniz için makro çalıştığında her ikisi de boş olan satırlara ÇIKAN yazıyor. Ayrıca başka bir bilgi de olmadığı için kod F sütunundaki son dolu hücreye kadar işlem yapıyor.
Sonuç olarak mesajınızda istediğiniz işlemi verdiğim kod yerine getiriyor. Sizin çalışmadı dediğiniz kısım nedir? Örnek dosyanızda nerede ne için ne olması gerekiyordu da kod nasıl bir sonuç verdi?

 

[turankr]

Hocam, F15 Hücresinde Yazılan çekin vade tarihi (22.12.2016) var. M15 Hücresinde ise =BUGÜN() formülü var. BUGÜN() formülü ile M15 Hücresi Çekin tarihi geldiğinde F15 hücresi ile eşit oluyor. Kod çalışıp TİP sütununda bulunan G15 Hücresi 'ÇIKAN' olunca J15 Hücresindeki rakamı kasadan düşüyor. Bu işlemi her satırda yapabilmek istiyorum.

 

[turankr]

Örnek dosyanın blunduğu link Hocam Yukardaki tarife uygun düzenledim
http://s2.dosya.tc/server3/gspmh6/Ornek_calisma__Sifre_sorarsa_1001378.rar.html

 

[turankr]

Hocam bakabildiniz mi örneğe

 

[YUSUF44]

Aşağıdaki kod F ve M hücreleri doluyken eşit olmaları durumunda G sütununa ÇIKAN yazar:

Sub eşitlik()
For i = 1 To Cells(Rows.Count, "M").End(3).Row
    If Cells(i, "F") <> "" And Cells(i, "M") <> "" And Cells(i, "M") = Cells(i, "F") Then
        Cells(i, "G") = "ÇIKAN"
    End If
Next
End Sub

 

[turankr]

Çok teşekkür ederim hocam. Mükemmel çalışıyor. Bir de otomatik çalışması için ne yapabilirim?

 

[turankr]

Halloldu. Beni büyük zahmetten kurtardınız. Şimdi Vade tarihi gelen evrakın bedelini hesaptan kendisi düşüyor.

Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To Cells(Rows.Count, "M").End(3).Row
If Cells(i, "F") <> "" And Cells(i, "M") <> "" And Cells(i, "M") = Cells(i, "F") Then
Cells(i, "G") = "ÇIKAN"
End If
Next
End Sub

Birinci satırı bu şekilde düzenleyince mükemmel çalışıyor.