Korumalı Sayfada İşlem Yapmak

[ormann]

Mehabalar.Ekteki örnek dosyada kayıt sayfasına koruma yaptımız zaman süzme işlemi ve diğer sayfalardan veri aktarımını nasıl sağlayabiliriz?

 

[serqet]

Sayfayı koru dediğinizde gelen pencerenin altında yer alan kriterlerden hangisini yapmak istiyorsanız onları işaretleyeceksiniz.

 

[ormann]

Sayın serget süzme işlemini hallettim.Ama başka sayfalardan veri gönderdiğim zaman hata veriyor.

 

[Ömer]

Merhaba,

Veri göndermeyi nasıl yapıyorsunuz.

 

[ormann]

Başka sayfadan makro ile gönderiyorum

 

[serqet]

makroyu kodlarını buraya yazarmısınız.

 

[ormann]

Private Sub CommandButton3_Click()
If MsgBox("SEÇMİŞ OLDUĞUNUZ DAVAYI SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ?", vbYesNo + vbCritical, "DİKKAT KAYIT SİLME İŞLEMİ YAPIYORSUNUZ !!!!!") = vbNo Then
MsgBox "SİLME İŞLEMİNİ İPTAL ETTİNİZ!", vbExclamation
Exit Sub
Else
End If

Dim s2 As Worksheet
Set s2 = Sheets("KAYIT")
son2 = s2.[a65536].End(3).Row
If ListBox1.ListIndex = -1 Then
MsgBox "SİLMEK İÇİN LİSTEDEN BİR KAYIT SEÇMELİSİNİZ!", vbCritical


Exit Sub
Else
a = ListBox1.ListIndex
takip_no = ListBox1.List(a, 1)
sat = s2.Range("a1:A" & son2).Find(takip_no, lookat:=xlWhole).Row
s2.Rows(sat).Delete
Call temizle
MsgBox "KAYIT SİLİNMİŞTİR.!", vbInformation
End If
Set s2 = Nothing: sat = 0
End sub

 

[serqet]

Bu şekilde deneyin.


Private Sub CommandButton3_Click()
If MsgBox("SEÇMİŞ OLDUĞUNUZ DAVAYI SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ?", vbYesNo + vbCritical, "DİKKAT KAYIT SİLME İŞLEMİ YAPIYORSUNUZ !!!!!") = vbNo Then
MsgBox "SİLME İŞLEMİNİ İPTAL ETTİNİZ!", vbExclamation
Exit Sub
Else
End If

Dim s2 As Worksheet
Set s2 = Sheets("KAYIT")
son2 = s2.[a65536].End(3).Row
If ListBox1.ListIndex = -1 Then
MsgBox "SİLMEK İÇİN LİSTEDEN BİR KAYIT SEÇMELİSİNİZ!", vbCritical


Exit Sub
Else
ActiveSheet.UnProtect(şifreniz)
a = ListBox1.ListIndex
takip_no = ListBox1.List(a, 1)
sat = s2.Range("a1:A" & son2).Find(takip_no, lookat:=xlWhole).Row
s2.Rows(sat).Delete
Call temizle
ActiveSheet.Protect(şifreniz)
MsgBox "KAYIT SİLİNMİŞTİR.!", vbInformation
End If
Set s2 = Nothing: sat = 0
End sub

 

[ormann]

Teşekkür ederim.