Makro ile hücreye veri aktarma

[emsey]

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."

 

[Mustafa MUTLU]

Bunlar:..

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

If kodundan önce olmalı..

 

[Emir Hüseyin Çoban]

. . .

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."

. . .

 

[emsey]

Bunlar:..

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

If kodundan önce olmalı..

Çok teşekkür ediyorum üstad hemen deniyorum.

 

[emsey]

. . .

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."

. . .

Bununla daha hızlı yaptım.
Üstadım cevaplar ve emeğiniz için teşekkür ediyorum. Saygılarımla

 

[Mustafa MUTLU]

Bununla daha hızlı yaptım.
Üstadım cevaplar ve emeğiniz için teşekkür ediyorum. Saygılarımla

Geri dönüş için teşekkürler.