Excell'de Yüzde hesaplama

[hadromer]

Merhaba,
Bir sütunda farklı hücrelerde var olan verilerin toplam sayısını buldum. Ben bu verilerimin toplam sayıda ki yüzde oranını bulmak ve solunda ki verilerle yani fotoğraftan da görüldüğü üzere ait olduğu grup ile eşleştirmek istiyorum.
Örneğin C sütunu için ; A1 istasyonuda aulocoesira graulata %X diye yorumlama yapacağım. Solunda ki veri eşleştirme işlemi karmaşık olacaksa sadece yüzde oranını bulsam da yeterli. Bir şekilde tek tek elle girerim değerleri. Bunun için yardımınıza ihtiyacım var. Teşekkür ederim..

ÖRNEK DOSYA

 

[Ömer BARAN]

Merhaba.

Olması gereken birkaç sonucu, haricen hesaplayarak, olması gereken konumlarına elle yazarak örnek belgenizi yenilerseniz daha doğru olur sanırım.

Bulunan oran nereye yazılacak? Eşleştirme derken kastınız nedir? ....
Neticede isteğiniz tam ve net olarak anlaşılmıyor.

Belirttiğim gibi; olması gereken konumlarına olması gereken sonuçları, haricen hesaplayıp elle işlem sonucunu yazmanızda yarar var.
.

 

[hadromer]

Merhaba.

Olması gereken birkaç sonucu, haricen hesaplayarak, olması gereken konumlarına elle yazarak örnek belgenizi yenilerseniz daha doğru olur sanırım.

Bulunan oran nereye yazılacak? Eşleştirme derken kastınız nedir? ....
Neticede isteğiniz tam ve net olarak anlaşılmıyor.

Belirttiğim gibi; olması gereken konumlarına olması gereken sonuçları, haricen hesaplayıp elle işlem sonucunu yazmanızda yarar var.
.

Merhaba Ömer Bey,
Vakit ayırıp ilgilendiğiniz için teşekkür ederim. Uyarınızdan sonra örnek dosya hazırlarken yapılan işlemin tüm dosyaya uygulanabileceğini fark ettim. Dolayısıyla sorunum sayenizde çözüldü. İyi geceler dilerim

 

[Ömer BARAN]

Ben, bir şey yapmadım ki.
Sorununuz çözüldüğüne göre mesele yok.
İyi çalışmalar dilerim.
.

 

[hadromer]

Ben, bir şey yapmadım ki.
Sorununuz çözüldüğüne göre mesele yok.
İyi çalışmalar dilerim.
.

Ömer bey,
yaptığım uygulama hatalı sonuç verdi. Yeniden yardımlarınızı talep ediyorum.

Hücrelerde var olan verilerin sütun sonunda ki sayıya göre yüzdesi hesaplandıktan sonra veri yerine yüzdesi yazacak. Örneğin C7 hücresinde 24 adet bulunmuş. O sütun sonunda toplam 806 adet var. Ben C7 hücresinde 24 sayısı yerine C7'nin toplam sonuç olan 806 içerisinde ki yüzdesinin yazmasını istiyorum.

 

[Ömer BARAN]

Merhaba.

İşlem sanırım REV isimli sayfada yapılacak.
-- REV sayfasına bir adet metin kutusu/şekil ekleyin,
-- Alt taraftan REV isimli sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılacak olan VBA ekranında sağdaki BOŞ alana aşağıdaki kod blokunu yapıştırın,
-- Sayfaya eklediğiniz metin kusuna/şekile fareyle sağ tıklayıp MAKRO ATAyı seçin,
-- Açılacak küçük ekranda ORANLAR isimli makronun adını seçerek işlemi onaylayın.

Eklediğiniz metin kutusuna/şekile fareyle tıkladığınızda kod gereken işlemi yapacaktır.
.

[B][COLOR="Red"]Sub ORANLAR()[/COLOR][/B]
Set r = Sheets("REV")
sonsat = r.Cells(Rows.Count, 1).End(3).Row
sonsut = r.Cells(1, 1).End(xlToRight).Column

For sat = 2 To sonsat
    For sut = 3 To sonsut
        If r.Cells(sat, sut) <> "" And r.Cells(sat, sut) < 1 Then
            MsgBox "Sayfada zaten oranlar var, herhangi bir işlem yapılmadı."
            Exit Sub
        End If
    Next
Next

For sut = 3 To sonsut
    Cells(sonsat + 1, sut) = WorksheetFunction.Sum(Range(Cells(2, sut), Cells(sonsat, sut)))
Next
For sat = 2 To sonsat
    For sut = 3 To sonsut
        If r.Cells(sat, sut) <> "" Then
             Cells(sat, sut).NumberFormat = "% 0.00"
             Cells(sat, sut) = Cells(sat, sut) / Cells(sonsat + 1, sut)
        End If
    Next
Next
r.Cells.EntireColumn.AutoFit
MsgBox "işlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
[B][COLOR="Red"]End Sub[/COLOR][/B]

 

[hadromer]

Merhaba.

İşlem sanırım REV isimli sayfada yapılacak.
-- REV sayfasına bir adet metin kutusu/şekil ekleyin,
-- Alt taraftan REV isimli sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılacak olan VBA ekranında sağdaki BOŞ alana aşağıdaki kod blokunu yapıştırın,
-- Sayfaya eklediğiniz metin kusuna/şekile fareyle sağ tıklayıp MAKRO ATAyı seçin,
-- Açılacak küçük ekranda ORANLAR isimli makronun adını seçerek işlemi onaylayın.

Eklediğiniz metin kutusuna/şekile fareyle tıkladığınızda kod gereken işlemi yapacaktır.
.

[B][COLOR="Red"]Sub ORANLAR()[/COLOR][/B]
Set r = Sheets("REV")
sonsat = r.Cells(Rows.Count, 1).End(3).Row
sonsut = r.Cells(1, 1).End(xlToRight).Column

For sat = 2 To sonsat
    For sut = 3 To sonsut
        If r.Cells(sat, sut) <> "" And r.Cells(sat, sut) < 1 Then
            MsgBox "Sayfada zaten oranlar var, herhangi bir işlem yapılmadı."
            Exit Sub
        End If
    Next
Next

For sut = 3 To sonsut
    Cells(sonsat + 1, sut) = WorksheetFunction.Sum(Range(Cells(2, sut), Cells(sonsat, sut)))
Next
For sat = 2 To sonsat
    For sut = 3 To sonsut
        If r.Cells(sat, sut) <> "" Then
             Cells(sat, sut).NumberFormat = "% 0.00"
             Cells(sat, sut) = Cells(sat, sut) / Cells(sonsat + 1, sut)
        End If
    Next
Next
r.Cells.EntireColumn.AutoFit
MsgBox "işlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
[B][COLOR="Red"]End Sub[/COLOR][/B]

Ömer Bey emeğiniz için teşekkür ederim, çok işime yaradı. İyi geceler dilerim.

 

[Ömer BARAN]

.
Kolay gelsin.
.