hücreleri gruplara ayırmak..

[mavidus]

Arkadaşlar veri girişi olduğunda aynı şubeleri alt alta dizip toplam almak istiyorum örneğimin içinde açıklama yaptım şimdiden teşekkür ederim..

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:54075550b7]Sub listele()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s2.Cells.ClearContents
s2.Cells.Interior.ColorIndex = 0
sonsat = s1.[a65536].End(3).Row
s1.Range("a3:e" & sonsat).Copy
s2.Select
s2.[a1].PasteSpecial
s2.[a2:e65536].Sort Key1:=s2.[b2], Key2:=[c2]
s2.[f1].Select
Application.CutCopyMode = False
For a = s2.[b65536].End(3).Row To 3 Step -1
c = c + 1
If Cells(a, "b") <> Cells(a - 1, "b") Then
Rows(a).Insert
Rows(a).Insert
sat = a + c + 1
s2.Cells(sat + 1, "d") = WorksheetFunction.Sum(s2.Range(Cells(a + 2, "d"), Cells(sat, "d")))
s2.Cells(sat + 1, "e") = WorksheetFunction.Sum(s2.Range(Cells(a + 2, "e"), Cells(sat, "e")))
s2.Range(s2.Cells(sat + 1, "d"), s2.Cells(sat + 1, "e")).Interior.ColorIndex = 15
s2.Cells(sat + 2, "c") = "kalan"
s2.Cells(sat + 2, "d") = s2.Cells(sat + 1, "d") - s2.Cells(sat + 1, "e")
s2.Range(s2.Cells(sat + 2, "c"), s2.Cells(sat + 2, "d")).Interior.ColorIndex = 6
c = 0
End If
Next
sat = s2.Cells(1, "b").End(xlDown).Row
s2.Cells(sat + 1, "d") = WorksheetFunction.Sum(s2.Range(Cells(a + 2, "d"), Cells(sat, "d")))
s2.Cells(sat + 1, "e") = WorksheetFunction.Sum(s2.Range(Cells(a + 2, "e"), Cells(sat, "e")))
s2.Range(s2.Cells(sat + 1, "d"), s2.Cells(sat + 1, "e")).Interior.ColorIndex = 15
s2.Cells(sat + 2, "c") = "kalan"
s2.Cells(sat + 2, "d") = s2.Cells(sat + 1, "d") - s2.Cells(sat + 1, "e")
s2.Range(s2.Cells(sat + 2, "c"), s2.Cells(sat + 2, "d")).Interior.ColorIndex = 6
End Sub
[/vb:1:54075550b7]

 

[mavidus]

teşekürler leventm kodlar çalışıyor yalnız şehirleri arttırdığımda hata veriyor bunu nasıl düzeltebiliriz.

 

[Levent Menteşoğlu]

Haklısınız tek kayıtlarda hatalı işlem yapıyordu. Bununla ilgili gerekli düzeltmeyi yapıp kodu yeniden yazdım. Yukarıdaki düzeltilmiş kodu tekrar deneyin.

 

[omerceri]

leventm işi çözmüş ama boşa gitmesin ctrl+g kısa yolu ile çalışıyor

 

[mavidus]

teşekkür ederim leventim sorun çözüldü elerin dert görmesin

 

[mavidus]

arkadaşlar omerceri arkadaşımın orneğini projeme uyguladım sorunsuz çalışıyor fakat şehirlerde nekadar stok kaldığını ayrı bir sayfada görmem lazım.Yukarıdaki örnekte veritabanın sayfasında bulunan veriler b sutununa göre sıralanıyor giriş ve çıkış toplanıp f sutununa toplam olarak yazılıyor benimde istediğim f sutununa yazılan toplamlar ile şehir isimlerini istediğim zaman başka bir sayfada alt alta sıralı bir şekilde görebilmek,