bilgileri kurumlara göre listelemesi

[yolcu50]

Satırın sol başında malzemenin bulunduğu kurumun ismi yazılı ve satırın devamında bu malzemenin özelliği yazılı (Seri no, demirbaş no gibi). Bu bilgiler alt alta devamlılık gösteriyor ve değişik sayfalarda devam ediyor. Benim İstediğim değişik bir sayfada Kurumun adını yazdığım zaman tüm sayfalarda bu birimde bulunan malzemelerin listesini vermesi. şimdiden teşekkür ederim

 

[N.Ziya Hiçdurmaz]

Örnek bir dosya ekleyiniz onun üzerinde yardımcı olmaya çalışalım.

 

[yolcu50]

EKlentİmİ Yaptim

 

[mrttrn]

Sn yolcu50;
Kitap1.xlsx dosyası excel 2007 dosyası, 2003 ile uyumlu değil.Çalışmıyor.
Onun için excel 2003 ve office XP ile uyumlu hale getiren 27,6 MB lık dosya aşağıdaki linkte mevcuttur.
Diğer üyelerin dikkatine sunulur.

http://download.chip.eu/tr/Office-2007_den-oenceki-Sueruemler-_cin-Uyumluluk-Modu-3_1310576.html

Sorunuza gelince, örneğin Seçilen arama kriteri "GÜVENLİK" olsun
sadece EL TELSİZİ sayfasında GÜVENLİK olan satır görünmesi.
sadece OTO TELSİZİ sayfasında GÜVENLİK olan satır görünmesini istiyor sunuz?.
Yoksa bu ikisinin ayrı bir sayfada alt alta yazılmasımı istiyor sunuz?

 

[yolcu50]

ArkadaŞlar Kusura Bakmayin Ofİce 2003 E Uyarlayip Ekledİm

 

[yolcu50]

Her İkİ Sayfadakİ Bİlgİlerİn Alt Alta Gelmesİnİ İstİyorum Ayrica İlgİnİz İÇİn TŞkl

 

[yolcu50]

Sn yolcu50;
Kitap1.xlsx dosyası excel 2007 dosyası, 2003 ile uyumlu değil.Çalışmıyor.
Onun için excel 2003 ve office XP ile uyumlu hale getiren 27,6 MB lık dosya aşağıdaki linkte mevcuttur.
Diğer üyelerin dikkatine sunulur.


Sorunuza gelince, örneğin Seçilen arama kriteri "GÜVENLİK" olsun
sadece EL TELSİZİ sayfasında GÜVENLİK olan satır görünmesi.
sadece OTO TELSİZİ sayfasında GÜVENLİK olan satır görünmesini istiyor sunuz?.
Yoksa bu ikisinin ayrı bir sayfada alt alta yazılmasımı istiyor sunuz?

EVET BU İKİSİNİ AYRI BİR SAYFADA ALT ALTA YAZILMASINI İSTİYORUM

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Dim SR As Worksheet
Dim SAY, SUT As Long
Set SR = Sheets("RAPOR")
For SAY = 2 To Sheets.Count
For SUT = 2 To Sheets(SAY).[A65536].End(3).Row
If SR.[B3] = Sheets(SAY).Range("A" & SUT).Value Then
S = S + 1
SR.Range("B" & S + 7 & ":J" & S + 7) = Sheets(SAY).Range("A" & SUT & ":I" & SUT).Value
End If
Next
Next
End Sub

 

[yolcu50]

ÜSDAT teşekkür ederim güzel olmuş
MİSAL DEPO YU TARRATTIĞIMDA 7 DEĞERİ YAZIYOR
TEKRAR GÜVENLİĞİ TARATTIĞIMDA İLK İKİ SATIR GÜVENLİĞE AİT BİLGİLERİ YAZIYOR FAKAT ALTTA 5 SATIR DEPO BİLGİLERİ KALIYOR NASIL BİR DÜZELTME YAPACAĞIM

 

[yolcu50]

ilGİN İÇİN TŞK

 

[N.Ziya Hiçdurmaz]

Eder yanlız RAPOR sayfası en başta kalsın.

 

[yolcu50]

Üstad Rapor BaŞta Fakat Yenİ Bİr Rapor AlacaĞimda İlk Önce Sayfayi Temİzleyİp Yenİ DeĞerlerİ Sayfaya Öyle Rapor Etmem Gerekİyor Dİye DÜŞÜnÜyorum.

 

[yolcu50]

O Zaman Bİr Öncekİ Bİlgİlerİn Satir Olarak Fazla Olmasinin Bİr Zarari Olmaz . Sİlİnmez İse Son Taratilan A Aİt Bİlgİler Önce Taratilandan Satir Olarak Az İse Öncekİne Aİt Bİlgİler Alttakİ Satirda Kaliyor

 

[yolcu50]

SAYFAYA TEMİZLE BUTONU YAPTIM ÖNCE TEMİZLEYİP SONRA RAPOR ALIYORUM SLM..

Sub Seçileni_Temizle()
Sheets("RAPOR").Range("B8:J100").ClearContents
End Sub