Seçili hücrelerdeki rakamları 5000 e bölmek

[bmutlu966]

Range("a1:c50").Select

ile seçtiğim alandaki tüm rakamları 5000 e bölmek istiyorum. Bu satırdan sonra nasıl bir komut kullanmam gerekiyor ?

 

[İhsan Tank]

dosya ekler misiniz_?

 

[Necdet]

Range("a1:c50").Select

ile seçtiğim alandaki tüm rakamları 5000 e bölmek istiyorum. Bu satırdan sonra nasıl bir komut kullanmam gerekiyor ?

Merhaba,

Sub Bol()
    Dim Hucre As Range
    For Each Hucre In Range("A1:C50")
        Hucre = Hucre / 5000
    Next Hucre
End Sub

 

[Seyit Tiken]

Ben Soruyu Bu Şekilde Anladım.

[d1] = Application.Sum([a1:c50]) / 5000

 

[bmutlu966]

Öncelikle ilginiz için çok teşekkürler. Necdet hocamın yazdığı kod işimi gördü.

 

[Korhan Ayhan]

Merhaba,

Sorunuz çözümlenmiş. Alternatif olarak bu işlemi kopyala-özel yapıştır metodu ilede yapabilirsiniz.

Sayfada hücre seçimi yapıp aşağıdaki kodu çalıştırınız. Dilerseniz kod içinde geçen "Selection" ifadesi yerine hücre adreside tanımlayabilirsiniz.

Option Explicit
 
Sub BEŞBİNE_BÖL()
    With Range("IV1")
        .Value = 5000
        .Copy
         [COLOR=red]Selection[/COLOR].PasteSpecial Paste:=xlPasteValues, Operation:=xlDivide
         Application.CutCopyMode = False
        .ClearContents
    End With
 
    MsgBox "Bölme işlemi tamamlanmıştır.", vbInformation
End Sub