• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro ile hücreye veri aktarma

  • Konbuyu başlatan Konbuyu başlatan emsey
  • Başlangıç tarihi Başlangıç tarihi
E

emsey

Katılım
18 Mart 2007
Mesajlar
171
Excel Vers. ve Dili
OFFICE 2016
Saygıdeğer üstadlar.

Aşağıdaki şekilde bir kodum var.

3 adet option buton kullanarak hangisi seçiliyse farklı sayfaya veri aktarmaya çalışıyorum. Örneğin : option buton 1 seçili olduğunda rapor sayfasına, option buton 2 seçili olduğunda rapor1 sayfasına, ve son olarak option buton 3 seçili olduğunda rapor2 sayfasına veri aktarmak istiyorum. Aktarım Formülüm aşağıdadır. Tek sayfa için gayet düzgün çalışıyor. İlgili yer kırmızı yaptığım aktarrapor yerine sayfa adı gelmesi gerekiyor ama formül çalışmadı. Nereyi yanlış yapıyorum bilmiyorum. Bilgisi olan üstadlar yardımcı olursa memnuniyet duyarım. İlginize şimdiden teşekkür ederim.

If optionbutton1 = True Then aktarrapor = aktar Else If optionbutton2 = True Then aktarrapor = aktar1 Else If optionbutton3= True Then aktarrapor = aktar2

aktar = "rapor"
aktar1 = "rapor1"
aktar2 = "rapor2"

aktarrapor.Range("B27").Value = " Şubeniz nezdindeki " & bankahsno1.Value & " numaralı " & bankaparabirimi.Value & " hesabımızdan " & Format(transfertutari, "#,##0.00") & " " & parabirimi.Value & " " & aktarrapor.Range("D4").Value & " ) arbitraj işlemi yapılarak " & Format(karsidoviz, "#,##0.00") & " " & aktarrapor.Range("H2").Value & " (" & aktarrapor.Range("j4").Value & " ) olarak hesabımıza aktarılmasını rica ederiz."
 
Bunlar:..

aktar = "rapor"
aktar1 = "rapor1"
aktar2 = "rapor2"

If kodundan önce olmalı..
 
. . .

Kod: 
Dim aktarrapor As Worksheet

If OptionButton1 = True Then Set aktarrapor = Sheets("rapor") Else If OptionButton2 = True Then Set aktarrapor = Sheets("rapor1") Else If OptionButton3 = True Then Set aktarrapor = Sheets("rapor2")

aktarrapor.Range("B27").Value = " Şubeniz nezdindeki " & bankahsno1.Value & " numaralı " & bankaparabirimi.Value & " hesabımızdan " & Format(transfertutari, "#,##0.00") & " " & parabirimi.Value & " " & aktarrapor.Range("D4").Value & " ) arbitraj işlemi yapılarak " & Format(karsidoviz, "#,##0.00") & " " & aktarrapor.Range("H2").Value & " (" & aktarrapor.Range("j4").Value & " ) olarak hesabımıza aktarılmasını rica ederiz."

. . .
 
Hüseyin Çoban' Alıntı:
. . .

Kod: 
Dim aktarrapor As Worksheet

If OptionButton1 = True Then Set aktarrapor = Sheets("rapor") Else If OptionButton2 = True Then Set aktarrapor = Sheets("rapor1") Else If OptionButton3 = True Then Set aktarrapor = Sheets("rapor2")

aktarrapor.Range("B27").Value = " Şubeniz nezdindeki " & bankahsno1.Value & " numaralı " & bankaparabirimi.Value & " hesabımızdan " & Format(transfertutari, "#,##0.00") & " " & parabirimi.Value & " " & aktarrapor.Range("D4").Value & " ) arbitraj işlemi yapılarak " & Format(karsidoviz, "#,##0.00") & " " & aktarrapor.Range("H2").Value & " (" & aktarrapor.Range("j4").Value & " ) olarak hesabımıza aktarılmasını rica ederiz."

. . .
Genişletmek için tıkla ...

Bununla daha hızlı yaptım.
Üstadım cevaplar ve emeğiniz için teşekkür ediyorum. Saygılarımla
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst