arama butonu ARA-BUL

[tmp5121]

ellerine sağlık çok güzel kod olmuş .Allah klavyene zeval vermesin.

de bu kodu nasıl kullanacaz onu bilmiyom işte

bir sayfaya nasıl entegre edecez.

 

[adrenalin65]

tşkrlr eline sağlık

 

[ades1]

tesekkur ederim aradıgım excel programına yardımcı olacak

 

[zupper]

Ekli dosyayı inceleyiniz.
HEPSİ seçeneği eklendi.

kusura bakma ama eklentiyi açamıyorum. bu eklentiyi almamızın başka bi yolu yok mu?

 

[tugcekym]

teşekkürler

 

[Emre Çinkılınç]

Örnek dosyanızı ekleyerek dosya üzerinde gerekli açıklamaları yapınız.

Sayın Orion1, günaydınlar iyi çalışmalar.
Bu çalışmanız gerçekten çok güzel ellerinize sağlık. Bir ricada bulunabilir miyim? Kendi çalışmama sizinkini uyarlayamadım. Sizinkinde 2-3 sayfa var ancak benim çalışmamda 100'ü bulacak sayfa sayısı. Bu konuda yardımcı olur musunuz?
http://www.excel.web.tr/f48/bul-ve-yazdyr-t170835.html

 

[Orion1]

Sayın Orion1, günaydınlar iyi çalışmalar.
Bu çalışmanız gerçekten çok güzel ellerinize sağlık. Bir ricada bulunabilir miyim? Kendi çalışmama sizinkini uyarlayamadım. Sizinkinde 2-3 sayfa var ancak benim çalışmamda 100'ü bulacak sayfa sayısı. Bu konuda yardımcı olur musunuz?
http://www.excel.web.tr/f48/bul-ve-yazdyr-t170835.html

Sayfa sayısı farketmez.İstediğiniz kadar sayfa ekleyebilirsiniz.Kodlar çalışacaktır.

 

[ozbinici07]

Merhaba Programızı Çok Beğendim Aşağıdaki Linkte Programınız İle İlgili Bir Yardım Konusu Açtım Bakım Yardımcı Olurmusunuz Acaba ?

http://www.excel.web.tr/f48/ara-bul-listbox-t170866.html

Sayfa sayısı farketmez.İstediğiniz kadar sayfa ekleyebilirsiniz.Kodlar çalışacaktır.

 

[istanbulcahan]

slm

bu kod işinize yarar inşallah bu konu hakkında öncede bilgiler var
maksat ek bilgi olsun

UserForma Bir TextBox1 ve CommandButton1 ekliyerek aşağıdaki kodları CommandButtonu clikliyerek açacağınız kod sayfasına yazın.

Private Sub CommandButton1_Click()
Dim i As Byte
If Len(TextBox1) > 0 Then
For i = 1 To Worksheets.Count
Call Myxxrt(Worksheets(i).Name)
Next
End If
End Sub

Private Function Myxxrt(ShName As String)
Dim MyRng As Range
On Error Resume Next
Set MyRng = Range(Sheets(ShName).Cells.Find(TextBox1, LookAt:=xlWhole).Address)
MsgBox "Aranılan değer " & ShName & " sayfasında " & MyRng.Address(False, False) & " hücresinde bulundu !"
Set MyRng = Nothing
End Function

Ekli dosyayı inceleyiniz.
HEPSİ seçeneği eklendi.

Merhaba. Ara bul çalışması ekteki gibi olabilirmi. İyi çalışmalar