Code VBA untuk Copy paste sampai baris terakhir

  1. 5 bulan yang lalu

    Tolong bantuannya. Saya punya code vba ini:
    Range("N4").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[-8],2)"

    ini mau saya copy sampai ke baris terakhir yang aktif bagaimana caranya

    sama saya punya code vba ini:
    Range("H2").Select
    ActiveCell.Formula = "=SUBTOTAL(9,H4:H3000)"

    Pada rumus sub totalnya, H3000 nya saya mau buat sampai pembacaan baris terakhir saja yang aktif, bagaimana caranya?
    kalau pas data nya hanya sampe H100 misalnya, maka rumusnya akan menuju sampe H100 saja gitu.

  2. manweljs_

    Mei 11 Terverifikasi + 5.020 Poin
    Di sunting 5 bulan yang lalu oleh manweljs_

    @ikasuprihatin

    pertama-tama yang harus anda lakukan adalah mencari baris terakhir. misalnya untuk yang pertama dengan asumsi kolom F sebagai penentu baris terakhir ( karena [-8] dari kolom N adalah kolom F):

    ...
    lRow = Range("F" & Rows.Count).End(xlUp).Row
    myFormula = "=LEFT(RC[-8],2)"
    Range("N4:N" & lRow) = myFormula
    ...

    untuk yang kedua silahkan dicoba sendiri :)

  3. oke. terimakasih banyak @manweljs_

 

atau Mendaftar untuk ikut berdiskusi!