1Al2Ver
Altın Üye
- Katılım
- 5 Kasım 2007
- Mesajlar
- 4,708
- Excel Vers. ve Dili
- 64 Bit TR - Microsoft Office 365 - Win11 Home
Merhaba,
Aşağıdaki makronun aynı zamanda;
C sürücüsü, YEMEK TAKİP isimli dosyadaki, Yemek_Çizelgesi sayfasına da kayıt yapmasını arzuluyorum,
Bu sayfanın (Yemek_Çizelgesi) sayfa koruma parolası ; 123'tür.
Sub YEMEK_KAYIT()
Set yk = Sheets("YEMEK_KAYIT")
Set yl = Sheets("YEMEK_LİSTESİ")
yl.Unprotect Password:="1"
yk.[C2:C8].Copy
yl.Cells(yl.Cells(Rows.Count, "B").End(xlUp).Row + 1, "B") _
.PasteSpecial Paste:=xlPasteValues, Transpose:=True
yk.Range("C3:C7").ClearContents
yl.Protect Password:="1"
Sheets("YEMEK_KAYIT").Select
End Sub
Teşekkür ederim.
Aşağıdaki makronun aynı zamanda;
C sürücüsü, YEMEK TAKİP isimli dosyadaki, Yemek_Çizelgesi sayfasına da kayıt yapmasını arzuluyorum,
Bu sayfanın (Yemek_Çizelgesi) sayfa koruma parolası ; 123'tür.
Sub YEMEK_KAYIT()
Set yk = Sheets("YEMEK_KAYIT")
Set yl = Sheets("YEMEK_LİSTESİ")
yl.Unprotect Password:="1"
yk.[C2:C8].Copy
yl.Cells(yl.Cells(Rows.Count, "B").End(xlUp).Row + 1, "B") _
.PasteSpecial Paste:=xlPasteValues, Transpose:=True
yk.Range("C3:C7").ClearContents
yl.Protect Password:="1"
Sheets("YEMEK_KAYIT").Select
End Sub
Teşekkür ederim.