[ÇÖZÜLDÜ] B kolonunda "aranan" kelimesinin bulunduğu satır/satırların numarası

[hsayar]

[ÇÖZÜLDÜ] B kolonunda "aranan" kelimesinin bulunduğu satır/satırların numarası

B kolonunda "aranan" kelimesinin bulunduğu satır/satırların numarasını bulan kodlar nelerdir?
Mutlaka daha evvele benzerleri sorulmuştur. ancak anhatar kelime sayısının çeşitliliği yüzünden aramada netice alamadım.

 

[hsayar]

İlk bulunan bu şekilde imiş.

CSf.Columns("A:A").Find(What:=ArnnKlm, LookAt:=xlWhole).Row

peki Tümünü bulmak mümkünmü yani aşağıda seçili aralığın kısa yazımı:

Sub Makro1()
Dim CSf As Worksheet
Set CSf = ThisWorkbook.Worksheets("maksim_kenarlik") 'kendiçalımasayfanızınafını yazınız
Dim EskSat, SonSat As Double, ArnnKlm As String
[COLOR=red]EskiToplamlariSil:
    EskSat = 0: ArnnKlm = " TOPLAM"
    On Error Resume Next
    EskSat = CSf.Columns("A:A").Find(What:=ArnnKlm, LookAt:=xlWhole).Row
    On Error GoTo 0
    If EskSat > 0 Then
        CSf.Range("A" & EskSat & ":C" & EskSat).ClearContents
        GoTo EskiToplamlariSil
    Else
        GoTo kenarliklarisifirla
    End If[/COLOR]
kenarliklarisifirla:

 

[uzmanamele]

merhaba
sorunuzu tam anlayamadım ama galiba aşağıdaki linkdeki bilgiler işinize yarar

http://www.excel.web.tr/showthread.php?t=54141

 

[Necdet]

Makro Find Komutu

Merhaba,

Aşağıdaki kodlar size fikir verebilir. Doğrudan Excelin Yardım menüsünden yararlandım.

Sub AraBul()
Satır = 1
With Worksheets(1).Range("B:B")
    Set c = .Find("aranan", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Satır = Satır + 1
            Cells(Satır, "F") = c.Row
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

 

[hsayar]

merhaba
sorunuzu tam anlayamadım ama galiba aşağıdaki linkdeki bilgiler işinize yarar

http://www.excel.web.tr/showthread.php?t=54141

sn. uzmanamele alakanıza teşekkür ederim ben 2. mesajda çzöümü zaten bulduım ama daha iyisi varmıdır onu soruyorum.

Tekrar şöyle izah edeyim;
A sütununda "toplam" yazan satırları bulduğunda a:c aralağının içeriğini temizle, ve tamamlandı mesajı ver.

 

[Necdet]

Bizim yanıt gümbürtüye gitti galiba

 

[hsayar]

Bizim yanıt gümbürtüye gitti galiba

Hocam Teşekkür ederim. görmemişim.

 

[hsayar]

Sub Ara_Bul_IciniTemizle()
Set Stn = Worksheets(1).Range("B:B")
    With Stn
        Set Hcr = .Find("aranan", LookIn:=xlValues, MatchCase:=False)        If Not Hcr Is Nothing Then
            Do
                Worksheets(1).Range("A" & Hcr.Row & ":C" & Hcr.Row).ClearContents
                Set Hcr = .FindNext(Hcr)
            Loop While Not Hcr Is Nothing
        End If
    End With
Set Stn = Nothing
End Sub

uyarladım.