rapor sayfasına konulan başka bir buton yardımıyla pazar sayfasındaki o4-o33 o37-o56 .... gibi hücrelerindeki stokları ptesi sayfasındaki f4-f33 f37-f56 gibi hücre aralıklarına ürün girişi olarak aktarılması işleminin yapmak istiyorum fakat o4 v.s hücreleri beyaz ve korumasız f4vs hücreleri korumalı ve gri renk yardımınlarınızı bekliyorum dosya ektedir
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
farklı yerlerdeki hücreleri farklı hücrelere buton yardımınla aktarmak
- Konbuyu başlatan dbicer83
- Başlangıç tarihi
Sayın dbicer83, dosyanızın bir yedeğinde aşağıdaki kodları dener misiniz? Örnekteki pazar dan pazartesi ye sayfadaki hücreler farklı. Siz kendi düzenlemenizi yapınız. Aşağıdaki makroda pazar ila pazartesi bire bir aynı düşünülerek yapıldı.
Sub AKTAR()
Set s1 = Sheets("PAZAR")
Set S2 = Sheets("PTESİ")
Sheets("PAZAR").Select
s1.[N4:N33].Copy
S2.[F4:F33].PasteSpecial Paste:=xlPasteValues
s1.[N37:N56].Copy
S2.[F37:F55].PasteSpecial Paste:=xlPasteValues
s1.[N60:N71].Copy
S2.[F60:F71].PasteSpecial Paste:=xlPasteValues
s1.[N75:N90].Copy
S2.[F75:F90].PasteSpecial Paste:=xlPasteValues
s1.[N94:N115].Copy
S2.[F94:F115].PasteSpecial Paste:=xlPasteValues
s1.[N124].Copy
S2.[F124].PasteSpecial Paste:=xlPasteValues
s1.[N126:N131].Copy
S2.[F126:F131].PasteSpecial Paste:=xlPasteValues
s1.[N133:N135].Copy
S2.[F133:F135].PasteSpecial Paste:=xlPasteValues
s1.[X4:X91].Copy
S2.[R7:R91].PasteSpecial Paste:=xlPasteValues
Sheets("PTESİ").Select
[a1].Select
End Sub
Sub AKTAR()
Set s1 = Sheets("PAZAR")
Set S2 = Sheets("PTESİ")
Sheets("PAZAR").Select
s1.[N4:N33].Copy
S2.[F4:F33].PasteSpecial Paste:=xlPasteValues
s1.[N37:N56].Copy
S2.[F37:F55].PasteSpecial Paste:=xlPasteValues
s1.[N60:N71].Copy
S2.[F60:F71].PasteSpecial Paste:=xlPasteValues
s1.[N75:N90].Copy
S2.[F75:F90].PasteSpecial Paste:=xlPasteValues
s1.[N94:N115].Copy
S2.[F94:F115].PasteSpecial Paste:=xlPasteValues
s1.[N124].Copy
S2.[F124].PasteSpecial Paste:=xlPasteValues
s1.[N126:N131].Copy
S2.[F126:F131].PasteSpecial Paste:=xlPasteValues
s1.[N133:N135].Copy
S2.[F133:F135].PasteSpecial Paste:=xlPasteValues
s1.[X4:X91].Copy
S2.[R7:R91].PasteSpecial Paste:=xlPasteValues
Sheets("PTESİ").Select
[a1].Select
End Sub
Hata kodu 1004 diye bir hata verdi sanırım pazartesinin f hücresinin kilitli olmasıyla lakalı bir durum olabilir ne önerebilirsinizSayın dbicer83, dosyanızın bir yedeğinde aşağıdaki kodları dener misiniz? Örnekteki pazar dan pazartesi ye sayfadaki hücreler farklı. Siz kendi düzenlemenizi yapınız. Aşağıdaki makroda pazar ila pazartesi bire bir aynı düşünülerek yapıldı.
Sub AKTAR()
Set s1 = Sheets("PAZAR")
Set S2 = Sheets("PTESİ")
Sheets("PAZAR").Select
s1.[N4:N33].Copy
S2.[F4:F33].PasteSpecial Paste:=xlPasteValues
s1.[N37:N56].Copy
S2.[F37:F55].PasteSpecial Paste:=xlPasteValues
s1.[N60:N71].Copy
S2.[F60:F71].PasteSpecial Paste:=xlPasteValues
s1.[N75:N90].Copy
S2.[F75:F90].PasteSpecial Paste:=xlPasteValues
s1.[N94:N115].Copy
S2.[F94:F115].PasteSpecial Paste:=xlPasteValues
s1.[N124].Copy
S2.[F124].PasteSpecial Paste:=xlPasteValues
s1.[N126:N131].Copy
S2.[F126:F131].PasteSpecial Paste:=xlPasteValues
s1.[N133:N135].Copy
S2.[F133:F135].PasteSpecial Paste:=xlPasteValues
s1.[X4:X91].Copy
S2.[R7:R91].PasteSpecial Paste:=xlPasteValues
Sheets("PTESİ").Select
[a1].Select
End Sub
Ekteki dosyayı inceler misiniz? Aktarılması gerken hücrelere numara verdim. Rakamlar gayet güzel aktarılıyor. Sayfada koruma falan da yok. Şayet koruma koyarsanız "ActiveSheet.Unprotect" ile açar "ActiveSheet.Protect" ile kiltlersiniz.
hücreler kilitli olacak nasıl anlayamadım onuda ekleyebilirmisiniz normalde pazarteisdeki f r sutunları kilitli olcak ama aktar butonuna basıldığı zaman değiştirecekEkteki dosyayı inceler misiniz? Aktarılması gerken hücrelere numara verdim. Rakamlar gayet güzel aktarılıyor. Sayfada koruma falan da yok. Şayet koruma koyarsanız "ActiveSheet.Unprotect" ile açar "ActiveSheet.Protect" ile kiltlersiniz.
Sayfa korumasını yaptıktan sonra kodları aşağıdaki gibi değiştirin.
Sub AKTAR()
Set s1 = Sheets("PAZAR")
Set S2 = Sheets("PTESİ")
Sheets("PAZAR").Select
s1.[N4:N33].Copy
Sheets("PTESİ").Unprotect
S2.[F4:F33].PasteSpecial Paste:=xlPasteValues
s1.[N37:N56].Copy
S2.[F37:F55].PasteSpecial Paste:=xlPasteValues
s1.[N60:N71].Copy
S2.[F60:F71].PasteSpecial Paste:=xlPasteValues
s1.[N75:N90].Copy
S2.[F75:F90].PasteSpecial Paste:=xlPasteValues
s1.[N94:N115].Copy
S2.[F94:F115].PasteSpecial Paste:=xlPasteValues
s1.[N124].Copy
S2.[F124].PasteSpecial Paste:=xlPasteValues
s1.[N126:N131].Copy
S2.[F126:F131].PasteSpecial Paste:=xlPasteValues
s1.[N133:N135].Copy
S2.[F133:F135].PasteSpecial Paste:=xlPasteValues
s1.[X4:X37].Copy
S2.[R4:R37].PasteSpecial Paste:=xlPasteValues
s1.[X42:X91].Copy
S2.[R42:R91].PasteSpecial Paste:=xlPasteValues
Sheets("PTESİ").Select
ActiveSheet.Protect
[a1].Select
End Sub
Sub AKTAR()
Set s1 = Sheets("PAZAR")
Set S2 = Sheets("PTESİ")
Sheets("PAZAR").Select
s1.[N4:N33].Copy
Sheets("PTESİ").Unprotect
S2.[F4:F33].PasteSpecial Paste:=xlPasteValues
s1.[N37:N56].Copy
S2.[F37:F55].PasteSpecial Paste:=xlPasteValues
s1.[N60:N71].Copy
S2.[F60:F71].PasteSpecial Paste:=xlPasteValues
s1.[N75:N90].Copy
S2.[F75:F90].PasteSpecial Paste:=xlPasteValues
s1.[N94:N115].Copy
S2.[F94:F115].PasteSpecial Paste:=xlPasteValues
s1.[N124].Copy
S2.[F124].PasteSpecial Paste:=xlPasteValues
s1.[N126:N131].Copy
S2.[F126:F131].PasteSpecial Paste:=xlPasteValues
s1.[N133:N135].Copy
S2.[F133:F135].PasteSpecial Paste:=xlPasteValues
s1.[X4:X37].Copy
S2.[R4:R37].PasteSpecial Paste:=xlPasteValues
s1.[X42:X91].Copy
S2.[R42:R91].PasteSpecial Paste:=xlPasteValues
Sheets("PTESİ").Select
ActiveSheet.Protect
[a1].Select
End Sub
şifre sormasını ekliyebilirmiyizSayfa korumasını yaptıktan sonra kodları aşağıdaki gibi değiştirin.
Sub AKTAR()
Set s1 = Sheets("PAZAR")
Set S2 = Sheets("PTESİ")
Sheets("PAZAR").Select
s1.[N4:N33].Copy
Sheets("PTESİ").Unprotect
S2.[F4:F33].PasteSpecial Paste:=xlPasteValues
s1.[N37:N56].Copy
S2.[F37:F55].PasteSpecial Paste:=xlPasteValues
s1.[N60:N71].Copy
S2.[F60:F71].PasteSpecial Paste:=xlPasteValues
s1.[N75:N90].Copy
S2.[F75:F90].PasteSpecial Paste:=xlPasteValues
s1.[N94:N115].Copy
S2.[F94:F115].PasteSpecial Paste:=xlPasteValues
s1.[N124].Copy
S2.[F124].PasteSpecial Paste:=xlPasteValues
s1.[N126:N131].Copy
S2.[F126:F131].PasteSpecial Paste:=xlPasteValues
s1.[N133:N135].Copy
S2.[F133:F135].PasteSpecial Paste:=xlPasteValues
s1.[X4:X37].Copy
S2.[R4:R37].PasteSpecial Paste:=xlPasteValues
s1.[X42:X91].Copy
S2.[R42:R91].PasteSpecial Paste:=xlPasteValues
Sheets("PTESİ").Select
ActiveSheet.Protect
[a1].Select
End Sub
komut satırı çalışıyor fakat pazar ve ptesi dosyalarını seçili bırakıyor aktarma işlemini yaptıktan sonra kursörü otomatik olarak ptesinin a6 hücresine pazarında a6 hücresine seçili olmasını istiyorum şu konumda sayfalardan pazar ve pazartesi yi seçili konumda bırakıyor yardımcı olabilcek varmı? birde bu işlemleri yapmadan önce şifre uyarısı verilecek şifre doğru girilmesinde işlemi yapacak yanlış şifre girilmesi halinde hatalı şifre uyarısı verip işlem yapmıyacak. bu devir işlemi haftada 1 kere yapılacak 2. ye izin vermemsi gibi bir engellenme konulabilirmi bir gün veya 2 gün gibi bir sınırlama koymak istiyorum.
sanırım ptesinin şifreli koruma yapıldığından dolayı açamıyor işlem yapamıyorekteki hatayı veriyor
diğer bir sorunda şifreli koruma yapılan pazarteside hata veriyor
şifreli korumayı açtıktınsonra aktarma yapıyor. geri korumayı çalıştırmıyor
-
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.