kelime arama

[Barons]

merhaba

ekteki dosyada sayfa1'de F sütunundaki verileri makro ile getirmek istiyorum.Bunu yaparkende Konular sayfasındaki verileri C sütunundaki cümle içinde arayacak.Eğer var ise F kolonuna yazdıracak ama verilerin miktarı yaklaşık 30.000 satır civarında.
Bu konuda yardımcı olacak arkadaşlara,Üstadlara şimdiden teşekkürlerimi sunarım.

 

[Barons]

Üstadlar bir el atın lütfen...çok acil durumdayım

 

[Barons]

çözüm yok galiba...

 

[Mahir64]

Merhaba
F sütunundakiler makro ile gelecek derken! nasıl olacak kriter nedir?
Açılır liste tarzi birşeymi istiyorsunuz?

 

[Barons]

merhaba
konular sayfasındaki kelimeleri arattırmak istiyorum.Bunu yaparkende C kolonundan eğer konular sayfasındaki kelime varsa bunu F kolonuna yazacak.Ben el ile girdim şimdilik F kolonuna...
örnek:c14 hücresinde kartvizit var cümle içinde...bu kelime konular sayfasında var ise bunu F kolonuna yazacak.
umarım anlatabilmişimdir
tekrar teşekkürler

 

[Korhan Ayhan]

Selamlar,

"Konular" isimli sayfanızdaki dizilimden dolayı tam olarak istediğiniz sonuç çıkmıyor. Aşağıdaki kodu dosyanızın yedeği üzerinde denermisiniz.

Option Explicit
 
Sub KELİME_ARA()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long, Y As Integer
    
    Set S1 = Sheets("Konular")
    Set S2 = Sheets("Sayfa1")
    
    For X = 2 To S2.Range("A65536").End(3).Row
        For Y = 2 To S1.Range("A65536").End(3).Row
            If InStr(1, S2.Cells(X, "C"), S1.Cells(Y, "A")) > 0 Then
                S2.Cells(X, "F") = S1.Cells(Y, "A")
                GoTo Devam
            End If
        Next
Devam:
    Next
    
    Set S1 = Nothing
    Set S2 = Nothing
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Barons]

tamam hocam çok teşekkürler...bu işimi görür...yanyana 3 tane konu sütunu açarak öncelik sıralarını değiştirebilirim.Elinize sağlık..