Soru Girilen sayıyı Belirtilen sayılara bölme

Katılım
8 Temmuz 2015
Mesajlar
17
Excel Vers. ve Dili
2013 - TR
Merhabalar, konuyu doğru başlık altında ve doğru yerde mi açtım bilmiyorum. Hatam varsa affola.
Sorum şu, giriş yaptığım sayı içerisinde belirtilen sayılardan kaçar adet olduğunu hesaplamak istiyorum. Örnek olarak dosya ekleyemedim :( Yardımınız için şimdiden teşekkür ederim.
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Örnek dosyanızı dosya yükleme sitelerinedn birine yükleyerek indirme linkini burda paylaşabilirsiniz.Anlatım ile konu hakkında yeterli bilgiye sahip olunamıyor.Aşağıda dosya yükleme sitesi linki.
http://dosya.co/
 

muhasebeciyiz

Altın Üye
Katılım
10 Şubat 2006
Mesajlar
439
Excel Vers. ve Dili
Office 2016
64 Bit
=EĞERSAY(A:A;11) bu formülün açılımı şöyledir.
A sutununda yazılı olan rakamlar içinde kaç tane 11 sayının olduğunu söylemektedir.Bu 11 sayısını değiştirip amacınız için kullanabilirsiniz.
 
Katılım
8 Temmuz 2015
Mesajlar
17
Excel Vers. ve Dili
2013 - TR
Örneğin sayı hücresine 613,5 yazdığımda
2 adet 100,5
22 adet 18,75 bulması gerek.
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Sayın cevherim
Sorunuzun cevabının basit formüller ile çözümünün mümkün görünmüyor.Ançak makro ile çözülebilir.Bu konudaki uzman arkadaşlar umarım ilgilenir.Bende çözmeye çalışağım.Olmazsa vba Makro bölümünde tekrar konu açarak sorabilirsiniz.Yardımcı olamadığım için üzgünüm.
 
Katılım
8 Temmuz 2015
Mesajlar
17
Excel Vers. ve Dili
2013 - TR
Sayın cevherim
Sorunuzun cevabının basit formüller ile çözümünün mümkün görünmüyor.Ançak makro ile çözülebilir.Bu konudaki uzman arkadaşlar umarım ilgilenir.Bende çözmeye çalışağım.Olmazsa vba Makro bölümünde tekrar konu açarak sorabilirsiniz.Yardımcı olamadığım için üzgünüm.
teşekkür ederim. umarım çözüm bulunur.
 

Erdem Akdemir

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,596
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
Merhaba,

Aşağıdaki dizi formülünü B4 hücresine kopyalarak denermisiniz. (CTRL+SHIFT+ENTER ile kapatmayı unutmayın.)

Kod:
=EĞER(SÜTUN()=2;KAÇINCI(1;DÇARP(--((($B$2*SATIR($1:$1000))+DEVRİK_DÖNÜŞÜM($C$2*SATIR($1:$1000)))=$A$4);SATIR($1:$1000)^0);0);KAÇINCI(1;DÇARP(--(((DEVRİK_DÖNÜŞÜM($B$2*SATIR($1:$1000)))+($C$2*SATIR($1:$1000)))=$A$4);SATIR($1:$1000)^0);0))
 
Katılım
8 Temmuz 2015
Mesajlar
17
Excel Vers. ve Dili
2013 - TR
Merhaba,

Aşağıdaki dizi formülünü B4 hücresine kopyalarak denermisiniz. (CTRL+SHIFT+ENTER ile kapatmayı unutmayın.)

Kod:
=EĞER(SÜTUN()=2;KAÇINCI(1;DÇARP(--((($B$2*SATIR($1:$1000))+DEVRİK_DÖNÜŞÜM($C$2*SATIR($1:$1000)))=$A$4);SATIR($1:$1000)^0);0);KAÇINCI(1;DÇARP(--(((DEVRİK_DÖNÜŞÜM($B$2*SATIR($1:$1000)))+($C$2*SATIR($1:$1000)))=$A$4);SATIR($1:$1000)^0);0))
hata veriyor :rolleyes:
 

Erdem Akdemir

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,596
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
CTRL+SHIFT+ENTER ile kapatırsanız hata almazsınız. Formülün başında ve sonunda { } süslü parantez olacak.

Formül parametreleri eklediğiniz dosya'ya göredir.
 

Erdem Akdemir

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,596
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
12. mesaj'da yazılanları okur musunuz.
 
Katılım
8 Temmuz 2015
Mesajlar
17
Excel Vers. ve Dili
2013 - TR
12. mesaj'da yazılanları okur musunuz.
teşekkürler, elinize sağlık. ancak hata var. 18,75 yazıyorum 0 ve 1 olması gerekirken #YOK hatası alıyorum.

3513 yazdığımda
26*100,5 ve 48*18,75 sonucunu görmemiz gerekirken
1 adet 100,5
48 adet 18,5 sonucu veriyor. bunun sonucu da 3513 değil 1000,5 yapıyor.
 

Erdem Akdemir

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,596
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
Merhaba,

Sanırım 100,5'in olabileceği en yüksek değeri bulmak istiyorsunuz.
Formülü değiştirdim biraz daha kısaldı, ikinci kısmı uzunca yazmaya gerek yokmuş.

Kod:
=EĞER(SÜTUN()=2;MAK((DÇARP(--((($B$2*SATIR($1:$1000))+DEVRİK_DÖNÜŞÜM($C$2*SATIR($1:$1000)))=$A$4);SATIR($1:$1000)^0))*SATIR($1:$1000));($A$4-(A$4*$B$2))/$C$2)
 
Son düzenleme:
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Makro ile çözümü:
Dosya
https://www.dosyaupload.com/e5sp
Kod
Kod:
Sub SayıBul()
Dim s1 As Worksheet
Dim i As Integer
Set s1 = Sheets("Sayfa1")
Sayı = s1.Range("A3")
BSayı = WorksheetFunction.Max(s1.Range("B1:C1"))
KSayı = WorksheetFunction.Min(s1.Range("B1:C1"))
son = WorksheetFunction.Round(Sayı / BSayı, 0)
s1.Range("B3:C3").ClearContents
For i = son To 1 Step -1
t = ((Sayı) - (i * BSayı))
Var = t - KSayı * Int(t / KSayı)
If Var = 0 Then
sB = WorksheetFunction.Match(BSayı, s1.Range("a1:C1"), 0)
sK = WorksheetFunction.Match(KSayı, s1.Range("a1:C1"), 0)
s1.Cells(3, sB) = i
s1.Cells(3, sK) = t / KSayı
Exit Sub
End If
Next i
MsgBox "Tam bölünme mümkün değil"
End Sub
 
Son düzenleme:
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Sayın kuvari;
Formülle çözümünü mümkün görmemiştim.Mükemmel çözümünüz için size teşekkür etmek isterim.Bir daha mümkün değil sözcüğü kullanmak mı...asla.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Merhaba.

Makro ile çözüme alternatif olsun.
Rich (BB code):
Sub HESAPLA_BUL()
b = WorksheetFunction.Max([B1:C1]): k = WorksheetFunction.Min([B1:C1])
tam = Int([A3] / b) + 1
For kk = tam To 1 Step -1
    tam = tam - 1: kkk = ([A3] - b * tam) / k
    If Int(kkk) = kkk Then Exit For
Next
If tam = 0 And Int(kkk) <> kkk Then
    MsgBox "Verilen sayılara göre SONUÇ YOK"
Else
    MsgBox "-- Büyük sayıdan " & tam & " adet," & vbLf & _
        "-- Küçük sayıdan " & kkk & " adet" & vbLf & vbLf & vsLf & _
        Format([A3], "#,##0.00") & " = ( " & b & " x " & tam & " ) + ( " & k & " x " & kkk & " )"
End If
End Sub
 
Üst