Sayıların katlarını hesaplama

[Ge.n.co]

mrb arkadaşlar.. yeni üye oldum.. uyku tutmadı valla akşamdan beri düşünüyoum arıyorum bulamıyorum napmak lazım?

arkadaşlar ben bi hücreye bi sayı yazıyorum atıyorum 23465 bu sayı 123 ün kaç katı olduğunu öğrenmek için nasıl bi formul yazmam lazım...

bir de anlatayım anlatabilirsem
3 değerim var atıyorum 10 23 45
şimdi bu bilgileri 3 farklı hücreye giriyorum ve 4. hücreye formul yazacagım... formulumuze göre eğer 1.hücreye girdiğim sayı 10 2. hücreye girdiğim sayı 23 3.hücreye girdiğim sayı 45 ise 1 yazsın eğer girdiğim sayılar bu değerlerin iki katı ise 2 yazsın 3 katı ise 3 yazsın ama sonsuza kadar gitcek.. eğer katları değilse örneğin 1. 100 2. 230 3.405 ise sonuça 9 yazmalı anlatabildimmi en katlardaki en küçük değeri yazacak yani anlatabildim inşallah
katlarını hesaplatmayı bilsem formulu çıkaracam da katlarını nası hesaplatacam onu bilmiyorum...






Düzenleme: Daha detaylı anlatayım..

Sayılarımız 1,2,3 olsun

A1=1 B1=2 C1=3 ise D1=1 yazsın
A1=2 B1=4 C1=6 ise D1=2 yazsın
A1=3 B1=6 C1=9 ise D1=3 yazsın
A1=4 B1=8 C1=12 ise D1=4 yazsın

bunların her zaman böyle gitmesi mümkün değil tabiki ancak işlemin gerçekleşmesi için hepsinin de tam katsayı olması lazım

A1=2 B1=4 fakat C1=3 ise D1=1 yazmalı çünkü 3 ünün de ortak olduğu kat sayı değeri 1 2.katsayı C1 de sağlanamamış
A1=4 B1=16 fakat C1=9 ise D1=3 yazmalı çünkü 3 ününde ortak olduğu kat değeri 3 diğerleri büyük 4. katsayı C1 de sağlanamamış..
C1 i örnek verdim ama herhangi birinde farklılık varsa içlerinden en küçük olanın katsayısına göre işlem yapmalı.. inşallah daha iyi anlatabilmişimdir..

şöyle de anlatabilirim...

örneğin ben bi satış elamanı olayım ve a malından 1 b malından 2 c malından 3 adet satarsam 1 lira alacağım.. eğer a malından 2 b malından 4 c malından 6 adet satarsam 2 lira alacağım fakat ben a malından 10 adet b malından 20 adet c malından 27 adet sattıysam 10 lira değil 9 lira alacağım.. ya da a malından 1 adet b malından 200 adet c malından 300 adet satmış olsam alacağım para yine 1 lira.. parayı tam alabilmem için oranlı bi şekilde satış yapmam gerekiyor...

bu defa kesin olmuştur işin içine para girdi çünkü )))))




şimdiden teşekkürler

 

[Orion1]

Ekli dosyayı inceleyiniz.
=EĞER(VE(A2/10=TAMSAYI(A2/10);B2/23=TAMSAYI(B2/23);C2/45=TAMSAYI(C2/45);TAMSAYI(A2/10)=TAMSAYI(B2/23);TAMSAYI(A2/10)=TAMSAYI(C2/45);TAMSAYI(B2/23)=TAMSAYI(C2/45));TAMSAYI(A2/10);0)

 

[Ge.n.co]

tamam güzel olmuş eyvallah saolasın.. ama benim istediğim tam olarak böyle değildi.. a2 ye 10 b2 ye 23 c2 ye de 43 girerek değiştiğinde 2 yazmasını istiyorum.. yani aynı hücrelerde olması lazım sayı değişimi..

 

[Orion1]

Dosyanız ekte.

Sub katlari()
Dim tam1 As Integer, tam2 As Integer, tam3 As Integer
Range("D2").Value = Empty
tam1 = CInt(Range("A2").Value / 10)
tam2 = CInt(Range("B2").Value / 23)
tam3 = CInt(Range("C2").Value / 43)
If Range("A2").Value / 10 = tam1 And Range("B2").Value / 23 = tam2 And _
Range("C2").Value / 43 = tam3 And Range("A2").Value / 10 = Range("B2").Value / 23 _
And Range("A2").Value / 10 = Range("C2").Value / 43 And Range("B2").Value / 23 _
= Range("C2").Value / 43 Then
    Range("D2").Value = Range("A2").Value / 10
End If
End Sub

 

[Ali]

3 değerim var atıyorum 10 23 45
şimdi bu bilgileri 3 farklı hücreye giriyorum ve 4. hücreye formul yazacagım... formulumuze göre eğer 1.hücreye girdiğim sayı 10 2. hücreye girdiğim sayı 23 3.hücreye girdiğim sayı 45 ise 1 yazsın eğer girdiğim sayılar bu değerlerin iki katı ise 2 yazsın 3 katı ise 3 yazsın ama sonsuza kadar gitcek.. eğer katları değilse örneğin 1. 100 2. 230 3.405 ise sonuça 9 yazmalı

Ne yapmak istediğiniz mantığı tam olarak anlamadım ama yukarıdaki ifadenize göre

A1 hücresine : 10
B1 hücresine : 23
C1 hücresine : 45 yazın

A2 hücresine : 100
B2 hücresine : 230
C2 hücresine : 405 yazın.

Sonucu göreceğiniz hücreyede

=YUVARLA(TOPLA(A2:C2)/TOPLA(A1:C1);0,1)

yazın.

 

[Orion1]

Dosyayı tekrardan düzenledim.
İstediğiniz bunun gibi bir şeymi?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tam1 As Integer, tam2 As Integer, tam3 As Integer
If Intersect(Target, [A2:C2]) Is Nothing Then Exit Sub
On Error Resume Next
Range("D2").Value = Empty
tam1 = CInt(Range("A2").Value / 10)
tam2 = CInt(Range("B2").Value / 23)
tam3 = CInt(Range("C2").Value / 43)
If Target.Column = 1 Then
    If Range("A2").Value / 10 = tam1 Then Range("D2").Value = Range("A2").Value / 10
End If
If Target.Column = 2 Then
     If Range("B2").Value / 23 = tam2 Then Range("D2").Value = Range("B2").Value / 23
End If
If Target.Column = 3 Then
        If Range("C2").Value / 43 = tam3 Then Range("D2").Value = Range("C2").Value / 43
End If
End Sub

 

[1Al2Ver]

Sayın Ali, cevaplamış gerçi ama macro ile yapılacaksa,

Sayın Ge.n.co, A1, B1 ve C1 sürekli bir değişken, sabit değil, bu hücrelere girdiği rakamların A2, B2 ve C2 'ye girilenlerle karşılaştırılıp, şayet A2, B2 ve C2 ; A1, B1 ve C1'in katları şeklinde ise, kaç katı olduğunu ilgili hücreye (D2)rakam ile yazmasını istiyor, sanırım.

 

[Ge.n.co]

Dosyayı tekrardan düzenledim.
İstediğiniz bunun gibi bir şeymi?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tam1 As Integer, tam2 As Integer, tam3 As Integer
If Intersect(Target, [A2:C2]) Is Nothing Then Exit Sub
On Error Resume Next
Range("D2").Value = Empty
tam1 = CInt(Range("A2").Value / 10)
tam2 = CInt(Range("B2").Value / 23)
tam3 = CInt(Range("C2").Value / 43)
If Target.Column = 1 Then
    If Range("A2").Value / 10 = tam1 Then Range("D2").Value = Range("A2").Value / 10
End If
If Target.Column = 2 Then
     If Range("B2").Value / 23 = tam2 Then Range("D2").Value = Range("B2").Value / 23
End If
If Target.Column = 3 Then
        If Range("C2").Value / 43 = tam3 Then Range("D2").Value = Range("C2").Value / 43
End If
End Sub

Evet dostum böyle bişey diyorum.. olmuş.. ancak bi sorun var dedim ya eğer katlardan bi tanesi tam değilse katı en küçük olanı yazması lazım.. burda bi sorun var o konuda.. bi de ben bu kadar detaylı bilmiyorum sadece herkesin bildiği formülleri biliyom kendime göre değişmek istesem ayaralayamayacam galiba bunu çok saolasın olucak galiba.. ya da delphi kurup kendim işin içinden çıkacam... gerçi onada bakmıyorum 1 yıldan fazla süredir nası olacaksa

 

[Ali]

Düzenleme: Daha detaylı anlatayım..

Sayılarımız 1,2,3 olsun

A1=1 B1=2 C1=3 ise D1=1 yazsın
A1=2 B1=4 C1=6 ise D1=2 yazsın
A1=3 B1=6 C1=9 ise D1=3 yazsın
A1=4 B1=8 C1=12 ise D1=4 yazsın

bunların her zaman böyle gitmesi mümkün değil tabiki ancak işlemin gerçekleşmesi için hepsinin de tam katsayı olması lazım

Bu dediğiniz için

=OBEB(A1:C1)/OBEB(1;2;3)

yeterlidir.

Yada A1:B1:C1 de sizin belirlediğiniz bir sayı olabilir. bu durumda

=OBEB(A2:C2)/OBEB($A$1:$C$1)

yazılabilir.

A1=4 B1=16 fakat C1=9 ise D1=3 yazmalı çünkü 3 ününde ortak olduğu kat

şimdiden teşekkürler

Üçününde ortak katı nasıl 3 oldu??

 

[Ge.n.co]

Bu dediğiniz için

=OBEB(A1:C1)/OBEB(1;2;3)

yeterlidir.

Yada A1:B1:C1 de sizin belirlediğiniz bir sayı olabilir. bu durumda

=OBEB(A2:C2)/OBEB($A$1:$C$1)

yazılabilir.



Üçününde ortak katı nasıl 3 oldu??

abi obeb okek değil karıştırma allah aşkına.. işin içine parayı soktuk hala mı anlatamadım (((( kat sayı kat sayı.. (yani ordaki değerleri çarptığım sayı.. okek değil bu)

 

[Ali]

Öncelikle hitap tarzınıza dikkat ediniz.

Size burada yardım etmeye çalışıyoruz.

Matematik öğrenin,sonra OBEB mi OKEK mi değilmi karar verin.

A1=4 B1=16 fakat C1=9 için ortak katı 3 bulmanız gibi garip ifadenizi çözmeye çalışıyoruz.

Yardımcı olmakla hata etmişim..

 

[Ge.n.co]

Öncelikle hitap tarzınıza dikkat ediniz.

Size burada yardım etmeye çalışıyoruz.

Matematik öğrenin,sonra OBEB mi OKEK mi değilmi karar verin.

A1=4 B1=16 fakat C1=9 için ortak katı 3 bulmanız gibi garip ifadenizi çözmeye çalışıyoruz.

Yardımcı olmakla hata etmişim..

arkadaşım seninle tartışmaya niyetim yok. begenmiyorsan cvp vermezsin olur biter... tamm.. anlamadıysan anladığınla kalırsın.. anlayan ve de cvp vermek isteyen birisi de verir.. bir şey biliyorsan yazdığımı iyi oku.. hemen cvba karşılık tavır almana gerek yok.. herkes matematik bilmez.. matematik bildikten sonra senin hiç bi gereğin kalmaz... çok sert konuşuyorum cvp vermeye devam etmeyecem.. size iyi aylaşımlar... konu kilitlensin lütfen.. kendini büyük görenlerle işim olmaz...

 

[Levent Menteşoğlu]

arkadaşım seninle tartışmaya niyetim yok. begenmiyorsan cvp vermezsin olur biter... tamm.. anlamadıysan anladığınla kalırsın.. anlayan ve de cvp vermek isteyen birisi de verir.. bir şey biliyorsan yazdığımı iyi oku.. hemen cvba karşılık tavır almana gerek yok.. herkes matematik bilmez.. matematik bildikten sonra senin hiç bi gereğin kalmaz... çok sert konuşuyorum cvp vermeye devam etmeyecem.. size iyi aylaşımlar... konu kilitlensin lütfen.. kendini büyük görenlerle işim olmaz...

Arkadaşım öncelikle forumun tarzını, mevcut soru ve cevapları okuyup anladıktan sonra sorunu gönderseydin keşke. Sn Ali beyin uyarısı son derece yerindedir. Bu forumda kimse kendini büyük görmez. Bundan sonra üslup konusuna gereken hassasiyeti göstermeni umarım.