İlgili sayfaya kaydetme

[thecarow]

Hazırladığım userformda excel'e kayıt yaparken belirttiğim sayfaya değilde o an açık olan sheet'e kayıt yapıyor.Kullandığım kod;
Private Sub CommandButton1_Click()
Dim Satır As Long, Say As Byte

Satır = Range("A65536").End(3).Row + 1


If ComboBox1.Text = "" Then
MsgBox "LÜTFEN -MAĞAZA ADINI GİRİNİZ- bilgisini giriniz !", vbExclamation, "Eksik Bilgi Girişi"
ComboBox1.SetFocus
Exit Sub
End If

If TextBox2.Text = "" Then
MsgBox "Lütfen -LÜTFEN -AD SOYAD- bilginizi giriniz !", vbExclamation, "Eksik Bilgi Girişi"
TextBox2.SetFocus
Exit Sub
End If

If TextBox3.Text = "" Then
MsgBox "Lütfen -LÜTFEN -BULUNTU TARİHİNİ GİRİNİZ !", vbExclamation, "Eksik Bilgi Girişi"
TextBox3.SetFocus
Exit Sub
End If

If TextBox4.Text = "" Then
MsgBox "LÜTFEN -BULUNTU SAATİNİ GİRİNİZ !", vbExclamation, "Eksik Bilgi Girişi"
TextBox4.SetFocus
Exit Sub
End If


If ComboBox2.Text = "" Then
MsgBox "LÜTFEN BULUNTU TÜRÜNÜ GİRİNİZ !", vbExclamation, "Eksik Bilgi Girişi"
ComboBox2.SetFocus
Exit Sub
End If

If ComboBox3.Text = "" Then
MsgBox "LÜTFEN -BULUNTU CİNSİNİ GİRİNİZ !", vbExclamation, "Eksik Bilgi Girişi"
ComboBox3.SetFocus
Exit Sub
End If


If ComboBox4.Text = "" Then
MsgBox "LÜTFEN -MUHAFAZA ALANINI GİRİNİZ !", vbExclamation, "Eksik Bilgi Girişi"
ComboBox4.SetFocus
Exit Sub
End If

If TextBox6.Text = "" Then
MsgBox "LÜTFEN -ÖZELLİKLER ALANINI DOLDURUNUZ !", vbExclamation, "Eksik Bilgi Girişi"
TextBox6.SetFocus
Exit Sub
End If

If ComboBox5.Text = "" Then
MsgBox "LÜTFEN -PERİYOD ALANINI DOLDURUNUZ !", vbExclamation, "Eksik Bilgi Girişi"
ComboBox5.SetFocus
Exit Sub
End If

Cells(Satır, "A") = Satır + 1
Cells(Satır, "B") = TextBox1.Text
Cells(Satır, "C") = ComboBox1.Text
Cells(Satır, "D") = TextBox2.Text
Cells(Satır, "E") = TextBox3.Text
Cells(Satır, "F") = TextBox4.Text
Cells(Satır, "G") = TextBox5.Text
Cells(Satır, "H") = ComboBox2.Text
Cells(Satır, "I") = ComboBox3.Text
Cells(Satır, "J") = ComboBox4.Text
Cells(Satır, "K") = TextBox6.Text
Cells(Satır, "L") = ComboBox5.Text



TextBox1 = ""
ComboBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
TextBox6 = ""
ComboBox5 = ""

ComboBox1.SetFocus
End Sub
şeklindedir.Bu kodu nasıl düzenlersem sadece istediğim sheet'e (sheet name-veri) kayıt yapar.

 

[alptun20]

Hazırladığım userformda excel'e kayıt yaparken belirttiğim sayfaya değilde o an açık olan sheet'e kayıt yapıyor.Kullandığım kod;

Private Sub CommandButton1_Click()
Sheets("SAYFANIN İSMİ").Select
Dim Satır As Long, Say As Byte
.................................... (Sizin Kodlarınız)
End Sub

şeklindedir.Bu kodu nasıl düzenlersem sadece istediğim sheet'e (sheet name-veri) kayıt yapar.

Kodu bu şekilde değiştirip deneyin.

 

[thecarow]

Hocam belirttiğiniz şekilde yaptım ama hata veriyor.

 

[alptun20]

Hocam belirttiğiniz şekilde yaptım ama hata veriyor.

Dosyanızı eklermisiniz.

 

[thecarow]

Hocam tüm erişim şifreleri 3152411

 

[alptun20]

Private Sub CommandButton1_Click()
Dim Satır As Long, Say As Byte
Sheets("Veri").Select
.................................... (Sizin Kodlarınız)
End Sub

Bu şekilde oldu. Kolay gelsin

 

[thecarow]

Hocam problem bendemi bilmiyorum ama belirttiğiniz şekilde yaptım ve yine hata verdi.Siz uyguladığınız dosyayı gönderebilirmisiniz.

 

[thecarow]

Hocam;
Amacınız uğraşıp kendimin yapmasını sağlamak biliyorum ama belirttiğiniz yöntemle denedim ve bir türlü başaramadım.Mümkünse farklı ipuçları verirseniz fikir edinmem açısından.Makrolarda daha yeni olduğum için fazla fikir yürütemiyorum.

 

[thecarow]

Değerli site üyeleri;
Bu konu hakkında yardımcı olabilecek bir arkadaşımız yokmu.

 

[thecarow]

Hocam belirttiğiniz kod ile yaptım,eğer sheetler gizli değilse kod sorunsuz çalışıyor ama sheetleri gizli hale getirdiğimde kod hata veriyor.Bu kodu sheet gizli iken nasıl doğru şekilde çalıştırabilirim.

 

[alptun20]

Hocam belirttiğiniz kod ile yaptım,eğer sheetler gizli değilse kod sorunsuz çalışıyor ama sheetleri gizli hale getirdiğimde kod hata veriyor.Bu kodu sheet gizli iken nasıl doğru şekilde çalıştırabilirim.

O zaman kodunuzun başına sayfanın kilidini açmak için

Sayfa1.Visible = xlSheetVisible

kodunu

Sonudaka sayfayı tekrar gizlemek için

Sayfa1.Visible = xlSheetVeryHidden

kodunu ekleyin, ancak burada dikkat etmeniz gereken sayfanızın ismini (kırmızı yerler) sizin verdiğiniz ismi değil VBA bölümündeki Mİcrosoft Excel Objects Bölümünde tanımlanan ismi yazmanız gerekmekte.

 

[thecarow]

Hocam gerçekten ilginiz ve alakanız için teşekkür ederim.Bu kodu başaramasam bile sizin gibi gerçekten bu işi sadece yardım amaçlı yapan insanlarla beraber olduğum için kendimi şanslı hissediyorum.
Saygılarımla.

 

[alptun20]

Hocam gerçekten ilginiz ve alakanız için teşekkür ederim.Bu kodu başaramasam bile sizin gibi gerçekten bu işi sadece yardım amaçlı yapan insanlarla beraber olduğum için kendimi şanslı hissediyorum.
Saygılarımla.

Teşekkür ederim

İyi çalışmalar..