Mungkin begini :
Private Sub CommandButton1_Click()
Dim cell As Range, selectedRng As Range
On Error Resume Next
Set selectedRng = Application.InputBox(prompt:="Pilih berapa cell yang anda
mau", Title:="Range pilihan", Type:=8)
If Err.Number <> 0 Then
Err.Clear
Exit Sub
End If
'Cells("A1").Value = 1
'Cells("A2").Value = 2
'Range("A1:A2").AutoFill Destination:=*Range(**selectedRng) -> ini kok
diulangi*
'variabel selectedRng bertipe object range. Ketika input parameter meminta
inputan berupa data bertipe data object range,
'berarti bisa diisi dengan variabel yang bertipe range karena variabel itu
wadah.
'untuk masalah autofill. Maksudnya sepertinya adalah menyusun data series.
'Sebuah data series membutuhkan nilai awal (minimal 1 nilai) dan interval
kenaikan atau penurunan dari nilai awal
'1. menentukan nilai awal : lokasinya di cell pertama range terpilih
(selectedRng)
selectedRng.cells(1).value=1 'karena inginnya selalu dimulai dari 1.
'2. susun data series pada range terpilih (variabel selectedRng)
selectedrng.dataseries type:=xlLinear 'defaultnya adalah dengan
interval kenaikan 1
'jika ingin mengubah intervalnya, maka tambahkan : ,step:=
nilai_intervalnya
End Sub
Wassalam,
Kid.
2013/4/9 Mansor <[email protected]>
> **
>
>
> Dear teman BeExcel,
>
> Saya mau belajar bikin fungsi Auto Fill.
>
> Jika saya select 5 baris ke bawah dengan InputBox, secara otomatis, area
> tersebut akan terisi.
>
> 1
>
> 2
>
> 3
>
> 4
>
> 5
>
> mohon dibaiki kode di bawah, apa yang kurang
>
> ---
>
> Private Sub CommandButton1_Click()
>
> Dim cell As Range, selectedRng As Range
>
> On Error Resume Next
>
> Set selectedRng = Application.InputBox(prompt:="Pilih berapa cell yang
> anda mau", Title:="Range pilihan", Type:=8)
>
> If Err.Number <> 0 Then
>
> Err.Clear
>
> Exit Sub
>
> End If
>
> Cells("A1").Value = 1
>
> Cells("A2").Value = 2
>
> Range("A1:A2").AutoFill Destination:=Range(selectedRng)
>
> End Sub
>
> Pertanyaan saya:
>
> *Mengapa output nya tidak ada??? Apakah perlu menggunakan For Next ?*
>
> Terima kasih
> -Mansor
>
>
>
