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 <mr.nm...@gmail.com> 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 <dido...@ymail.com> > >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 <miss.jan.rai...@gmail.com> >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 <dido...@ymail.com> 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.. > >
re-mencari+baris+terakhir.xlsm
Description: application/download