Makro Korumalı Hücre Hk.

R

ramazankaya89

Katılım
25 Haziran 2023
Mesajlar
90
Excel Vers. ve Dili
Microsoft Office 2019 / TR
arkadaslar merhaba korumalı hucreler ıcın sayfalarımda parolayı kaldırarak sonra tekrar parola yazdırarak ıslem yaptırıyorum ama bıtırınce benı en son sayfa da olması gereken yere atmayıp sayfalara rastgele atıyor sorun nerden kaynaklı olabılır yanlıs bı sıralama mı kullanıyorum

Sub Clean()

Sheets("DATA").Unprotect "123"
Sheets("RESULT").Unprotect "123"
Sheets("ÖZET").Unprotect "123"
Sheets("UPDATE").Unprotect "123"

Dim Sayfa1, Sayfa2, Sayfa3, Sayfa4 As Worksheet

Set Sayfa1 = Sheets("DATA")
Set Sayfa2 = Sheets("RESULT")
Set Sayfa3 = Sheets("ÖZET")
Set Sayfa4 = Sheets("UPDATE")


Sayfa1.Range("A2:A" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("B2:B" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("C2:C" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("D2:D" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("E2:E" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("F2:F" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("G2:G" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("H2:H" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("I2:I" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("J2:J" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("K2:K" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("L2:L" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("M2:M" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("N2:N" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("O2:O" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("P2:p" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("Q2:Q" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("R2:R" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("S2:S" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("T2:T" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("U2:U" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("V2:V" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("W2:W" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("X2:X" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("Y2:Y" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("Z2:Z" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("AA2:AA" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("AB2:AB" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("AC2:AC" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("AD2:AD" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("AE2:AE" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("AF2:AF" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("AG2:AG" & Sayfa1.Rows.Count).ClearContents
Sayfa1.Range("AH2:AH" & Sayfa1.Rows.Count).ClearContents



Sayfa2.Range("A2:A" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("B2:B" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("C2:C" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("D2:D" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("E2:E" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("F2:F" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("G2:G" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("H2:H" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("I2:I" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("J2:J" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("K2:K" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("L2:L" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("M2:M" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("N2:N" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("O2:O" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("P2:p" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("Q2:Q" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("R2:R" & Sayfa2.Rows.Count).ClearContents
Sayfa2.Range("S2:S" & Sayfa2.Rows.Count).ClearContents


Sayfa3.Range("A2:A" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("B2:B" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("C2:C" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("D2:D" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("E2:E" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("F2:F" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("G2:G" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("H2:H" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("I2:I" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("J2:J" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("K2:K" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("L2:L" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("M2:M" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("N2:N" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("O2:O" & Sayfa3.Rows.Count).ClearContents
Sayfa3.Range("P2:p" & Sayfa3.Rows.Count).ClearContents



Sayfa4.Range("D2:D9").ClearContents
Sayfa4.Range("E2:E9").ClearContents
Sayfa4.Range("D16:D19").ClearContents
Sayfa4.Range("E16:E19").ClearContents
Sayfa4.Range("H2:H3").ClearContents
Sayfa4.Range("I2:I3").ClearContents
Sayfa4.Range("J2:J3").ClearContents
Sayfa4.Range("Q2:Q7").ClearContents
Sayfa4.Range("R2:R7").ClearContents
Sayfa4.Range("S2:S7").ClearContents
Sayfa4.Range("T2:T7").ClearContents



Set Sayfa1 = Nothing
Set Sayfa2 = Nothing
Set Sayfa3 = Nothing
Set Sayfa4 = Nothing

Sheets("DATA").Protect "123"
Sheets("RESULT").Protect "123"
Sheets("ÖZET").Protect "123"
Sheets("UPDATE").Protect "123"

End Sub
 
H

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,679
Excel Vers. ve Dili
Excel 2019 Türkçe
Anladığım kadarıyla son sayfa Sayfa4. Bu sayfayı seçmek için aşağıdaki satırları kullanabilirsiniz.
Kod: 
Set Sayfa4 = Sheets("UPDATE")
Sayfa4.Select
Bunun dışında kodlarınızı kısaltabilirsiniz. Aşağıdaki satırdan esinlenebilirsiniz.
Kod: 
    Sayfa3.Range("A2:AH" & Sayfa3.Rows.Count).ClearContents
 
R

ramazankaya89

Katılım
25 Haziran 2023
Mesajlar
90
Excel Vers. ve Dili
Microsoft Office 2019 / TR
hamitcan' Alıntı:
Anladığım kadarıyla son sayfa Sayfa4. Bu sayfayı seçmek için aşağıdaki satırları kullanabilirsiniz.
Kod: 
Set Sayfa4 = Sheets("UPDATE")
Sayfa4.Select
Bunun dışında kodlarınızı kısaltabilirsiniz. Aşağıdaki satırdan esinlenebilirsiniz.
Kod: 
    Sayfa3.Range("A2:AH" & Sayfa3.Rows.Count).ClearContents
Genişletmek için tıkla ...
Teşekkür ederim hocam
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst