- Katılım
- 12 Ocak 2007
- Mesajlar
- 465
- Excel Vers. ve Dili
- 2003
Sn dostlar benzer sorular forumda vardı ancak ben bu işin içinden çıkamadım yardımcı olursanız sevinirim.aşağıdaki kodla bilgileri korumalı sayfaya aktarabilmem için;
ActiveSheet.Unprotect "0"
ActiveSheet.Protect "0"
kodlarını nereye yerleştirmeliyim.saygılar
Private Sub FKÜ_Click()
Dim i, j, k
i = 6
j = 6
Do While Cells(i + 1, 3) <> ""
i = i + 1
Loop
Range("b" & 6 & ":j" & i).Copy
Do While Worksheets("FKÜ YILLIK").Cells(j, 3) <> ""
j = j + 1
Loop
Worksheets("FKÜ YILLIK").Cells(j, 1).PasteSpecial
Range("b" & 6 & ":j" & i).Select
k = MsgBox("AKTARMA TAMAMLANDI." + Chr(13) + "SEÇİLİ ALAN SİLİNSİN Mİ?", vbYesNo)
If k = vbYes Then
Range("b" & 6 & ":j" & i).ClearContents
Else
End If
End Sub
ActiveSheet.Unprotect "0"
ActiveSheet.Protect "0"
kodlarını nereye yerleştirmeliyim.saygılar
Private Sub FKÜ_Click()
Dim i, j, k
i = 6
j = 6
Do While Cells(i + 1, 3) <> ""
i = i + 1
Loop
Range("b" & 6 & ":j" & i).Copy
Do While Worksheets("FKÜ YILLIK").Cells(j, 3) <> ""
j = j + 1
Loop
Worksheets("FKÜ YILLIK").Cells(j, 1).PasteSpecial
Range("b" & 6 & ":j" & i).Select
k = MsgBox("AKTARMA TAMAMLANDI." + Chr(13) + "SEÇİLİ ALAN SİLİNSİN Mİ?", vbYesNo)
If k = vbYes Then
Range("b" & 6 & ":j" & i).ClearContents
Else
End If
End Sub