metin içeren ve aynı koşula uyan hücrelerin ait olduğu satırları altalta sıralamak

[Ergün Güler]

Merhaba,
Ekteki dosyamda "Tamirler2008" sayfamda B sütununda makine adları var.
Diğer sayfada sadece ismini kendim belirlediğim makinenin kayıtlarının olmasını istiyorum. Otomatik süz ile nasıl yapıldığı gibi. Ancak bunu ben fonksiyonlar ile yapmak istiyorum. Nasıl yapabilirim?
(Ekteki dosyada gerekli açıklamalar yaptım)
İyi çalışmalar

 

[ozgretmen]

MSD saydasında B2 hücresine Makinenin ismini yazıp , enterlayın.İyi çalışmalar.

 

[Ali]

Dosyanız ektedir.B1 hücresine ölçütünüzü yazınız.

Formüller dizi formülü olup formül çubuğunda iken direk ENTER tuşuna basılmadan CTRL+SHIFT+ENTER tuşlarına birlikte basılarak girilmelidir.

Not: Excel formül başına ve sonuna otomatik olarak { } ayıraçlarını ekleyecektir.

 

[janveljan]

MSD 2 sayfası istediğiniz gibi düzenlendi iyi çalışmalar.

 

[Ergün Güler]

Sayın Ali, Sayın Janveljan,
Hepinize ayrı ayrı teşekkürler. Tam istediğim gibi.
Birşey sormak istiyorum. "tamirler2008" sayfasındaki verileri Hücre özelliklerinden "hücreleri sığdır demiştim önceden. Sonuç sayfasında farklı makineler sıralanırken hücreler en son şekli ile kalıyor. Mesela MTS makinesi sıralanırken metni çok olan hücrelerin bazıları hücrelere sığmadığından okunmuyor. Bazı hücreler ise çok az metin içermesine rağmen hücre çok büyük kalıyor. Bu durumu çözmek için hücreleri yeniden düzenliyorum.
Benim iseğim şu; hangi makineyi sıralarsam sıralayım sıralanan hücreler ya otomatik boyutlansın yada veri sayfasındaki gibi aslına sadık kalsın.

(Koşullu biçimlendirme yaparken; 1 satır gri 1 satır beyaz. boş olanlar ise kenarlıksız yaptım.
1.koşul
=VE(DEĞİL($B1="");MOD(SATIR($B1);2)=1)
2.koşul
=VE(DEĞİL($B1="");MOD(SATIR($B1);2)=0)
3.koşul
=$B1=""
daha değişik alternatifleri var mı?)


(Sayın ozgretmen dosyanız açılmılyor)

 

[ozgretmen]

(Sayın ozgretmen dosyanız açılmılyor)

Açılmıyordan kastınız nedir anlamadım.Dosya açılıyor ve de tıkır tıkır çalışıyor.

 

[Ergün Güler]

Açılmıyordan kastınız nedir anlamadım.Dosya açılıyor ve de tıkır tıkır çalışıyor.

Selam ozgretmen,
dosyayı ilk yüklediğimde mokralaı etkinleştir tuşuna bastıktan sonra dosya açılamıyor gibi bir arıza verip açmıyordu.
Şimdi dosyayı yeniden yükledim. Dediğiniz gibi tıkır tıkır çalışıyor. Çok teşekkürler.
Makro konularını bilmediğimden fonksiyonlu kullanmayı tercih ediyorum.
Ancak Makro ve Kod konularını öğrenmek istiyorum. Siz Ne tavsiye edersiniz? Önce nereden nasıl başlamalıyım?
İyi çalışmalar

 

[Ergün Güler]

Açılmıyordan kastınız nedir anlamadım.Dosya açılıyor ve de tıkır tıkır çalışıyor.

Sayın ozgretmen, B1 hücresindeki makine adını değiştirip enter'a basınca "işlem tamamdır" deniliyor. Ancak herhangi bir sıralama yapmıyor.
Dosya çalışmıyor.
İyi çalışmalar

 

[janveljan]

MSD sayfasının kod kısmına aşağıdaki kodları eklerseniz, B1 hücresinin her değişiminde hücrelere sığdıracaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
    Cells.Select
    Cells.EntireRow.AutoFit
    Cells(1, 2).Select
End If
End Sub

 

[Ergün Güler]

Teşekürler Sayın janveljan.

 

[Ergün Güler]

Arkadaşlar, 1.sorumdan biraz farklı sorum olacak ekte dosyayı gönderdim.
Açıklamalar dosyadadır.
Kolay gelsin.
iyi çalışmalar.

 

[Ergün Güler]

Arkadaşlar,
Cevaplarınızı bekliyorum.
İyi çalışmalar.

 

[Ömer]

Arkadaşlar, 1.sorumdan biraz farklı sorum olacak ekte dosyayı gönderdim.
Açıklamalar dosyadadır.
Kolay gelsin.
iyi çalışmalar.

Merhaba,

Dosyanız ektedir..

.

 

[Ergün Güler]

Sayın Espiyonaj,
Çok teşekkür ederim. Emeğinize sağlık.
Birkaç sorum olacak.
1-)
Aşağıdaki gibi koşullu biçimlendirme yaptım. Bu sayede boş olan hücrelerin kenarlık olmuyor ve dolu hücreler ile bir gri bir beyaz yapabiliyorum.

=$A9=""
=VE(DEĞİL($A9="");MOD(SATIR($A9);2)=1)
=VE(DEĞİL($A9="");MOD(SATIR($A9);2)=0)

Ancak, yazıcıdan çıktı aldığım zaman ve baskı önizleme yaptığım zaman boş olan ancak formül içeren hücreler neden bilgi olarak görünüyor? bu yüzden neden 2 sayfalık bilgi 22 sayfa görünüyor.? bunu nasıl engelleyebilirim.
Her formül olan hücre baskı önizlemede ve yazıcı çıktısında böyle bilgi olarak mı görünüyor?
Diyeceksiniz ki; baskı önizleme yaptıktan sonra kontrol edip dolu sayfaları yazdırın. Evet böyle yaptığımda, örneğin 2 sayfalık dökümanı yazdırdığımda 2 / 22 sayfa yazıyor. yani 22 sayfanın 2. sayfası diye sayfa sonuna yazıyor. Bu da okuyan kişinin sayfanın devamı olduğunu sanmasına sebep oluyor.
(Satır sayısı makineden makineye değiştiği için satır sayısını maksimumda tutmam lazım.)

2-) Makine ismini değiştirdiğim zaman hücre kenarlıkları geniş kalıyor. ve tek tek kenarlıkları ayarlamam gerekiyor.bunu nasıl otomatik fitleyebilirim?

3-) bu veya buna benzer excel formüllerinde sayfa adını ölçüt olarak nasıl kullanabilirim?
B1 hücresine makinenin adını yazacağıma sayfa adını değiştirince hem B1 hücresi değişsin. Hem de sayfa adını taşıyan makinenin bilgileri gelsin.

Kolay gelsin.
İyi çalışmalar.

 

[Ömer]

Merhaba,

13. mesajdaki dosyayı yeniledim, tekrar incelermisiniz..

3. sorunuzla ilgili dolaylı fonksiyonunu kullanabilirsiniz..

.

 

[Ergün Güler]

Sayın Espiyonaj,
Ellerinize sağlık. Harika olmuş. Çok teşekkür ederim.
Ayrıca, sayın Ali ve sayın Janveljan'a da ayrıca çok teşekkürler.

Çok soru soruyorum ama,
"3. sorunuzla ilgili dolaylı fonksiyonunu kullanabilirsiniz.." demişsiniz. sizin önereceğiniz bir link var mı?
bir de sizin güncellediğiniz dosyadaki makroyu Sayın Ali'nin gönderdiği dosyaya uygulayabilir miyim? hatta bezner dosyalara uygulayabilir miyim?

Çok teşekkürler.

 

[Ömer]

Merhaba,

13. mesajı tekrar incelermisiniz. Dosya içinde dolaylı fonskiyonuyla ilgili küçük bir örnekte görebilirsiniz..

 

[Ergün Güler]

Çok teşekkürler Espiyonajl,
Bu örnek başka çok işime yarayacak. Ancak, benim kastettiğim şu idi: Örneğin Sayfa adı MSD olsun. Sayfa adı MSD ise MSD makinesine ait bilgiler sıralansın. Yani ölçütümüz B2 Hücresi değil de sayfa adı olsun. Sayfa adını değiştirince örneğin, MTS-1 yapınca MTS-1 makinelerine ait bilgiler sıralansın.
İyi çalışmalar.

 

[Ömer]

Çok teşekkürler Espiyonajl,
Bu örnek başka çok işime yarayacak. Ancak, benim kastettiğim şu idi: Örneğin Sayfa adı MSD olsun. Sayfa adı MSD ise MSD makinesine ait bilgiler sıralansın. Yani ölçütümüz B2 Hücresi değil de sayfa adı olsun. Sayfa adını değiştirince örneğin, MTS-1 yapınca MTS-1 makinelerine ait bilgiler sıralansın.
İyi çalışmalar.

=SAĞDAN(HÜCRE("DosyaAdı");UZUNLUK(HÜCRE("DosyaAdı"))-BUL("]";HÜCRE("DosyaAdı")))

B1 hücresine yazınız..
.

 

[Ergün Güler]

Saın espiyonajl,
Çok teşekkürler.
çok yerde istifade edeceğim. Yalnız birşey dikkatimi çekti: başka sayfanın bir hücresinde işlem yapıp daha sonra yeniden formül olan sayfaya gittiğimizde başka sayfanın ismi yazıyor. ancak, sayfanın herhangi bir yerine tıklayınca düzeliyor.
Daha da enteresan olanı: başka excel dosyası açınca açılan dosyanın sayfa adını yazıyor. Bu sorunda asıl dosyaya tıklayınca sorun düzeliyor. herhade "dosyaadı" açık olan ve en son işlem yapılan excel dosyasının sayfasının adını yazıyor.
Yine de bir çok işimi görür.
Ancak işler karışıacak gibi.

İyi çalışmalar.