Hücre içinden kelime bulma

[image]

Merhaba arkadaşlar,
Bir sütundaki hücrelerde çeşitli ifadeler var. Bu ifadelerin içinde boşluk, sayı, /
tanımlar yer alıyor. Hücre içinde YESIL ifadesi geçiyorsa, önünde arkasında ne yazarsa yazsın, sorun değil. Bu hücrenin yanında ki hücreye VAR yazsın yoksa boşluk olsun, yani bir şey yazmasın.
Bunu yapabilmek için forumda ararken,
aşağıdaki linkteki 6. mesajda formülle ifade edilen düşeyara formülününün tek bir hücre içinde ki kullanımı buldum. Bunu makro olarak denedim. Olmadı. YESIL olsun olmasın hepsinin yanına YESIL yazıyor.
Ama formül olarak denediğimde doğru çalışıyor. Ama yapmaya çalıştığım başka konuları etkilediği için, makro ile bir çözümü modül içine almam gerekiyor. İlla düşeyara olması da gerekmiyor. Başka bir çözümde olur.
İlginiz ve yardımlarınız için şimdiden teşekkür ederim.

http://www.excel.web.tr/f47/mbul-fonksiyonu-t54359.html

Sub yesilAraDUSEY()
Set sht = ThisWorkbook.Worksheets("Sayfa1")
LastRow = sht.Cells(sht.Rows.Count, "C").End(xlUp).Row
alan = "C" & i & ":C" & i


sht.Activate
Application.ScreenUpdating = False
For i = 2 To LastRow
    sht.Cells(i, 4) = Application.VLookup("*YESIL*", sht.Range(alan), 1, 0)
    

Next i
Application.ScreenUpdating = True

End Sub

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki kodu deneyin.

Sub deneme()

Range("B:B").Clear
son = Cells(Rows.Count, "a").End(3).Row

For i = 1 To son

If Cells(i, "a") Like "*" & "YESIL" & "*" Then

Cells(i, "b") = "var"

End If

Next

End Sub

 

[image]

Sayın Kuvari,
Tam istediğim sonucu aldım.
Nasıl teşekkür edeceğimi bilemiyorum, Allah razı olsun.
Çok teşekkürler.

 

[akviran42]

sayın kuvari
selamun aleyküm

bir excel sayfasında d2 ile cv56 arasında tarihler var başka bir sayfaya tarih yazdığım zaman diğer sayfadan o tarihi bulup solundaki ifadeyi yazmasını istiyorum bu mümkünmü acaba mümkünse dosyayı göndereyim

selamlar

 

[YUSUF44]

sayın kuvari
selamun aleyküm

bir excel sayfasında d2 ile cv56 arasında tarihler var başka bir sayfaya tarih yazdığım zaman diğer sayfadan o tarihi bulup solundaki ifadeyi yazmasını istiyorum bu mümkünmü acaba mümkünse dosyayı göndereyim

selamlar

Elbette mümkündür. Ancak örnek dosya gereklidir. Zaten genel olarak sorularınızı örnek dosyayla sormanız hem zaman kaybını önler hem de sorunuzu daha anlaşılır kılar.

 

[akviran42]

dosya

Selamlar
Dosya EK'te
İstediğim form sayfasınınh1 deki tarihi 2017 plan sayfasından bulsun ve solundaki değeri j1 hücresine yazsın

selametle
saygılarımla

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H1]) Is Nothing Then Exit Sub
Set s1 = Sheets("2017 PLAN")
For i = 2 To s1.Cells(Rows.Count, "C").End(3).Row
    For j = 5 To s1.Cells(1, Columns.Count).End(xlToLeft).Column Step 2
        If s1.Cells(i, j) = Target Then
            [J1] = s1.Cells(i, j - 1)
            GoTo 10
        End If
    Next
Next
10:
End Sub

 

[akviran42]

Yusuf Bey
Çok teşekkür ederim
Allah razı olsun

 

[hakankilic]

Bunun excel uygulamasını örnek dosya olarak ekleyebilir misiniz?