• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Ö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

A

Anka İnşaat

Katılım
10 Ağustos 2021
Mesajlar
15
Excel Vers. ve Dili
2010
Ö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
 

Ekli dosyalar

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
 
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?
 
HOCAM BU ŞEKİLDE ATAMALAR GÜNLÜK DEĞİŞECEK
GÜNLÜK BAZI HÜCRELERİ BEN ATAYACAM KALANI EŞİT DAĞILIM YAPILACAK
 

Ekli dosyalar

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
 

Ekli dosyalar

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ı.
 
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?
 
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
 
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?
 

Ekli dosyalar

ÖmerFaruk' Alıntı:
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?
Genişletmek için tıkla ...

Son mesajımda böyle yazdım.
 
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
 
Ş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.
 
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

C++: 
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
 

Ekli dosyalar

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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst