Bul Butonuna tıkladığımda Aynı veya benzer sayı ve kelimeleri nasıl alt alta getirir?

[yer06]

Bul Butonuna tıkladığımda Aynı veya benzer sayı ve kelimeleri nasıl alt alta getirir?

Sevgili arkadaşlar bir buton yapıp tabi yanında birde boş kutucuk o kutucuğa kelime veya yazıyı yazdığımda direk benzerlerini alt alta getirsin bu konuda yardımcı olurmusunuz biraz acemiyim sevgi ve saygılarımla

 

[msinan987]

Sevgili arkadaşlar bir buton yapıp tabi yanında birde boş kutucuk o kutucuğa kelime veya yazıyı yazdığımda direk benzerlerini alt alta getirsin bu konuda yardımcı olurmusunuz biraz acemiyim sevgi ve saygılarımla

Arkadaşım sana bir dosya gönderiyorum umarım işine yarar. bende bu dosyayı bu Excel.web sitesinden almıştım.

 

[N.Ziya Hiçdurmaz]

yanıt

Küçük bir çalışma yaptım umarım işinize yarar.
Sub ara()
[a3:a23].ClearContents
If [a2] = "" Then
MsgBox "Önce aranılacak veriyi girmelisiniz."
Exit Sub
End If
For Each bul In Range("b3:h23")
alan = UCase(Replace(Replace(bul, "ı", "I"), "i", "İ"))
veri = UCase(Replace(Replace([a2], "ı", "I"), "i", "İ"))
If alan Like "*" & veri & "*" Then
bul.Copy
say = WorksheetFunction.CountA([a1:a65000])
Range("a" & say + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

 

[yer06]

yardımlarınzı için çok tşk ederim yanlız butona tıklamadan direk yazdığıklarını tek tek listeleyebilirmiyiz mesela Atatürk Ata yazdığımda içinde Ata geçenler yavaş yavaş tamamladığımda Atatürkü versin sevgilerimle

 

[Merhum İdris SERDAR]

yardımlarınzı için çok tşk ederim yanlız butona tıklamadan direk yazdığıklarını tek tek listeleyebilirmiyiz mesela Atatürk Ata yazdığımda içinde Ata geçenler yavaş yavaş tamamladığımda Atatürkü versin sevgilerimle

http://www.excel.web.tr/showthread.php?t=19034

Bu linkte yer alan dosyayı inceleyin.


..

 

[yer06]

yardım için tşk ederim peki ben bu makroyu iki sutuna nasıl uygularım bir saatttir uğraşıyrum iki sutuna uygulayamadım tşk ederim

 

[fakuru]

Süzme Yardım...

http://www.excel.web.tr/showthread.php?t=19034

Sayın yurttas, yukarıdaki linkini verdiğiniz dosyadaki süzme uygulamasından "içerir" olanını aşağıya eklediğim dosyadaki 1 no'lu çalışma sayfasındaki tüm kolonlara uygulamak istedim ama beceremedim. Yardımcı olursanız sevinirim...

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/showthread.php?t=19034

Sayın yurttas, yukarıdaki linkini verdiğiniz dosyadaki süzme uygulamasından "içerir" olanını aşağıya eklediğim dosyadaki 1 no'lu çalışma sayfasındaki tüm kolonlara uygulamak istedim ama beceremedim. Yardımcı olursanız sevinirim...

Dosyanızın kod sayfası kilitli. Kod eklemem için açmanız gerekir.


..

 

[fakuru]

Çok özür dilerim sayın yurttaş. şifre: a1b2c3d4

Dosyanızın kod sayfası kilitli. Kod eklemem için açmanız gerekir.


..

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/showthread.php?t=19034

Sayın yurttas, yukarıdaki linkini verdiğiniz dosyadaki süzme uygulamasından "içerir" olanını aşağıya eklediğim dosyadaki 1 no'lu çalışma sayfasındaki tüm kolonlara uygulamak istedim ama beceremedim. Yardımcı olursanız sevinirim...

Dosyanız ekte.

DOSYA GÜNCELLENDİ...

..

 

[fakuru]

Sayın yurttas, dosyada göremedim... Birşey eklenmediği gibi, olanlarda gitmiş...

ilginize teşekkür eder yeni dosyayı dört gözle beklerim...

Dosyanız ekte.

..

 

[fakuru]

Help

süzme uygulamasından "içerir" olanını dosyadaki 1 no'lu çalışma sayfasındaki tüm kolonlara uygulamak istiyorum.

 

[Merhum İdris SERDAR]

süzme uygulamasından "içerir" olanını dosyadaki 1 no'lu çalışma sayfasındaki tüm kolonlara uygulamak istiyorum.

Yanlış dosya eklemişim.

Yeniden yukarıya ekledim.

..

 

[fakuru]

Sayın yurttas; dosyada yine süzme yok...

Bunda da var bir hikmet

Sabırsızlıkla bekliyorum cevabınızı. İlginiz için çok teşekkür ederim.

Yanlış dosya eklemişim.

Yeniden yukarıya ekledim.

..

 

[Merhum İdris SERDAR]

İlk dosyada tamam yoktu.

Ancak yeni eklediğimde var. Eklediğim dosyayı açıyorum. Var.

1 nolu sayfanın 1. satırında her sütunda bir textbox olmak üzere 8 tane text box var.

Not: Dosyaya bakan başka arkadaş varsa, bi zahmet bir dönüş yapsın.
..

 

[fakuru]

üstadım şimdi oldu...

Allah razı olsun...

Harika oldu, emeğine sağlık...

İlk dosyada tamam yoktu.

Ancak yeni eklediğimde var. Eklediğim dosyayı açıyorum. Var.

1 nolu sayfanın 1. satırında her sütunda bir textbox olmak üzere 8 tane text box var.

Not: Dosyaya bakan başka arkadaş varsa, bi zahmet bir dönüş yapsın.
..

 

[gegiç83]

İçerir problemi

Merhaba benzer problemim var;bende genel sayfadaki verileri içerir özelliğine göre ilgili sayfalara atamıyorum.

Not: Programa hiçbir şifre eklemedim.
Not: Sayfalara da nasıl olması gerektiğini gösterir örneği elle girdim. Örnekteki gibi işlemi fonksiyon yardımıyla otomatik olarak girmek istiyorum.

İyi çalışmalar,
Gegiç83