[Yardım]  optionbutton ile onay ve ret kararı verme

Seçenek düğmesi

optionbutton ile onay ve ret kararı verme

İleti#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?
Kullanıcı avatarı
mervebrlk
Yeni Başlamış
 
Kayıt: 20 Mar 2018 00:03
Meslek: öğrenci
Yaş: 23
İleti: 21
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: trabzon/ortahisar

Cevap: optionbutton ile onay ve ret kararı verme

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

Mahsuru yoksa dosyanızı ekler misiniz?
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2632
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: optionbutton ile onay ve ret kararı verme

İleti#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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
mervebrlk
Yeni Başlamış
 
Kayıt: 20 Mar 2018 00:03
Meslek: öğrenci
Yaş: 23
İleti: 21
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: trabzon/ortahisar

Cevap: optionbutton ile onay ve ret kararı verme

İleti#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
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2632
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum OptionButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe