Satırları koruma altına almak
Tarih
25/03/2013 12:00
Konu Sahibi
kenan827
Yorumlar
2
Okunma
1206
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



kenan827
Aktif Üye
Kullanici Avatari
Aktif Üye
289
28/02/2013
0
İstanbul
-
07/07/2016,21:28
Çözüldü 
Herhaba arkadaşlar aşağıdaki kod ile istediğim satırları siliyorum. Ancak 1 den 5 e kadar olan satırları korma altına almak istiyorum. Bu satırları seçsem bile silmeme izin vermesin beni uyarsın. Bu kounda yardımlarınızı bekliyorum.


Private Sub CommandButton15_Click()
ActiveSheet.Unprotect "123"
sifre = InputBox("!!!.SİLMEK İSTEDİĞİNİZ SATIRLARI SEÇİNİZ. SATIR SEÇMESENİZ İMLEÇ HANGİ SATIRDA İSE O SATIRI SİLER. SATIRLARI SİLECEĞİNİZDEN EMİN İSENİZ PAROLA GİRİNİZ. !!!")
If sifre = "" Then Exit Sub
Dim Arr()
Application.ScreenUpdating = False
For Each R In Selection.Rows
c = c + 1
ReDim Preserve Arr(1 To c)
Arr© = R.Row
Next
First = LBound(Arr)
Last = UBound(Arr)
For i = First To Last - 1
For j = i + 1 To Last
If Arr(i) < Arr(j) Then
Temp = Arr(j)
Arr(j) = Arr(i)
Arr(i) = Temp
End If
Next j
Next i
For k = 1 To UBound(Arr)
Rows(Arr(k)).Delete
Next
Application.ScreenUpdating = True
MsgBox "!!!.SATIR VEYA SATIRLAR SİLİNDİ.!!!"
ActiveSheet.Protect "123"
Range("A65535").End(xlUp).Offset(1, 0).Select
ComboBox2.SetFocus
End Sub
Cevapla


kenan827
Aktif Üye
Kullanici Avatari
Aktif Üye
289
28/02/2013
0
İstanbul
-
07/07/2016,21:28
Çözüldü 
Sorunuma çözüm buldum.Teşekürler.
Cevapla


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çözüldü 
Geri dönüş yaptığınız için teşekkürler.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  makro ile excele veri almak siyahhayis 4 767 05/06/2016, 15:48 atoz112
Çözüldü Access'ten ID almak ahatbek 6 845 13/10/2015, 21:28 ahatbek
Çözüldü Aylara Göre Toplam Almak Conqueror20 9 3.487 05/02/2014, 22:59 Conqueror20
Çözüldü excelde tüm sayfalara aynı anda koruma koyma axtmm 3 2.007 09/10/2013, 16:05 ogulcan92
Çözüldü excelde hücrelere koruma axtmm 2 1.054 09/10/2013, 11:53 axtmm


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya