Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Excel Vba Matematiksel İşlem Hakkında

Oğuz Türkyılmaz
Oğuz Türkyılmaz
Excel Cevaplanmış Soruları
5
565

Excel Vba Matematiksel İşlem Hakkında

#6
Oğuz Türkyılmaz
Aktif Üye
Oğuz Türkyılmaz
Bul
Aktif Üye
Adı Soyadı: Oğ.... Tü....
Yaşı: 55
Konum: Antalya
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 03/05/2023,09:23
Yorumları: 1.583
Konuları: 265
Kayıt Tarihi: 08/02/2018
Teşekkür Puanı: 0
Mesleğiniz: İşletmeci
[quote="feraz" pid="182945" dateline="1634177102"]
Bir modüle alttaki kodları ekleyin abey.Open yada colse varsa içindekileri ekleyin yada excelin açılış yada kapanış yerlerine ekleyin with ile end if olan yerleri.

@feraz hocam maalesef bu şekilde de çalışmadı. Kur sayfasından alınan değeri text olarak alınca formül düzgün çalıştı.
Kod:
Private Sub ComboBox_DovizCinsi_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If KeyCode = 13 Then KeyCode = 9

If ComboBox_DovizCinsi.Value = "USD" Then

TextBox_DovizKuru.Value = [Kurlar!C2].Text
TextBox_DovizKarsiligi.Value = Format(TextBox_ProjeBedeli.Value / TextBox_DovizKuru.Value, "#,##")

ElseIf ComboBox_DovizCinsi.Value = "EURO" Then

TextBox_DovizKuru.Value = [Kurlar!C5].Text
TextBox_DovizKarsiligi.Value = Format(TextBox_ProjeBedeli.Value / TextBox_DovizKuru.Value, "#,##")

Else

TextBox_DovizKuru.Value = 1
TextBox_DovizKarsiligi.Value = Format(TextBox_ProjeBedeli.Value / TextBox_DovizKuru.Value, "#,##")

End If


End Sub

Çok şükür hallettim. Teşekkürler.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Excel Vba Matematiksel İşlem Hakkında - Yazar: Oğuz Türkyılmaz - 16/10/2021, 07:34
Task