Değer Değiştiğinde Boş Satır Ekleme Makro Yardımı

[Believing]

Sayın Uzman Arkadaşlar,

Ekteki örnek çalışmada "A" sütununda her değer değiştiğinde hemen altına boş satır eklemek istiyorum. Eklenen boş satıra "A" hücresindeki değeri, "B" sütunundaki formül kobyalanmasını sağlamalıyım. Bunu bir ekle butonu yardımı ile yapılması daha uygun olacaktır.
Konuya hakim uzman arkadaşların değerli yardımlarını rica ediyorum.

Saygılarımla.
Ömer Ali ÜZÜMCÜ

Örnek Çalışma Kitabı;
http://www.dosya.tc/server16/7z7a1s/Bos_Satir_Ekleme.rar.html

 

[turist]

Dosyanız eklidir.

 

[Ömer BARAN]

Merhaba.

Sayın @turist 'in verdiği kod sorunsuz elbette.
Konu sahibinin isteğiyle ilgili bir belirsizlik nedeniyle bu cevabı yazıyorum.

-- düğmeye tıklanarak satır ekleme işleminden sonra, ilgili satırda C, D, E ve F sütunu hücreleri BOŞ (C ve D'de veri doğrulama işlemi var) durumda.
-- düğmeye tıklandığında bir boş satır, tekrar tekrar tıklandığında boş bir satır daha, boş bir satır daha ..... şeklinde işlem devam ediyor.

Şayet konu sahibinin amacı, C:F sütunlarında boşluksuz veri girişi yapmak, yani sadece C:F alanı doldurulduğunda boş satır elde etmek ise;
Sayın @turist'in verdiği kod'daki ilgili satırını aşağıdaki şekilde değiştirmek yerinde olur.
Yani; veri girişi için, A sütunundaki değer değişme kriterine göre sürekli sadece 1 satır boş alan elde edilmek isteniyorsa ilgili kod satırının aşağıdakiyle değiştirilmesi yerinde olur diye düşünüyorum. (eklenen kısmı kırmızı renklendirdim)

    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value And _
        WorksheetFunction.CountBlank(Range("C" & i & ":F" & i)) = 0 Then

 

[Believing]

Sayın Turist,

Konuya gösterdiğiniz ilgi ve çok değerli yardımınız için size çok teşekkür ederim.
ALLAH sizden razı olsun.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Believing]

Sayın Ömer BARAN,

Sayın Turist,

Konuya gösterdiğiniz ilgi anlatın eksikliğine rağmen konuyu doğru analiz ederek, yaptığınız çok değerli yardımınız için size çok teşekkür ederim.
ALLAH sizden razı olsun.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[turist]

Sayın Turist,

Konuya gösterdiğiniz ilgi ve çok değerli yardımınız için size çok teşekkür ederim.
ALLAH sizden razı olsun.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

Sağ olun.