Hai Indra,
Bagaimana jika memanfaatkan formula seperti script berikut :
Asumsinya : kolom A pasti ada isinya sebanyak jumlah baris data yang ada di
kolom B dan seterusnya
Sub AutoShape6_Click()
Dim rngOut As Range, rngFields As Range
Set rngOut = Sheet2.Range("a8").Offset(1, 0)
Set rngFields = range(rngout,rngOut.End(xlDown))
With rngfields
.formula = "=Row()-" & rngout.row-1
.parent.calculate
.value=.value
End With
End Sub
Jika maksudnya adalah memberi nomor pada kolom A mengikuti jumlah data yang
ada di kolom B dan seterusnya, dan kolom B pasti terisi penuh data (tidak
ada cell yang blank sampai record terakhir), maka ganti bagian :
Set rngFields = range(rngout,rngOut.End(xlDown))
menjadi :
Set rngFields = range( rngOut.offset(0,1).End(xlDown).offset(0,-1) ,
rngout )
Wassalam,
Kid.
On Fri, Dec 6, 2013 at 8:22 PM, ChordJR <[email protected]> wrote:
>
>
> Dear Be-Exceller,
>
> Mau tanya tentang macro yang sudah saya buat kok tidak bisa berjalan
> sesuai keinginan...mohon di koreksi apabila ada kesalahan pada
> coding"nya...
>
> Sub AutoShape6_Click()
> Dim rngOut As Range, rngFields As Range
> Dim lHitung As Long, lFields As Long
>
> Set rngOut = Sheet2.Range("a8").Offset(1, 0)
> Set rngFields = rngOut.End(xlDown)
> lHitung = 0
> lFields = rngFields.Count
> lHitung = lHitung + 1
>
> With rngOut
> .Value = lHitung
> .Resize(0, rngFields).DataSeries Rowcol:=xlColumns,
> Type:=xlLinear, Date:=xlDay, _
> Step:=1, Trend:=False
> End With
> End Sub
>
> Wassalam,
>
> Indra
>
>
