bul makrosu

[aktif42]

Merhaba Arkadaşlar,
Bir eksel sayfasında mesela nevzat kelimesini içeren hücrenin olduğu satırı makro ile nasıl buldurabiliriz. Diyelimki nevzat kelimesi "G25" gücresinde ise makro ile 25. satır sonucunu nasıl elde edebiliriz. Şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Find komutunu kullanabilirsiniz.

satır = Cells.Find(What:="nevzat", LookAt:=xlPart).Row
MsgBox satır

 

[aktif42]

ÖmerBey,
Mükemmelsiniz. Teşekkürler.

 

[Orion1]

* Değişken tanıtıldı.Dikkat (Türkçe karakterler kullanılmadı.)
* Aranan içeren değilde tamamı şekilde düzenlendi.
* Bulamadığında hata vermesi önlendi.
Alternatif:

Dim satir As Range
Set satir = Cells.Find("nevzat", , xlValues, xlWhole)
If Not satir Is Nothing Then MsgBox satir.Row

 

[Tevfik_Kursun]

Teşekkürler Arkadaşlar

 

[aktif42]

Orion1 Bey,
Teşekkürler.

 

[aktif42]

Kıymetli üstadlar,
Uzantısı xls veya xlsx nasıl diyebilirim. Workbooks.Open Filename:= _
"C:\STT 2015\rapor." & xls Or xlsx
yazdığımda hata veriyor.

 

[ÖmerBey]

Merhaba, deneyiniz...

yol = "C:\STT 2015\rapor."
If Dir(yol & "xls") <> Empty Then
    dsy = yol & "xls"
ElseIf Dir(yol & "xlsx") <> Empty Then
    dsy = yol & "xlsx"
Else
    MsgBox yol & " adında bir excel dosyası yok"
    Exit Sub
End If
Workbooks.Open Filename:=dsy

 

[aktif42]

ÖmerBey,
Çok teşekkür ederim. Çalıştı.

 

[Life65]

Mrhb.
Kod isime yaradi ama herhengi bir kelimeyi tum sayfada aratipbu kelimeyi iceren hücrenin satir ve sutun numarasini nasil bulabiliriz... simdiden tesekkurler...