Tambahkan .End(xlUp) sebelum .Activate Wassalam, Kid.
2014-02-12 13:27 GMT+07:00 achmad adi <[email protected]>: > > > mohon maap,,,unutk mR.kid,,,apabila krusor yang dimaksd hanya kolom C > tanpa melihat posisi terakhir kolom B ,,,,terimakasih sebelumnya,,,ini saya > lampirkan file nya > > > > Pada Selasa, 28 Januari 2014 20:21, Mr. Kid <[email protected]> > menulis: > > Coba : > Public Sub NextData(Optional bState As Boolean = False) > With > Sheet1.Shapes(Application.Caller).TopLeftCell.Offset(1).CurrentRegion > Cells(.Resize(1, 1).Offset(.Rows.Count, 1).Row, 3).Activate > End With > End Sub > > Wassalam, > Kid. > > > > 2014-01-28 achmad adi <[email protected]> > > > terimakasih banyak Mr. Jam Raisin > kalo Next Data nya ada di Banyak tabel bagaimana? > saya lampirkan file nya... > terimakasih sebelumnya.. > > > > Pada Selasa, 28 Januari 2014 16:10, Jan Raisin < > [email protected]> menulis: > > coba 3 baris script ini ditulis pada sebuah modul > > Sub NextData() > Cells(Rows.Count, 3).End(xlUp).Offset(1).Select > End Sub > > lalu di-assign ke sebuah shape yang berada di depan cel B2 s.d D2 > file terlampir > > > -Miss Jan Raisin- > > > Pada 28 Januari 2014 15.44, achmad adi <[email protected]> menulis: > > > Dear master,,, > mohon bantuanya,,,untuk menemukan baris terakhir pada kolom > tertentu,,,dengan bantuan sell tertentu,,,kalo pake hyperlink,,,apabila ada > data msuk.,,,gak bisa ke baris terakhir,, > saya lampirkan file contoh,,, > > sebelumnya saya ucapkan terimakasih.. > > > > > > > >
