Elimde aşağıdaki gibi bir excel var. A-B-C ürünleri sayıları ile mevcut. A ürününün en yüksek sayısını bulup, A ürününün diğer sayılar ile değiştirmek istiyorum.
Sub TestCountIf()
Range("S2") = WorksheetFunction.CountIf(Range("C2:C10688"), Range("C2"))
Range("S3") = WorksheetFunction.Max(Range("J2:J5"))
Range("J2:J5").Replace What:="299", Replacement:="450"
End Sub
Yazdığım kodda S2 hücresine C2 ila C10688 arasındaki hücrelerde C2 hücresinin kaç tane olduğunu aratıyorum. (Tablomda 4 adet var, bu sebeple S2 hücresine 4 yazıyıyor.)
Daha sonra S3 hücresinde J2 ve sonraki 3 hücredeki (toplamda 4 hücre, çünkü bir önceki komut 4 adet buldu. Eğer 10 adet bulsaydı 10 tane hücre isteyecektim.) maksimum sayıyı yazdırıyorum. Bu sayıyı da C2-C3-C4 ve C5 hücresindeki değerler değiştirmek istiyorum.
Ama yaşadığım sorun şu; ben burada J2'den sonra 4 tane hücre olduğunu gördüğüm için elimde J5 yazdım. Burada J5 yazmadan, excel bana 4 tekrar olduğu için 4 tane hücrenin içinde maksimum değeri bulmasını ve bu değeri de sadece 4 tane hücrede değiştirmesini istiyorum. Daha sonra C6'ya bakıp orada yazan değerin kaç tane tekrar ettiğini görüp (diyelim 2 kere tekrar ediyor) bu ettiği tekrardan dolayı eşit olduğu sayılardan maksimumu bulup diğer hücrelerini de değiştirmesini istiyorum.
Aklıma ForNext döngüsü de geldi ama tüm gün uğraşıp bir çözüm bulamadım.
Umarım derdimi açıklayabildim. Şimdiden yardımlarınız için teşekkür ederim.
İyi forumlar
A | 99 |
A | 99 |
A | 199 |
A | 429 |
B | 399 |
B | 299 |
C | 699 |
C | 799 |
C | 699 |
C | 699 |
C | 699 |
Sub TestCountIf()
Range("S2") = WorksheetFunction.CountIf(Range("C2:C10688"), Range("C2"))
Range("S3") = WorksheetFunction.Max(Range("J2:J5"))
Range("J2:J5").Replace What:="299", Replacement:="450"
End Sub
Yazdığım kodda S2 hücresine C2 ila C10688 arasındaki hücrelerde C2 hücresinin kaç tane olduğunu aratıyorum. (Tablomda 4 adet var, bu sebeple S2 hücresine 4 yazıyıyor.)
Daha sonra S3 hücresinde J2 ve sonraki 3 hücredeki (toplamda 4 hücre, çünkü bir önceki komut 4 adet buldu. Eğer 10 adet bulsaydı 10 tane hücre isteyecektim.) maksimum sayıyı yazdırıyorum. Bu sayıyı da C2-C3-C4 ve C5 hücresindeki değerler değiştirmek istiyorum.
Ama yaşadığım sorun şu; ben burada J2'den sonra 4 tane hücre olduğunu gördüğüm için elimde J5 yazdım. Burada J5 yazmadan, excel bana 4 tekrar olduğu için 4 tane hücrenin içinde maksimum değeri bulmasını ve bu değeri de sadece 4 tane hücrede değiştirmesini istiyorum. Daha sonra C6'ya bakıp orada yazan değerin kaç tane tekrar ettiğini görüp (diyelim 2 kere tekrar ediyor) bu ettiği tekrardan dolayı eşit olduğu sayılardan maksimumu bulup diğer hücrelerini de değiştirmesini istiyorum.
Aklıma ForNext döngüsü de geldi ama tüm gün uğraşıp bir çözüm bulamadım.
Umarım derdimi açıklayabildim. Şimdiden yardımlarınız için teşekkür ederim.
İyi forumlar