Rumus vba

  1. 2 tahun lalu

    Assalamualaikum…
    Mohon bantuan nya….. Saya membuat sebuah aplikasi menggunakan VBA..
    Dengan tombol button yang saya beri rumus:
    Private Sub CommandButton1_Click()

    Dim I As Integer
    For I = 3 To 12
    Range("C3").Formula = "=MID(B3,3,2)"
    Range("C3").Copy Range("C3:C12")
    Next I

    Yang saya tanyakkan adalah

    bagaimana hasil C12 “RU” bisa di Save di Kolom F3 ?
    Setelah mendapatan hasil di F3 berupa “RU” maka akan secara otomatis menghapus hasil proses di kolom C3 sampai dengan C12 dan memproses rumus lain nya misalkan =MID (B3,1,2)

    Mohon bantuan nya all….
    Terimakasih

  2. tghfox

    30 Mei 2016 Terverifikasi Bekasi Barat + 436 Poin

    Agak bingung dengan hasil yang diinginkan tapi dicoba script di bawah mungkin cocok :

    dim lBrsAkhir as long, lBrsAwal as long 
    
    lBrsAkhir = range("B" & rows.count).end(xlUp).row
    lbrsAwal = 3
    
    range("C" & lBrsAwal & ":C" & lBrsAkhir).formular1c1 = "=MID(RC[-1],3,2)"
    
    range("F" & rows.count).end(xlup).offset(1,0).value = range("C" & lBrsAkhir).value 
    

 

atau Mendaftar untuk ikut berdiskusi!