- Katılım
- 16 Eylül 2008
- Mesajlar
- 1,290
- Excel Vers. ve Dili
- Microsoft Office 2019 English
Merhabalar,
Ben şunu yapmak istiyorum;
0 - 5000 Arası
5001 - 10000 arası
10001 - 999999999 arası Toplam degerler aramak istiyorum.
Eger toplam deger 5000 olduysa karşısına X1 yazsın,Eger bulunan Deger 5000 TL den Fazla ise Kalan degeri yanına yazsın. Bu arama tipini diger aralıklarada uygulanacaktır hiçbir farkı yoktur.
Örnek verecek Olursam
Aranan Deger 5000 Oldugunu varsayalım
Eger Aranan degeri tam yakalarsam ;
1-1000
2-2000
3-2000
4-6000
5-2400
6-3000
..
..
A sutununda bu rakamlarım var oldugunu sayarsak...
5000 Toplamını bulana kadar hücrelerde dönüyorum.. 3.satırda 5000 i yakaladım aynı satırın B Hücresine X1 koysun istiyorum..
Eger Fazla Olursa
1-1000
2-2000
3-4000
4-6000
5-2400
6-3000
..
..
Burada fazla olan tutar 2000 TL dir..Yani 3.satıra kadar TOPLAM 7000 olmaktadır. Ben nekadarı arıyordum 5000 aradaki fark NEdir? 2000 öyleyse bu 2000 TL yı aynı satırın B hücresine 2000 TL olarak yazsın..
Arama örnegi sadece 5000 icin verildi...Diger aradıgım rakamlarada bu uygulanabilmeli...
Ben Kod olarak şuraya kadar yaptım...takıldım...
satir = Cells(65536, "A").End(xlUp).Row
For i = 1 To satir
aranan1 = 5000
Toplam = Toplam + Range("A" & i)
If aranan1 = Toplam Then
Range("B" & i) = "X2"
End If
If Toplam > aranan1 Then
a = CDbl(Toplam) - CDbl(aranan)
Range("B" & i) = a
End If
Next i
Ben şunu yapmak istiyorum;
0 - 5000 Arası
5001 - 10000 arası
10001 - 999999999 arası Toplam degerler aramak istiyorum.
Eger toplam deger 5000 olduysa karşısına X1 yazsın,Eger bulunan Deger 5000 TL den Fazla ise Kalan degeri yanına yazsın. Bu arama tipini diger aralıklarada uygulanacaktır hiçbir farkı yoktur.
Örnek verecek Olursam
Aranan Deger 5000 Oldugunu varsayalım
Eger Aranan degeri tam yakalarsam ;
1-1000
2-2000
3-2000
4-6000
5-2400
6-3000
..
..
A sutununda bu rakamlarım var oldugunu sayarsak...
5000 Toplamını bulana kadar hücrelerde dönüyorum.. 3.satırda 5000 i yakaladım aynı satırın B Hücresine X1 koysun istiyorum..
Eger Fazla Olursa
1-1000
2-2000
3-4000
4-6000
5-2400
6-3000
..
..
Burada fazla olan tutar 2000 TL dir..Yani 3.satıra kadar TOPLAM 7000 olmaktadır. Ben nekadarı arıyordum 5000 aradaki fark NEdir? 2000 öyleyse bu 2000 TL yı aynı satırın B hücresine 2000 TL olarak yazsın..
Arama örnegi sadece 5000 icin verildi...Diger aradıgım rakamlarada bu uygulanabilmeli...
Ben Kod olarak şuraya kadar yaptım...takıldım...
satir = Cells(65536, "A").End(xlUp).Row
For i = 1 To satir
aranan1 = 5000
Toplam = Toplam + Range("A" & i)
If aranan1 = Toplam Then
Range("B" & i) = "X2"
End If
If Toplam > aranan1 Then
a = CDbl(Toplam) - CDbl(aranan)
Range("B" & i) = a
End If
Next i
