disederhanakan dikit bagian :
Select Case Target.Value
Case 1: Range("A2").Activate
Case 2: Range("A3").Activate
Case 3: Range("A4").Activate
Case 4: Range("A5").Activate
End Select
jadi :
target.offset(target.value).activate
Kid.
2011/7/22 Haps <hapsari.stlizb...@gmail.com>
> **
>
>
> afaik, tidak ada rumus yg bisa* bertindak* (misal mindahkan cell-aktif (yg
> yg sedang dihinggapi cellpointer) ke cell lain
> mengtifkan sheet lain, memformat cell / range dst
>
> rumus maupun fungsi di sheet excel, hanya bisa mengambalikan data (dengan
> cara menampakkan hasinya) itupun harus di cell dimana rumus ditulis.
>
> imho, keperluan anda tsb dapat dipenuhi dengan makro (bukan rumus)
> misal seperti ini
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Count = 1 Then
> If Target.Address = "$A$1" Then
> Select Case Target.Value
> Case 1: Range("A2").Activate
> Case 2: Range("A3").Activate
> Case 3: Range("A4").Activate
> Case 4: Range("A5").Activate
> End Select
> End If
> End If
> End Sub
>
> maaf, sayang sekali saya tidak dapat menterjemahkan "dst" ke dalam bahasa
> VBA
>
> wassalam,
> haps
>
>
>
>
> 2011/7/22 beben sureben <korongasm...@yahoo.com>
> >
> > Selamat siang,
> > Mau tanya, kalau saya misalnya mau mengisi satu cell dengan kondisi
> 1,2,3,4 dan ingin :
> > - jika cell A1 diisi angka 1 maka cursor cell berpindah otomatis ke A2
> untuk entry data selanjutnya
> > - jika cell A1 diisi angka 2 maka cursor cell berpindah otomatis ke A3
> untuk entry data selanjutnya
> > - jika cell A1 diisi angka 3 maka cursor cell berpindah otomatis ke A4
> untuk entry data selanjutnya
> > dst
> > Apakah operasi tsb memungkinkan? dan boleh minta contoh rumusnya..?
> > Terimakasih banyak sebelumnya.
>
>
>
