Belirli Sütunlar Arası Satır Ekleme

[cemal42]

SATIR = [B65536].End(3).Row + 1
Rows(SATIR).Insert Shift:=xlDown
makro ile satır ekliyorum. Şimdi belirli sütunlar arasına satır eklemem lazım. A-C sütunları arasındaki satırlar sabit kalacak, D-F sütunları arasına satır eklenmesi lazım. Zira F sütundaki verilerin aşağıda toplamlarını alıyorum. F sütununa eklenen her veri neticesinde aşağıda toplam değişiyor. Toplam alınan veri satırının, veri ekledikçe aşağı doğru kayması gerekiyor. Dosya ektedir. Yardımlarınızı bekliyorum. Teşekkürler

 

[hergelex]

sorunuzdan anladığım kadarıyla bir satırda kaydırma yapmak istiyorsunuz? Aşağıdaki işlem ile h2 ve s2 hücrelerindeki verileri bir satır aşağıya kaydıracaktır.

Range("H2:S2").Insert Shift:=xlDown

 

[cemal42]

SATIR = [B65536].End(3).Row + 1
Rows(SATIR).Insert Shift:=xlDown
makro ile satır ekliyorum. Başka bir çalışmamda belirli sütunlar arasına satır eklemem lazım. A-G sütunları sabit kalacak, H sütunu ile S sütunları arasına satır eklenmesi lazım. Yardımlarınızı bekliyorum. Teşekkürler

Cevabınız için teşekkürler ancak hata alıyorum. Belirttiğim makro ile son dolu satırdan bir sonraki satırdaki veriler, -yanlış anlatmamışsam- son satıra veri eklendiğinde araya bir satır atarak aşağıya doğru kayıyor. Ben satır ekleme makrosunda nasıl bir değişiklik yapayım ki H:S sütunları arasına satır eklesin. (A-G sütunları arası satırlara ekleme yapılmasın.)

 

[hergelex]

sorunuzu tam anlayamadım, yukarıdaki makronuz ile siz bir sheetin son satırını buluyorsunuz ve bir satır ekliyorsunuz, bunu yapmanızın nedeni nedir zaten bu satırdan sonraki tüm satırlar boş?

2. talebinizde ise sadece h ve s sütunları arasına satır eklemek istediğinizi anlıyorum? buna göre aşağıdaki kodu uygulayabilirsiniz.

ancak daha doğru bilgi için dosyanızı ekleyebilirseniz yardımcı olmaya çalışalım.


SATIR = [B65536].End(3).Row + 1
Range(Cells(SATIR, 8), Cells(SATIR, 19)).Insert Shift:=xlDown

 

[cemal42]

Cevap için teşekkürler. İyi çalışmalar