Gizlenen sayfalardan veri alma, değişiklik yapma ve kayıt etme

[mars2]

İyi Günler;

Aşağıdaki kodlarla adres sayfasından veriyi bulma, değişiklik yapma ve kayıt etmekteyim. Ancak adres sayfasını gizlediğim zaman hata vermektedir.
Aşağıdaki kodlarda ne gibi değişiklik yapılmaı gerekmektedir.

Private Sub CommandButton3_Click()
'bul makrosu
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("adres").Select
Set bul = Range("C:C").Find(TextBox2)
If Not bul Is Nothing Then
bul.Offset(0, 2).Select
TextBox2 = bul.Value
TextBox1 = bul.Offset(0, -1).Value
TextBox3 = bul.Offset(0, 1).Value
TextBox4 = bul.Offset(0, 2).Value
TextBox5 = bul.Offset(0, 3).Value
TextBox6 = bul.Offset(0, 4).Value
TextBox7 = bul.Offset(0, 5).Value

Else
MsgBox "Aranan veri bulunamadı!", vbCritical
End If
ThisWorkbook.Save

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton4_Click()
'değiştir makrosu

Dim bos As Boolean
Dim SAT As Currency

On Error Resume Next

Set bul = Range("C:C").Find(TextBox2)
If Not bul Is Nothing Then
bul.Offset(0, 2).Select
bul.Value = TextBox2
bul.Offset(0, -1).Value = TextBox1
bul.Offset(0, 1).Value = TextBox3
bul.Offset(0, 2).Value = TextBox4
bul.Offset(0, 3).Value = TextBox5
bul.Offset(0, 4).Value = TextBox6
bul.Offset(0, 5).Value = TextBox7
ActiveWorkbook.Save
MsgBox TextBox1.Value & "'a AİT VERİLERİNİZ DEĞİŞTİRŞİLDİ", , "KAYIT DEĞİŞTİRME"

End If
End Sub

Private Sub CommandButton1_Click()
'Kayıt makrosu
Sheets("adres").Activate

If TextBox1.Text <> "" Then
If TextBox2.Text <> "" Then
Son_Dolu_Satir = Sheets("adres").Range("B65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
'Sheets("adres").Range("B" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("adres").Range("B:B")) + 1
Sheets("adres").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("adres").Range("C" & Bos_Satir).Value = TextBox2.Text
Sheets("adres").Range("D" & Bos_Satir).Value = TextBox3.Text
Sheets("adres").Range("E" & Bos_Satir).Value = TextBox4.Text
Sheets("adres").Range("F" & Bos_Satir).Value = TextBox5.Text
Sheets("adres").Range("G" & Bos_Satir).Value = TextBox6.Text
Sheets("adres").Range("H" & Bos_Satir).Value = TextBox7.Text

MsgBox "YENİ İSİM KAYIT EDİLDİ.", , "KAYIT"

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
Unload UserForm2
Else
MsgBox "İsim Girmeniz Gerekiyor"
End If
Else
MsgBox "Diğer Bilgileri Girmeniz Gerekiyor"
End If
End Sub






Quote Reply

Report

 

[AdemCan]

Merhaba, gizli olan sayfayı önce görünür yapıp işlem sonrasında tekrar gizleyebilirsiniz.
Sheets("adres").Visible = True ile adres sayfasını görünür yaparsınız.
Sheets("adres").Visible = False ile de adres sayfasını tekrar gizlersiniz.

 

[mars2]

Sayın AdenCan;
İlginize teşekkürler, ancak her zaman sayfanın görünür yapıp sonra gizlenmesi değil, hep gizli kalması yönünde,

Sheets("adres").Select kodunu
ThisWorkbook.Worksheets("adres").Select
kodu ile değiştirdiğim zaman yine hata vermektedir.

Konu hakkında yardımlarınız beklenmektedir.

 

[AdemCan]

Merhaba, gizli bir sayfayı seçmek istediğiniz için Select satırı hata verir.
Bu nedenle önce görünür yapıp işlemler sonunda gizleme yapabilirsiniz.

Her zaman gizli kalması gerekiyorsa kullanılan kodların değişmesi gerekebilir.
Örnek dosyanızı paylaşır mısınız?

 

[mars2]

Sayın AdemCan;
Örnek dosya ektedir.

 

[mars2]

Sayın AdemCan;
Örnek dosya ektedir.

 

[AdemCan]

Örnek dosya eklenmemiş.

 

[mars2]

Örnek ektedir.

 

[AdemCan]

Dosyanız ektedir, dener misiniz?

 

[mars2]

Sayın AdemCan;
İlginiz ve cevabınız için teşekkürler.

 

[AdemCan]

Rica ederim.

 

[mars2]

İyi günler;
Kayıt yaparken aşağıdaki hata vermektedir.

 

[AdemCan]

Merhaba, konu dikkatimden kaçmış. Bu nedenle cevap üzerinden zaman geçmiş kusura bakmayın.
Hata veren satırı değiştiriniz. Son_Dolu_Satir = Sheets("adres").Range("B65536").End(xlUp).Row