• DİKKAT

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

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

  • Konbuyu başlatan Konbuyu başlatan bitirme
  • Başlangıç tarihi Başlangıç tarihi
B

bitirme

Katılım
26 Mart 2013
Mesajlar
39
Excel Vers. ve Dili
Excel 2013 İngilize
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?
 

Ekli dosyalar

Merhaba
F1'e
Kod: 
=EĞER(A1=B1;B1;"")
K1'e
Kod: 
=EĞER(A1<>B1;B1;"")
 
dEdE' Alıntı:
Merhaba
F1'e
Kod: 
=EĞER(A1=B1;B1;"")
K1'e
Kod: 
=EĞER(A1<>B1;B1;"")
Genişletmek için tıkla ...

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.
 

Ekli dosyalar

Son düzenleme:
Merhaba,
Makro ile yapılabilir.
Aşağıdaki kodu sayfanızın kod bölümüne yapıştırarak dener misiniz?
Kod: 
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
 
dEdE' Alıntı:
Merhaba,
Makro ile yapılabilir.
Aşağıdaki kodu sayfanızın kod bölümüne yapıştırarak dener misiniz?
Kod: 
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
Genişletmek için tıkla ...

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
 
bitirme' Alıntı:
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
Genişletmek için tıkla ...

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.
 
dEdE' Alıntı:
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.
Genişletmek için tıkla ...

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 :(
 
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ü?
Genişletmek için tıkla ...
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.
 
dEdE' Alıntı:
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.
Genişletmek için tıkla ...


Çok teşekkür ederim yardımlarınız için.
 
dEdE' Alıntı:
Merhaba,
Makro ile yapılabilir.
Aşağıdaki kodu sayfanızın kod bölümüne yapıştırarak dener misiniz?
Kod: 
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
Genişletmek için tıkla ...

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.
 
Son düzenleme:
turankr' Alıntı:
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.
Genişletmek için tıkla ...

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:
Kod: 
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
 
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?
 
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.
 
Aşağıdaki kod F ve M hücreleri doluyken eşit olmaları durumunda G sütununa ÇIKAN yazar:
Kod: 
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
 
Çok teşekkür ederim hocam. Mükemmel çalışıyor. Bir de otomatik çalışması için ne yapabilirim?
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst