belirli kurala göre sayıları 0 değerine çekme

[vakyn]

Merhabalar arkadaşlar,

Excel sayfam için günlük birleştirme işlemi yapıyorum karşı taraftan gelen excel dosyası içerisinde bazı koşullara göre ADET sayılarını 0 değerine çekmem gerekiyor.

1. örnek: E:E Sütununda 1 2 3 4 5 6 diye sıra numaraları var diyelim ki 4 numaralı siparişte sorun oldu tekrarı (4R, 4RW, 4C, 4J) Şeklinde geçiyor ve bunların ADET sayıları 0 olması gerekiyor yani E:E sütundaki hücreler içerisinde R,RW,C,J eklentileri varsa N sütunundaki ADET sayısı 0 olması gerekiyor ama herhangibir eklenti yoksa kopyaladığım veri aynı şekilde kalacak.

 

[walabi]

Merhaba,

Yazdıklarınızdan anladığım kadarı ile aşağıdaki gibi bir excel hazırladım. İstediğiniz buna benzer birşey mi?



E,F,G ve H sütunlarına ait görüntüdür.

E sütununda Sıra No nun olduğunu, F sütununda ise Miktarların olduğunu varsayarsak, aşağıdaki gibi G ve H sütunları oluşturulur.

G2 hücresine aşağıdaki formülü yazarsanız Adet2 sütununu oluşturur.
=EĞER(YADA(E2="R";E2="RW";E2="C";E2="J");0;F2)

H2 hücresine aşağıdaki formülü yazarsanız Adet3 sütununu elde edersiniz.
=EĞER(EMETİNSE(E2);0;F2)

No	Adet	Adet2	Adet3
1​	5​	5​	5​
2​	5​	5​	5​
3​	5​	5​	5​
4​	5​	5​	5​
5​	5​	5​	5​
6​	5​	5​	5​
7​	5​	5​	5​
R	5​	0​	0​
RW	5​	0​	0​
C	5​	0​	0​
J	5​	0​	0​
8​	5​	5​	5​
9​	5​	5​	5​
10​	5​	5​	5​

 

[vakyn]

teşekkürler, makro ile bir çözüm arıyorum.

 

[okan32]

Merhabalar arkadaşlar,

Excel sayfam için günlük birleştirme işlemi yapıyorum karşı taraftan gelen excel dosyası içerisinde bazı koşullara göre ADET sayılarını 0 değerine çekmem gerekiyor.

1. örnek: E:E Sütununda 1 2 3 4 5 6 diye sıra numaraları var diyelim ki 4 numaralı siparişte sorun oldu tekrarı (4R, 4RW, 4C, 4J) Şeklinde geçiyor ve bunların ADET sayıları 0 olması gerekiyor yani E:E sütundaki hücreler içerisinde R,RW,C,J eklentileri varsa N sütunundaki ADET sayısı 0 olması gerekiyor ama herhangibir eklenti yoksa kopyaladığım veri aynı şekilde kalacak.

Deneyiniz Sayfa adını kendinize göre belirleyiniz

Sub Check()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim cell As Range
    Dim found As Boolean
    Set ws = ThisWorkbook.Sheets("Sheet1")
   
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
   
    For i = 1 To lastRow
        found = False
        Set cell = ws.Cells(i, "E")
             
        If InStr(1, cell.Value, "R") > 0 Or _
           InStr(1, cell.Value, "RW") > 0 Or _
           InStr(1, cell.Value, "C") > 0 Or _
           InStr(1, cell.Value, "J") > 0 Then
            found = True
        End If
       
            If found Then
            ws.Cells(i, "N").Value = 0
        End If
    Next i
End Sub