bu makroda yanlış nerede?

[xas987]

ACİL bu makroda yanlış nerede?

bu makro ile excel tablosunda arayıp eşleşeni bulmasını yapmak istiyorum fakat
makro hata veriyo 'object doesn't support this property or method' bu makroyu nasıl çalışır hale getirebilirim
bir de bu şu anki şekliyle sadecve bir girilene bağlı arama yapabilmekte nasıl 2 ya da 3 tane girilen değere göre aynı anda arama yapabilmesini sağlarım
???


Sub bul()
Dim satir As Integer, sutun As Integer, i As Integer
Dim aranan As String, j As Integer
satir = Selection.Rows.Count
sutun = Selection.Coloumns.Count
aranan = InputBox("İçeriği girtiniz", "Arama Yap", " ")
For i = 1 To sutun
For j = 1 To satir
If Selection.Cells(i, j) = aranan Then
Selection.Cells(i, j).Select
End If
Next
Next

End Sub

 

[Levent Menteşoğlu]

Kod içindeki "Coloumns" kelimesini hatalı yazmışsınız "Columns" olmalıdır.

 

[Recep İpek]

sutun = Selection.Coloumns.Count

satırını

sutun = Selection.Columns.Count

olarak düzeltin.

 

[xas987]

düzeltmeyi yaptım fakat bu sefer ara dedikten sonra hiç bir değişiklik olmuyor, pencere kapanıyo sadece sizce başka nerde sorun olabilir?

 

[Levent Menteşoğlu]

Yapmak istediğiniz nedir? Arama yapmak ise bu tüm sayfadamı olacak, yada aralık sabir değilmi seçilen bir aralıkmıdır? sabir bir aralık ise aralığı verirmisiniz.

 

[xas987]

Sub bul()
Dim satir As Integer, sutun As Integer, i As Integer
Dim aranan As String, j As Integer
satir = Selection.Rows.Count
sutun = Selection.Coloumns.Count
aranan = InputBox("İçeriği girtiniz", "Arama Yap", " ")
For i = 1 To sutun
For j = 1 To satir
If Selection.Cells(i, j) = aranan Then
Selection.Cells(i, j).Select ***Burada Select yerine bir mesaj box ile gösterebilir miyim sonucu??? ki select de çalışmıyo ******
End If
Next
Next

 

[xas987]

Levent Bey ,
Arama yapmak istediğim sayfayı ekledim .

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub bul()
On Error GoTo 10
aranan = InputBox("İçeriği girtiniz", "Arama Yap", " ")
cells.Find(aranan).Select
Exit Sub
10 MsgBox "Aranan veri bulunamadı."
End Sub

Not:Alan seçmenize gerek yoktur.

 

[xas987]

tabloda bulunan bir şeyi yazdığımda da aranan bulunamadı mesajı geliyo bu sefer de..

 

[Levent Menteşoğlu]

Kodda sonradan bir düzeltme yapmıştım yukarıdan alıp tekrar deneyin. Alan seçmenize gerek yoktur.

 

[xas987]

Teşekkürler

Sağolun Levent Bey,
Size kalpten teşekkürlerimi iletiyorum , iyi geceler diliyorum..