Sayfa her açıldığında otamatik makronun çalışması

[akmes]

Selamlar,

Ekteki excel dosyasından da analşılacağı gibi sayfa1 her açıldığında G5 ile G44 arası hücrelerde makronun otomatik çalışıp parçaal işlemini yapmasını istiyorum.
Yardımınız için şşimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

Merhaba,
Sayfanın her aktif olduğunda makronun çalışması için, sayfanın kod bölümünde aşağıdaki kodların arasına kodlarınızı yazmalısınız.

Private Sub Worksheet_Activate()

End Sub

Parçaal işlemini anlayamadım. Sorunuzu biraz daha açar mısınız.

Selamlar,

Ekteki excel dosyasından da analşılacağı gibi sayfa1 her açıldığında G5 ile G44 arası hücrelerde makronun otomatik çalışıp parçaal işlemini yapmasını istiyorum.
Yardımınız için şşimdiden teşekkür ederim.

 

[akmes]

Merhaba,
Sayfanın her aktif olduğunda makronun çalışması için, sayfanın kod bölümünde aşağıdaki kodların arasına kodlarınızı yazmalısınız.

Private Sub Worksheet_Activate()

End Sub

Parçaal işlemini anlayamadım. Sorunuzu biraz daha açar mısınız.

Pardon; G5 den G44 e kadar yapmasını istediğim işlem bu =EĞER(I5>J5;(I5/(I5+J5)*100);EĞER(J5>I5;(J5/(I5+J5)*100);50)) bu işlemi sayfa her açıldığında makro yardımı ile otamatik yapmasını istiyorum.

 

[Emir Hüseyin Çoban]

Aşağıdaki kodları, sayfanın kod bölümüne yapıştırarak deneyiniz.

Private Sub Worksheet_Activate()
    Range("G5").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[2]>RC[3],(RC[2]/(RC[2]+RC[3])*100),IF(RC[3]>RC[2],(RC[3]/(RC[2]+RC[3])*100),50))"
    Range("G5").Copy
    Range("G6:G44").Select
    ActiveSheet.Paste
End Sub

 

[akmes]

Aşağıdaki kodları, sayfanın kod bölümüne yapıştırarak deneyiniz.

Private Sub Worksheet_Activate()
    Range("G5").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[2]>RC[3],(RC[2]/(RC[2]+RC[3])*100),IF(RC[3]>RC[2],(RC[3]/(RC[2]+RC[3])*100),50))"
    Range("G5").Copy
    Range("G6:G44").Select
    ActiveSheet.Paste
End Sub

Teşekkür ederim.İşte bu , çok sağolun..

 

[Korhan Ayhan]

Selamlar,

Bu da alternatif olsun.

Option Explicit
 
Private Sub Worksheet_Activate()
    With ActiveSheet.Range("G5:G44")
        .Formula = "=IF(I5>J5,(I5/(I5+J5)*100),IF(J5>I5,(J5/(I5+J5)*100),50))"
        .Value = .Value
    End With
End Sub

 

[akmes]

Selamlar,

Bu da alternatif olsun.

Option Explicit
 
Private Sub Worksheet_Activate()
    With ActiveSheet.Range("G5:G44")
        .Formula = "=IF(I5>J5,(I5/(I5+J5)*100),IF(J5>I5,(J5/(I5+J5)*100),50))"
        .Value = .Value
    End With
End Sub

Üstadım, teşekkür ederim.