Dear Ari.
dicoba cekrip berikut:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Single
r = ActiveCell.Row
Range("A" & r + 1).Select
End Sub
salam
NangAgus
On 1/26/2019 17:44, cheivory_bri...@yahoo.com [belajar-excel] wrote:
Yth. Be-exceller
Mohon bantuannya atas kasus saya ...
Dear Pak Hendrik:Selamat malam, saya menggunakan cekript di bawah pada Visual
Basic 6.0. dicoba dahulu pak Hendrik semoga berfungsi dikomputer pak Hendrik.
saya pakai juga di Excel 2007 berfungsi normal.
Option Explicit
Sub SerialNumber()
Dim objs As Object
Dim obj As Object
Dim WMI As Obj
Yth. Be-exceller
Mohon bantuannya atas kasus saya ...
Misalnya :
di A1:A600 diisi data validation dengan pilihan misalnya 1, 2, 3, 4.
Bagaimana kode macronya bila di setiap cell yang sudah diisi suatu pilihan
maka, otomatis akan berpindah 1 sel di bawahnya ?
Terima kasih.
Ari
3 matches
Mail list logo