Merhaba Hocalarım.
Eklediğim uygulamada.

1- Satır sil butonu ile çoklu satır silmeme izin vermesin. Tek seçtiğim satırı silmeme izin versin.
2-  Sadece Satır 6 ile satır 25 aralığında satır silmeme izin versin.
3- Satır sildiğim zaman GENEL TOPLAMIN hemen üstüne yeni bir satır eklesin ve satır 30 da ki formülleri kopyalayarak yeni eklenen satıra yapıştırsın.
4-  Satır eklediğim zaman sadece Satır 6 ile satır 25 aralığında satır ekleme izin versin  ve GENEL TOPLAM üstündeki bir satırı silsin.
5- Satır 6 ile satır 25 aralığında satır seçip değiştir butonuna tıkladığımız zaman satır 28 deki verileri seçtiğimiz satırdaki verilerle değiştirsin. 

Anlatmaya çalıştığım satır silsem veya satır eklesem veri giriş satır aralığı satır 6 dan satır 25 e kadar olan satırlar satır sayısı olarak devamlı korunacak formüller bu satırlarda devamlı bulunacak ve satır 6 ile satır 25 aralığında satırların dışındaki satırlar eklemeye, satır silmeye karşı korumalı olacak. Satır 6 ile satır 25 aralığındaki verileri seçip değiştirmemize izin verecek.



Bu konuda yardımlarınıza ihtiyacım var. Yardımlarınız için şimdiden teşekkürler.

Parola 123

sayın m_demir,

bahsettiğiniz talebinize yönelik olarak;

kendi adıma geçerli olmak sureti ile imkan ve zaman yetersizliği gerekçesi ile kısa süreli bir inceleme neticesinde,
naçizane öneri olması amacı ile şunu belirtmek isterim.

veri işlemlerine yönelik olarak kullanılacak olan A6:K25 alan aralığı söz konusu olduğuna ve bazı formül hesaplamaları da barındırdığına göre,bütün bu satır silme veya satır ekleme ve ardından formülleri tekrar kopyala yapıştır gibi işlemler ile zahmet oluşturmak yerine;

veri girişlerinin yapılacağı A6:E25,G6:G25 ve J6:J25 alan aralıklarını

Range("A6:E25,G6:G25,J6:J25").Select

Range("J6").Activate

Selection.ClearContents

Range("A6").Select

yukarıdaki kod satırlarını yeni bir buton ekleyip tanıtım ifadesi olarak da İÇERİĞİ TEMİZLE diye yazmak sureti ile kaydediniz.böylece,her bir yeni veri işlemleri oluşturmak istediğinizde bu butonu çalıştırmak sureti ile kullanıcıya veri girişi yaptırdığınız yukarıda yazılı alanlardaki verileri temizletmiş olursunuz ve akabinde yeni verilerin eklenmesine imkan sağlamış olursunuz.

ayrıca;formülleri içeren ve korunması gereken nitelikteki F,H,I ve K sütunlarındaki alanları da kilitlemek sureti ile veri değişimine engel olunabilir.

elbette,tercih ve takdir sizindir.

bilginize...iyi çalışmalar,saygılar.

sayın m_demir,

konunuzun 2.mesajında yer alan tavsiyeye yönelik olarak;

hem belirli alanların içeriklerinin temizlenmesini hem de ilgili sayfada sadece veri girişlerinin yapılacağı A6:E25,G6:G25 ve J6:J25 alan aralıklarının korumasız bırakılıp sayfadaki diğer hücrelerin korumalı olmasını sağlayacak şekilde,

ilgili yeni butonun içeriğini

'1) önce,hücre içeriği temizleniyor...









    Range("A6:E25,G6:G25,J6:J25").Select

    Range("J6").Activate

    Selection.ClearContents

    Range("A6").Select

    

    

'2) sonra,hücre korumaya alınıyor...









    Range("A6:E25,G6:G25,J6:J25").Select

    Range("J6").Activate

    Selection.Locked = False

    Range("A6").Select

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

yukarıdaki kodlar ile değiştirerek kullanmayı deneyiniz.

bilginize...iyi çalışmalar,saygılar.

Çok teşekkürler Hocam ellerinize sağlık.

Hocam UserForm eklemek istiyorum. Eklediğim formdan verileri ListBox dan TextBoxlara alarak silme ve değiştirme işlemini yapmak istiyorum. Formu ekledikten sonra yapamadığım kısımlardan yardımlarınıza baş vuracağım. Saygılarımla iyi çalışmalar.

sayın m_demir,

bahsettiğiniz bu yeni talebiniz için yine uygun gördüğünüz bir süreçte YENİ KONU açmak sureti ile gerek ayrıntılı talebinizi ve gerekse de buna dair örnek uygulamanızı konunuza dahil etmeye gayret ediniz.katılımcılar tarafından uygun görülen paylaşımları edinmeniz muhtemeldir.

bu konu başlığınıza dair sorununuz çözüme ulaştı düşüncesi ile,konunuzun;

Cevaplanmış Sorular Kategorisi'ne taşınması uygun görülmüştür.

bilginize...iyi çalışmalar,saygılar.