Arama formülü ve sonuç

[imrecep]

Merhaba arkadaşlar,

bi konuda yardımlarınıza ihtiyacım var.yardımcı olursanız memnun olacağım.

Excelde bir değeri sayfaların tamamında aranmasını ve bulunan sonucu liste halinde vermesini istiyorum.

örnek: Excel sayfalarının her birinde ''kalem'' adını arıyorum,ve sonuç olarak ''kalem'' sayfa2,3,4,7 de bulunuyor.bunun bana liste halinde verilmesini istiyorum!!!

**örnek excel 2007 dosyası ektedir

 

[zafer]

Merhaba

Ekli dosyayı inceleyiniz

 

[imrecep]

Merhaba,
Öncelikle çok teşekür ederim

Ekli dosya tam aradığım gibi,bunu nasıl yaptığınızı belirtirmisiniz lütfen.
Ekteki örnekti,benim asıl listem daha karmaşık,bu örnekten uyarlama yaparak diğer excel dosyamda uygulama yapacağım.
Ayrıca 'Tarih'sutünü da listele butonuna tıklanınca sayıya dönüşüyor,tarih olarak görünmesini istiyorum.
yardımlarınıcı rica ederim.
saygılar

 

[zafer]

Merhaba

Bazı kodları açıklamasını yaptım.

Siz EXCEL DERSHANESİ bölümünde döngüler ve Makro'lar konularını inceleyiniz.

Aşağıdaki kodları oradan öğrendiklerinizle daha iyi anlayacaksınız.
Zaten kodları daha iyi anlamanız için basit yazdım

Sub listele1()
Application.ScreenUpdating = False

'arama sayfasını s1 ismiyle sabitliyoruz "atıyoruz"
's1 değilde başka bir ismde olabilir

Set s1 = Sheets("ARAMA")

'arama sayfasında a3 ile d65000 arasını temizliyoruz
s1.Range("A3:D65536").Clear

'arama sayfasındaki A1 hücresinde yazan değeri
'ARANAN değişkenine atıyoruz
ARANAN = s1.Range("A1")

'Dosyada kaç adet sayfa olduğunu sayfa isimli değişkene atıyoruz
sayfa = Sheets.Count

'e değişkenine Arama sayfanın 1. sütununda dolu olan en son satır numarasını ata
E = s1.Cells(65536, 1).End(xlUp).Row + 1

'Döngü kuruyoruz.
'a değişkeni 1'den başlayıp Sayfa değişkeninin aldığı değere kadar dönecek
For A = 1 To sayfa
'A değişkenine atanan sayfa numarasına göre o numaradaki sayfa ismini alıyoruz.
'Siz sayfa ismiyle görürsünüz fakat Eklenen her sayfa için Sayfalar bir numara alırlar
AD = Sheets(A).Name

'ARAMA Sayfası için işlem yapılmayacak
'eğer AD değişkenine atanan isim ARAMA değilse işleme devam et
If AD <> "ARAMA" Then
'AD değişkenine atanan sayfayı seç
Sheets(AD).Select
'D değişkenine o sayfanın 1. sütununda dolu olan en son satır numarasını ata
D = Cells(65536, 1).End(xlUp).Row + 1



For Y = 2 To D

If ARANAN = Cells(Y, 2) Then
c = c + 1
s1.Cells(E + c, 1) = Cells(Y, 2)
s1.Cells(E + c, 2) = Cells(Y, 3)
s1.Cells(E + c, 3) = Cells(Y, 4)
s1.Cells(E + c, 3).NumberFormat = "dd.mm.yyyy"
s1.Cells(E + c, 4) = AD

End If
Next
End If

Next



s1.Select
End Sub

Ekli dosyanız ektedir

 

[imrecep]

Merhaba,
EXCEL DERSHANESİ bölümünü inceledim,aradıklarımı orada buldum,yönlendirmeniz için teşükürler.
Fakat bir soruma cevap orada ve diğer konularda bulamadım.

Bu ekteki dosyada arama yapıp bulduğum bilginin, ilgili sayfadaki satır rengini de son listede aynı renkle vermesini nasıl sağlayabilirim?

Mesela: Sayfa2 deki KALEM satırı mavi,Sayfa 3 teki de sarı...Arama sayfasında Listele yaptıktan sonra çıkan listede ilgili sayfadaki satır bilgileri dışında satır rengini de almasını istiyorum!!!

 

[zafer]

Merhaba

Koyu renkli satırları kodlarınızın arasına kopyalayınız.

.....
........
If ARANAN = Cells(y, 2) Then
[B]renk = Cells(y, 2).Interior.ColorIndex[/B]
c = c + 1
s1.Cells(E + c, 1) = Cells(y, 2)
[B]s1.Rows(E + c).Interior.ColorIndex = renk
[/B].....
......[B]

[/B]

 

[imrecep]

Merhaba
Benim listede bir kaç sorunum ve ek sorum var?
yardımlarınızı rica ederim.
İlginiz ve yardımlarınız için ne kadar teşekür etsem azdır,işim çok kolaylaştı
*dosya ektedir.

 

[imrecep]

merhaba
biraz önce gönderdiğim dosya hatalı.
lütfen şimdi ekte bulunanı inceleyiniz.
saygılar

 

[imrecep]

merhaba
yanlışlıkla bir önceki dosya göndermişim!
kusuruma bakmayın,
deneme son dosyası ektedir.

 

[imrecep]

merhaba değerli arkadaşlar,

sorunuma yanıt alamadım,
olumsuzda olsa bir yanıt alabilirmiyim lütfen,
Dosya ektedir.

Saygılar