Ara bul işaretle

[GanalıYıldız]

Arkadaşlar iyi günler,
Excel'e pek hakim değilim.o yüzden yardımınıza ihtiyacım var.
Excelde bir ad-soyad listem var bu davet listesi olucak.Adı soyadı arayıp bulmak ve yanına bir işaret koymanın bir yolu var mı?.ve aynı ad soyad 2.kez girilmemeli.

 

[İhsan Tank]

merhaba
verileri Bulur ve Renklendirir.

Private Sub CommandButton1_Click()
Dim neyi As String, rng As Range, alan As Range
neyi = Application.InputBox("A1:A65536 hücrelerinde, bulmak istediğiniz veri", , "")
Set alan = Range("A1:a65536")
alan.Interior.ColorIndex = xlNone
For Each rng In alan
If StrConv(rng, vbProperCase) = StrConv(neyi, vbProperCase) Then
rng.Interior.ColorIndex = 35
End If
Next rng
Set alan = Nothing
MsgBox "Blundu ve Renklendirildi."
End Sub

Mükerer Verileri Siler

Private Sub CommandButton2_Click()
For sil = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & sil), Range("A" & sil)) > 1 Then Rows(sil).Delete
Next
MsgBox "Mükerer Verilen Silindi."
End Sub

örnek dosya ektedir inceleyiniz

 

[mfacem]

merhaba
verileri Bulur ve Renklendirir.

Private Sub CommandButton1_Click()
Dim neyi As String, rng As Range, alan As Range
neyi = Application.InputBox("A1:A65536 hücrelerinde, bulmak istediğiniz veri", , "")
Set alan = Range("A1:a65536")
alan.Interior.ColorIndex = xlNone
For Each rng In alan
If StrConv(rng, vbProperCase) = StrConv(neyi, vbProperCase) Then
rng.Interior.ColorIndex = 35
End If
Next rng
Set alan = Nothing
MsgBox "Blundu ve Renklendirildi."
End Sub

Mükerer Verileri Siler

Private Sub CommandButton2_Click()
For sil = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & sil), Range("A" & sil)) > 1 Then Rows(sil).Delete
Next
MsgBox "Mükerer Verilen Silindi."
End Sub

örnek dosya ektedir inceleyiniz

Sayın cılgın86'lı,
elinize sağlık güzel bir çalışma olmuş. Szden öğrenmek istediğim söz konusu o kodları düğmelere nasıl aktardığınız. (Yani bağlantıyı nasıl kurdunuz. Ben düğme oluşturuyorum o kodları vba düzenleyicisine yapıştırıyorum ama düğmeye tıkladığımda "...... makrosu çalıştırılamıyor uyarısı geliyor. sizden ricam düğme oluştur>vba düzenleyicisne git...... şeklinde açıklarsanız sevinirim)

 

[İhsan Tank]

commanbutton oluşturulduktan sonra button çift tıklama ile içine girebilirsiniz. vba düzenleyicisinin içine girmiş olursunuz

 

[mfacem]

Sayın cılgın86'lı öncelikle ilginiz için teşekkür ederim.
VBA düzenleyicisine menüden giriyorum (geliştirici>visual basic) ondan sonra kodu yapıştııroyurm ancak kodu ilgili sayfadaki düğmeyle bağlayamıyorum. Sorunum bu. Umarım anlatabilmişimdir.

 

[İhsan Tank]

bu da video olarak gösterim
preview tıklayıp izleyebilirsiniz
dowland'ı gönderiyorum
http://www.upload.gen.tr/d.php/s10/2co6zu8d/commanbutton_video.idemo.html
http://www.upload.gen.tr/d.php/s10/2co6zu8d/InstantDemo.exe.html
deneyip bilgi verirseniz

 

[mfacem]

Teşekkür ederim. Dosyaları indirip izleyeyim. Daha sonra takıldığım yer olursa sizi tekrar rahatsız ederim Bu arada İlginiz için içtenlikle teşekkür ediyorum...

 

[İhsan Tank]

rica ederim sorularınızı çözebbiliyorsam ne mutlu bana ayrıca rahatsız olmam kendimi daha fazla geliştiryorum böyle