Yardım Sütun İçindeki Harfi Bulup Karşı Sütunda İşlem Yapma

avvare · 26 Eyl 2018

S.aleykum hocalarım size bir sorum olacak yeni bir işe başladım ve exelden çok anlamıyorum.

B Sutununda Kırmızıyla işaretlediğim yerde "Z" harfi var bunun karşısındaki M sutununda yazan sayıyı 6 ya bölüyorum Sonda Z değilde A varsa 3 e bölüyorum H varsa 2 ile hesapmakinasından çarpıp buraya elle yazıyorum bunu kısa yoldan sadece komut ile yapamazmıyız.

Yani ÜRÜN KODU YAZAN YERDE İÇİNDE "Z" , "H" VE "A" HARFİ geçenleri bulup karşısındaki M sutununa dediğim işlem yapılacak bunu yapabilirmiyiz hocam teşekkürler..

Murat OSMA · 27 Eyl 2018

Aleyküm Selâm

Hangi sayıyı 2,3 ve 6 ya bölüp M sütununa yazdırmak istediğinizi anlamadım.
Ayrıca Z varsa 6'ya bölmek, A varsa 3'e bölmek ama H varsa 2 ile çarpıp ... demişsiniz.. bunu da net anlayamadım.
Yapılmak isteneni biraz daha net anlatır mısınız?

AhmetRasim · 24 Eki 2018

Merhabalar;
Soru üzerinden 1 ay geçmiş ama olması gereken şöyle midir?

B Sutununda Kırmızıyla işaretlediğim yerde "Z" harfi var bunun karşısındaki M sutununda yazan sayıyı 6 ya bölüyorum Sonda Z değilde A varsa 3 e bölüyorum H varsa 2 ile hesapmakinasından çarpıp buraya elle yazıyorum bunu kısa yoldan sadece komut ile yapamazmıyız.

Aşağıdaki kod M sütununda yazan değeri, belirttiğiniz koşullara göre işleme alır ve sonucu N sütununa yazar.

Kod:

Sub deneme()

For x = 2 To Range("A" & Rows.Count).End(3).Row

If Right(Cells(x, "A"), 1) = "Z" Then Cells(x, "N").Value = Cells(x, "M") / 6
If Right(Cells(x, "A"), 1) = "A" Then Cells(x, "N").Value = Cells(x, "M") / 3
If Right(Cells(x, "A"), 1) = "H" Then Cells(x, "N").Value = Cells(x, "M") * 2

Next x

End Sub

Yardım Sütun İçindeki Harfi Bulup Karşı Sütunda İşlem Yapma

avvare

Murat OSMA

AhmetRasim