langsung bgini saja...
Option Explicit
Private Sub CommandButton1_Click()
Dim Rangeku As Range
Dim JumlahBarisIsi As Long
Dim i As Long
Set Rangeku = Range("A2").CurrentRegion
JumlahBarisIsi = Rangeku.Rows.Count
For i = 1 To JumlahBarisIsi
Rangeku(i, 4) = Format(Rangeku(i, 1), "000") _
& "-" & Format(Rangeku(i, 2), "00") _
& "-" & Format(Rangeku(i, 3), "000")
Next i
End Sub
suatu tabel (range area data) kalau kelihatan oleh mata, tentu dapat
di definisikan dimensinya. Banyak cara antara lain spt di atas dengan
property CurrentRegion, karna tidak ada baris / kolom kosong di area
tabel utama (A2:C16)
jika tabel telah terdefisikan dimensinya, maka jumlah baris dengan gampang
dapat di tentukan ( ObjectRange.Rows.Count)
manakala jumlah baris telah diketahui, maka proses pengulangannya
lebih Oce kalau memanfaatan struktur for-next jenis ini
For Counter to RowsCount [step 1]
-- perintah dgn memperhatikan nilai Counter --
Next Counter.
"gitu kalik yaa.."
& cmiiw
2008/6/12 Edo Hanggoro <[EMAIL PROTECTED]>:
>
> Dear Pakar XL,
>
> Mohon bantuannya mengenai VBA untuk membuat command
> Button tersebut tidak bereaksi jika seandainya kolom A
> tersebut tidak ada isinya. Command Button yang
> sekarang saya bikin tersebut masih dapat bereaksi
> meskipun pada sel A17 tidak ada isinya.
>
> Saya menginginkan jika 1 baris dibawah baris terakhir
> tersebut kosong maka Command Button tersebut tidak
> bereaksi, baru jika baris terakhir tersebut terisi,
> maka command button akan menjalankan perintah untuk
> mengisi pada kolom D di baris terakhir sampai pada
> baris yang kosong lagi.
>
> Sebagai contoh adalah jika saya mengisi sel A17 sampai
> dengan A20, maka command button akan mengisi di kolom
> D17 sampai D20 sesuai dengan perintahnya, dan setelah
> itu command button tersebut tidak dapat bereaksi lagi
> karena di sel A21 tidak terisi alias kosong.
>
> Terima Kasih
>
> Edo
>
>
>
