Arama yaptığım kelimeyi neden bulamıyor

[tahsinanarat]

Ekli dosyada hücre içerisinde alt alta yazılmış satırlar var, bu satırlarda geçen bir kelimeyi arattırdığımda excel bunu bulamıyor, incelediğimde hücre içerisinde 255 karakterden fazla olduğunda bulamıyor, daha az olduğunda ise bulabiliyor, bu konuda yardımcı olacak arkadaş varsa sevinirim.

 

[hamitcan]

Bilgilerinizin tamamı tek bir hücrede olduğu için Excel aradğınız kelimeyi muhtmelen buluyordur.Ama sizin istedğiniz hücrenin içindeki kelimeleri buldurmak anladığım kadarıyla.
Aşağıdaki kod belki işinizi çözer, bir deneyin.

Sub BUL()
With ActiveCell
    .Font.Bold = False
        a = InputBox("Bulunacak Kelimeyi Girin")
        b = WorksheetFunction.Search(a, .Text)
    .Characters(b, Len(a)).Font.Bold = True
End With
End Sub

 

[tahsinanarat]

Sayın hamitcan ilgi ve alakana çok teşekkür ederim. Benim esas yapmak istediğim;

Sub bul_aktar2()
Dim k As Range, a As Long, j As Byte, ilkadres As String
Sheets("Liste").Select
Sheets("Aktarılan").Range("A2:az65536").Clear
If Range("B1") = "" Then Exit Sub
ReDim myarr(1 To 26, 1 To 1)
Set k = Range("B2:az65000").Find("*" & Range("B1").Value & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
ilkadres = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 26, 1 To a)
myarr(1, a) = a
For j = 2 To 26
myarr(j, a) = Cells(k.Row, j).Value
Next j
Set k = Range("B2:az65000").FindNext(k)
Loop While ilkadres <> k.Address And Not k Is Nothing
End If
Application.ScreenUpdating = False
Sheets("Aktar&#305;lan").Select
If a > 0 Then
[A2].Resize(a, 26) = Application.Transpose(myarr)
End If
Application.ScreenUpdating = True
MsgBox "&#304;&#351;lem Tamam..!!", vbOKOnly + vbInformation, "BUL"
End Sub


Bu kodlar ile B1 H&#252;cresine yazd&#305;&#287;&#305;m kelimeyi buldu&#287;u sat&#305;r&#305; "Aktar&#305;lan" sayfas&#305;na aktarmakta, ancak h&#252;cre i&#231;eri&#287;i, dedi&#287;im gibi 255 karakterden fazla oldu&#287;unda o h&#252;crede arad&#305;&#287;&#305;m kelime oldu&#287;u halde bulamad&#305;&#287;&#305;ndan aktarma i&#351;lemide yap&#305;lamamaktad&#305;r, oysa benim buna ihtiyac&#305;m var, yard&#305;mc&#305; olabilirseniz sevinirim. sayg&#305;lar&#305;mla

 

[hamitcan]

Dosyan&#305;z&#305; ekleyip, a&#231;&#305;klamalar&#305; dosya i&#231;ine eklerseniz, yard&#305;mc&#305; olmaya &#231;al&#305;&#351;&#305;r&#305;m.

 

[tahsinanarat]

Örnek dosyayı ekliyorum

Dosyada; B1 hücresine yazdığım herhangi bir kelimenin geçtiği satır veya satırlar "Aktarılan" sayfasına aktarılmaktadır.
Deneme olsun diye koyduğum "C2" ve "C3" hücresinde geçen bir kelime arattırdığımda hata veriyor, oysa diğer hücrelerde yazılı olan herhangi bir kelimeyi arama yaptırdığımda herhangi bir problem yoktur.
Örnek dosyama benzer bir dosya içerisinde buji ile ilgili çalışmalarım olacak, bir buji ismi arattırdığımda kullanıldığı araçlar C2 ve C3 hücrelerinde olduğu şekilde çok satır halinde altalta olacakları için bu olayın çözülmesine ihtiyacım var, yardımlarınız için şimdiden teşekkür ederim. Kolay gelsin

 

[tahsinanarat]

Yard&#305;mlar&#305;n&#305;z&#305; bekliyorum, sn. hamitcan karde&#351;im ve di&#287;er uzman arkada&#351;lar&#305;m.

 

[hamitcan]

Örnek dosyama benzer bir dosya içerisinde buji ile ilgili çalışmalarım olacak, bir buji ismi arattırdığımda kullanıldığı araçlar C2 ve C3 hücrelerinde olduğu şekilde çok satır halinde altalta olacaklar

Sayın tahsinarat, belirttiğiniz gibi, "C2" ve "C3" hücrelerinde "buji" kelimesinin geçtiği bir satır göremedim.Eğer yanlış anladıysam, daha detaylı bir açıklama yapın.

 

[tahsinanarat]

Sn. hamitcan, c2 ve c3 h&#252;cresine bol sat&#305;rl&#305; a&#231;&#305;klamalar&#305; &#246;rnek olsun diye verdim, bunlar i&#231;erisinde ge&#231;en harhangi bir kelimeyi arama yapt&#305;rd&#305;&#287;&#305;m&#305;zda makro hata veriyor, e&#287;er arad&#305;&#287;&#305;m&#305;z kelime bu h&#252;creler i&#231;erisinde bulunmazsa sa&#287;l&#305;kl&#305; &#231;al&#305;&#351;&#305;yor, s&#246;z konusu h&#252;creler bir bujinin kullan&#305;labilece&#287;i arabar&#305; ve serilerini g&#246;steriyordu, te&#351;ekk&#252;rler

 

[hamitcan]

Sayın tahsinanarat, kodunuz çalışırken aşağıdaki satırda hata veriyor. Yani oluşturduğu diziyi ters çeviremiyor diyebiliriz. Size tavsiyem, koda hiç dokunmadan-çünkü kod güzel çalışıyor- "C2" ve "C3" hücrelerindeki satırları ayrı satırlara dağıtmanız.

[A2].Resize(a, 26) = Application.Transpose(myarr)

 

[tahsinanarat]

Te&#351;kerr&#252;r ederim, ama dedi&#287;iniz &#231;&#246;z&#252;m de&#287;il, &#231;&#252;nk&#252; saadece c2 ve c3 olmayacak, bunlardan &#231;ok fazla say&#305;da olacak, ve bu h&#252;credeki o sat&#305;rlar saadece tek bir buji kodu i&#231;in ge&#231;erli, Yinede ilginize &#231;ok te&#351;ekk&#252;r ederim.