Soru EĞER formülü kullanarak sonuç doğruysa listeden seçim yapmak

[opicante]

Merhabalar öncelikle, Adım Yusuf. Forumda yeniyim ve bu benim ilk soru başlığım.

Benim sorum şu şekilde ;

Elimde bir liste var. ve bu liste elma, maydonoz, marul, roka vs. gidiyor

A1 hücresine ELMA yazdığımda A3 hücresinde liste oluşmasını KG mı? ADET mi? diye sormasını,
yine A1 hücresinde ELMA değilde başka bir şey yazdığımda A3 hücresi otomatik DEMET yazmalı.

böyle bir formül oluşturmak mümkün mü?

benim işim A1 ve A2 hücresi ile olacak.
A1 e Elma yazdım Tab'a bastım A2'ye 5 yazdım Tab'a bastım A3'de listeleme KG mı ADET mi seçim yaptım.
Enter'e bastım A1'e Marul yazdım Tab'a bastım A2'ye 2 yazdım A3; A1 de elma olmadığı için otomatik Demet yazdı.

İlginiz için şimdiden teşekkürler.

 

[çıtır]

Yusuf Bey;
Foruma hoş geldiniz.
Sorunuzu örnek excel dosyası ekleyerek sorarsanız,daha kısa sürede doğru cevaplar alabilirsiniz. Örnek excel dosyası ekleme hakkında bilgi edinmek isterseniz: https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/ bakınız

 

[EmrExcel16]

Merhaba Öncelikle foruma hoş geldiniz.

İstediğiniz A1 hücresine Elma yazarsanız A3 hücresinden listeden KG veya ADET seçeceksiniz , hariçi ne yazarsanız A3 hücresine Demet yazması anladım doğru mudur ? Eğer doğru ise bu sadece Elma ile sınırlı mı ?

 

[opicante]

Evet doğru. Sadece elma.

 

[opicante]

Yusuf Bey;
Foruma hoş geldiniz.
Sorunuzu örnek excel dosyası ekleyerek sorarsanız,daha kısa sürede doğru cevaplar alabilirsiniz. Örnek excel dosyası ekleme hakkında bilgi edinmek isterseniz: https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/ bakınız

Tekrardan hoşbuldum.Belirtmiş olduğunuz makaleyi okudum. Örnek excel dosyası eklemek çok mantıklı geldi.
Örnek excel dosyası linki;

Örnek Excel (Google Drive)
https://drive.google.com/file/d/133MazMxkeIzF4mrh2bRahwsyB-_BbPNj/view?usp=drivesdk

Merhaba Öncelikle foruma hoş geldiniz.

İstediğiniz A1 hücresine Elma yazarsanız A3 hücresinden listeden KG veya ADET seçeceksiniz , hariçi ne yazarsanız A3 hücresine Demet yazması anladım doğru mudur ? Eğer doğru ise bu sadece Elma ile sınırlı mı ?

Kesinlikle Doğrudur. Sadece elma ile sınırlıdır.

 

[çıtır]

Göntermiş olduğunuz link açılmıyor.Ben anlatomlarınızdan çıkardığımla bir kod oluşturdum.Sayfa kodu olarak kopyalayınız.A1 Hücresine yazı yazdığınızda çalışır.A3 Hücresinde açılır liste oluşur ve seçim yaparsınız.Umarım istediğiniz gibi olmuştur.Olmaz ise yeniden dosya ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
With ActiveSheet
.Range("A3").Validation.Delete
If Range("A1") = "Elma" Then
.Range("A3") = ""
.Range("A3").Validation.Add xlValidateList, Formula1:="KG,ADET"
  MsgBox "A3 Hücresinden seçim yapınız."
  Else
.Range("A3") = "DEMET"
 End If
 End With
 End Sub

 

[EmrExcel16]

Merhaba , alternatif olarak

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim dizi(1 To 2), Emr, i
    Dim durum As Boolean
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        If Range("A1").Value <> "Elma" Then
            Range("A3").Value = "Demet"
        Else
            durum = False
            dizi(1) = "K": dizi(2) = "A"
            Do Until durum = True
                Emr = InputBox("Bir Seçim yapın: (KG,ADET)")
                For i = 1 To 3
                    If Left(UCase(Emr), 1) = UCase(dizi(i)) Then
                        If Left(UCase(Emr), 1) = "K" Then Range("A3").Value = "KG"
                        If Left(UCase(Emr), 1) = "A" Then Range("A3").Value = "ADET"
                        durum = True: Exit For
                    End If
                Next i
            Loop
            Erase dizi: Emr = "": i = Empty
        End If
    End If
End Sub