Bir çok sayıyı aynı anda bölmek

[bmutlu966]

Bir çok rakamdan oluşan bir tablom var ve bu rakamları makro ile bölmem gerekiyor. Dosyada nasıl olması gerektiğini belirttim.

 

[Ömer]

Merhaba,

Module kopyalayıp çalıştırınız.

Sub HizliBol()
 
    Application.ScreenUpdating = False
 
    With Range("D1") [COLOR=green]'Bölme işlemi için yardımcı hücre[/COLOR]
        .Value = 500
        .Copy
        Range("D3:L24").PasteSpecial xlPasteAll, xlDivide
        .ClearContents
        .Select
   End With
 
   Application.ScreenUpdating = True
 
End Sub

.

 

[bmutlu966]

Çok teşekkürler...