• DİKKAT

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

Excel'de Hücreye Yazılan Sayıya Göre Yan Hücreye Değer Atama

  • Konbuyu başlatan Konbuyu başlatan 1omer1
  • Başlangıç tarihi Başlangıç tarihi
1

1omer1

Katılım
15 Kasım 2016
Mesajlar
59
Excel Vers. ve Dili
Excel 2016
Merhaba,

A sütununda komple 1'den 6'ya kadar sayılar var. Ben B sütununa yani A sütunun yanına A sütununda 2 yazıyorsa 34-38, 1 yazıyorsa 13-18, 6 Yazıyorsa Tek gibi değerler yazdırmak istiyorum bu konuda bana yardımcı olabilir misiniz ?

İyi Forumlar.
 
Merhaba.
A1'e örneğin 2 yazarsanız 34-38 döner.
Kod: 
=ARA(A1;{0;1;2;3;4;5;6};{"0";"13-18";"34-38";"Üç";"Dört";"Beş";"Tek"})
 
Bunu bir kaç yolu var.

Düşeyara formülü

Once ne yazılırsa ne gelmesini istediğin bir tablo oluşturup o şekilde ilerlemek

EĞER formülü

Eğer(a1="2";"34-38;"") gibi . yapabilirsiniz
 
Cevaplar için teşekkür ederim deneyeceğim.

Bir sorum daha var yine aynı şekilde A1 hücresindeki değeri 6 farklı değerle karşılaştırıp değer doğru ise 1 yanlış ise 2 yazdırabilir miyim ?
 
1omer1' Alıntı:
Cevaplar için teşekkür ederim deneyeceğim.

Bir sorum daha var yine aynı şekilde A1 hücresindeki değeri 6 farklı değerle karşılaştırıp değer doğru ise 1 yanlış ise 2 yazdırabilir miyim ?
Genişletmek için tıkla ...

Birkaç örnek söylerseniz ona göre cevap verebilirim.
 
Tabi ki örnek vermeye çalışayım. A1 hücresindeki değer 2 olsun b1 hücresindeki değerde 1-18 olsun. Benim burada kontrol ettirmek istediğim şey b1 hücresindeki değer a1 hücresinin içerisinde varsa 1 yoksa 2 yazdırsın. Ama burada renkte kontrol ettirebilir miyim a1 de ki yazan sayı kırmızıda siyahta olabilir.
 
Renk konusu sadece VBA ile yani kod ile kontrol edilebilir. Formül ile renk kontrolü olmaz.
Hücreye yazdığınız 1-18 derken 1 ile 18 arasındaki rakam mı aranacak yoksa sadece 1 ve 18 mi aranacak bu da önemli.
Yapmak istediğiniz şeyi bir dosya hazırlayarak örneklerle gösterirseniz daha hızlı yanıt alabilirsiniz.
Dosyanızı dosya.tc gibi bir siteye ekleyebilirsiniz.
 
Sonuç kısmını da beklentiniz doğrultusunda doldurun ki ona göre bir çözüm üretelim.
 
Bunu tam olarak nerede nasıl kullanacaksınız?
Bunun çözersek eğer anladığım kadarıyla kendi dosyanıza uydurmaya çalışacaksınız bu sefer yeniden ele almak gerekecek.
Onun için ya gerçek dosyanızı paylaşın yada gerçekçi bir örnek dosya hazırlayarak paylaşın daha iyi olur.
 
Sonuç Kısmınıda Yazdım. Bunu tam olarak elimdeki verileri kullanmak ve karşılaştırmak için kullanacağım. Şirket içerisindeki veri karşılaştırmasında kullanacağım.

Kitap3.xlsx dosyasını indir - download

Kitap3.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle
s2.dosya.tc s2.dosya.tc
 
Çok Teşekkür Ederim Çalışıyor Ama Butonun Yerini Nasıl Değiştirebilirim. Birde şu şekilde bir şey yazdırabilir miyiz öğrenebilir miyim ? Olumlu olumsuz yazdırdık ya onun hemen yanına olumsuz katlandığı sürece olumlu gelene kadar sayıyı artırabilir miyiz daha sonra başa dönecek şekilde aşağıdaki gibi şimdiden teşekkür ederim. Kendimi sizin gibi bunları çözecek seviyeye getirebilmek için neler yapabilirim. Altın üyelik alsam faydası olur mu benim için Excel'i aktif derecede kullanmak istiyorum.
Örnek olarak şu şekilde anlatabilirim.
olumlu 1
olumlu 1
olumsuz 1
olumlu 2
olumsuz 1
olumsuz 2
olumsuz 3
olumlu 4
olumsuz 1
olumlu 1
 
Butonun yerini değiştirmek için Geliştirici sekmesinde / Tasarım Modu tıklatıp yerini değiştirin sonra Tasarım Modunu kapatın.

Eğer olumlu 1 yazıyorsa ikinci kontrolde olumsuz sonuç dönerse Olumsuz 1 mi yazması gerekiyor?

Aşağıdaki kodu deneyin.
Dosyadaki kodları silin aşağıdaki kodu ekleyin.
Kod: 
Option Explicit

Private Sub btnKontrol_Click()
    Dim Bak As Long
    Dim Sonuc As String
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If IsNumeric(Left(Cells(Bak, "B"), 1)) Then
            If CDbl(Split(Cells(Bak, "B"), "-")(0)) <= Cells(Bak, "A") And Cells(Bak, "A") <= CDbl(Split(Cells(Bak, "B"), "-")(1)) Then
                Sonuc = "Olumlu"
            Else
                Sonuc = "Olumsuz"
            End If
        End If
        Select Case Cells(Bak, "B")
            Case "Tek"
                If WorksheetFunction.IsOdd(Cells(Bak, "A")) Then
                    Sonuc = "Olumlu"
                Else
                    Sonuc = "Olumsuz"
                End If
            Case "Çift"
                If WorksheetFunction.IsEven(Cells(Bak, "A")) Then
                    Sonuc = "Olumlu"
                Else
                    Sonuc = "Olumsuz"
                End If
            Case "Kırmızı"
                If Cells(Bak, "A").Font.Color = ColorConstants.vbRed Then
                    Sonuc = "Olumlu"
                Else
                    Sonuc = "Olumsuz"
                End If
            Case "Siyah"
                If Cells(Bak, "A").Font.Color = ColorConstants.vbBlack Then
                    Sonuc = "Olumlu"
                Else
                    Sonuc = "Olumsuz"
                End If
        End Select
        Olumlu_Olumsuz Cells(Bak, "C"), Sonuc
    Next
End Sub

Sub Olumlu_Olumsuz(Hcr As Range, Sonuc As String)
    If Hcr.Text = "" Then
        Hcr = Sonuc & " 1"
    ElseIf Split(Hcr, " ")(0) = Sonuc Then
        Hcr = Sonuc & " " & Split(Hcr, " ")(1) + 1
    Else
        Hcr = Sonuc & " 1"
    End If
End Sub
 
Son düzenleme:
Eklediğiniz kod hata veriyor. Aşağıda paylaştım.

j3g2san.png

ff
hizliresim.com hizliresim.com

Benim yapmak istediğimi şu şekilde anlatabilirim yapılabilir miyiz bu şekilde acaba ?

olumlu 1
olumsuz 1
olumsuz 2
olumsuz 3
olumlu 4
olumlu 1
olumlu 1
olumsuz 1
olumlu 2
olumlu 1
olumsuz 1
olumsuz 2
olumsuz 3
olumsuz 4
olumlu 5
olumlu 1
olumsuz 1
olumsuz 2
olumlu 3
 
SONUÇ OLUMLU YADA OLUMSUZ YAZILACAK DEĞER
kısmında hiçbir şey yazmamalı.
Yani Olumlu ve Olumsuz yazan yerleri silin.
 
Teşekkürler Dediğiniz Gibi Yaptığımda Kod Çalıştı. Ama Hep 1 Yazıyor

p7ip2ng.png

ff
hizliresim.com hizliresim.com

Bu şekilde yapabilir miyiz bunu ?
 
Butona ikinci kez bastığınızda yeniden kontrol edecek "Olumlu 1" yazan yine olumluysa "Olumlu 2" yazacak.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst