optionbutton ile onay ve ret kararı verme

**#1)** **mervebrlk** » 20 Mar 2018 00:06

Private Sub ComboBox1_Change()
TextBox1.text = Cells(ComboBox1.ListIndex + 2, "H")
End Sub

Bu kodla comboboxta seçtiğim müşterinin kodu textbox1e geliyor. Buna ek olarak onay ve ret kararı için optionbutton ekledim. Onayladığım müşterinin kayıtlı olduğu sayfadan o satırdaki tüm bilgileri alıp farklı bir sayfaya kaydetmesini istiyorum ama yapamadım. Yardımcı olabilir misiniz?

**#2)** **Ozan İLGÜN** » 20 Mar 2018 10:11

Mahsuru yoksa dosyanızı ekler misiniz?

**#3)** **mervebrlk** » 22 Mar 2018 00:33

Teşekkür ederim. Dosyanın orjinalini paylaşamayacağımdan prototipi olacak şekilde farklı bir dosya atıyorum. Örnek üzerinde özetlemek gerekirse; onay verilen müşterinin Sayfa1'deki bilgilerini Sayfa2'ye aktaran bir kod gerekiyor. Umarım dosya işe yarar.

**#4)** **Ozan İLGÜN** » 23 Mar 2018 10:38

Dim activeitem As Integer
Private Sub ComboBox1_Change()
OptionButton1.Visible = ComboBox1.ListIndex > 0
OptionButton2.Visible = ComboBox1.ListIndex > 0
OptionButton1.Value = False
Sayfa1.Activate
If ComboBox1.ListIndex < 1 Then Exit Sub
activeitem = ComboBox1.ListIndex + 1
TextBox1.Text = Range("A" & activeitem).Value
Rows(activeitem).Select
End Sub
Private Sub OptionButton1_Click()
Dim lastrow As Integer
lastrow = Sayfa2.Range("A" & Sayfa2.Rows.Count).End(3).Row + 1
Sayfa2.Rows(lastrow).Insert shift:=xlShiftDown
Sayfa1.Rows(activeitem).EntireRow.Copy Destination:=Worksheets("Sayfa2").Range("A" & lastrow)
Sayfa1.Rows(activeitem).Delete
Sayfa2.Activate
End Sub
Private Sub UserForm_Activate()
OptionButton1.Visible = False
OptionButton2.Visible = False
End Sub