Find komutunda koordinat nasıl bulunur?

[nikomedian]

örneğin

Set k = Sheets("Sayfa3").Range("A1:A100").Find("Citizenship", , xlValues, xlWhole)

komutu ile Citizenship kelimesini arıyorum. İlk bulduğum Citizenship kelimesinin A1, D4 gibi olan koordinatını nasıl çekebilirim ?

 

[Necdet]

Merhaba,

VBA'nın yardımından bulduğum find ı inceleyiniz. Umarım yararlı olur.

Public Sub Bul()
Dim c As Range
Dim firstAddress As String
With Worksheets(1).Cells
    Set c = .Find("Ankara", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            MsgBox c.Address
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

 

[nikomedian]

Necdet Bey bu örneği inceledim ama benim bulduğum koordinatı kullanmam gerekiyor. Bahsettiğim şeyde bu örneğin için var mı acaba?

 

[Necdet]

Merhaba,

Kullanmaktan kastınızı tam anlamadım, zaten MsgBox c.Address komutunun olduğu yerde istediğiniz komutu yazabilirsiniz.

 

[nikomedian]

açıkçası $A$36 şeklinde değilde, sütün: A satır:36 şeklinde elde etmem gerekiyor.

 

[Orion1]

açıkçası $A$36 şeklinde değilde, sütün: A satır:36 şeklinde elde etmem gerekiyor.

Dim deg
Set k = Sheets("Sayfa3").Range("A1:A100").Find("Citizenship", , xlValues, xlWhole)
If Not k Is Nothing Then
    deg = Split(k.Address, "$")
    MsgBox "Sütun : " & deg(1) & vbLf & "Satır : " & deg(2), vbOKOnly + vbInformation, "EVREN"
End If

 

[nikomedian]

Evren Bey ilginiz için çok teşekkür ederim ama benim bulduğum satır ve sütunu bir değişkene tanımlamam gerekiyor. Buradaki deg(1) ve deg(2) yi yani satır ve sütunu bir değişkene tanımlarsam sorunum çözülür sanırım.

 

[Orion1]

Evren Bey ilginiz için çok teşekkür ederim ama benim bulduğum satır ve sütunu bir değişkene tanımlamam gerekiyor. Buradaki deg(1) ve deg(2) yi yani satır ve sütunu bir değişkene tanımlarsam sorunum çözülür sanırım.

Tanıtın o zaman ne duruyorsunuz.Artık onuda bilmiyorum siz yapın diyorsanız onada diyeceğim bir şey yok.Yanii o zaman bırakın bu işi.Bu hevesten vazgeçin.

 

[nikomedian]

Set l = Sheets("Sayfa3").Range("A1:A110").Find("Citizenship", , xlValues, xlWhole)
a = l.Row

Evren Bey çok teşekkür ederim, sayenizde yaklaşımı öğrendim. İyi akşamlar dilerim.

 

[Necdet]

Merhaba,

İlk örneğe ben devam edeyim

Sub Bul()
Dim c As Range
Dim firstAddress As String, sutun As String
With Worksheets(1).Cells
    Set c = .Find("Ankara", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            MsgBox "Sütun : " & Split(c.Address, "$")(1) & Chr(10) & _
                   "Satır : " & Split(c.Address, "$")(2)
            
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub