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..
>
>
>
>
>
