Hücre içinde geçen kelimeye göre işlem yapmak.

[acolkesen1]

Merhaba,
Aşağıdaki kod ile, b sütununda ilk InputBox da belirtilen değer varsa h sütununa ikinci InputBox da belirtilen değeri yazmak istiyorum. Ancak olmuyor.Bunu sağlamak için kodda nasıl bir değişikli yapmalıyım veya nasıl bir kod yazmalıyım.

frm = InputBox("Firma adını yazın")
isk = InputBox("Alış isk. oranını yazın yazın")

For a = 2 To [b65536].End(3).Row
If Cells(a, "B").Value = "*" & frm & "*" Then Cells(a, "H") = isk
Next

 

[musculus2]

Aşağıdaki kodları module yapıştırıp çalıştırın

Sub ad()

frm = InputBox("Firma adını yazın")
isk = InputBox("Alış isk. oranını yazın yazın")

For a = 2 To [b65536].End(3).Row
If (StrConv(Range("b" & a), vbUpperCase) Like StrConv("*" & frm & "*", vbUpperCase)) Then Cells(a, "H") = isk
Next
End Sub

 

[acolkesen1]

Merhaba sayın musculus2,
İşlem tamam. İlginiz ve yardımlarınız için çok teşekkür ederim.
Esen kalın.

 

[acolkesen1]

Sayın munculus2 tekrar merhaba,
Kodlarınızı, içinde geçene göre filtrelemek için de kullanmak istedim ancak uyarlayamadım.

FRM = InputBox("İÇİNDE GEÇEN SÖZCÜK")
ActiveSheet.Range("$A$1:$AA$54372").AutoFilter Field:=2, Criteria1:= _
"=" * " & FRM & " * "", Operator:=xlOr

Yardımcı olabilir misiniz?