A Sütunundakı verılere gore satır ekleme

[manisalı88]

Merhaba arkadaşlar,
Sizlere bir sorum olacak. ekte gönderdıgım excelde sayfa1 dekı A sütunundakı şirketleri commonbutton dugmesıne bastıgımd ayırmak ıstıyorum. Yapmak ıstedıgım sey OLAMSI GERENKEN sayfasında var. buna gore nasıl yapabılırım makro ıle.

 

[muygun]

Merhaba;
Ekteki gibi olabilir.
İnceleyin.
İyi çalışmalar.

 

[Ömer BARAN]

Merhaba.
Aşağıdaki KOD'u kullanabilirsiniz.
Mavi kısmı uygulama yapacağınız sayfanın adıyla değiştirebilirsiniz.

[FONT="Trebuchet MS"][B]Sub GRUPLANDIR_BRN()[/B]
Dim s1 As Worksheet: Set s1 = Sheets("[B][COLOR="Blue"]Sayfa1[/COLOR][/B]")
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
    For brn = [A65536].End(3).Row To 3 Step -1
        If s1.Cells(brn, 1) = s1.Cells(brn - 1, 1) Then GoTo 10
            s1.Range("[COLOR="Red"]A65529:I65532[/COLOR]").Copy: s1.Cells(brn, 1).Insert Shift:=xlDown
            s1.Range("A1:C1").Copy: s1.Cells(brn + 4, 1).Insert Shift:=xlDown
            Application.CutCopyMode = False
10: Next
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "İŞLEM TAMAMLANDI."
[B]End Sub[/B][/FONT]

NOT: Bu cevap, Sayın muygun'un cevabını görmeden yazılmıştır.

 

[manisalı88]

MErhaba Ömer Baran,

Gönderdiğin kodu uyguladım ama hata veriyor. yardımcı olabılır mısın.
Bu arada ayrısma yapacagı yer sayfa 1 de yapacak dıger sayfada yapmayacak. be dıger sayfayı ornek olarak verdım.

 

[Ömer BARAN]

Merhaba.
Kod'daki A65533:I65536 ibaresini, A65529:I65532 şeklinde değiştirip düğmeye tıklayın.

 

[manisalı88]

Merhaba.
Kod'daki A65533:I65536 ibaresini, A65529:I65532 şeklinde değiştirip düğmeye tıklayın.

Teşekkur ederim çok sagolun

 

[manisalı88]

birsey daha ıstıyecegım sızden. bölümlere ayırdıktan sonra her bolumun toplamını alabılır mı

 

[manisalı88]

yardım edecek yok mu?