ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Arslanbey]

Elimdeki olan programda kaydetme yapabiliyorum.Fakat hangi OptionButton seçersem o sayfaya kaydetmesini yapamadım ;Örneğin verileri yazdık diyelim sayfa2 seçtikten sonra kaydet dediğimde verileri hem sayfa2 kaydedecek hemde diğer sayfalara kaydetmesini istiyorum.

[Ali ÖZ]

Bu sonuçlar gerçek mi ?

[Arslanbey]

Bazıları gerçek diyeceğim ama değil Ali bey laborant olduğum için

[Arslanbey]

Herhangi bir fikri olan yokmu arkaşlar...

[Ali ÖZ]

Örneğin verileri yazdık diyelim sayfa2 seçtikten sonra kaydet dediğimde verileri hem sayfa2 kaydedecek hemde diğer sayfalara kaydetmesini istiyorum.

Kayıt tüm sayfalara mı yapılacak ?

[Arslanbey]

Evet Ali bey aynen dediğiniz gibi.

[Ali ÖZ]

Süleyman Bey,
Zaten istediğiniz işlemi yapıyor gibi

[Arslanbey]

Ali bey normalde yapıyor ama benim isteğim OptionButton' ların hangisini seçersem onada kaydetmesini istiyorum birde OptionButton seçmediğim zaman kaydetmesin ayrıca OptionButton seçtiğim anda ListBox1 verileri süzmesini istiroum.

[Ali ÖZ]

Yani opption1 i seçtiğinizde hem Arslanbey sayfasına hemde İlgili kişinin sayfasına mı kaydedecek ? Opption2 Yi seçtiğinizde hem VERİ sayfasına hemde İlgili kişinin sayfasına mı kaydedecek ?

[Arslanbey]

Evet Ali Bey dediğiniz gibi ayrıca OptionButton seçmediğim zaman kaydetmesin ayrıca OptionButton seçtiğim anda ListBox1 verileri süzmesini istiyorum.

[Ali ÖZ]

Kontrol edin.Opptin seçildiğinde listboxa nereden hamgi veriler gelecek ?

Kod: Tümünü seç

Private Sub CommandButton1_Click()
If OptionButton3.Value = False And OptionButton4.Value = False Then
MsgBox "Sayfa Seçin"
Exit Sub
End If
If OptionButton3.Value = True Then
Sheets("Arslanbey").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = (TextBox15.Text)

ActiveSheet.Range("b12").Value = (TextBox1.Value)
ActiveSheet.Range("b14").Value = (TextBox2.Value)
ActiveSheet.Range("b16").Value = (TextBox3.Value)
ActiveSheet.Range("b18").Value = (TextBox4.Value)
ActiveSheet.Range("b22").Value = (TextBox6.Value)
ActiveSheet.Range("b28").Value = (TextBox9.Value)
ActiveSheet.Range("b30").Value = (TextBox10.Value)
ActiveSheet.Range("b32").Value = (TextBox11.Value)
ActiveSheet.Range("b34").Value = (TextBox12.Value)
ActiveSheet.Range("b36").Value = (TextBox13.Value)
ActiveSheet.Range("b38").Value = (TextBox14.Value)
ActiveSheet.Range("c43").Value = (TextBox15.Value)
ActiveSheet.Range("d6").Value = (TextBox16.Value)
ActiveSheet.Range("b40").Value = (TextBox18.Value)


Sayfa1.Range("b12").Value = (TextBox1.Value)
Sayfa1.Range("b14").Value = (TextBox2.Value)
Sayfa1.Range("b16").Value = (TextBox3.Value)
Sayfa1.Range("b18").Value = (TextBox4.Value)
Sayfa1.Range("b22").Value = (TextBox6.Value)
Sayfa1.Range("b28").Value = (TextBox9.Value)
Sayfa1.Range("b30").Value = (TextBox10.Value)
Sayfa1.Range("b32").Value = (TextBox11.Value)
Sayfa1.Range("b34").Value = (TextBox12.Value)
Sayfa1.Range("b36").Value = (TextBox13.Value)
Sayfa1.Range("b38").Value = (TextBox14.Value)
Sayfa1.Range("c43").Value = (TextBox15.Value)
Sayfa1.Range("d6").Value = (TextBox16.Value)
Sayfa1.Range("b40").Value = (TextBox18.Value)

ElseIf OptionButton4.Value = True Then
Sheets("Arslanbey").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = (TextBox15.Text)
Call VeriSayfasinaKaydet
End If
MsgBox ("Yeni İsim  başarıyla oluşturuldu.")
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
TextBox18 = ""
End Sub

[Arslanbey]

Ali bey OptionButton seçiyoruz ama excelde sayfa1 veya sayfa2 aynı zamanda kaydetmesi gerek.Listboxa OptionButton yani sayfa1 seçtiysem sayfa1 deki veriler gelmesi gerek sayfa2 yi seçtiğimiz zamanda sayfa2 veriler gelmesi lazım Listboxa.

[Ali ÖZ]

Sayfa1 de ne veri var ki listboxa gelsin ? Madem her iki sayfaya da kayıt yapacaksınız optionbutton neden kullanıyorsunuz ?

[Arslanbey]

Ali bey veri girişini sağlarsam içinde veri olacak ben hangi OptionButton butonu seçersem ona kaydetmesini istiyorum

[Ali ÖZ]

Ali bey OptionButton seçiyoruz ama excelde sayfa1 veya sayfa2 aynı zamanda kaydetmesi gerek.Listboxa OptionButton yani sayfa1 seçtiysem sayfa1 deki veriler gelmesi gerek sayfa2 yi seçtiğimiz zamanda sayfa2 veriler gelmesi lazım Listboxa.

Ali bey veri girişini sağlarsam içinde veri olacak ben hangi OptionButton butonu seçersem ona kaydetmesini istiyorum

Ben anlayamadım hangisi yapılacak ?

[Erkan Akayay]

Ben anlayamadım hangisi yapılacak ?

Yalnız değilsin. Bende anlayamadım diye kendime kızıyordum.

[Ali ÖZ]

Hocam ben artık kendimden şüphe etmeye başladım

[Arslanbey]

Teşekür ederim Ali bey ilginizden dolayı