• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

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

Katılım
8 Temmuz 2015
Mesajlar
12
Beğeniler
0
Excel Vers. ve Dili
2013 - TR
#1
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.
 

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
2,510
Beğeniler
106
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
#2
Ö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
Altın Üye
Katılım
10 Şubat 2006
Mesajlar
191
Beğeniler
1
#3
=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
12
Beğeniler
0
Excel Vers. ve Dili
2013 - TR
#7
Örneğin sayı hücresine 613,5 yazdığımda
2 adet 100,5
22 adet 18,75 bulması gerek.
 

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
2,510
Beğeniler
106
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
#8
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
12
Beğeniler
0
Excel Vers. ve Dili
2013 - TR
#9
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.
 

kuvari

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
2,714
Beğeniler
6
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
#10
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
12
Beğeniler
0
Excel Vers. ve Dili
2013 - TR
#11
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:
 

kuvari

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
2,714
Beğeniler
6
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
#12
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.
 

kuvari

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
2,714
Beğeniler
6
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
#14
12. mesaj'da yazılanları okur musunuz.
 
Katılım
8 Temmuz 2015
Mesajlar
12
Beğeniler
0
Excel Vers. ve Dili
2013 - TR
#16
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.
 

kuvari

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
2,714
Beğeniler
6
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
#17
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:

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
2,510
Beğeniler
106
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
#18
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:

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
2,510
Beğeniler
106
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
#19
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.
 
Katılım
8 Mart 2011
Mesajlar
11,021
Beğeniler
124
Excel Vers. ve Dili
Office 2013 TÜRKÇE
#20
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