• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
2 Mart 2016
Mesajlar
7
Excel Vers. ve Dili
excel 2010 türkçe ve ingilizce
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.
 
aşağıdaki kodu deneye bilirsiniz.

Kod:
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
 
Geri
Üst