Butona tıklanınca hücreyi kriter alarak veri yazdırma

[plas1211]

Merhaba,
butona tıklanıldığı zaman D hücresini kriter alarak B hücresine veri yazdırmasını istiyorum.

Örneğin;
D sütununda "ram","anakart","ekran kartı" olsun. Bu kelimeleri gördüğü zaman B sütununa "bilgisayar parçaları" yazsın. Tabi bunlar butona tıklayınca gerçekleşsin.

Yardımcı olursanız sevinirim.

 

[programer]

aşağıdaki kodu deneye bilirsiniz.

Set Sh = Sheets("Sayfa1")
son = Sh.[D65536].End(3).Row

for i = 1 to son

     if Sh.Cells(i, "D").Value = "ram" or Sh.Cells(i, "D").Value = "anakart" or Sh.Cells(i, "D").Value = "ekran kartı" then
       Sh.Cells(i, "B").Value = "bilgisayar parçaları"
end if

next i