Çözüldü Bir alanı biçim ve veriyle kopyalama
Belgeye ekleyeceğiniz BOŞ bir MODULe aşağıdaki kodu yapıştırıp çalıştırın.
VBA:
You must log in to view content
(24 satır)Selamlar Ömer bey,
Kodlarda yeni bir excel dosyası olarak kaydediyor. Aynı excel dosyasında yeni bir sekmede B5 hücresine yapıştırmak mümkün mü?
Kodlarda yeni bir excel dosyası olarak kaydediyor. Aynı excel dosyasında yeni bir sekmede B5 hücresine yapıştırmak mümkün mü?
Şöyle deneyin (hücre/alan kopyala yapıştır değil, sayfayı bütünüyle kopyala, gereksiz satır/sütunları sil/ekle yöntemi düşündüm )
HATIRLATMA:
EKDERS isimli sayfanın kod bölümündeki makro kodlarının varlığını hatırlatmak isterim.
Bence bu kodların bir module taşınması için birşeyler yapılmalıdır.
Bu sayfanın kopyalanması, kodların da kopyalanası anlamına geliyor çünkü.
HATIRLATMA:
EKDERS isimli sayfanın kod bölümündeki makro kodlarının varlığını hatırlatmak isterim.
Bence bu kodların bir module taşınması için birşeyler yapılmalıdır.
Bu sayfanın kopyalanması, kodların da kopyalanası anlamına geliyor çünkü.
VBA:
You must log in to view content
(22 satır)Şu kodlar ile kopyalanan sayfa kodları da silinir mi?
Kod:
You must log in to view content
(3 satır)Bilgisayarda değilim.
Önceki kodda düzenleme yaparak yeni kodu oluşturmuş idim.
Sayın @leguminosea 'nin verdiği alternatifi deneyin.
Önceki kodda düzenleme yaparak yeni kodu oluşturmuş idim.
Sayın @leguminosea 'nin verdiği alternatifi deneyin.
Farklı çözümleriniz için teşekkür ederim. Bir ricam olacak .Bu kod neden çalışmadı bilgi verebilir misin?
Ömer bey, sizin kodlarınıza sayfa kodunu silme ekleyemez miyiz?
Evet belirttiğiniz yapıdaki kod ile makro kodları silinebilir ama;
işlemi döngüye alıp, ....(ActiveSheet.CodeName).... kısmını tanımlamanız/belirlemeniz gerekir.
Hangi Module/hangi safanın kod bölümü gibi.
Herneyse ben kendi çözümümü vereyim en iyisi.
Bu kez sayfayı bütün olrak kopyalamak yerine, aya ait sayfa yoksa ekleyerek, varsa o sayfada işlem yaparak,
alan kopyala/yapıştır, gereksiz kısımları sil şeklinde işşlem yapılır.
Sayfa adlandırmasında SAYISAL değer kullanmayı tercih ettim (02_21 gibi).
işlemi döngüye alıp, ....(ActiveSheet.CodeName).... kısmını tanımlamanız/belirlemeniz gerekir.
Hangi Module/hangi safanın kod bölümü gibi.
Herneyse ben kendi çözümümü vereyim en iyisi.
Bu kez sayfayı bütün olrak kopyalamak yerine, aya ait sayfa yoksa ekleyerek, varsa o sayfada işlem yaparak,
alan kopyala/yapıştır, gereksiz kısımları sil şeklinde işşlem yapılır.
Sayfa adlandırmasında SAYISAL değer kullanmayı tercih ettim (02_21 gibi).
VBA:
You must log in to view content
(24 satır)Selamlar Ömer bey,
Hafta sonu cevap veremedim. Kodlarınız harika olmuş. "Aya ait sayfa yoksa ekleyerek, varsa o sayfada işlem yaparak" diye yaptığınız işlemi "Güncelle", "farklı kaydet" ve "vazgeç" mesajı ile yapabilir miyiz?
Hafta sonu cevap veremedim. Kodlarınız harika olmuş. "Aya ait sayfa yoksa ekleyerek, varsa o sayfada işlem yaparak" diye yaptığınız işlemi "Güncelle", "farklı kaydet" ve "vazgeç" mesajı ile yapabilir miyiz?
10 numaralı cevapta verdiğim kodda yer alan aşağıdaki kırmızı satırın yerine, yeşil olan satırları ekleyin.
VBA:
You must log in to view content
(12 satır)En iyisi belgeyi ekleyeyim.
Belgede iki adet düğme ekledim. Biri, kaydedilecek ay sayfasına da eklenen EKDERS sayfasına dönüşü sağlar,
diğeri ise aya ait sayfa kaydetmeyi sağlar.
Kodların nihai hali aşağıda gösterilmiştir (küçük değişiklik var) .
Belgede iki adet düğme ekledim. Biri, kaydedilecek ay sayfasına da eklenen EKDERS sayfasına dönüşü sağlar,
diğeri ise aya ait sayfa kaydetmeyi sağlar.
Kodların nihai hali aşağıda gösterilmiştir (küçük değişiklik var) .
VBA:
You must log in to view content
(41 satır)Sayenizde çalışanın sonuna geldim sayılır. "Hayır" seçeneğinde "Farklı arşivle" yapabilir miyiz? Görseldeki gibi.Teşekkürler.
Moderatörün son düzenlenenleri:
İlgili aya ait sayfa zaten varsa mı bu dediğiniz olacak yoksa her ay kaydı sırasında mı bu soru sorulacak.
Aynı belgeye farklı isimle yeni SAYFA mı, yoksa ayrı bir excel belgesi olarak mı kaydetmek istiyorsunuz.
Aynı belgeye farklı isimle yeni SAYFA mı, yoksa ayrı bir excel belgesi olarak mı kaydetmek istiyorsunuz.
Aynı isimde bir sayfa var ise Aynı excel çalışmasında yazdığımız isimde sayfa olarak ekleme.
Yeni belge ekte.
Kodlar ise şöyle:
Kodlar ise şöyle:
VBA:
You must log in to view content
(48 satır)Ahmet Bey, güncelleme seçeneği çıkmıyor. Aynı isimde var ise kaydetsin veya farklı isimde kaydedelim. Örneği ekledeğim dosyada Userform olarak gösterdim. Hakkınızı helal edin çok soru sordum.
Ahmet değilim ama neyse artık, beni kastettiniz sanırım.
Son belgenize bakmadım.
Benim eklediğim son belgede; diyelim sayfada Şubat 21 seçili ve KAYDET düğmesine tıkladınız.
-- 02_21 diye sayfa yoksa, bu isimle sayfa oluşturulur ve kopyalama gerçekleşir,
-- 02_21 diye sayfa varsa karşınıza INPUTBOX gelir ve 02-21 isimli sayfanın olduğu, yeni bir isimle kayıt yapılması için sayfa adı sorulur.
Bu soruya İPTAL derseniz işlem yapılmaz, PHNnh142 yazıp işlemi onaylarsanız bu isimle sayfa oluşturulur ve kopyalama gerçekleşir.
-- Şubat seçimi değiştirilmeden tekrar kaydet düğmesine tıklarsanız INPUT BOX yine karşınıza gelir, bu INPUTBOXa 02_21 ve PHNnh142 dışında bir sayfa adı yazıncaya kadar INPUTBOX karşınıza gelir.
Olmayan nedir anlayamadım.
Öngördüğüm akışta bir sorun görmüyorum.
Son belgenize bakmadım.
Benim eklediğim son belgede; diyelim sayfada Şubat 21 seçili ve KAYDET düğmesine tıkladınız.
-- 02_21 diye sayfa yoksa, bu isimle sayfa oluşturulur ve kopyalama gerçekleşir,
-- 02_21 diye sayfa varsa karşınıza INPUTBOX gelir ve 02-21 isimli sayfanın olduğu, yeni bir isimle kayıt yapılması için sayfa adı sorulur.
Bu soruya İPTAL derseniz işlem yapılmaz, PHNnh142 yazıp işlemi onaylarsanız bu isimle sayfa oluşturulur ve kopyalama gerçekleşir.
-- Şubat seçimi değiştirilmeden tekrar kaydet düğmesine tıklarsanız INPUT BOX yine karşınıza gelir, bu INPUTBOXa 02_21 ve PHNnh142 dışında bir sayfa adı yazıncaya kadar INPUTBOX karşınıza gelir.
Olmayan nedir anlayamadım.
Öngördüğüm akışta bir sorun görmüyorum.
Okuldan acilen çıkmam gerekiyordu. O telaşla yazıyordum. Ve farkında olmadan telfonda görüştüğüm arkadaşın adını yazmışım.
Yeni farkettim. Özür dilerim.
*Arsivle dediğimizde yeni sayfa olarak kaydediyor.( Sorun yok)
*Aynı isimde kayıt var ise iki seçenegim olsun. Ya aynı dosya üzerine kaydetsin, güncellesin.( ilk yaptığınız gibi) Ya da farklı isimde kaydedebilelim.( İnputbox)
Yeni farkettim. Özür dilerim.*Arsivle dediğimizde yeni sayfa olarak kaydediyor.( Sorun yok)
*Aynı isimde kayıt var ise iki seçenegim olsun. Ya aynı dosya üzerine kaydetsin, güncellesin.( ilk yaptığınız gibi) Ya da farklı isimde kaydedebilelim.( İnputbox)
- Durum