% Oranlama

[hüdayi]

Merhaba
Yardımcı olmanızı beklediğim konu:

1500 %100
ise
375 %?

FORMUL HALİNE GETİRİRMİSİNİZ.

Yardımlarınız için TEÞEKKÜRLER...
cak :yardim:

 

[hüdayi]

:hey:

 

[Guest]

Merhaba Hüdai

Anladığım kadarı ile cevaplayayım A3 hücresine aşağıdaki formulu yazarsan istediğinin olacağını düşünüyorum

=A1*A2

kolay gelsin :hey:

 

[erdoğankaplan]

A1'E ÞUNLARI YAZ
=375*1500/100

 

[xxrt]

Merhaba,arkadaşlarımın cevabı ile aynı ama dayanadım.Yazacağım.
A1 Hücresinde=1500
B1 Hücresinde=%100 B1 ve B2 Hücresini Sağtuş>Hücrebiçimlendir>Yüzde Oranı seç.
A2 Hücresinde=375
B2 Hücresinde= x olsun..
X Bilinmiyor.

Orantıyı hatırlarsak 1500'ün %100 =>375'de Kaç % Olur?
(Binbeşyüzde Yüzdeyüz ise;Üçyüzyetmişbeşte kaç olur.)
B2 Hücresine şu Fonksiyonu yazın.

=EÐER(A2="";"Bir Sayı Giriniz.";A2*B1/A1)

Yadaa. Fonksiyon Bölümü Ama Makro olarakda.
Sayfa1'de
Denetim Araç Kutusu>Değiştir Düğmesi ekleyip çift tıklayın ve şu kodları yazın.

Private Sub ToggleButton1_Click()
If Range("A1") = "" Then
soru = MsgBox("A1 Hücresini Boş Geçtiniz.Boş Geçerseniz Hesaplama Yapılamaz.Devam Edeyimmi?", vbYesNo, "A1 Hücresi Boş!")
Range("A1").Select
If soru = vbYes Then GoTo devam
If soru = vbNo Then Exit Sub
End If
If Range("A2") = "" Then
soru = MsgBox("A2 Hücresini Boş Geçtiniz.Devammı?", vbYesNo, "A2 Hücresi Boş!")
Range("A2").Select
If soru = vbYes Then GoTo devam
If soru = vbNo Then Exit Sub
End If
devam:
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Sil"
Range("b2") = Range("A2") * Range("b1") / Range("A1")
Else
ToggleButton1.Caption = "Yüzdesini Bul"
Range("A2").ClearContents
Range("b2").ClearContents
End If
End Sub

Tasarım Modundan çıkın Butonu tıklayın..Bingo :hey:

 

[Hüseyin]

xxrt coştu bir kere... :bravo: