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
Autofill.xlsm
Description: Binary data
