Allhamdulillah berhasil mr kid sy pake yg ini
Public Sub pasangformula()
Dim rngdata As Range
Dim rngTarget As Range
Dim Irecords As Long
Set rngdata = Sheets("txt kelas 3").Cells(1, 1).CurrentRegion
Irecords = rngdata.Rows.Count - 1
Set rngTarget = rngdata.Resize(Irecords, 1).Offset(1, 103)
rngTarget.Formula = "=VLOOKUP($CS2,data!$A$2:$B$100,2,FALSE)"
end sub
untuk formula yg di pasang di range masih sy pelajarin masih blom paham
Pada 5 Juli 2014 22.21, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:
>
>
> Untuk cara memasang formula menggunakan VBA, sila jalan-jalan ke sini
> <http://b-excel.blogspot.com/2013/11/belajarvba-012-formula.html>.
> Untuk bisa menentukan area range yang dibutuhkan (misal yang akan
> dipasangi formula), maka harus memahami tentang cara merujuk suatu range
> dengan VBA. Hal ini bisa dilihat mulai dari sini
> <http://b-excel.blogspot.com/2013/09/belajarvba-011-range-01-berdasar-alamat.html>
> sampai sini
> <http://b-excel.blogspot.com/2013/09/belajarvba-011-range-06-range-ke-range.html>
> .
>
> Wassalam,
> Kid.
>
>
>
> 2014-07-05 14:32 GMT+07:00 fathir ali payripay...@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Assalamualaikum dear master mr kid dan master hendrik k serta master yg
>> lainnya mohon pencerahannya tentang vlookup saya ada formula
>> VLOOKUP(a2;'data'!$A$2:$B$100;2;FALSE) terus saya coba pake macro
>> scriptnya ActiveCell.FormulaR1C1 =
>> "=VLOOKUP(RC[-1],data!R2C1:R100C2,2,FALSE)"
>> Range("B2").Select
>>
>>
>> Selection.AutoFill Destination:=Range("B2:b77"), Type:=xlFillDefault
>> Range("B2:B77").Select
>> masalahnya data nya kan nga selalu 77 jumlahnya bisa nga hasilnya sesuai
>> dengan data yg ada di kolom a2 file terlampir
>>
>>
>
>
