koşullu satır ekleme basic kodlarıyla

[yigit_sertac]

arkadaşlar basic kodları ile excelde satır ekleme nasıl yapılıyo...beli bir satırdan sonra ve belii satır aralığıda önemli.herkese iyi çalışmalar..ekte ki dosyada d4 hücresinde açılır pencere var.o listede 5 farklı yöntem sözkonusu..bu dosyada hazırlanmış kodlarla listeden herhangi bir yöntem seçildiğinde seçilmeyen diğer yöntemler gizleniyor.şimdi problem burda başlıyo..hazırladığım raporda bu sayfanın cıktısını almam gerekiyor.ama satır gizlendiği için sayfa yapısında değişiklik oluyor.bu sebepten gizlenen satırlar yerine üstte bahsettiğim koşullarla birlikte satır ekleme yapmakistiyorum.umarım anlatabilmişimdir.

 

[Korhan Ayhan]

Selamlar,

Lütfen yazım kurallarına uyalım. :arkadas:

Ayrıca koşullarınız nedir belirtirseniz yardımcı olmaya çalışırız.

 

[Seyit Tiken]

Bu kodu kendinize göre değiştirip deneyin.

Sub Makro3()
Range("A26:A27").Insert Shift:=xlDown
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$30"
ActiveSheet.PrintOut
End Sub

Not : Printer esnasnda görünmesini istemediğiniz satırları gizle-göster yapabilirsiniz. Aynı zamanda satırların içinde değerlerin gözükmesini istemiyorsanız, görünmez yapabilirsiniz. Zemin rengi ilede yapabilirsiniz.
Printer girişi görünmez; printer çıkışı görünür olacak. Esnek ve pratik mantığı bulmaya çalışın.

 

[yigit_sertac]

peki bu kodu yazarken nasıl yazıcam.çünkü a seçeneğini seçtiğimde farklı sayıda,b yi seçtiğimde farklı sayıda veya diğerlerinden birini seçtiğimde farklı sayıda satır eklemem gerekecek ve satır ekleyeceğim yerlerde değişecek..bunu nasıl koda eklıycem..

 

[Korhan Ayhan]

Selamlar,

Dosyanızı inceledim fakat sayfa formatınızın nasıl bozulduğunu çözemedim tam olarak nasıl bir format istiyorsanız dosyanız üzerinde şekillendirerek tarif edermisiniz.

 

[Seyit Tiken]

Bu kodu kendinize göre ayarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "A" Then
Range("A26:A27").Insert Shift:=xlDown
ElseIf [A1] = "B" Then
Range("A20:A23").Insert Shift:=xlDown
End If
End Sub