Son satırı değişkene atama.

[desıgner1]

Merhabalar;
Bir türlü yapamadığım konu hakkında yardımınıza ihtiyacım var.

[C5:C5000] = [H5:H5000 / B5:B5000 * 100]

Satırı ile yüzde hesaplıyorum. Benim isteğim. 5000 yazan yere
değişken atamak. Çünkü çalışılan satır sürekli 5000 olmayabiliyor.
Yardımlarınızı bekliyorum. Saygılar.

 

[antonio]

ss = Cells(55500, 3).End(3).Row 'Son satır değişkeni
Range(Cells(5, 3), Cells(ss, 3)) = [H5:H5000 / B5:B5000 * 100]

 

[Korhan Ayhan]

Alternatif;

Son satır "B" sütununa göre tespit ediliyor. Dilerseniz değiştirebilirsiniz.

Sub Test()
    Son = Cells(Rows.Count, "B").End(3).Row
    
    With Range("C5:C" & Son)
        .Formula = "=H5/B5*100"
    End With
End Sub

 

[desıgner1]

Korhan Hocam merhaba;
ben aynı düzenek için cevap alırım diye düşünmüştüm.
örneğimiz bu şekilde 2 ve daha fazla olur ise kodu nasıl düzenleriz acaba ?

Normalinde bu işlemi döngü ile de yapabiliyorum ama; sayı ve satırlar çok çok fazla
dolayısı ile hız çok çok önemli benim için.

[C5:C5000] = [H5:H5000 / B5:B5000 * 100]
[D55000] = [G5:G5000 / A5:A5000 * 100]

 

[desıgner1]

Sayın Antonio alakanız için teşekkür ederim.
Sizin kodu da deneyeceğim.

 

[Korhan Ayhan]

Son satır yine "B" sütununa göre bulunuyor.

Aşağıdaki gibi çoğaltabilirsiniz. Ya da aralık verirseniz ona göre farklı kodlamalar önerebiliriz.

Sub Test()
    Son = Cells(Rows.Count, "B").End(3).Row
    
    With Range("C5:C" & Son)
        .Formula = "=H5/B5*100"
    End With

    With Range("D5:D" & Son)
        .Formula = "=G5/A5*100"
    End With
End Sub

 

[desıgner1]

Aralık vermeye müsait değil dosya maalesef.
Bu hali ile idare edeceğim artık bir müddet.

Elinize sağlık Korhan Hocam. Teşekkürler.