Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 21-04-2017, 13:52   #1
alooo
 
Giriş: 20/09/2006
Mesaj: 60
Excel Vers. ve Dili:
Excel 2013 TR
Varsayılan çoklu hücre içeriklerini bir metinde arama ve ...

Arkadaşlar,
Yapmak istediğim şeyi açıklayacak olursam;
a1:a81 hücreleri içerisinde il isimleri mevcut. b1:b500 hücresinde ise il isimleri geçen metin mevcut (Ör: Ankara'dan abim geldi.)
Benim istediğim ise; b1:b500 hücrelerinin 81 il ismine göre aranması ve hangi il ismi yazıyor ise c1:c500 hücrelerine bulduğu ili yazması.

komutlar ile her hücreye formül yazıldığı zaman hem yer hem zaman kaybı söz konusu. Zira bu işlemi ilçelere göre (yaklaşık 900 adet) yapmam gerek.

Bu hususta kafa yoran (yardımcı olsun veya olmasın) arkadaşlara şimdiden teşekkür ederim.

(Yükleyeceğiniz örnek dosya söz konusu ise forum dışı alanlara yükleyerek link vermenizi rica ederim.)

Örnek dosya: http://dosya.co/2ik8d3s45bz9/ornek.xlsx.html
alooo Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 14:02   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 737
Excel Vers. ve Dili:
2010-2016
Varsayılan

Aşağıdaki gibi deneyin.
[code]
Sub ASKM_Kelime Bul()
Dim SonSatir, SonSatir2 As Long
Dim Aranan As String
SonSatir = Range("A" & Rows.Count).End(xlUp).Row
SonSatir2 = Range("A" & Rows.Count).End(xlUp).Row
On Error Resume Next

Application.ScreenUpdating = False

For i = 1 To SonSatir
Aranan = Cells(i, "A")
For k = 1 To SonSatir2
Sayi = WorksheetFunction.CountIf(Cells(k, "B"), "*" & Aranan & "*")
If Sayi = 1 Then
Cells(k, "C") = Aranan
End If
Next k
Next i

Application.ScreenUpdating = True
MsgBox "İşlem Tamam...", vbCritical, "ASKM"
End Sub
[\code]
__________________
excel 2002- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 21-04-2017, 14:51   #3
alooo
 
Giriş: 20/09/2006
Mesaj: 60
Excel Vers. ve Dili:
Excel 2013 TR
Varsayılan

Teşekkürler üstadım bir kaç ayarlama sonrası işimi gördü. Sağ olasın.

(KONU KİLİTLENEBİLİR)
alooo Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 15:01   #4
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 737
Excel Vers. ve Dili:
2010-2016
Varsayılan

Rica ederim. Kolay gelsin.
__________________
excel 2002- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 21-04-2017, 16:02   #5
alooo
 
Giriş: 20/09/2006
Mesaj: 60
Excel Vers. ve Dili:
Excel 2013 TR
Varsayılan

Üstadım,
konuyla ilgili olarak "seyhan" ise içerikte sadece "seyhan" kelimesini nasıl aratırız? Zira, "han" denilen bir ilçe var ve "seyhan" içinde bunu bulduğundan "han" olarak getiriyor.

Özetle aranılan neyse onu getirmemiz mümkün müdür?
alooo Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 16:46   #6
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 737
Excel Vers. ve Dili:
2010-2016
Varsayılan

Örnek dosya eklerseniz yardımcı olayım.
__________________
excel 2002- türkçe
askm Çevrimiçi   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 18:58


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - Investing - Hurda - Kobi Danışmanlık - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu OSGB - Lingerie - Dyeing Machine - Çorlu Temizlik- Didim Çatı İnşaat- Çorlu Ambar- Hava Çekimi- Hazır Site- SEO- Çorlu Estetik
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden