Çarpma İşlemi

[ahmed_ummu]

Merhaba Arkadaşlar.

0,179797*15533 İşleminin sonucu 2.792.78 çıkması gerekirken, 2.795,94 çıkıyor. Aşağıdaki kodlar ile.

emyC5'in değeri 0,0179797, emyD5'in değeri 15533
emy.Range("e5").Value = Format(emy.Range("c5").Value, "#,##0.00") * Format(emy.Range("d5").Value, "#,##0.00")

Yardımcı olursanız sevinirim.

 

[Muzaffer Ali]

Merhaba.

emy.Range("e5").Value = Format(emy.Range("c5").Value * emy.Range("d5").Value, "#,##0.00")

 

[ahmed_ummu]

Merhaba.

emy.Range("e5").Value = Format(emy.Range("c5").Value * emy.Range("d5").Value, "#,##0.00")

Çok teşekkürler Muzaffer Ali bey, düzeldi.

Bir sorum daha olacak. Kusura bakmayın, bir türlü çözemedim. Aşağıdaki kod ile sayfayı yazdırmak istiyorum. Ama bazen bir rakam yazacağımız zaman iki rakama birden basabiliyoruz, farkında olmadan ve artık hangi rakamlara bastıysak 30-40-50 ... sayfa yazıcıya gönderiyo. Bir bunu engellemek için bir de yine yazdırmayı iptal etmek istediğimizde ESC tuşuna basınca yine de yazdırıyor. bunu da engellemek için kopya sayısı 3 den büyük olursa ve ESC tuşuna basınca işlem yapmasın istiyorum. Aşağıdaki kod ile denedim ama ESC tuşuna basınca yine de yazdırıyor. Yardım edebilirseniz sevinirim.

Dim sayi As Variant
sayi = InputBox("Kopya sayısını giriniz.", "Kopya Sayısı")
If sayi = vbCancel Or sayi > 3 Then
GoTo git:
Else
Sheets("ey").PrintOut = sayi
End If
git:

 

[Muzaffer Ali]

Kodlar o kadar hızlı çalışıyor ki ESC tuşuna basarak kodları durdurmanız mümkün değil.
3 kopya hakkında istediğinizi aşağıdaki şekilde yapabilirsiniz.

Sub test()
    Dim sayi As Variant
    sayi = InputBox("Kopya sayısını giriniz.", "Kopya Sayısı")
    If sayi <= 3 Then
        Sheets("ey").PrintOut = sayi
    Else
        If MsgBox("3 kopyadan fazla yazdırmak istediğinizden emin misiniz?", vbYesNo, "Kopya Sayısı") = vbYes Then
            Sheets("ey").PrintOut = sayi
        End If
    End If
End Sub

yada

Sub test()
    Dim sayi As Variant
    sayi = InputBox("Kopya sayısını giriniz.", "Kopya Sayısı")
    If sayi <= 3 Then
        Sheets("ey").PrintOut = sayi
    Else
        MsgBox "En fazla 3 kopya yazdırabilirsiniz.", , "Kopya Sayısı"
    End If
End Sub

 

[ahmed_ummu]

Kodlar o kadar hızlı çalışıyor ki ESC tuşuna basarak kodları durdurmanız mümkün değil.
3 kopya hakkında istediğinizi aşağıdaki şekilde yapabilirsiniz.

Sub test()
    Dim sayi As Variant
    sayi = InputBox("Kopya sayısını giriniz.", "Kopya Sayısı")
    If sayi <= 3 Then
        Sheets("ey").PrintOut = sayi
    Else
        If MsgBox("3 kopyadan fazla yazdırmak istediğinizden emin misiniz?", vbYesNo, "Kopya Sayısı") = vbYes Then
            Sheets("ey").PrintOut = sayi
        End If
    End If
End Sub

yada

Sub test()
    Dim sayi As Variant
    sayi = InputBox("Kopya sayısını giriniz.", "Kopya Sayısı")
    If sayi <= 3 Then
        Sheets("ey").PrintOut = sayi
    Else
        MsgBox "En fazla 3 kopya yazdırabilirsiniz.", , "Kopya Sayısı"
    End If
End Sub

Teşekkürler Muzaffer Ali bey.