Messages In This Digest (11 Messages)

1a.: mohon infonya : Apa maksud formula ='.'!BC15 From: harso89
1b.: Re: mohon infonya : Apa maksud formula ='.'!BC15 From: o' Seno
1c.: Re: mohon infonya : Apa maksud formula ='.'!BC15 From: harso89

2a.: Re: Macro-lock zoom-out dan page width vie default From: jkssxls Sudarsono
2b.: Re: Macro-lock zoom-out dan page width vie default From: andre pri
2c.: Re: Macro-lock zoom-out dan page width vie default From: andre pri

3.: Memisahkan 2 data yang sama dan Sort data per kecamatan From: ketut budiasa

4a.: Re: menampilkan cell yang berisi data tanpa menggeser screen From: o' Seno
4b.: Re: menampilkan cell yang berisi data tanpa menggeser screen From: Himawan Kunaifi

5a.: Re: CARA MEMBUAT KODE MACRO UNTUK CEK KELOMPOK NAMA? From: winuaji_rk

6.: Coding Macro : Cek Station From: Kurei recca

View All Topics | Create New Topic

Messages

1a.: mohon infonya : Apa maksud formula ='.'!BC15

Posted by: "harso89" harso89@gmail.com harso89

Mon Feb 27, 2012 12:38 am (PST)

Rekan2 mohon bantuannya,

saya masih awal terhadap rumus2 excel.

yang saya tahu mis di cell ada =sheet1!BC15 ini berarti datanya diambil dari sheet1 cell BC 15

tapi kalau yang di cell tertulis ='.'!BC15 maksudnya bgm ya ?

mohon infonya.

salam

--- Mods ---
Posting berikutnya, diharapkan memberi subject yang mewakili kasus.
------------

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
1b.: Re: mohon infonya : Apa maksud formula ='.'!BC15

Posted by: "o' Seno" ontoseno84@gmail.com ontoseno84@ymail.com

Mon Feb 27, 2012 7:06 am (PST)

>> di cell tertulis *='.'!BC15* maksudnya bgm ya ?

='.'!BC15 maksudnya merujuk *cell BC15* yg berada di *Sheet yg bernama
"." (TITIK)*
=sheet1!BC15 maksudnya merujuk *cell BC15* yg berada di *Sheet yg bernama
"Sheet1"*

*o'Seno*

2012/2/27 harso89 <harso89@gmail.com>
> Rekan2 mohon bantuannya,
> saya masih awal terhadap rumus2 excel.
> yang saya tahu mis di cell ada =sheet1!BC15 ini berarti datanya diambil
dari sheet1 cell BC 15
> tapi kalau yang di cell tertulis ='.'!BC15 maksudnya bgm ya ?
> mohon infonya.
> salam
>
> --- Mods ---
> Posting berikutnya, diharapkan memberi subject yang mewakili kasus.
> ------------

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
1c.: Re: mohon infonya : Apa maksud formula ='.'!BC15

Posted by: "harso89" harso89@yahoo.com harso89

Mon Feb 27, 2012 11:07 pm (PST)

Rekan Seno,

kalau itu berarti diambil dari sheet yang bernama "." (titik),
tetapi tidak ada sheet yang bernama "." (titik)
apakah ada sheet yang di hide, kl ada bgm cara bukanya.

salam

--- In belajar-excel@yahoogroups.com, "o' Seno" <ontoseno84@...> wrote:
>
> >> di cell tertulis *='.'!BC15* maksudnya bgm ya ?
>
> ='.'!BC15 maksudnya merujuk *cell BC15* yg berada di *Sheet yg bernama
> "." (TITIK)*
> =sheet1!BC15 maksudnya merujuk *cell BC15* yg berada di *Sheet yg bernama
> "Sheet1"*
>
> *o'Seno*
>
>
>
> 2012/2/27 harso89 <harso89@...>
> > Rekan2 mohon bantuannya,
> > saya masih awal terhadap rumus2 excel.
> > yang saya tahu mis di cell ada =sheet1!BC15 ini berarti datanya diambil
> dari sheet1 cell BC 15
> > tapi kalau yang di cell tertulis ='.'!BC15 maksudnya bgm ya ?
> > mohon infonya.
> > salam
> >
> > --- Mods ---
> > Posting berikutnya, diharapkan memberi subject yang mewakili kasus.
> > ------------
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

2a.: Re: Macro-lock zoom-out dan page width vie default

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Mon Feb 27, 2012 1:20 am (PST)

Lengkapnya : Application.DisplayFullScreen = True
Worksheets("sheet1").ScrollArea = "$A$1:$I$77"
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = True 'False
Range("A1:I1").Select
.Zoom = True
End With

With Worksheets("sheet1")
Range("J1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireColumn.ColumnWidth = 0

Range("A78").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.RowHeight = 0
End With

To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Mon, 27 Feb 2012 07:50:12 +0000
Subject: RE: [belajar-excel] Macro-lock zoom-out dan page width vie default

untuk zoom sesuai area :

Range("A1:I1").Select
ActiveWindow.Zoom = True

To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Mon, 27 Feb 2012 07:47:09 +0000
Subject: RE: [belajar-excel] Macro-lock zoom-out dan page width vie default

With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With

To: belajar-excel@yahoogroups.com
From: qlick@inbox.com
Date: Sun, 26 Feb 2012 10:18:52 -0800
Subject: [belajar-excel] Macro-lock zoom-out dan page width vie default

Be Exceler

Apakah VBA code untuk:

1. mengunci zoom-out dan ketika file ini dibuka width view default-nya hanya dari cell A1:I1 (VBA)

2. menyembunyikan row & column header (VBA)

3. menyembunyikan horizontal & vertical scroll bar (VBA)

4. menyembunyikan sheet tab (VBA)

5. pada file ini column header hanya sampai I1, bagaimana membuat row header hanya sampai A77 (VBA)

br

andre

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
2b.: Re: Macro-lock zoom-out dan page width vie default

Posted by: "andre pri" qlick@inbox.com andrepri@ymail.com

Mon Feb 27, 2012 3:39 am (PST)

Teria kasih pak Darsono, saya akan coba.

//br

-----Original Message-----
From: jkssxls@hotmail.com
Sent: Mon, 27 Feb 2012 09:19:00 +0000
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Macro-lock zoom-out dan page width
vie default

Lengkapnya :
Application.DisplayFullScreen = True
Worksheets("sheet1").ScrollArea = "$A$1:$I$77"
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = True 'False
Range("A1:I1").Select
.Zoom = True
End With

With Worksheets("sheet1")
Range("J1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireColumn.ColumnWidth = 0

Range("A78").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.RowHeight = 0
End With

To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Mon, 27 Feb 2012 07:50:12 +0000
Subject: RE: [belajar-excel] Macro-lock zoom-out dan page width
vie default

untuk zoom sesuai area :

Range("A1:I1").Select
ActiveWindow.Zoom = True

To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Mon, 27 Feb 2012 07:47:09 +0000
Subject: RE: [belajar-excel] Macro-lock zoom-out dan page width
vie default

With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With

To: belajar-excel@yahoogroups.com
From: qlick@inbox.com
Date: Sun, 26 Feb 2012 10:18:52 -0800
Subject: [belajar-excel] Macro-lock zoom-out dan page width vie
default

Be Exceler

Apakah VBA code untuk:
1. mengunci zoom-out dan ketika file ini dibuka width view
default-nya hanya dari cell A1:I1 (VBA)
2. menyembunyikan row & column header (VBA)
3. menyembunyikan horizontal & vertical scroll bar (VBA)
4. menyembunyikan sheet tab (VBA)
5. pada file ini column header hanya sampai I1, bagaimana membuat
row header hanya sampai A77 (VBA)

br
andre

[Try IM ToolPack]
<http://www.imtoolpack.com/default.aspx?rc=if3> Send your photos
by email in seconds...
Try FREE IM ToolPack at www.imtoolpack.com
<http://www.imtoolpack.com/default.aspx?rc=if3>
Works in all emails, instant messengers, blogs, forums and social
networks.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
2c.: Re: Macro-lock zoom-out dan page width vie default

Posted by: "andre pri" qlick@inbox.com andrepri@ymail.com

Mon Feb 27, 2012 3:42 am (PST)

Saya sudah coba dan sesuai dengan apa yang saya maksud, thx //br

-----Original Message-----
From: jkssxls@hotmail.com
Sent: Mon, 27 Feb 2012 09:19:00 +0000
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Macro-lock zoom-out dan page width
vie default

Lengkapnya :
Application.DisplayFullScreen = True
Worksheets("sheet1").ScrollArea = "$A$1:$I$77"
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = True 'False
Range("A1:I1").Select
.Zoom = True
End With

With Worksheets("sheet1")
Range("J1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireColumn.ColumnWidth = 0

Range("A78").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.RowHeight = 0
End With

To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Mon, 27 Feb 2012 07:50:12 +0000
Subject: RE: [belajar-excel] Macro-lock zoom-out dan page width
vie default

untuk zoom sesuai area :

Range("A1:I1").Select
ActiveWindow.Zoom = True

To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Mon, 27 Feb 2012 07:47:09 +0000
Subject: RE: [belajar-excel] Macro-lock zoom-out dan page width
vie default

With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With

To: belajar-excel@yahoogroups.com
From: qlick@inbox.com
Date: Sun, 26 Feb 2012 10:18:52 -0800
Subject: [belajar-excel] Macro-lock zoom-out dan page width vie
default

Be Exceler

Apakah VBA code untuk:
1. mengunci zoom-out dan ketika file ini dibuka width view
default-nya hanya dari cell A1:I1 (VBA)
2. menyembunyikan row & column header (VBA)
3. menyembunyikan horizontal & vertical scroll bar (VBA)
4. menyembunyikan sheet tab (VBA)
5. pada file ini column header hanya sampai I1, bagaimana membuat
row header hanya sampai A77 (VBA)

br
andre

[Try IM ToolPack]
<http://www.imtoolpack.com/default.aspx?rc=if1> Share photos &
screenshots in seconds...
Try FREE IM ToolPack at www.imtoolpack.com
<http://www.imtoolpack.com/default.aspx?rc=if1>
Works in all emails, instant messengers, blogs, forums and social
networks.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

3.: Memisahkan 2 data yang sama dan Sort data per kecamatan

Posted by: "ketut budiasa" yudix_ketut@yahoo.com yudix_ketut

Mon Feb 27, 2012 3:39 am (PST)

Dear All excel master,

Minta bantuannya untuk menyelesaikan/ memudahkan dalam penyusunan data kendaraan.
Ada 2 Sheet Data, yang sebagian data ada yang sama.
- Keinginannya adalah memisahkan data yang ada di sheet Awal 2 yang sudah terdapat di Sheet Awal 1, untuk selanjutnya data yang sama akan di copykan ke sheet Hasil Duplicate.
-Selanjutnya Sheet Awal 1 yang sudah tidak ada data Sheet Awal 2 di short per kecamatan, berhubung alamatnya dengan kecamatan di gabung dalam 1 kolom
Yang sudah saya coba lakukan adalah dengan menggunakan Conditional Formating, Highlight Duplicating Value, selanjjutnya di pindah satu2. karena datanya mencapai ribuan sehingga susah untuk mencarinya.
Untuk menSort per kecamatan belum bisa saya lakukan.

Mohon bantuannya semuanya ya.. Atas bantuannya saya sampaikan Terima Kasih.

Best regards
Ketut

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

4a.: Re: menampilkan cell yang berisi data tanpa menggeser screen

Posted by: "o' Seno" ontoseno84@gmail.com ontoseno84@ymail.com

Mon Feb 27, 2012 8:58 am (PST)

*Sesuai "dhawuh" dari Ki Gede Semrpulll melalui "aji sapta-pengrungu"
(=SMS), *
*dan di email anda belum ada khabar "bahwa makro bisa jalan dan
menghasilkan hal yg sesuai keinginan anda,*
*saya menanggapi, sbb:*

*kalau kolom di sebelah KANAN kolom "Team" di layar anda sudah anda anggap
"MASUK ke MONITOR"*

maka: tinggal mengubah makronya (baris ke 6 pada Prosedur Sub
Worksheet_Change)
ActiveWindow.ScrollColumn = iKol *+ 5*
menjadi
ActiveWindow.ScrollColumn = iKol *+ 6*

pertanyaan bisa dipertegas:
*"bgmana menggeser Kolom yg LabelHedingnya disebut di cell F2, *
*hingga kolom tsb berada di sebelah kanan Kolom "Team"*

*o'Seno*

2012/2/27 Himawan Kunaifi <h_w42n@yahoo.com>

> Dear Ki,****
>
> ** **
>
> Terimakasih atas pencerahanya, Mohon maaf penjelasanya kurang lengkap,
> untuk ukuran sheet di monitor sebelum dan sesudah diharapkan tetap yaitu
> 60% seperti file terlampir, ukuran monitor saya 10.1 1280 X 800 (32bit)***
> *
>
>
>
> Salam, Himawan****
>
>
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com *On Behalf Of *Ki Semprul
> *Sent:* Monday, February 27, 2012 12:16 PM
>
> **
>
> **
>
> 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.
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
4b.: Re: menampilkan cell yang berisi data tanpa menggeser screen

Posted by: "Himawan Kunaifi" h_w42n@yahoo.com h_w42n

Mon Feb 27, 2012 6:53 pm (PST)

Dear Ki Semprul, oâ€™Seno,

Terimakasih banyak atas pencerahanya, akan saya pelajari dulu sedikit demi sedikit karena sebelumnya belum pernah menggunakan makro, nanti jika ada kesulitan akan di tanyakan kembali,

Big Suwun

Himawan

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of o' Seno
Sent: Monday, February 27, 2012 11:59 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan cell yang berisi data tanpa menggeser screen

Sesuai "dhawuh" dari Ki Gede Semrpulll melalui "aji sapta-pengrungu" (=SMS),

dan di email anda belum ada khabar "bahwa makro bisa jalan dan menghasilkan hal yg sesuai keinginan anda,

saya menanggapi, sbb:

kalau kolom di sebelah KANAN kolom "Team" di layar anda sudah anda anggap "MASUK ke MONITOR"

maka: tinggal mengubah makronya (baris ke 6 pada Prosedur Sub Worksheet_Change)

ActiveWindow.ScrollColumn = iKol + 5

menjadi

ActiveWindow.ScrollColumn = iKol + 6

pertanyaan bisa dipertegas:

"bgmana menggeser Kolom yg LabelHedingnya disebut di cell F2,

hingga kolom tsb berada di sebelah kanan Kolom "Team"

o'Seno

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

5a.: Re: CARA MEMBUAT KODE MACRO UNTUK CEK KELOMPOK NAMA?

Posted by: "winuaji_rk" winuaji_rk@yahoo.com winuaji_rk

Mon Feb 27, 2012 12:38 pm (PST)

terima kasih atas bantuan master ki semprul. mohon maaf baru sempat cek email. sedikit sedikit saya coba dulu dan pelajari kode yang ki semprul kasih. apabila masih menemukan kesulitan mohon kiranya master ki semprul masih berkenan membantu

terima kasih

--- In belajar-excel@yahoogroups.com, Ki Semprul <semprul.ki@...> wrote:
>
> '== module Userform1 ==
> [image: Inline image 1]
> Dim i As Integer, Namas As Range, EntryRange As Range
> ' vba code rakitan Ki Semprul, 18 Feb 2012
> ' untuk milis BeExcel - kasus No. 15841
> ' http://tech.groups.yahoo.com/group/belajar-excel/message/15841
>
> Private Sub UserForm_Initialize()
> '-- mengisi Combox BULAN
> CboBulan.Clear
> For i = 1 To 12
> CboBulan.AddItem WorksheetFunction.Text(28 * i, "[$-421]MMMM")
> Next
> '-- mengisi 10 buah Combox Nama
> Dim Ctrl As Object
> Set Namas = Sheets("NAMA").Cells(1).CurrentRegion
> For Each Ctrl In Me.Controls
> If Ctrl.Name Like "CboNama*" Then
> Ctrl.Clear
> For i = 1 To Namas.Rows.Count
> Ctrl.AddItem Namas(i, 1)
> Next i
> Ctrl.ListRows = Namas.Rows.Count
> End If
> Next Ctrl
> End Sub
>
> Private Sub CboBulan_AfterUpdate()
> ' mengisi daftar angka tgl sesuai umur bulan
> ' yg terpilih pada cboBulan
> '-------------------------------------------
> ' Pemilihan BULAN menyebabkan worksheet senama DiAktifkan
> Worksheets(CboBulan.Value).Activate
> Dim TgAkir As Integer, tg As Integer
> ' mencari Tgl akhir Bulan sesuai CboBulan
> TgAkir = Day(DateSerial(Year(Date), CboBulan.ListIndex + 2, 0))
> ' mengganti items CboTgl sesuai Bulannya
> CboTgl.Clear
> For tg = 1 To TgAkir
> CboTgl.AddItem tg
> Next tg
> CboTgl.ListRows = TgAkir
> End Sub
>
> Private Sub CboTgl_Change()
> ' menentukan Range dimana data akan di-entry
> If CboTgl <> "" Then
> Set EntryRange = ActiveSheet.Cells(2, CboTgl).Resize(10, 1)
> EntryRange.Select
> End If
> End Sub
>
> Private Sub Cmd_Cek_Click()
> ' vba code rakitan Ki Semprul, 18 Feb 2012
> ' untuk milis BeExcel - kasus No. 15841
> ' http://tech.groups.yahoo.com/group/belajar-excel/message/15841
> '----------------------------------------------------------
> '== proses Jika Tombol CEK di ceKlik===
> Dim EntryList As String, BedaList As String, DatList(1 To 10)
> Dim N As Integer, Cbox As Object
> '-- warning& validasi Bulan & Tgl
> If CboBulan.ListIndex = -1 Then
> MsgBox "BULAN belum ditentukan !", 48
> CboBulan.SetFocus
> Exit Sub
> End If
> If CboTgl.ListIndex = -1 Then
> MsgBox "Tanggal belum ditentukan", 48
> CboTgl.SetFocus
> Exit Sub
> End If
> ' menentukan Range dimana data akan di-entry
> Set EntryRange = ActiveSheet.Cells(2, CboTgl).Resize(10, 1)
> EntryRange.Select
> ' membuat daftar isi data di entryRange, jika ada
> If WorksheetFunction.CountA(EntryRange) > 0 Then
> EntryList = "|"
> For i = 1 To 10
> If Not EntryRange(i, 1) = vbNullString Then
> EntryList = EntryList & EntryRange(i, 1) & "|"
> End If
> Next i
> End If
> ' membuat daftar isi CboNama
> For i = 1 To 10
> Set Cbox = Controls("CboNama" & Format(i, "00"))
> If Cbox.ListIndex >= 0 Then
> DatList(i) = Cbox.Value
> ' dibandingkan dengan isi EntryRange
> ' untuk membuat daftar yg SUDAH ada di EntryRange
> If InStr(1, EntryList, "|" & Cbox.Value & "|", vbTextCompare) > 0
> Then
> BedaList = BedaList & Cbox.Value & "," & vbCrLf
> End If
> End If
> Next i
> ' pesan jika EntriRange ada isinya,
> If Len(BedaList) > 0 Then
> MsgBox "Nama² berikut ini sudah ada di Tabel " & _
> CboBulan & " :" & vbCrLf & BedaList & vbCrLf & vbCrLf & _
> "Proses Entry dibatalkan.", 48
> ' pembatalan proses
> Exit Sub
> Else
> ' Pesan Jika Entri bisa diproses ..
> MsgBox "Area Entry masih kosong," & vbCrLf & _
> " Entry data segera dilakukan", 64
> For i = 1 To 10
> EntryRange(i, 1) = DatList(i)
> Next i
> End If
> '-mengosongkan 10 CboBox Nama
> For i = 1 To 10
> Set Cbox = Controls("CboNama" & Format(i, "00"))
> Cbox.ListIndex = -1
> Next i
> End Sub
>
> Private Sub Cmd_Close_Click()
> ' Userform di-UnLoad..
> Unload Me
> End Sub
>
> '--------------------------------
>
>
>
>
> *2012/2/18 winuaji rk <winuaji_rk@...>
> >
> > Yth master excel semua
> > saya bermaksud membuat userform untuk input data seperti TERLAMPIR.
> > BULAN merupakan combo box yang terdiri plihan JANUARI-DESEMBER yang
> menentukan data masuk ke sheet yang mana.
> > TANGGAL merupakan combo box yang berisi tanggal sesuai plihan BULAN
> > NAMA terdiri dari 10 combo box dengan isi list yang sama sesuai dengan
> list pada sheet NAMA. jika ada penambahan atau pengurangan Nama tinggal
> edit sheet NAMA maka isi combo box NAMA juga berubah. 10 combo box nama ini
> tidak harus diisi semua. jika kosong maka data yang diinput juga kosong.
> > Command button CEK berfungsi melakukan cek apakah nama nama sudah dinput
> pada tanggal dan bulan yang dipilih atau belum. jika belum pernah di input
> sebelumnya, maka akan muncul MESSAGE BOX 'Apakah data mau disimpan?'
> (YES/NO). Jika ada salah satu nama yang sudah pernah diinput, maka semua
> data nama yang dipilih tidak akan disimpan dan muncul MESSAGE BOX nama nama
> yang sudah pernah diinput (sebagai informasi kepada penginput)
> >
> > PROSESNYA : bulan dan tanggal di pilih, selanjutnya nama juga dipilih
> (tidak harus diisi semua), maka nama nama yang di pilih akan diinput pada
> kolom tanggal yang dipilih sesuai Bulannya.
> >
> > contoh : pada kolom 4 JANUARI sudah pernah diinput KELOMPOK nama
> EKO,BUDI, ARYA. kemudian kita ingin menginput KELOMPOK nama EKO, ARYA,
> ANDI, MEGA, HARDI. setelah KELOMPOK nama ini di masukkan ke userorm dan
> klik CEK maka kelima nama tersebut tidak akan disimpan karena ada nama EKO
> dan ARYA sudah pernah diinput. dan akan muncul MESSAGE BOX 'nama berikut
> sudah ada : EKO, ARYA'
> >
> > mOHON PENCERAHANNYA KEPADA PARA MASTER SEKALIAN, karena saya newbie di
> milis ini, jika ada topik yang mirip dengan kasus diatas bisa di
> informaikan untuk saya pelajari
> >
> > Regards
> >
> > Winuaji*
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

6.: Coding Macro : Cek Station

Posted by: "Kurei recca" yusajing_ehm@yahoo.com yusajing_ehm

Mon Feb 27, 2012 10:00 pm (PST)

Salam Para Master Excel,

Saya Ingin bertanya tentang Coding Macro yang sedang saya Buat,

Saya sedang membuat coding macro untuk mengecek apakah Station-Station yang saya kelompokkan ada di dalam daftar,

Untuk Lebih Jelasnya dapat dilihat di dalam lampiran

Best Regards,
Ridwan

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

Selasa, 28 Februari 2012

Messages In This Digest (11 Messages)

Messages

Posted by: "harso89" harso89@gmail.com harso89

Mon Feb 27, 2012 12:38 am (PST)

Posted by: "o' Seno" ontoseno84@gmail.com ontoseno84@ymail.com

Mon Feb 27, 2012 7:06 am (PST)

Posted by: "harso89" harso89@yahoo.com harso89

Mon Feb 27, 2012 11:07 pm (PST)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Mon Feb 27, 2012 1:20 am (PST)

Posted by: "andre pri" qlick@inbox.com andrepri@ymail.com

Mon Feb 27, 2012 3:39 am (PST)

Posted by: "andre pri" qlick@inbox.com andrepri@ymail.com

Mon Feb 27, 2012 3:42 am (PST)

Posted by: "ketut budiasa" yudix_ketut@yahoo.com yudix_ketut

Mon Feb 27, 2012 3:39 am (PST)

Posted by: "o' Seno" ontoseno84@gmail.com ontoseno84@ymail.com

Mon Feb 27, 2012 8:58 am (PST)

Posted by: "Himawan Kunaifi" h_w42n@yahoo.com h_w42n

Mon Feb 27, 2012 6:53 pm (PST)

Posted by: "winuaji_rk" winuaji_rk@yahoo.com winuaji_rk

Mon Feb 27, 2012 12:38 pm (PST)

Posted by: "Kurei recca" yusajing_ehm@yahoo.com yusajing_ehm

Mon Feb 27, 2012 10:00 pm (PST)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me