coding dipanjang-panjangkan biar panjang.. di tulis di module sheet terkait
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iKol As Integer, sms As String
If Target(1).Address = "$F$2" Then
If WorksheetFunction.CountIf(Range("G6:IP6"), Target(1)) > 0 Then
iKol = WorksheetFunction.Match(Target(1), Range("G6:IP6"), 0)
ActiveWindow.ScrollColumn = iKol + 5
Else
ActiveWindow.ScrollColumn = 1
sms = "Maap,.. TANGGAL yg anda tentukan.. : " & vbCr
sms = sms + "tidak ada di BarTanggal.. Nak.." & vbCr & vbCr
sms = sms + "( Truss Gimana dwong..?!?? )" + vbCrLf
MsgBox sms, 48
End If
End If
End Sub
*Semprul..Ki!*
*"cathetan gak penting" *
sebetulnya masih ada yg kurang jlass: *"langsung ditampilkan di layar
monitor"*
sedangkan layar monitor itu macem-macem ukuran dan perbandingan dimensinya.
SemaNGkin lebar WIDTH nya semaNGkin banyak kolom yg "MASUK" (terdisplay di
dalamnya dlm sekali saat.).
Sedangkan Nak Himawan "mboten kerso ngendikan": ukuran monitornyah. ! Truss
"GI"mana dong..?
Perhatikan juga walaupun DUA monitor punya perbandingan labar x tinggnya yg
sama, tetapi yg satu 14 inch
yang 1 lagi 21 Inch, bukan lantas CELL excelnya menjadi besar besar
sehingga jumlah kolom (untuk sheet yg di set sama)
yg masuk ke monitor = SAMA jumlahnya.
Ada faktor lain (resolusi) yg mengakibatkan [layar 21 Inch yg perbandingan
lebar x tinggnya sama dgn layar 14 inch] tidak sama!
Layar 21 Inch lebih banyak menampilkan KOLOM dan baris, dibanding layar 14
Inc)
Apa yg kita kira TIDAK MASUK ternyata masuk dan kebalikannya
Alangkah sulitnya menjawab pertanyaan yg infonya kurang lengkap..
2012/2/27 Himawan Kunaifi <[email protected]>
> **
>
> Dear Para Master Exel,****
>
> Masih belajar ini, mohon bantuanya lagi ini, jika kita mempunyai data yang
> banyak, dan kita ingin menampilkan data tersebut di layar monitor tanpa
> menggeser scroll pada layar monitor hanya dengan menuliskan data yang kita
> inginkan maka baris/kolom yang sesuai data yang dituliskan langsung di
> tampilkan di layar monitor. file terlampir.
>
> Salam, Himawan
>
KunaifTanya MenScrolKolomOtomatis (Semprul Ki).xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12
