En sona satır ekleme..

[Aktolgali]

Herkese Merhaba;

Dosyamda düğmeye tıklayınca var olan son satırdan sonra bir satır eklemesini istiyorum ama bir türlü beceremedim. Aramalar sonucunda bi kaç şey buldum ama bi türlü uyarlayamadım.
Benim yaptığımda sadece 39. satıra ekleme yapıyor.

Eyvallah..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. B sütunundaki en son dolu hücreye göre çalışmaktadır.

Sub SATIR_EKLE()
    Dim SATIR
    SATIR = [B65536].End(3).Row
    Rows(SATIR).Copy
    Rows(SATIR + 1).Insert Shift:=xlDown
    Application.CutCopyMode = False
    Range("B" & SATIR + 1 & ":J" & SATIR + 1).ClearContents
End Sub

 

[Seyit Tiken]

Burda yapacağınız şey, uygun sütunu baz alarak bu kodları uygulamanızdır.

Sub Makro1()
[I6500].End(3).Offset(1).EntireRow.Insert
End Sub

Sub Makro2()
[I6500].End(3).Offset(1).EntireRow.Delete
End Sub

Dosya ekte.

 

[Aktolgali]

Sayın COST_CONTROL hocam sizin kodları bi türlü çalıştıramadım hata verdi.

Seyit hocam sizin ki istediğim gibi ama tam değil. Formüller ve kenarlıklar oluşturulan satıra geçmiyor.
1-Ben üstteki satırın biçimlendirmesinin bir kopyasının oluşturulmasını istiyorum.
2-Yazdığınız kodların açıklamasını yaparsanız sevinirim, neyi ne için yazdınız (mesela [I6500] ne demek).

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

Sub Makro1()
[b6500].End(3).Offset(1).EntireRow.Insert
[b6500].End(3).Offset(0).Select
ActiveCell.Range("a1:j1").Select
Selection.Copy Destination:=[b6500].End(3).Offset(1)
ActiveCell.Select
End Sub

Sub Makro2()
[b6500].End(3).Offset(0).EntireRow.Delete
End Sub

 

[Aktolgali]

Merhaba;
Sn Seyit hocam güzel olmuş ama sadece kenarlıkları ve formülleri alsa daha iyi olmazmıydı. Üstteki satırı aynen kopyalıyor bu.

Bir de makroda ne ne için yazılmış açıklama yaparsanız mutlu olurum. Bu şekilde hiç bişe anlamadım sadece kopyala yapıştır yapıyorum. Dolayısıyla hiçbir ekleme yada çıkarma yapamıyorum en ufak bişeyi bile sizden beklemiş oluyorum.
Eyvallah..

 

[Korhan Ayhan]

Selamlar,

Size önermiş olduğum kodu dosyanıza uyarladım. İncelermisiniz.

 

[Seyit Tiken]

Tablonun içindeki tüm satırlara Koşullu Biçimlendirme uygulamışsınız. Ona göre bir mantık belirleyiniz.

 

[Aktolgali]

Sn. COST_CONTROL ilginiz için teşekkür ederim.

Hocam bir sorum daha olacak. Bu kodla formuller bi sonraki satıra geçiyor tamam ama en üstteki toplam satırında toplanacak aralık değişmiyor. Yani satır eklenmeden önce

=toplam(a5:a15)

ise satır ekledikten sonra da aynı olarak kalıyor, halbu ki benim toplanacak alanım bir satır daha büyüdü yani alan

=toplam(a5:a16)

olması, bir satır daha eklenirse

=toplam(a5:a17)

olması gerekir değil mi? Görüyorum ki öyle değil peki nasıl yapacağız...

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[Aktolgali]

Ekli dosyayı inceleyiniz.

Ben bi fark göremedim hocam...

 

[Seyit Tiken]

=toplam(a5:a15)
Bahsettiğiniz yukarıdaki toplama işlemini tabloda göremedim.

 

[Aktolgali]

Öyle bi toplama yok zaten ilerlemesini istediğim şeklini anlatabilmek için örnek olarak kullandım o formülü. Benim dosyamda formül alttaki

=ALTTOPLAM(9;$J$14:$J40)

burada j40 ın satır ekledikçe j41-j42....J olmasını istiyorum hocam..

Eyvallah..

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

Satır ekleme işlemi K sütunundaki en son dolu hücre olan "TOPLAM" değerinin bulunduğu hücrenin 3 satır öncesi olan satıra göre yapılmaktadır. Bu hücreyi silmediğiniz sürece sıkıntı oluşmayacaktır. Bu haliyle daha sağlıklı çalışacaktır.

 

[Aktolgali]

Merhaba;

Sn. COST_CONTROL hocam,
İlginiz için teşekkür ederim. İstediğim gibi olmuş elinize sağlık.

 

[Aktolgali]

Merhaba;

Sn.COST_CONTROL'un gönderdiği kodlar çok işime yaradı ama bir sorunum daha var şöyleki sayfaya gezinme alanı (scrollarea) ekleyince satır ekleyebiliyorum ama o satıra ulaşamıyorum.
Yani satır ekledikçe gezinme alanınında eklenen satır kadar genişlemesini nasıl sağlayabiliriz?

 

[Aktolgali]

Gözden kaçtı galiba

 

[Korhan Ayhan]

Selamlar,

Hangi aralığa ScrollArea uygulamak istiyor sunuz?

 

[Aktolgali]

Sn.COST_CONTROL
7 nolu mesajda bulunan dosyada b12:j41 arasının dolaşıma açık olmasını ve her satır eklendiğinde bu alanın eklenen satır oranında genişlemesini istiyorum

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki örnek dosyayı güncelledim. İncelermisiniz.