hücredeki bir değere başka bir değer atamak

[erkan1907]

Herkese merhaba,
Yüzlerce satırdan oluşan bir excel tablom var. A sütununda kodlar B sütununda isimler var. B sütununda ELMA yazan tüm hücrelerin karşılığına E sütununa 100 yazsın, ARMUT yazan tüm hücrelerin karşısına 200 yazsın. Bunu nasıl yazdırabilirim?? Örnek aşağıda A sütununda ELMA gördüklerine C sütununda 100 yazsın ARMUT gördüklerine 200 yazsın. Teşekkür ederim.


A B C
golden elma 20 TL 100
yeşil elma 30 TL 100
ankara armut 20 TL 200
amasya elma 20 TL 100

 

[ÖmerBey]

Herkese merhaba,
Yüzlerce satırdan oluşan bir excel tablom var. A sütununda kodlar B sütununda isimler var. B sütununda ELMA yazan tüm hücrelerin karşılığına E sütununa 100 yazsın, ARMUT yazan tüm hücrelerin karşısına 200 yazsın. Bunu nasıl yazdırabilirim?? Örnek aşağıda A sütununda ELMA gördüklerine C sütununda 100 yazsın ARMUT gördüklerine 200 yazsın. Teşekkür ederim.

Merhaba,
İsteğiniz biraz karışmış galiba aşağıdaki kodları isteğinize göre düzenleyip deneyiniz.

Sub KOD()
For a = 1 To Range("[COLOR="Red"]B[/COLOR]65500").End(3).Row
    Select Case Cells(a, "[COLOR="red"]B[/COLOR]")
    Case Is = "ELMA"
        değer = 100
    Case Is = "ARMUT"
        değer = 200
    Case Is = "ŞEFTALİ"
        değer = 300
    End Select
    Cells(a, "[COLOR="red"]E[/COLOR]") = değer
    değer = Empty
Next
End Sub