A sütunundaki veriye göre B sütununa veri yazdırma yardım

[yunuskorkmaz]

A sütunundaki veriye göre B sütununa veri yazdırma makrosuna ihtiyacım var, böyle bir şey yapılabilir mi ?

Örneği A sütununda "kazak" içeriyorsa B sütununa "erkek-kazak" yazması gerekiyor

 

[Mdemir63]

B1 hücresine:
=EĞER(A1="kazak";"Erkek-kazak";"")


Sub yaz()
If Range("A1") = "Kazak" Then
Range("B1") = "Erkek-Kazak"
Else
Range("B1") = ""
End If
End Sub