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

[1omer1]

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.

 

[Muzaffer Ali]

Merhaba.
A1'e örneğin 2 yazarsanız 34-38 döner.

=ARA(A1;{0;1;2;3;4;5;6};{"0";"13-18";"34-38";"Üç";"Dört";"Beş";"Tek"})

 

[cemshan]

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

 

[1omer1]

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 ?

 

[Muzaffer Ali]

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 ?

Birkaç örnek söylerseniz ona göre cevap verebilirim.

 

[1omer1]

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.

 

[Muzaffer Ali]

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.

 

[1omer1]

Kitap3.xlsx dosyasını indir - download

Kitap3.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Yükledim bu linkten bakabilirsiniz yardımınız için teşekkürler.

 

[Muzaffer Ali]

Sonuç kısmını da beklentiniz doğrultusunda doldurun ki ona göre bir çözüm üretelim.

 

[Muzaffer Ali]

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.

 

[1omer1]

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

 

[Muzaffer Ali]

Merhaba.

Butona tıkladığınızda işlem gerçekleşecektir.

Kitap3__1_.xlsm dosyasını indir - download

Kitap3__1_.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[1omer1]

Ç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

 

[Muzaffer Ali]

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.

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

 

[1omer1]

Eklediğiniz kod hata veriyor. Aşağıda paylaştım.

j3g2san.png

ff

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

 

[Muzaffer Ali]

Kodu düzelttim yeniden deneyin

 

[1omer1]

55mmo7w.png

ff

hizliresim.com

Denedim bu şekilde hata veriyor.

 

[Muzaffer Ali]

SONUÇ OLUMLU YADA OLUMSUZ YAZILACAK DEĞER
kısmında hiçbir şey yazmamalı.
Yani Olumlu ve Olumsuz yazan yerleri silin.

 

[1omer1]

Teşekkürler Dediğiniz Gibi Yaptığımda Kod Çalıştı. Ama Hep 1 Yazıyor

p7ip2ng.png

ff

hizliresim.com

Bu şekilde yapabilir miyiz bunu ?

 

[Muzaffer Ali]

Butona ikinci kez bastığınızda yeniden kontrol edecek "Olumlu 1" yazan yine olumluysa "Olumlu 2" yazacak.