Örnek Tablodaki Satırlar TOPLAMI Sağdaki Kırmızı hücre ile Sütunlar TOPLAMI Üsteki Mavi hücre ile EŞİT OLACAK ANCAK

[Anka İnşaat]

Örnek Tablodaki Satırlar TOPLAMI Sağdaki Kırmızı hücre ile Sütunlar TOPLAMI Üsteki Mavi hücre ile EŞİT OLACAK ANCAK
SATIR VE SÜTUNLARA DEĞİŞKENLERİ BEN ATAYACAM

 

[ÖmerFaruk]

Biz ne yapacağız?

 

[Anka İnşaat]

SAĞDAKİ KIRMIZI SÜTUN VE ÜSTTEKİ MAVİ SATIR GÜNLÜK DEĞİŞECEK
ÖRNEK 1.SERVİS TRABZONDAN 200 ALTINDAN 500 TEKİNDEN 1200 HALKIMDAN 0 DİYE ATAYIP KALAN ÜSTTEKİ SAYIYI KARIŞIK ŞEKİLDE DİĞER FİRMALARA DAĞITACAK.
BÜTÜN SERVİSÇİLER İÇİN BU YAPILACAK ANCAK AYNI İŞLEM SATIRDAKİ TOPLAMLARI BOZMAYACAK

 

[ÖmerFaruk]

Bu atanacakları siz elle mi atayacaksınız?
Atanacak fırınlar hep sabit midir?
Bugün farklı yarın farklı bir atama olabiliryor mu?
Bir de dosyanızı ataa yapılmış haliyle de paylaşır mısınız?

 

[Anka İnşaat]

HOCAM BU ŞEKİLDE ATAMALAR GÜNLÜK DEĞİŞECEK
GÜNLÜK BAZI HÜCRELERİ BEN ATAYACAM KALANI EŞİT DAĞILIM YAPILACAK

 

[Anka İnşaat]

SAĞDAKİ KIRMIZI SÜTUN VE ÜSTTEKİ MAVİ SATIR GÜNLÜK DEĞİŞECEK
ÖRNEK 1.SERVİS TRABZONDAN 200 ALTINDAN 500 TEKİNDEN 1200 HALKIMDAN 0 DİYE ATAYIP KALAN ÜSTTEKİ SAYIYI KARIŞIK ŞEKİLDE DİĞER FİRMALARA DAĞITACAK.
BÜTÜN SERVİSÇİLER İÇİN BU YAPILACAK ANCAK AYNI İŞLEM SATIRDAKİ TOPLAMLARI BOZMAYACAK

 

[Muzaffer Ali]

Merhaba.
Lütfen mesajlarınızda sadece büyük harf kullanmayın okumak güç oluyor.
Sadece cümle başlangıcında ve özel isimler büyük harf ile başlamalı.

 

[Anka İnşaat]

Bilmiyordum dikkat edeyim

 

[ÖmerFaruk]

Lütfen her bir soru için ayrı cevap yazınız ki anlayabilelim.

1. Sizin yaptığınız atamalar, sadece sıfırdan büyük olanlar mı? Ben sıfırları da siz atıyorsunuz diye algılıyorum. Doğru mu?
2. Sizin atama yaptığınız satır ve sütunlardaki toplamlar tutmuş mu kabul edeceğiz? Yoksa kontrol edip varsa eksik tamamlayacak mıyız?
3. Bir önce sorunun ilavesi olarak yaptığınız atama sonucunda sütun yada satır toplamınız mavi yada kırmızıdan fazlaysa ne olacak?
4. Atama yapmadığınız fırınlardan boş kısımları doldururken bazı kısıtlar olmalı ve bunları söylemelisiniz.
5. Şu anda güncel tablonuzda satır ve sütun toplamları arasında fark var. 107 adet olan bu farkı biz nasıl kapatacağız?

 

[ÖmerFaruk]

Başlık sanki mükerrer. Konuyu diğer başlıkta takip etmekteyim.
https://www.excel.web.tr/threads/oernek-tablodaki-satirlar-toplami-sagdaki-kirmizi-huecre-ile-suetunlar-toplami-uesteki-mavi-huecre-ile-esit-olacak-ancak.196401/

 

[Anka İnşaat]

Sıfırları benim atamama gerek yok
satır ve sütunlar benim atadığım benzeri bir atama yapacak
fazla atama yaparsa atamada hata gösterebilir

 

[Anka İnşaat]

Bir çalışma yaptım sütunlarda dağıtım yaptım ancak her satırı kendi bulunduğu satırın solundaki sayılara nasıl eşitleyeceğim?

 

[ÖmerFaruk]

Lütfen her bir soru için ayrı cevap yazınız ki anlayabilelim.

1. Sizin yaptığınız atamalar, sadece sıfırdan büyük olanlar mı? Ben sıfırları da siz atıyorsunuz diye algılıyorum. Doğru mu?
2. Sizin atama yaptığınız satır ve sütunlardaki toplamlar tutmuş mu kabul edeceğiz? Yoksa kontrol edip varsa eksik tamamlayacak mıyız?
3. Bir önce sorunun ilavesi olarak yaptığınız atama sonucunda sütun yada satır toplamınız mavi yada kırmızıdan fazlaysa ne olacak?
4. Atama yapmadığınız fırınlardan boş kısımları doldururken bazı kısıtlar olmalı ve bunları söylemelisiniz.
5. Şu anda güncel tablonuzda satır ve sütun toplamları arasında fark var. 107 adet olan bu farkı biz nasıl kapatacağız?

Son mesajımda böyle yazdım.

 

[Anka İnşaat]

1-Sıfırları benim atamama gerek yok sıfır vereceğim atamalarda olacak
2-satır ve sütunlar benim atadığım benzeri bir atama yapacak kontrol edilip eksikler tamamlanacak.
3-fazla atama yaparsa atamada hata olarak hücre rengi farklı gösterebilir ancak hatayı bilmemiz gerekiyor.
4-Kısıt olarak her satır sonundaki atama yapılan hücredeki toplama eşit olacak ve sütundaki toplamlar üstteki atama yapılan hücreye eşit olacak.
5-Satır ve sütunları örnek olarak el ile doldurdum ben bunu formülle yapmak istiyorum ancak bazı atamaları kendim yapacam

 

[ÖmerFaruk]

Şu anda C1:M1 Servislerin toplam sayısı, B5-B25 arasındaki Firmaların toplamıyla örtüşmüyor.
Sorunuzu çözerken hem satırı hem sütunu eşitleme şansımız yok.
Gördüğüm kadarıyla da B5:B25 aralığında hem farklı formüller var hem de elle girilmiş değerler var.
Siz B5:B25 aralığını nasıl yapılandırmak istiyorsunuz?
Bunu halledebilirsek sorunuzu da çözeceğz.

 

[Anka İnşaat]

C2:M2 Toplam ekmek B5:B25 Toplamına eşit olacak

 

[ÖmerFaruk]

Kodlar aşağıda, dosyanız ekte,
Kodları Module içine yerleştirdim. Tetiklenme kısmını size bıraktım.
Kodlar rahatlasın diye tablonuzun alt ve sağında birer toplam aralığı yerleştirdim. Arzu ederseniz gizleyebilirsiniz.
Yaptığınız bölme ve çarpma işlemlerinden ötürü ondalık haneler vardı ve olay EKMEK olduğu için Ekmeği böldürmedim =)
Elle giriş yaptığınız formmülsüz olan B sütunundaki hücrelerden birinde ben de elle düzeltme yaptım.
İnceleyin umarım işinizi görür.

Tabloyu komple silip, elinizle C5:M25 aralığına tekrar değer girebilirsiniz.

Kısıtınız: B sütunu ve 2.satırın toplamlarının aynı olmasıdır. Tekrar hatırlatıyorum

Sub TabloDoldur()
Dim hcr As Range, Süt As Range, Sat As Range

Range("C5:M25").Interior.ColorIndex = 15
For Each hcr In Range("C5:M25")
    xR = hcr.Row
    xC = hcr.Column
    Set Süt = Range(Cells(5, xC), Cells(25, xC))
    Set Sat = Range(Cells(xR, 3), Cells(xR, 13))
    TopSüt = WorksheetFunction.Sum(Süt)
    TopSat = WorksheetFunction.Sum(Sat)
    If hcr.Value = 0 And WorksheetFunction.CountA(Süt) = 21 And TopSüt < Cells(2, xC) And TopSat < Cells(xR, 2) Then
        hcr = WorksheetFunction.Min(Cells(xR, 2) - TopSat, Cells(2, xC) - TopSüt)
        TopSüt = WorksheetFunction.Sum(Süt)
        TopSat = WorksheetFunction.Sum(Sat)
        hcr.Interior.Color = vbRed
        GoTo Devam1
    End If
    If hcr.Value = "" And TopSüt < Cells(2, xC) And TopSat < Cells(xR, 2) Then
        hcr = WorksheetFunction.Min(Cells(xR, 2) - TopSat, Cells(2, xC) - TopSüt): GoTo Devam1
    End If
    If hcr.Value > 0 And TopSat > Cells(xR, 2) Then
        hcr = WorksheetFunction.Max(hcr + Cells(xR, 14), 0)
        TopSüt = WorksheetFunction.Sum(Süt)
        TopSat = WorksheetFunction.Sum(Sat)
        hcr.Interior.Color = vbYellow
    End If
    If hcr.Value > 0 And TopSüt > Cells(2, xC) Then
        hcr = WorksheetFunction.Max(hcr + Cells(26, xC), 0)
        TopSüt = WorksheetFunction.Sum(Süt)
        TopSat = WorksheetFunction.Sum(Sat)
        hcr.Interior.Color = vbYellow
    End If
Devam1:
Next hcr
End Sub

 

[Anka İnşaat]

Bu tabloda tamamen elden girmem gerekli

 

[ÖmerFaruk]

C5:M25 aralığına isterseniz hiç veri girmeyin, isterseniz bir miktarına, isterseniz tamamına veri girebilirsiniz.
Tamamen elden girmem gerekli demişsiniz ama öyle değil.

 

[Anka İnşaat]

Belki ben yanlış yapıyorumdur c2:m2 sayılarını değiştirdikten sonra durum bu