Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 12-10-2017, 21:24   #1
Alanore
 
Giriş: 12/10/2017
Mesaj: 2
Excel Vers. ve Dili:
2010
Varsayılan Hücre içinde 2 farklı kelime arama

Merhaba,

Elimde stok verileri var. Bunu makro ile daha anlaşılır ve basit hale getirmek istiyorum.
Örnek tablom;

Adı ------------------------------------- |Miktar -|OlcuBirimi
PARİS AYNALI ŞİFONYER PAKET 6-1 |31,00 |Adet
PARİS AYNALI ŞİFONYER PAKET 6-2 |31,00 |Adet
PARİS AYNALI ŞİFONYER PAKET 6-3 |32,00 |Adet
PARİS AYNALI ŞİFONYER PAKET 6-4 |29,00 |Adet
PARİS AYNALI ŞİFONYER PAKET 6-5 |30,00 |Adet
PARİS AYNALI ŞİFONYER PAKET 6-6 |24,00 |Adet
İSTANBUL AYNALI ŞİFONYER PAKET 3-1 |0,00 |Adet
İSTANBUL AYNALI ŞİFONYER PAKET 3-2 |0,00 |Adet
İSTANBUL AYNALI ŞİFONYER PAKET 3-3 |0,00 |Adet


A stununda birbirinden farklı 1500 adet hücre var. Ben A stunundaki stok isimlerinde "PARİS" VE "ŞİFONYER" kelimelerinin aynı anda geçtiği hücreleri bulup, bunların karşısındaki sayılardan en küçüğünü getirmesini istiyorum. Yani ben yeni sayfada A1 hücresine "PARİS ŞİFONYER" manuel olarak (yada nasıl yazdırmam uygun olur?) yazacağım fakat B1 hücresine yazdığım formül sayesinde bana en düşük sayı olan 24 sayısını getirmeli.

5 gündür min, düşeyara, mbul, indis, kaçıncı vs. kombinasyonlarını deneyerek yapmaya çalışıyorum. İki kelimenin aynı hücrede aynı anda bulunma koşulunu bir türlü sağlayamadım. Umarım yardım eden çıkar.
Alanore Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 22:17   #2
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 933
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Merhaba,
A sütununda malzeme isimleri, B sütununda adet olarak en küçüğünü bulmak istediğiniz sayıların bulunduğunu varsayarak aşağıdaki kodları yazdım.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub en_kucuk_miktar()
Dim sh As Worksheet, ss As Long, z As Object, veri As Object
Dim sat As Long

Set sh = Sheets("Sayfa1")
ss = sh.Range("A56789").End(3).Row
Set z = CreateObject("VBScript.regexp")
    z.Global = True
    z.Pattern = "(AYNALI)|(ŞİFONYER)"
    For i = 1 To ss
        Set veri = z.Execute(sh.Range("A" & i).Value)
        If veri.Count = 2 And sh.Cells(i, 2).Value > 0 Then
            If i > 1 Then
                deg = (sh.Cells(i, 2).Value * 1)
                If deg < az Then
                    az = deg
                    sat = i
                End If
            ElseIf i = 1 Then
                deg = (sh.Cells(i, 2).Value * 1)
                az = deg
                sat = i
            End If
        End If
    Next i
    MsgBox "Aranan verilerden en düşük değeri içeren: " & _
            az & vbCrLf & "Bulunduğu satır: " & sat, vbInformation, "antonio"
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-10-2017, 01:18   #3
muygun
Özel Üye
 
muygun kullanıcısının avatarı
 
Giriş: 06/07/2004
Mesaj: 6,717
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Merhaba;
Alternatif olsun.
İyi çalışmalar.

Link:
http://www.dosya.tc/server10/yf6hw4/...arama.zip.html
Eklenmiş Dosyalar
Dosya Türü: zip Alanore-Hücre içinde 2 farklı kelime arama.zip (10.3 KB, 15 Görüntülenme)
__________________
Excel-2003 - Türkçe
muygun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-10-2017, 20:30   #4
Alanore
 
Giriş: 12/10/2017
Mesaj: 2
Excel Vers. ve Dili:
2010
Varsayılan

O kadar zaman uğraştıktan sonra cevabın bu kadar kısa sürede gelmesi beni şok etti. Çok teşekkür ederim vakit ayırdığınız için. Sağolun.
Alanore Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-10-2017, 22:18   #5
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 933
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Alıntı:
Alanore tarafından gönderildi Mesajı Görüntüle
O kadar zaman uğraştıktan sonra cevabın bu kadar kısa sürede gelmesi beni şok etti. Çok teşekkür ederim vakit ayırdığınız için. Sağolun.
Makroların gücü, onları anlamaya başladıktan sonra daha iyi anlaşılır.
İyi çalışmalar.
__________________
Özel mesaj sistemini devre dışı bıraktım.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-10-2017, 00:21   #6
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,580
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Alternatif olarak Sn. muygun'un eklediği dosyada C2 hücresine aşağıdaki DİZİ formülü uygulayarak kullanabilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=MİN(EĞER(EĞER(ESAYIYSA(MBUL(rapor!A2;data!A2:A41));SATIR(data!A2:A41))=EĞER(ESAYIYSA(MBUL(B2;data!A2:A41));SATIR(data!A2:A41));data!B2:B41))
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 22:42


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden