Süzüleni yazdırmak

[RIKU]

Merhaba, benim istediğim a sütununda süzülen ismin c1 hücresinde yazılmasıdır. Şimdiden Teşekkürler...

 

[alpi]

İşi uzatmadan C1 hücresine =A2 yazsak olmaz mı?

 

[RIKU]

Ama "kırmızı"'yı süzdüğümüzde kırmızı yazmıyor. Hala "beyaz" gözüküyor.
Sanırım ben tam olarak anlatamadığım için yanlış anladınız.

 

[Levent Menteşoğlu]

Bu işlemi sanıyorum fonksiyonlarla yapmak zor, aşağıdaki kodu deneyin.

Sub suzulenibul()
[c1] = [a1].End(4)
End Sub

 

[Ali]

Bu işlemi sanıyorum fonksiyonlarla yapmak zor, aşağıdaki kodu deneyin.

Formül olunca formüller ile son değer alınması sıkıntı oluşturuyor en iyi yöntem Levent Bey'in önerdiği gibi makro.

Formülle C1 değilde C2'de göstermek istenirse

C2'ye

=EĞER(A2<>"";EĞER(EYOKSA(KAÇINCI(A2;$A$1:A1;0));A2;"");"") yazıp aşağı doğru çekin.

 

[RIKU]

Maalesef olması Sn LeventM...

 

[RIKU]

Sn. Ali , sizin çözüm öneriniz de takdire değer; fakat bana süzdüğüm kelimenin tek bir hücrede sabit olarak yer alması lazım. Yine de sağolun.

 

[Levent Menteşoğlu]

Form&#252;llerle e&#287;er bir s&#252;tun ilave edersek &#351;&#246;yle bir &#231;&#246;z&#252;mde &#252;retilebilir.

 

[Ali]

Private Sub Worksheet_Calculate()
[c1] = [a1].End(4)
End Sub

&#351;eklinde yaparsan &#231;al&#305;&#351;&#305;r.

 

[alpi]

Private Sub Worksheet_Calculate()
[c1] = [a1].End(4)
End Sub

şeklinde yaparsan çalışır.

Yukarıdaki satırda 4'ün anlamı nedir? Açıklar mısınız?

 

[RIKU]

Valla her yere tek tek kopyaladım, çıkardım, yazdım. Ama maalesef olmadı. Sayın Ali, Sayın LeventM ve Sayın Alpi çabalarınız için teşekkürler.

 

[Levent Menteşoğlu]

Yukarıdaki satırda 4'ün anlamı nedir? Açıklar mısınız?

Anlamı aşağıdaki gibidir.

4=xldown

3=xlup

2=xltoleft

1=xltoright

 

[alpi]

Say&#305;n Levent'in yapt&#305;&#287;&#305; uygulama &#231;al&#305;&#351;&#305;yor ben inceledim. Ve hatta bir&#351;eyler bile &#246;&#287;rendim bu vesileyle kendisine te&#351;ekk&#252;r ediyorum.

Bende &#351;u 4 e tak&#305;ld&#305;m ne anlama geliyor neyi ifade ediyor &#231;&#246;zemedim.

Edit
Te&#351;ekk&#252;r ederim Say&#305;n Levent sayenizde bir &#351;ey daha &#246;&#287;renmi&#351; oldum

 

[Levent Menteşoğlu]

Valla her yere tek tek kopyaladım, çıkardım, yazdım. Ama maalesef olmadı. Sayın Ali, Sayın LeventM ve Sayın Alpi çabalarınız için teşekkürler.

Süzme işlemi yapıldığında tetiklenen bir olay yoktur, bu sebeple kodu bir butona bağlayarak çalıştırmanız gerekir yada butonsuz çalıştırmak için selectionchange olayına yazarsınız,böylece herhangi bir hücreyi seçtiğinizde kodu çalıştırabilirsiniz.

 

[alpi]

Sayın Levent kodu şu şekilde yazmak daha doğru olmaz mı?

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[c1] = [a1].End(4)
Application.EnableEvents = True
End Sub

Bu vesileyle bu olay birden fazla çalışmamış olur. Bunuda sizden öğrenmiştim .

 

[RIKU]

Sayın LeventM, sayfa1'e selectionchange ile kodu yazdım. Ama yine olmadı.

 

[Ali]

Sn RIKU Levent Bey'in örneği gayet güzel çalışıyor. Tek sütunda bulabildiğim sistem daha önce yazdığım örnek ve Levent Bey'in belirtmiş olduğu makro iledir.

Örnek ektedir.

 

[RIKU]

Evet, evet şimdi oldu. Bu sayede yine birşeyler öğrendik. Güzel bir paylaşım oldu yine.

 

[Levent Menteşoğlu]

Sn RIKU Levent Bey'in örneği gayet güzel çalışıyor. Tek sütunda bulabildiğim sistem daha önce yazdığım örnek ve Levent Bey'in belirtmiş olduğu makro iledir.

Düşündükçe insanın aklına birşeyler geliyor calculate olayının çalışması için süzmeye göre çalışan tek bir formül yeterlidir. Örneğin A1 hücresine aşağıdaki formülü yazalım. Tabii kodu yine calculate olayına yazacağız.


=ALTTOPLAM(2;A2:A65536)

Not:Bu düşüncede Ali beyin sayesinde oluşmuştur.

 

[Ali]

=ALTTOPLAM(2;A2:A65536)

.

Kısa ve süper çözüm,ellerinize sağlık.