Hücre değeri Toplamın Yüzde Kaçı ?

[hadromer]

Merhaba
Örnek dosyada Sütun ve satır başlıkları sabit olan bir dosyam var.
Örneğin C sütünun toplamı 176. C3 hücresinde 14 değeri var. Ben C3 hücresindeki değer toplamın yüzde kaçı bulup yine aynı hücreye yazdırmak istiyorum.
formülle yapınca toplam hücresi kayıyor. Yardımcı olabilir misinz ? teşekkkürler

 

[Necdet]

D sütunu için ne öneriyorsunuz? ya da diğer sütunlar için?

 

[hadromer]

D sütunu için ne öneriyorsunuz? ya da diğer sütunlar için?

Necdet bey tüm sütunlar için aynı işlem olacak. Her hücrenin bulunduğu sütunun toplamına göre yüzdesini almak istiyorum. Teşekkür ederim ilginiz için

 

[Necdet]

Valla pek anlamadım.
Büyük bir dosya değil 3-5 satır ve 3-5 sütundan oluşan bir örnek dosyada olması gerekeni açıklarsanız, anlaşılması ve kodun yazılması daha kolay olur.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Calculate_Rate()
    Dim X As Long, Y As Integer, Toplam As Double
    
    For X = 3 To Cells(1, Columns.Count).End(1).Column
        Toplam = Cells(121, X)
        If Toplam > 0 Then
            For Y = 2 To 119
                If Trim(Cells(Y, X)) <> "" Then Cells(Y, X) = Cells(Y, X) / Toplam
            Next
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[hadromer]

Deneyiniz.

Option Explicit

Sub Calculate_Rate()
    Dim X As Long, Y As Integer, Toplam As Double
   
    For X = 3 To Cells(1, Columns.Count).End(1).Column
        Toplam = Cells(121, X)
        If Toplam > 0 Then
            For Y = 2 To 119
                If Trim(Cells(Y, X)) <> "" Then Cells(Y, X) = Cells(Y, X) / Toplam
            Next
        End If
    Next
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

teşekkür ederim. Gayet iyi çalıştı.