Terimakasih atas pencerahannya Mr. Kid...sudah berjalan dengan baik
sekali...
Kalo bisa minta penjelasan lagi pada Coding Proses yang berbunyi :
With rngfields
.formula = "=Row()-" & rngout.row-1
.parent.calculate
.value=.value
End With
Property Parent ini setara dengan apa kalo di excel??sudah mencoba
bantuan F1/Help tapi belum mengerti...
Salam,
Indra
On 12/7/2013 10:43 PM, Mr. Kid wrote:
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]
<mailto:[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
