Koşulu sağlayan satırları 1.2 ile çarpmak.

[Arthassss]

Ekteki dosyada "D : D" sütununda "Mt." yazan hücrelerin olduğu satırları "toplam" sütununa kadar 1.2 ile çarpmak istiyorum. kitabın tamamı çok büyük olduğu için sadece bir sayfayı yükledim.9-10 sayfa daha var.
Not: Toplam sütünunun yeri diğer sayfalarda değişiyor. işlemin seçtiğim alanda yapılmasını sağlayacak şekilde düzenlenirse sevinirim. Sorun biraz acil kısa sürede yardımcı olabilirseniz çok memnun olurum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz. Sayfada uygulamak istediğiniz alanı seçip kodu çalıştırın.

Option Explicit
 
Sub KOŞULA_GÖRE_ÇARP()
    Dim Hücre As Range
    For Each Hücre In Selection
    If Not IsEmpty(Hücre) And Cells(Hücre.Row, "D") = "Mt." Then
    Hücre.Value = Hücre.Value * 1.2
    End If
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Arthassss]

Sn. AYHAN çok teşekkür ederim.