• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Y

yer06

Katılım
10 Haziran 2007
Mesajlar
48
Excel Vers. ve Dili
exel 2007 türkçe
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
 
yer06' Alıntı:
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
Genişletmek için tıkla ...

Arkadaşım sana bir dosya gönderiyorum umarım işine yarar. bende bu dosyayı bu Excel.web sitesinden almıştım.
 
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
 
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
 
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
 
Son düzenleme:
Help

süzme uygulamasından "içerir" olanını dosyadaki 1 no'lu çalışma sayfasındaki tüm kolonlara uygulamak istiyorum.
 
İ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.
..
 
üstadım şimdi oldu...

Allah razı olsun...

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

yurttas' Alıntı:
İ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.
..
Genişletmek için tıkla ...
 
İç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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst