Senin, 05 Desember 2011

[belajar-excel] Digest Number 1424

Messages In This Digest (25 Messages)

Messages

1a.

Re: Replace Data Perbaris

Posted by: "mail4muja@yahoo.co.id" mail4muja@yahoo.co.id   mail4muja

Mon Dec 5, 2011 9:07 am (PST)



Thanks bro buat responnya, setelah di coba kok Replacenya masih belum jalan ya? Keluar pesan :
___________________________
Compile error :
Sub or function not defined
___________________________
Highlight pada word "Tabel" di cmdReplace_Click()

Apa yang kurang ya ???


Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

-----Original Message-----
From: Onto Seno <ontoseno84@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Mon, 5 Dec 2011 19:02:56
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Replace Data Perbaris

"Lha wong" range sedang dijadikan rowSource kok mau di-ubek-ubek.. seh.."
Barangkali itulah yg menyusahkan pengubahannya

Kita cari cara lain "mengisikan data value yg ada di range A2:Cn / sheet 1
bukan dengan memasukkan Range nya ke property *RowSource* tetapi valuesnya
kita ambil satu persatu untuk mengisi Lisbox dengan metoda *AddItem*

*=== module userform ====*
Dim Tabel As Range, R As Long, i As Long

Private Sub UserForm_Initialize()
Set Tabel = Sheets("Sheet1").Range("A1").CurrentRegion.Offset(1, 0)
Application.EnableEvents = False
With ListBox1
.Clear
For i = 1 To Tabel.Rows.Count - 1
.AddItem
.List(.ListCount - 1, 0) = Tabel(i, 1)
.List(.ListCount - 1, 1) = Tabel(i, 2)
.List(.ListCount - 1, 2) = Tabel(i, 3)
Next i
.BoundColumn = 1
.ColumnCount = 3
.ColumnHeads = True
.TextColumn = True
.ListStyle = fmListStyleOption
.ListIndex = 0
End With
Application.EnableEvents = True
End Sub

Private Sub ListBox1_Change()
Application.EnableEvents = False
With ListBox1
If .ListIndex > -1 Then
R = .ListIndex
TextBox4 = .List(R, 0)
TextBox5 = .List(R, 1)
TextBox6 = .List(R, 2)
End If
Tabel(.ListIndex + 1, 1).Resize(1, Tabel.Columns.Count).Select
End With
Application.EnableEvents = True
End Sub

Private Sub cmdReplace_Click()
Application.EnableEvents = False
Tabel(R + 1, 1) = TextBox4
Tabel(R + 1, 2) = TextBox5
Tabel(R + 1, 3) = TextBox6
With Me.ListBox1
'--- bagian ini sebetulnya bisa diganti: hanya mengganti
' 1 item (3 data sebaris) saja
.Clear
For i = 1 To Tabel.Rows.Count - 1
.AddItem
.List(.ListCount - 1, 0) = Tabel(i, 1)
.List(.ListCount - 1, 1) = Tabel(i, 2)
.List(.ListCount - 1, 2) = Tabel(i, 3)
Next i
'--------------
End With
Application.EnableEvents = True
End Sub


2011/12/5 muja <mail4muja@yahoo.co.id>
> Salam buat XL Master,
> Mohon bantuannya memecahkan masalah code replace data nih (file
terlampir) sbb :
> - Dalam userform terdapat 1 bh kontrol Listbox, 3 bh Textbox dan 1 bh
Command.
> - Listbox tsb memuat multi kolom (disini menggunakan 3 Kolom), dan jika
di klik list yang ada maka data akan tampil di textbox
> - Nah bagaimana cara menganti/mereplace data yang melalui textbox
tersebut dengan Command.???
> - Code yang sudah di buat terlampir hanya mampu mereplace 1 kolom saja.
> Demikian disampaikan, atas bantuannya diucapkan terima kasih.
> Mas Muja
> ========

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

Re: Replace Data Perbaris

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Dec 5, 2011 10:54 am (PST)



Coba script berikut :

Private Sub cmdReplace_Click()
Dim Col1 As Range 'range terpilih
Dim Col2 As Range, Col3 As Range 'aktifkan baris ini jika
akan menggunakan banyak variabel range
Dim lIdx As Long 'index list terpilih

With ListBox1
lIdx = .ListIndex

'----------------------------------------------------------
'jika akan menggunakan banyak variabel range, aktifkan blok berikut
'dan non aktifkan baris Set Col1 = Range(.RowSource).Offset(lIdx,
0) dibawah End With
'With Range(.RowSource)
'Set Col1 = .Offset(lIdx, 0).Resize(1, 1)
'Set Col2 = .Offset(lIdx, 1).Resize(1, 1)
'Set Col3 = .Offset(lIdx, 2).Resize(1, 1)
'End With
Set Col1 = Range(.RowSource).Offset(lIdx, 0) 'init range
terpilih
'----------------------------------------------------------

'>> mulai ubah isi range terpilih
Application.ScreenUpdating = False 'off-kan
proses update screen
.RowSource = vbNullString 'lepaskan
ikatan ListBox dengan data source

'----------------------------------------------------------
'jika akan menggunakan cara bawaan file kasus, aktifkan blok berikut
'dan non aktifkan blok dibawahnya
'Col1.Value = TextBox4.Value
'Col2.Value = TextBox5.Value
'Col3.Value = TextBox6.Value

'non aktifkan blok ini jika blok di atas diaktifkan
Col1.Value = TextBox4.Value 'tulis data1
Col1.Offset(, 1).Value = TextBox5.Value 'tulis data2
Col1.Offset(, 2).Value = TextBox6.Value 'tulis data3
'----------------------------------------------------------

Set Col1 =
Range("a1").CurrentRegion 'init
range data
.RowSource = "Sheet1!" & Col1.Offset(1).Resize(Col1.Rows.Count -
1).Address 'set listbox data source
.ListIndex =
lIdx 'set
item listbox terpilih
Application.ScreenUpdating =
True 'on-kan update screen
End With
End Sub

Perhatikan bagian-bagian :
.RowSource = vbNullString
pada awal proses penulisan data, yang kemudian diakhiri dengan
Set Col1 =
Range("a1").CurrentRegion
.RowSource = "Sheet1!" & Col1.Offset(1).Resize(Col1.Rows.Count -
1).Address

Bagian-bagian tersebut adalah proses melepas dan memasang kembali data
source listbox.
Proses penulisan data (update ke tabel data source listbox) dilakukan
diantara kedua bagian itu.

Wassalam,
Kid.

2011/12/5 muja <mail4muja@yahoo.co.id>

> **
>
>
> Salam buat XL Master,
>
> Mohon bantuannya memecahkan masalah code replace data nih (file terlampir)
> sbb :
>
> - Dalam userform terdapat 1 bh kontrol Listbox, 3 bh Textbox dan 1 bh
> Command.
> - Listbox tsb memuat multi kolom (disini menggunakan 3 Kolom), dan jika di
> klik list yang ada maka data akan tampil di textbox
> - Nah bagaimana cara menganti/mereplace data yang melalui textbox tersebut
> dengan Command.???
> - Code yang sudah di buat terlampir hanya mampu mereplace 1 kolom saja.
>
> Demikian disampaikan, atas bantuannya diucapkan terima kasih.
>
> Mas Muja
> ========
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)
1c.

Re: Replace Data Perbaris

Posted by: "Onto Seno" ontoseno84@gmail.com   ontoseno84@ymail.com

Mon Dec 5, 2011 2:16 pm (PST)



Apakah ini tanggapan untuk saya ya ?? soalnya tanggal email anda LEBIH DULU
daripada tanggal email jawabanku..
Tapi, lupakan itu, makro itu di komputer saya dan kemudian dicoba di
beberapa 4 komputer lain kok jalan dengan baik.
Mungkin anda tidak menuliskan deklarasi level module nya (di BAGIAN
"General") sebelum prosedur prosedur

*Dim Tabel As Range, R As Long, i As Long*

Ditulis di level module (module userform terkait) dengan maksud agar
dikenal (dapat dipakai) di semua prosedur dlm module tsb

*2011/12/3 *<mail4muja@yahoo.co.id>

> **
> Thanks bro buat responnya, setelah di coba kok Replacenya masih belum
> jalan ya? Keluar pesan :
> ___________________________
> Compile error :
> Sub or function not defined
> ___________________________
> Highlight pada word "Tabel" di cmdReplace_Click()
>
> Apa yang kurang ya ???
>
> *From: * Onto Seno <ontoseno84@gmail.com>
> *Date: *Mon, 5 Dec 2011 19:02:56 +0700
> *Subject: *Re: [belajar-excel] Replace Data Perbaris
>
> "Lha wong" range sedang dijadikan rowSource kok mau di-ubek-ubek.. seh.."
> Barangkali itulah yg menyusahkan pengubahannya
>
> *=== module userform ====*
> *Dim Tabel As Range, R As Long, i As Long*
>
> Private Sub UserForm_Initialize()
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)
1d.

Bls: [belajar-excel] Replace Data Perbaris

Posted by: "muja" mail4muja@yahoo.co.id   mail4muja

Mon Dec 5, 2011 5:22 pm (PST)



Oke, terima kasih Mr Kid atas responnya..

Code sudah di coba dengan mengikuti intruksi cuma kok keluarnya :
====================================

Compile error :

Duplicate declaration in current scope
====================================

Atau bisa Mr Kid lampirkan file yang sudah jalan code nya...
Terima Kasih

 Mas Muja
===========

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 6 Desember 2011 1:54
Judul: Re: [belajar-excel] Replace Data Perbaris


 
Coba script berikut :

Private Sub cmdReplace_Click()
    Dim Col1 As Range                           'range terpilih
    Dim Col2 As Range, Col3 As Range            'aktifkan baris ini jika akan menggunakan banyak variabel range
    Dim lIdx As Long                            'index list terpilih
   
    With ListBox1
        lIdx = .ListIndex
       
        '----------------------------------------------------------
        'jika akan menggunakan banyak variabel range, aktifkan blok berikut
        'dan non aktifkan baris Set Col1 = Range(.RowSource).Offset(lIdx, 0) dibawah End With
        'With Range(.RowSource)
            'Set Col1 = .Offset(lIdx, 0).Resize(1, 1)
            'Set Col2 = .Offset(lIdx, 1).Resize(1, 1)
            'Set Col3 = .Offset(lIdx, 2).Resize(1, 1)
        'End With
        Set Col1 = Range(.RowSource).Offset(lIdx, 0)            'init range terpilih
        '----------------------------------------------------------
       
        '>> mulai ubah isi range terpilih
        Application.ScreenUpdating = False                      'off-kan proses update screen
        .RowSource = vbNullString                               'lepaskan ikatan ListBox dengan data source
       
        '----------------------------------------------------------
        'jika akan menggunakan cara bawaan file kasus, aktifkan blok berikut
        'dan non aktifkan blok dibawahnya
        'Col1.Value = TextBox4.Value
        'Col2.Value = TextBox5.Value
        'Col3.Value = TextBox6.Value
       
        'non aktifkan blok ini jika blok di atas diaktifkan
        Col1.Value = TextBox4.Value                             'tulis data1
        Col1.Offset(, 1).Value = TextBox5.Value                 'tulis data2
        Col1.Offset(, 2).Value = TextBox6.Value                 'tulis data3
        '----------------------------------------------------------
       
        Set Col1 = Range("a1").CurrentRegion                                            'init range data
        .RowSource = "Sheet1!" & Col1.Offset(1).Resize(Col1.Rows.Count - 1).Address     'set listbox data source
        .ListIndex = lIdx                                                               'set item listbox terpilih
        Application.ScreenUpdating = True                                               'on-kan update screen
    End With
End Sub

Perhatikan bagian-bagian :
.RowSource = vbNullString
pada awal proses penulisan data, yang kemudian diakhiri dengan
Set Col1 = Range("a1").CurrentRegion                                           
.RowSource = "Sheet1!" & Col1.Offset(1).Resize(Col1.Rows.Count - 1).Address    

Bagian-bagian tersebut adalah proses melepas dan memasang kembali data source listbox.
Proses penulisan data (update ke tabel data source listbox) dilakukan diantara kedua bagian itu.

Wassalam,
Kid.

2011/12/5 muja <mail4muja@yahoo.co.id>

> 
>Salam buat XL Master,
>
>
>Mohon bantuannya memecahkan masalah code replace data nih (file terlampir) sbb :
>
>- Dalam userform terdapat 1 bh kontrol Listbox, 3 bh Textbox dan 1 bh Command.
>- Listbox tsb memuat multi kolom (disini menggunakan 3 Kolom), dan jika di klik list yang ada maka data akan tampil di textbox
>- Nah bagaimana cara menganti/mereplace data yang melalui textbox tersebut dengan Command.???
>- Code yang sudah di buat terlampir hanya mampu mereplace 1 kolom saja.
>
>Demikian
disampaikan, atas bantuannya diucapkan terima kasih.
>
>Mas Muja
>========
>

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

Bls: [belajar-excel] Replace Data Perbaris

Posted by: "muja" mail4muja@yahoo.co.id   mail4muja

Mon Dec 5, 2011 5:23 pm (PST)



Kok aneh jadi tanggal 3 Des 2011 ya, Psdahal codenya saya coba dan balasan emailnya saya buat tgl 5 tadi malam... tp it's OK.

Deklarasi general :

Dim Tabel As Range, R As Long, i As Long

 sudah di tulis, cuman kok masih gak jalan ya ? atau bisa dilampirkan contoh filenya yang sudah jalan...

Trims...

Mas Muja
=============

________________________________
Dari: Onto Seno <ontoseno84@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 6 Desember 2011 5:16
Judul: Re: [belajar-excel] Replace Data Perbaris


 
Apakah ini tanggapan untuk saya ya ?? soalnya tanggal email anda LEBIH DULU daripada tanggal email jawabanku..
Tapi, lupakan itu, makro itu di komputer saya dan kemudian dicoba di beberapa 4 komputer lain kok jalan dengan baik. 
Mungkin anda tidak menuliskan deklarasi level module nya (di BAGIAN "General") sebelum prosedur prosedur

Dim Tabel As Range, R As Long, i As Long

Ditulis di level module (module userform terkait) dengan maksud agar dikenal (dapat dipakai) di semua prosedur dlm module tsb

2011/12/3 <mail4muja@yahoo.co.id>

>Thanks bro buat responnya, setelah di coba kok Replacenya masih belum jalan ya? Keluar pesan :
>___________________________
>Compile error :
>Sub or function not defined
>___________________________
>Highlight pada word "Tabel" di cmdReplace_Click()
>
>Apa yang kurang ya ???
>
>
>From: Onto Seno <ontoseno84@gmail.com>
>Date: Mon, 5 Dec 2011 19:02:56 +0700
>Subject: Re: [belajar-excel] Replace Data Perbaris
>
>
>"Lha wong" range sedang dijadikan rowSource kok mau di-ubek-ubek.. seh.."
>Barangkali  itulah yg menyusahkan pengubahannya
>
>
>=== module userform ====
>Dim Tabel As Range, R As Long, i As Long
>
>
>Private Sub UserForm_Initialize()
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)
1f.

Re: Replace Data Perbaris

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Dec 5, 2011 6:12 pm (PST)



Pastikan prosedur event cmdReplace_Click() hanya ada 1 saja.

Jika Anda langsung copas dari email ke baris baru dan bukan mereplace
prosedur yang lama, mungkin akan muncul error tersebut.

Kid.

2011/12/6 muja <mail4muja@yahoo.co.id>

> **
>
>
> Oke, terima kasih Mr Kid atas responnya..
>
> Code sudah di coba dengan mengikuti intruksi cuma kok keluarnya :
> ====================================
> Compile error :
>
> Duplicate declaration in current scope
> ====================================
>
> Atau bisa Mr Kid lampirkan file yang sudah jalan code nya...
> Terima Kasih
>
>
> Mas Muja
> ===========
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Selasa, 6 Desember 2011 1:54
> *Judul:* Re: [belajar-excel] Replace Data Perbaris
>
>
> Coba script berikut :
>
> Private Sub cmdReplace_Click()
> Dim Col1 As Range 'range terpilih
> Dim Col2 As Range, Col3 As Range 'aktifkan baris ini jika
> akan menggunakan banyak variabel range
> Dim lIdx As Long 'index list terpilih
>
> With ListBox1
> lIdx = .ListIndex
>
>
> '----------------------------------------------------------
> 'jika akan menggunakan banyak variabel range, aktifkan blok berikut
> 'dan non aktifkan baris Set Col1 = Range(.RowSource).Offset(lIdx,
> 0) dibawah End With
> 'With Range(.RowSource)
> 'Set Col1 = .Offset(lIdx, 0).Resize(1, 1)
> 'Set Col2 = .Offset(lIdx, 1).Resize(1, 1)
> 'Set Col3 = .Offset(lIdx, 2).Resize(1, 1)
> 'End With
> Set Col1 = Range(.RowSource).Offset(lIdx, 0) 'init
> range terpilih
>
> '----------------------------------------------------------
>
> '>> mulai ubah isi range terpilih
> Application.ScreenUpdating = False 'off-kan
> proses update screen
> .RowSource = vbNullString 'lepaskan
> ikatan ListBox dengan data source
>
>
> '----------------------------------------------------------
> 'jika akan menggunakan cara bawaan file kasus, aktifkan blok
> berikut
> 'dan non aktifkan blok dibawahnya
> 'Col1.Value = TextBox4.Value
> 'Col2.Value = TextBox5.Value
> 'Col3.Value = TextBox6.Value
>
> 'non aktifkan blok ini jika blok di atas diaktifkan
> Col1.Value = TextBox4.Value 'tulis
> data1
> Col1.Offset(, 1).Value = TextBox5.Value 'tulis
> data2
> Col1.Offset(, 2).Value = TextBox6.Value 'tulis
> data3
>
> '----------------------------------------------------------
>
> Set Col1 =
> Range("a1").CurrentRegion 'init
> range data
> .RowSource = "Sheet1!" & Col1.Offset(1).Resize(Col1.Rows.Count -
> 1).Address 'set listbox data source
> .ListIndex =
> lIdx 'set
> item listbox terpilih
> Application.ScreenUpdating =
> True 'on-kan update screen
> End With
> End Sub
>
> Perhatikan bagian-bagian :
> .RowSource = vbNullString
> pada awal proses penulisan data, yang kemudian diakhiri dengan
> Set Col1 =
> Range("a1").CurrentRegion
> .RowSource = "Sheet1!" & Col1.Offset(1).Resize(Col1.Rows.Count -
> 1).Address
>
> Bagian-bagian tersebut adalah proses melepas dan memasang kembali data
> source listbox.
> Proses penulisan data (update ke tabel data source listbox) dilakukan
> diantara kedua bagian itu.
>
> Wassalam,
> Kid.
>
>
> 2011/12/5 muja <mail4muja@yahoo.co.id>
>
> **
>
> Salam buat XL Master,
>
> Mohon bantuannya memecahkan masalah code replace data nih (file terlampir)
> sbb :
>
> - Dalam userform terdapat 1 bh kontrol Listbox, 3 bh Textbox dan 1 bh
> Command.
> - Listbox tsb memuat multi kolom (disini menggunakan 3 Kolom), dan jika di
> klik list yang ada maka data akan tampil di textbox
> - Nah bagaimana cara menganti/mereplace data yang melalui textbox tersebut
> dengan Command.???
> - Code yang sudah di buat terlampir hanya mampu mereplace 1 kolom saja.
>
> Demikian disampaikan, atas bantuannya diucapkan terima kasih.
>
> Mas Muja
> ========
>
>
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)
2a.

Re: Debug dan restart my workbook

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Dec 5, 2011 11:24 am (PST)



Setelah dicoba, tidak muncul error apapun.
Berikut hasilnya :
1. hasil pencet Comm
[image: 01_data_usai_pencet_comm.gif]

2. Hasil pencet Generate setelah pencet Comm
[image: 02_hasil_spkl1.gif]

Jika tidak pencet Comm, maka pada hasil pencet Generate, di sheet SPKL
kolom NIK akan berisi nilai yang ada di txt_scan.

Jika file yang lalu katanya bermasalah, coba file terlampir yang telah
menambahkan variabel wbkApp (module level).

Wassalam,
Kid.

On Mon, Dec 5, 2011 at 16:31, ppc lambda <ppc_03@sami.co.id> wrote:

> **
>
>
> **
> Mr kid saya coba Workbook yang di lampirkan masih terjadi error di tempat
> dan problem yang sama
> para pakar yang lain mohon pencerahannya
>
> Terimakasih
> Best Regard
> <>.<>.<>.<>.<>.<>.
> Sidoel
> ----- Original Message -----
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (21)
2b.

Re: Debug dan restart my workbook

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

Mon Dec 5, 2011 5:23 pm (PST)




untuk koding button comm : Private Sub Cmb_Start_Click()
'With WAdd.Sheets(1).Range("A2")
If WAdd Is Nothing Then Exit Sub With WAdd.Sheets("Sheet1").Range("A2")
.Cells(L, 1) = txt_scan.Text
.Cells(L, 2) = lbl_tgl.Caption
.Cells(L, 3) = Left(txt_jam.Text, 5)
.Cells(L, 4) = Right(txt_jam.Text, 5)
.Cells(L, 5) = txt_OT.Text
.Cells(L, 6) = cmb_area.Value
.Cells(L, 7) = txt_atasan.Text
.Cells(L, 8) = txt_PIC.Text
End With
L = L + 1
txt_scan.Value = ""
txt_scan.SetFocus
End Sub

To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Mon, 5 Dec 2011 09:37:10 +0000
Subject: RE: [belajar-excel] Debug dan restart my workbook

Private Sub Cmb_Generate_Click()
Dim Rng As Range, W As Long, w1 As Long, aw As Long, hal As Long
w1 = 1
aw = 0
hal = 1
Set WAdd = ActiveWorkbook

'Set Rng = WAdd.Sheets(1).Range("b2")
'Set Rng = WAdd.Sheets(1).Range(Rng, Rng.End(xlDown))
'diganti menjadi
WAdd.Sheets("sheet1").Activate
Set Rng = ActiveSheet.Range("b2")
If Rng.Value = "" Then
MsgBox "data kosong"
Exit Sub
End If
Set Rng = ActiveSheet.Range(Rng, Rng.End(xlDown))
' batas pengantian
For W = 1 To Rng.Rows.Count
' If W Mod 30 = 0 Or w1 = 1 Then
If W Mod 30 = 0 Or hal = 1 Then
' supaya 30 baris ganti dng If ((W-1) Mod 30 = 0) Or hal = 1 Then

' ThisWorkbook.Sheets("SPKL").Copy Before:=WAdd.Sheets(1)
' Set SAdd = ActiveSheet
' SAdd.Name = "SPKL" & hal
'diganti menjadi
On Error Resume Next
Worksheets("SPKL" & hal).Activate
If Err.Number = 9 Then
MsgBox "Error maka buat " & hal
ThisWorkbook.Sheets("SPKL").Copy Before:=WAdd.Sheets(1)
Set SAdd = ActiveSheet
SAdd.Name = "SPKL" & hal
Else
Set SAdd = ActiveSheet
End If
On Error GoTo 0
' batas pengantian
WAdd.Sheets(SAdd.Name).Range("i5") = cmb_area.Value
WAdd.Sheets(SAdd.Name).Range("i6") = txt_atasan.Value
WAdd.Sheets(SAdd.Name).Range("C6") = lbl_tgl.Caption
WAdd.Sheets(SAdd.Name).Range("C41") = Rng.Rows.Count
'WAdd.Sheets(SAdd.Name).Range("i60") = (WorksheetFunction.Ceiling(W, 29) / 29) _
& " Dari " & (WorksheetFunction.Ceiling(Rng.Rows.Count, 29) / 29)
' w1 = w1 + 1 ' bisa digunakan hal saja
aw = 1
'isi tiap hal/sheet adalah 29
hal = hal + 1
' agar isi sebelumnya dihapus
WAdd.Sheets(SAdd.Name).Range("A10").Select
Range(Selection, Selection.Offset(29, 9)).ClearContents
End If
With WAdd.Sheets(SAdd.Name).Range("A10")
.Cells(aw, 1) = W
.Cells(aw, 3) = Format(txt_scan.Value, "'000000")
.Cells(aw, 6) = Left(txt_jam, 5)
.Cells(aw, 7) = Right(txt_jam, 5)
End With
' baris berikutnya
aw = aw + 1
Next
End Sub

To: belajar-excel@yahoogroups.com
From: ppc_03@sami.co.id
Date: Mon, 5 Dec 2011 16:02:25 +0700
Subject: Re: [belajar-excel] Debug dan restart my workbook

Mr Kid setelah saya Replace code yang lama
dengan yang di buatkan Mr kid
ternyata masih error pada bagian ThisWorkbook.Sheets(sSht).Copy
before:=WAdd.Sheets(1)
mohon bantuannya para pakar Excel

Terimakasih
Best
Regard
<>.<>.<>.<>.<>.<>.
Sidoel

----- Original Message -----
From:
Kid Mr.

To: belajar-excel@yahoogroups.com

Sent: Monday, December 05, 2011 3:33
PM
Subject: Re: [belajar-excel] Debug dan
restart my workbook



hehehe...
ternyata ada attachment yang disusulkan.

Kira-kira
scriptnya demikian :
Private Sub
Cmb_Generate_Click()
Dim Rng As
Range
Dim sSht As String
Dim W As
Long, w1 As Long, aw As Long, hal As Long
Dim
lRecPerPage As Long, lTotalPage As Long

'aw =
0
'hal = 1

'init
object kerja
Set WAdd =
ActiveWorkbook
Set Rng =
WAdd.Sheets(1).Range("b2").CurrentRegion
w1 =
Rng.Rows.Count - 1
If w1 < 1
Then
Exit
Sub
End If
Set Rng =
Rng.Offset(1).Resize(w1)

'init
konstanta
sSht = "SPKL"

lRecPerPage = 30
lTotalPage = w1 /
lRecPerPage

'loop create
page
For W = 0 To w1 - 1 Step
lRecPerPage
'If W Mod 30 = 0 Or w1 = 1
Then

'ThisWorkbook.Sheets("SPKL").Copy
Before:=WAdd.Sheets(1)


hal = hal +
1
'init page number


'With
WAdd

'drop existing sheet
target

'On Error Resume
Next
'If
Not .Sheets(sSht & hal) Is Nothing
Then

' Application.DisplayAlerts =
False

' .Sheets(sSht &
hal).Delete

' Application.DisplayAlerts =
True

'End If

'Err.Clear

'On Error GoTo 0


'create
new sheet
target

ThisWorkbook.Sheets(sSht).Copy
before:=WAdd.Sheets(1)

Set SAdd =
ActiveSheet

SAdd.Name = sSht & hal
'End
With


'write page main
fields
With
SAdd

.Range("i5") =
cmb_area.Value

.Range("i6") =
txt_atasan.Value

.Range("C6") =
lbl_tgl.Caption

.Range("C41") =
w1

.Range("i60") = hal & " Dari " &
lTotalPage
End
With


'init current page record
count
If W + lRecPerPage > w1
Then
aw
= w1 - W

Else
aw
= lRecPerPage
End
If
'w1 = w1 +
1
'hal = hal +
1
'End If


'write data
record
If aw > 0
Then

With
SAdd.Range("A10").Resize(aw)

'nomor
urut

.Formula =
"=row()-9"

.Calculate

.Value =
.Value



.Offset(0, 2).Value = Format(txt_scan.Value,
"'000000")

.Offset(0, 5).Value = Left(txt_jam,
5)

.Offset(0, 6).Value = Right(txt_jam,
5)
End
With
End
If
'aw = aw +
1
Next
End Sub

Kid.

On Mon, Dec 5, 2011 at 15:13, Kid Mr. <mr.nmkid@gmail.com> wrote:

Private Sub Cmb_Generate_Click()
Dim Rng
As Range
Dim sSht As
String
Dim W As Long, w1 As Long, aw As Long, hal As
Long
Dim lRecPerPage As Long, lTotalPage As
Long

'aw = 0
'hal =
1

'init object
kerja
Set wadd = ActiveWorkbook

Set Rng = wadd.Sheets(1).Range("b2")
Set Rng =
wadd.Sheets(1).Range(Rng,
Rng.End(xlDown)) 'asumsi : tidak
mungkin terjadi record berjumlah 0


'init konstanta
sSht =
"SPKL"
lRecPerPage = 30
w1 =
Rng.Rows.Count
lTotalPage = w1 /
lRecPerPage

'loop create
page
For W = 0 To w1 - 1 Step
lRecPerPage
'If W Mod 30 = 0 Or w1 = 1 Then


'ThisWorkbook.Sheets("SPKL").Copy
Before:=WAdd.Sheets(1)


hal = hal +
1
'init page number


With
wadd

'drop existing sheet
target

On Error Resume
Next

If Not .Sheets(sSht & hal) Is Nothing
Then

Application.DisplayAlerts =
False

.Sheets(sSht &
hal).Delete

Application.DisplayAlerts =
True

End If

Err.Clear

On Error GoTo 0



'create new sheet
target

.Sheets(sSht).Copy
after:=.Sheets(1)

Set sadd =
ActiveSheet

sadd.Name = sSht & hal
End
With


'write page main
fields
With
sadd

.Range("i5") =
cmb_area.Value

.Range("i6") =
txt_atasan.Value

.Range("C6") =
lbl_tgl.Caption

.Range("C41") =
w1

.Range("i60") = hal & " Dari " &
lTotalPage
End
With


'init current page record
count
If W + lRecPerPage >
w1
Then

aw = w1 - W

Else

aw = lRecPerPage
End
If
'w1 = w1 +
1
'hal = hal +
1
'End If


'write data
record
If aw > 0
Then

With
sadd.Range("A10").Resize(aw)

'nomor
urut

.Formula =
"=row()-9"

.Calculate

.Value =
.Value



.Offset(0, 2).Value = Format(txt_scan.Value,
"'000000")

.Offset(0, 5).Value = Left(txt_jam,
5)

.Offset(0, 6).Value = Right(txt_jam,
5)
End
With
End
If
'aw = aw +
1
Next
End Sub



Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (21)
2c.

Re: Debug dan restart my workbook

Posted by: "ppc lambda" ppc_03@sami.co.id

Mon Dec 5, 2011 5:29 pm (PST)



Mr kid dan pak sudarsono
terimakasih atas respon nya setelah saya pakai workbook dari Mr kid masih terjadi error yang sama
kemudian saya coba coding nya pak jkssxls Sudarsono juga sama, masih terjadi error.
saya kira komputer/excel saya yang bermasalah, saya coba di komputer lain hasilnya juga error
berikut error nya
para pakar excel yang lain mohon bantuannya

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Tuesday, December 06, 2011 2:24 AM
Subject: Re: [belajar-excel] Debug dan restart my workbook

Setelah dicoba, tidak muncul error apapun.
Berikut hasilnya :
1. hasil pencet Comm

2. Hasil pencet Generate setelah pencet Comm

Jika tidak pencet Comm, maka pada hasil pencet Generate, di sheet SPKL kolom NIK akan berisi nilai yang ada di txt_scan.

Jika file yang lalu katanya bermasalah, coba file terlampir yang telah menambahkan variabel wbkApp (module level).

Wassalam,
Kid.

On Mon, Dec 5, 2011 at 16:31, ppc lambda <ppc_03@sami.co.id> wrote:

Mr kid saya coba Workbook yang di lampirkan masih terjadi error di tempat dan problem yang sama
para pakar yang lain mohon pencerahannya

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
Sidoel
----- Original Message -----

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (21)
2d.

Re: Debug dan restart my workbook

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

Mon Dec 5, 2011 5:41 pm (PST)




untuk button comm memang belum modif , saya hanya modif di generate . Silakan perhatikan kode yang terbaru : Private Sub Cmb_Start_Click()
'With WAdd.Sheets(1).Range("A2")' jika belum di seting Wadd
If WAdd Is Nothing Then Exit Sub With WAdd.Sheets("Sheet1").Range("A2")
.Cells(L, 1) = txt_scan.Text
.Cells(L, 2) = lbl_tgl.Caption
.Cells(L, 3) = Left(txt_jam.Text, 5)
.Cells(L, 4) = Right(txt_jam.Text, 5)
.Cells(L, 5) = txt_OT.Text
.Cells(L, 6) = cmb_area.Value
.Cells(L, 7) = txt_atasan.Text
.Cells(L, 8) = txt_PIC.Text
End With
L = L + 1
txt_scan.Value = ""
txt_scan.SetFocus
End SubPrivate Sub Cmb_Generate_Click()
Dim Rng As Range, W As Long, w1 As Long, aw As Long, hal As Long
w1 = 1
aw = 0
hal = 1
Set WAdd = ActiveWorkbook
'Set Rng = WAdd.Sheets(1).Range("b2")
'Set Rng = WAdd.Sheets(1).Range(Rng, Rng.End(xlDown))
'diganti menjadi
WAdd.Sheets("sheet1").Activate
Set Rng = ActiveSheet.Range("b2")
If Rng.Value = "" Then
MsgBox "data kosong"
Exit Sub
End If
Set Rng = ActiveSheet.Range(Rng, Rng.End(xlDown))
' batas pengantian For W = 1 To Rng.Rows.Count
' If W Mod 30 = 0 Or w1 = 1 Then
' If W Mod 30 = 0 Or hal = 1 Then
If ((W - 1) Mod 30 = 0) Or hal = 1 Then
' ThisWorkbook.Sheets("SPKL").Copy Before:=WAdd.Sheets(1)
' Set SAdd = ActiveSheet
' SAdd.Name = "SPKL" & hal'diganti menjadi
On Error Resume Next
Worksheets("SPKL" & hal).Activate
If Err.Number = 9 Then
MsgBox "Error maka buat " & hal
ThisWorkbook.Sheets("SPKL").Copy Before:=WAdd.Sheets(1)
Set SAdd = ActiveSheet
SAdd.Name = "SPKL" & hal
Else
Set SAdd = ActiveSheet
End If
On Error GoTo 0
' batas pengantian
WAdd.Sheets(SAdd.Name).Range("i5") = cmb_area.Value
WAdd.Sheets(SAdd.Name).Range("i6") = txt_atasan.Value
WAdd.Sheets(SAdd.Name).Range("C6") = lbl_tgl.Caption
WAdd.Sheets(SAdd.Name).Range("C41") = Rng.Rows.Count
'WAdd.Sheets(SAdd.Name).Range("i60") = (WorksheetFunction.Ceiling(W, 29) / 29) _
& " Dari " & (WorksheetFunction.Ceiling(Rng.Rows.Count, 29) / 29)
w1 = w1 + 1 ' bisa digunakan hal saja
aw = 1
'isi tiap hal/sheet adalah 29
hal = hal + 1

WAdd.Sheets(SAdd.Name).Range("A10").Select
Range(Selection, Selection.Offset(29, 9)).ClearContents 'Select

End If
With WAdd.Sheets(SAdd.Name).Range("A10")
.Cells(aw, 1) = W
.Cells(aw, 3) = Format(txt_scan.Value, "'000000")
.Cells(aw, 6) = Left(txt_jam, 5)
.Cells(aw, 7) = Right(txt_jam, 5)
End With
' baris berikutnya
aw = aw + 1
NextEnd Sub

To: belajar-excel@yahoogroups.com
From: ppc_03@sami.co.id
Date: Tue, 6 Dec 2011 08:26:05 +0700
Subject: Re: [belajar-excel] Debug dan restart my workbook

Mr kid dan pak sudarsono

terimakasih atas respon nya setelah saya pakai workbook dari Mr kid masih terjadi error yang sama

kemudian saya coba coding nya pak jkssxls Sudarsono juga sama, masih terjadi error.

saya kira komputer/excel saya yang bermasalah, saya coba di komputer lain hasilnya juga error

berikut error nya

para pakar excel yang lain mohon bantuannya

Terimakasih

Best Regard

<>.<>.<>.<>.<>.<>.

sidoel

----- Original Message -----

From: Kid Mr.

To: belajar-excel@yahoogroups.com

Sent: Tuesday, December 06, 2011 2:24 AM

Subject: Re: [belajar-excel] Debug dan restart my workbook

Setelah dicoba, tidak muncul error apapun.

Berikut hasilnya :

1. hasil pencet Comm

2. Hasil pencet Generate setelah pencet Comm

Jika tidak pencet Comm, maka pada hasil pencet Generate, di sheet SPKL kolom NIK akan berisi nilai yang ada di txt_scan.

Jika file yang lalu katanya bermasalah, coba file terlampir yang telah menambahkan variabel wbkApp (module level).

Wassalam,

Kid.

On Mon, Dec 5, 2011 at 16:31, ppc lambda <ppc_03@sami.co.id> wrote:

Mr kid saya coba Workbook yang di lampirkan masih terjadi error di tempat dan problem yang sama

para pakar yang lain mohon pencerahannya

Terimakasih

Best Regard

<>.<>.<>.<>.<>.<>.

Sidoel

----- Original Message -----

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

Re: Fungsi Drop down list plus vlookup

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Dec 5, 2011 1:24 pm (PST)



Hai Harry,

Coba juga dengan fitur Pivot Table. Untuk data yang banyak, lebih cepat dan
hemat resources.

Wassalam.
Kid.

2011/12/5 harry budiman <harbudiman@gmail.com>

> **
>
>
> Salam para pakar
>
> Saya ingin menanyakan beberapa rumus paduan dropdown list dan vlook up
> dari data yang saya lampirkan,
> terima kasih atas bantuannya
>
> salam
> harry
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
4a.

Re: ListBox Multi Selection

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Dec 5, 2011 1:42 pm (PST)



Dear Purnomo Sidi,

Jika targetnya adalah membuat daftar hasil filter multi selection, coba
manfaatkan fitur Pivot Table.

Regards,
Kid.

2011/12/5 Purnomo Sidi <pysa_2605@yahoo.com>

> **
>
>
> Dear, Master Excel
> mohon bantuannya dengan ilustrasi sebagai berikut :
>
> saya mempunya data yang ingin saya filter menggunakan List Box yang ingin
> saya tanyakan apakah bisa list box tersebut menghasilkan data sesuai apa
> yang kita pilih namun Item yang dipilih lebih dari satu pilihan ("MULTI
> SELECTION TYPE"). File terlampir
>
> Terima kasih atas bantuan dan petunjuknya
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
4b.

Re: ListBox Multi Selection

Posted by: "Purnomo Sidi" pysa_2605@yahoo.com   pysa_2605

Mon Dec 5, 2011 4:20 pm (PST)



Mr. Kid yang darmawan terima kasih atas solusinya

Pak Onto Seno terima kasih atas ilmunya namun yang jadi masalah bagaimana list box tersebut bisa menghasilkan nilai sehingga data yang diinginkan muncul

trims....
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
4c.

Re: ListBox Multi Selection

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

Mon Dec 5, 2011 5:16 pm (PST)



Karena listbox diMAMPUkan "multi select" nya
sedangkan row yg dipilih secara multi-selet bisa terpencar pencar index
barisnya
maka untuk menghasilkan "apa yg diselect menjadi tertulis di
sheet" diperlukan makro
padahal dari email ke-II bapak sudah wanti-wanti = anti makro
sehingga saya tidak ingin melanggar pagar tsb.

Property *LinkedCell* adalah CELL di sheet tempat dituliskannya VALUE dari
ListBox
sedangkan Value Listbox adalah item yg sedang dislect.
Unfortuanately, Propety *LINKED_CELL* (yg bisa diatur alamat cellnya tanpa
makro)
ternyata tidak berlaku saat Listbox di set *multiselect. *

Pivot Tabel seperti yg disarankan oelah Pak Kid sungguh suatu pemecahan yg
smart
(kami sejak pertamakali menjawab dengan thema tetap sepeti yg ditanyakan:
LISTBOX
yg ternyata malah menyulitkan bapak.. untuk itu kami mohon maaf..
dan pembicaraan listbox tanpa makro yg tidak cucok dgn keinginan bapak kita
sudahi di sini

tks kembali

2011/12/6 Purnomo Sidi <pysa_2605@yahoo.com>
> Mr. Kid yang darmawan terima kasih atas solusinya
> Pak Onto Seno terima kasih atas ilmunya namun yang jadi masalah bagaimana
list box tersebut bisa
> menghasilkan nilai sehingga data yang diinginkan muncul
> trims....
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
5a.

Re: Bls: [belajar-excel] Membuat auto number

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Dec 5, 2011 1:45 pm (PST)



mbak Hartini,

Cara itu tidak ada di file terlampir yang lalu, tetapi cukup banyak ada di
milis. Mungkin tidak ada kasus yang khusus membahas tentang hal itu di
kasus lalu di milis, tetapi dalam solusinya, ada bagian script dan
pengaturan untuk memenuhi hal tersebut.
Jadi, silakan cari-cari di milis ya...

Kid.

2011/12/4 <hartini_80@yahoo.co.id>

> **
>
>
> ** Mr kid yg baik,
> kurang paham neh saya dengan maksud kata2 ini Cara lain adalah dengan
> menggunakan VBA untuk membatasi akses ke kolom No Urut dan meng-copy
> formula nomor urut ke baris input yang baru. Saya buka lampirannya hanya
> filtering saja?
>
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * "Kid Mr." <mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Sun, 4 Dec 2011 15:00:50 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: Bls: [belajar-excel] Membuat auto number
>
>
>
> mBak Hartini yang baik,
>
> File terlampir memanfaatkan fitur Table pada xl2007 (fitur List pada
> xl2003)
> Dengan memberi data validation pada kolom nomor urut, maka entry pada
> kolom nomor urut akan dibatasi oleh fitur data validation. Yang perlu
> diwaspadai adalah keterbatasan fitur data validation terhadap proses cut
> copy paste delete
>
> Cara lain adalah dengan menggunakan VBA untuk membatasi akses ke kolom No
> Urut dan meng-copy formula nomor urut ke baris input yang baru.
>
> Wassalamualaikum Wr. Wb.
> Kid.
>
> 2011/12/4 <hartini_80@yahoo.co.id>
>
>> **
>>
>>
>> ** Saya sudah pakai rumus itu pak, saya hide rumusnya, ternyata ada yg
>> ketik manual, bagaimana ya agar jika ada yg ketik manual maka tampil
>> peringatan no yg digunakan sudah ada? Seperti auto number yg di access itu
>> loh pak? Bisa kah?
>>
>> Salam
>> Tiny
>> Powered by Telkomsel BlackBerry®
>> ------------------------------
>> *From: * ghozi alkatiri <ghozialkatiri@yahoo.co.id>
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Sun, 4 Dec 2011 15:42:40 +0800 (SGT)
>> *To: *belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *Bls: [belajar-excel] Membuat auto number
>>
>>
>>
>> misalkan daftar no urut dimulai dari A2 Nomer urut akan terisi
>> berdasarkan data yang masuk di B2 dst jika B2 berisi data maka A2 terisi
>> nomer urut 1 jika tambah data di B3 maka A3 akan terisi nomer urut 2 dst.
>> formula ditulis di A2 sbb:
>>
>> =IF(LEN(B2);COUNTA($B$2:B2);"")
>>
>> copy formula ke bawah dst.
>>
>> wassalam
>>
>> Ghozi Alkatiri
>>
>> ----- Pesan Asli -----
>> Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
>> Kepada: belajar-excel@yahoogroups.com
>> Cc:
>> Dikirim: Minggu, 4 Desember 2011 14:30
>> Judul: [belajar-excel] Membuat auto number
>>
>> Dear All,
>> Ada yg bisa bantu kah? Bagaimana membuat auto number di excel agar tidak
>> ada no urut yg double, kalo ada yg bisa help dong
>> Thanks be4
>> Salam
>> Tiny
>> Powered by Telkomsel BlackBerry®
>>
>> ------------------------------------
>>
>> ----------------------------------------------------------
>> 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
>> ----------------------------------------------------------Yahoo!
>> Groups Links
>>
>>
>>
>>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
5b.

Re: Bls: [belajar-excel] Membuat auto number

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Mon Dec 5, 2011 2:26 pm (PST)



Ini lg cari2 pak, seinget saya warku itu pernah ada dibuatin ama mba siti seh, thanks ya pak dah ngingetin, doain ya dapet filex ;)
Salam
Tiny
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 6 Dec 2011 04:45:14
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: Bls: [belajar-excel] Membuat auto number

mbak Hartini,

Cara itu tidak ada di file terlampir yang lalu, tetapi cukup banyak ada di
milis. Mungkin tidak ada kasus yang khusus membahas tentang hal itu di
kasus lalu di milis, tetapi dalam solusinya, ada bagian script dan
pengaturan untuk memenuhi hal tersebut.
Jadi, silakan cari-cari di milis ya...

Kid.

2011/12/4 <hartini_80@yahoo.co.id>

> **
>
>
> ** Mr kid yg baik,
> kurang paham neh saya dengan maksud kata2 ini Cara lain adalah dengan
> menggunakan VBA untuk membatasi akses ke kolom No Urut dan meng-copy
> formula nomor urut ke baris input yang baru. Saya buka lampirannya hanya
> filtering saja?
>
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * "Kid Mr." <mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Sun, 4 Dec 2011 15:00:50 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: Bls: [belajar-excel] Membuat auto number
>
>
>
> mBak Hartini yang baik,
>
> File terlampir memanfaatkan fitur Table pada xl2007 (fitur List pada
> xl2003)
> Dengan memberi data validation pada kolom nomor urut, maka entry pada
> kolom nomor urut akan dibatasi oleh fitur data validation. Yang perlu
> diwaspadai adalah keterbatasan fitur data validation terhadap proses cut
> copy paste delete
>
> Cara lain adalah dengan menggunakan VBA untuk membatasi akses ke kolom No
> Urut dan meng-copy formula nomor urut ke baris input yang baru.
>
> Wassalamualaikum Wr. Wb.
> Kid.
>
> 2011/12/4 <hartini_80@yahoo.co.id>
>
>> **
>>
>>
>> ** Saya sudah pakai rumus itu pak, saya hide rumusnya, ternyata ada yg
>> ketik manual, bagaimana ya agar jika ada yg ketik manual maka tampil
>> peringatan no yg digunakan sudah ada? Seperti auto number yg di access itu
>> loh pak? Bisa kah?
>>
>> Salam
>> Tiny
>> Powered by Telkomsel BlackBerry®
>> ------------------------------
>> *From: * ghozi alkatiri <ghozialkatiri@yahoo.co.id>
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Sun, 4 Dec 2011 15:42:40 +0800 (SGT)
>> *To: *belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *Bls: [belajar-excel] Membuat auto number
>>
>>
>>
>> misalkan daftar no urut dimulai dari A2 Nomer urut akan terisi
>> berdasarkan data yang masuk di B2 dst jika B2 berisi data maka A2 terisi
>> nomer urut 1 jika tambah data di B3 maka A3 akan terisi nomer urut 2 dst.
>> formula ditulis di A2 sbb:
>>
>> =IF(LEN(B2);COUNTA($B$2:B2);"")
>>
>> copy formula ke bawah dst.
>>
>> wassalam
>>
>> Ghozi Alkatiri
>>
>> ----- Pesan Asli -----
>> Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
>> Kepada: belajar-excel@yahoogroups.com
>> Cc:
>> Dikirim: Minggu, 4 Desember 2011 14:30
>> Judul: [belajar-excel] Membuat auto number
>>
>> Dear All,
>> Ada yg bisa bantu kah? Bagaimana membuat auto number di excel agar tidak
>> ada no urut yg double, kalo ada yg bisa help dong
>> Thanks be4
>> Salam
>> Tiny
>> Powered by Telkomsel BlackBerry®
>>
>> ------------------------------------
>>
>> ----------------------------------------------------------
>> 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
>> ----------------------------------------------------------Yahoo!
>> Groups Links
>>
>>
>>
>>
>
>

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

Ebook Excel 2007 Gratis

Posted by: "Udi Kusworo" udikusworo@yahoo.com   udikusworo

Mon Dec 5, 2011 4:19 pm (PST)



Teman-teman yang ingin ebook tutorial excel 2007, silahkan download dari link berikut (gratis) :

ebook excel 2007

ebook tersebut saya dapatkan dari internet juga, saya bermagsud berbagi. semoga bermanfaat bagi yang memerlukan.
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
6b.

Re: Ebook Excel 2007 Gratis

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

Mon Dec 5, 2011 5:38 pm (PST)



Bukunya bagus pak Udi..
Kebetulan saya juga sudah pernah mendapatkan "bocoran" via japri dari teman
(member milis ini juga)

Tetapi harap diingat bahwa fle di Ziddu dan semacamnya (online-storage
gratisan) itu
diupload oleh "orang biasa", (yg agak sulit diketahui jatidirinya) bukan
pihak penerbit
atau pemegang copyright ebook tsb. Padahal buku spt itu biasanya harus
berbayar.

"Oke lah", itu tanggung jawab si peng-Upload &/ Ziddu, tetapi jika *milis
terhormat*
*ikut menyiarkan*, sepertinya menjadi kurang "bagus"...

Saran, jika ingin berbagi hal spt itu sebaiknya japri-japrian saja

Mohon maaf dan koreksi jika komentar saya tidak benar...
Mohon pendapat para fakar: wa bil khusus: Pak Sofyan, Pak Haer, Pak Akhsan
Pak Kid, Bu siti...

Terima kasih,
wassalamualaikum wr wb.
o'Seno

2011/12/6 Udi Kusworo <udikusworo@yahoo.com>

> **
> Teman-teman yang ingin ebook tutorial excel 2007, silahkan download dari
> link berikut (gratis) :
> *ebook excel 2007 *
> ebook tersebut saya dapatkan dari internet juga, saya bermagsud berbagi.
> semoga bermanfaat bagi yang memerlukan.
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
6c.

Re: Ebook Excel 2007 Gratis

Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com   asrorcakep

Mon Dec 5, 2011 5:50 pm (PST)



Rekan,
Saya coba download file tersebut, tapi berhubung saya onlen lewat beebe, tidak bisa nee,.. Mmohon bantuan untuk sahare japri ke asror g?
Terimakasih,

Asror


-----Original Message-----
From: "o' Seno" <ontoseno84@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 6 Dec 2011 08:38:12
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Ebook Excel 2007 Gratis

Bukunya bagus pak Udi..
Kebetulan saya juga sudah pernah mendapatkan "bocoran" via japri dari teman
(member milis ini juga)

Tetapi harap diingat bahwa fle di Ziddu dan semacamnya (online-storage
gratisan) itu
diupload oleh "orang biasa", (yg agak sulit diketahui jatidirinya) bukan
pihak penerbit
atau pemegang copyright ebook tsb. Padahal buku spt itu biasanya harus
berbayar.

"Oke lah", itu tanggung jawab si peng-Upload &/ Ziddu, tetapi jika *milis
terhormat*
*ikut menyiarkan*, sepertinya menjadi kurang "bagus"...

Saran, jika ingin berbagi hal spt itu sebaiknya japri-japrian saja

Mohon maaf dan koreksi jika komentar saya tidak benar...
Mohon pendapat para fakar: wa bil khusus: Pak Sofyan, Pak Haer, Pak Akhsan
Pak Kid, Bu siti...

Terima kasih,
wassalamualaikum wr wb.
o'Seno



2011/12/6 Udi Kusworo <udikusworo@yahoo.com>

> **
> Teman-teman yang ingin ebook tutorial excel 2007, silahkan download dari
> link berikut (gratis) :
> *ebook excel 2007 *
> ebook tersebut saya dapatkan dari internet juga, saya bermagsud berbagi.
> semoga bermanfaat bagi yang memerlukan.
>
>
>

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

Re: Week berdasar sel tanggal dan Bulan

Posted by: "Udin Haeruddin" herumamuda@gmail.com   ruddin1795

Mon Dec 5, 2011 5:21 pm (PST)



Saya pake parameter 13, karena kalau pake 1, di kompi saya hasilnya 45
bukan 44 (sebagaimana diminta Pak Agung).

Saya juga heran, kok hasilnya di kompi pak Agung hasilnya : *#NUM! ?*

--
====== Haeruddin, S.Pd ======
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
7b.

Re: Week berdasar sel tanggal dan Bulan

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

Mon Dec 5, 2011 5:45 pm (PST)



Dear Pak S Pd., dan peserta conversation topik ini...
Jika kondisi sudah begini
Sepertinya : file lampiran menjadi hal yg "setengah wajib"
Pengirim file sebaiknya menyebutkan regional settingnya, agar para peserta
diskusi
tidak perlu membuat asumsi yg terlalu banyak dan luas lagi

2011/12/6 Udin Haeruddin <herumamuda@gmail.com>

> **
>
> Saya pake parameter 13, karena kalau pake 1, di kompi saya hasilnya 45
> bukan 44 (sebagaimana diminta Pak Agung).
> Saya juga heran, kok hasilnya di kompi pak Agung hasilnya : *#NUM! ?*
> --
> ====== Haeruddin, S.Pd ======
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
7c.

Re: Week berdasar sel tanggal dan Bulan

Posted by: "agung_widodo@sanyo.com" agung_widodo@sanyo.com

Mon Dec 5, 2011 5:48 pm (PST)



Terimakasih mbakyu atas ulasannya yang selalu membelajari.
Kan tidak ada istilah terlambat untuk belajar.?

Akhirnya formula di C2 yang saya pakai dari resep pak Udin dan Master Kid saya tambahi bumbu sedikit menjadi

=WEEKNUM(B2 - DAY(B2) + A2)-1

Berhubung Week 1 di kalender kerja kantor dimulai Hari Senin tanggal 3 January 2011.

Terimakasih
Agung Widodo

________________________________
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Haps
Sent: Monday, December 05, 2011 8:06 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Week berdasar sel tanggal dan Bulan

Sudah terlambat ya...

Asumsinya: kolom MONTH = data date yg hanya ditampakkan MMM-YY nya
Angka-Tanggal nya biasanya = 1; tetapi kita tidak mau ambil risiko maka
kita haruskan jadi tgl [SEBELUM SATU] 1 dulu

=B2 - Day(B2) + A2

Tafsisr Al Haps:
Data date di B2 dimundurkan sebanyak nilai ANGKA TANGGAL-nya
(hasilnya pasti tgl sebelum tgl 1 bulan itu)
lalu ditambah bilangan yg ada di A2

Sekali lagi data di kolom B (month) harus daa tanggal, apapun format tampilnya

2011/12/5 <agung_widodo@sanyo.com<mailto:agung_widodo@sanyo.com>>
Mohon maaf pak Udin,
Tampaknya belum bisa.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
7d.

Re: Week berdasar sel tanggal dan Bulan

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Dec 5, 2011 6:04 pm (PST)



Return type dari fungsi WeekNum.
Pada Excel 2007 kebawah, masih berupa hari pertama dari week adalah hari
minggu (1) atau hari senin (2)
Pada Excel 2010, mulai dikembangkan kearah penentuan week pertama berdasar
hari pertama week. 1 dan 2 seperti pada xl2007 kebawah.
Untuk 11 (equal dengan 2 di xl2007 kebawah) sampai 17 adalah hari pertama
dari week diwakili oleh digit kedua (senin=1 dan minggu=7), dimana 1
januari pasti sebagai week 1.
Untuk 21, hari pertama week dengan cara penentuan week pertama, berdasar
standard eropa (berdasar jumlah hari yang lebih banyak di minggu pertama
Januari).

Kid

2011/12/6 Udin Haeruddin <herumamuda@gmail.com>

> **
>
>
> Saya pake parameter 13, karena kalau pake 1, di kompi saya hasilnya 45
> bukan 44 (sebagaimana diminta Pak Agung).
>
> Saya juga heran, kok hasilnya di kompi pak Agung hasilnya : *#NUM! ?*
>
>
>
>
> --
> ====== Haeruddin, S.Pd ======
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
8a.

Re: Masalah Lookup yang rumit

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

Mon Dec 5, 2011 5:22 pm (PST)




maksudnya : jadi 2 sub rutin :Sub sortArray_2D(MyArray, posisikey)
jumkol = UBound(MyArray, 1)
Dim kel1 As Variant
Dim kel2 As Variant
ReDim kel1((jumkol))
ReDim kel2((jumkol))
For lLoop = 1 To UBound(MyArray, 2)
For lLoop2 = lLoop To UBound(MyArray, 2)
If UCase(MyArray(posisikey, lLoop2)) < UCase(MyArray(posisikey, lLoop)) Then
For i = 1 To UBound(MyArray, 1)
kel1(i) = MyArray(i, lLoop)
kel2(i) = MyArray(i, lLoop2)
MyArray(i, lLoop) = kel2(i)
MyArray(i, lLoop2) = kel1(i)
Next End If Next lLoop2
Next lLoop
End Sub
Sub hilangkantambahan(MyArray, posisikey)
For j = 1 To UBound(MyArray, 2)
strnya = MyArray(posisikey, j)
strnya = StrReverse(strnya)
posisi = InStr(1, strnya, "_")
If posisi > 0 Then
strnya = Mid(strnya, posisi + 1)
End If
strnya = StrReverse(strnya)
MyArray(posisikey, j) = strnya
Next j
End Sub dan
Sub TambahanZZ(MyArray, posisikey)
'1--> posting key
'2--> Amount
'3--> MM atau ZZ
'4--> Transaction Date
'5--> No Reference
'6--> Remark
'7--> Acc No , dari mana
' MM ZZ
' 25 25
' 50
' 31 31
' 40
jumItem = UBound(MyArray, 2)
For j = 1 To jumItem
If j = 1 And MyArray(3, j) = "MM" Then
mPostingKey = MyArray(posisikey, j)
mAmount = MyArray(2, j)
mdoc = "ZZ"
mTanggal = MyArray(4, j)
mReferenceNo = MyArray(5, j)
mRemark = MyArray(6, j)
mAccNo = MyArray(7, j)
End If
Next j
ReDim Preserve MyArray(7, jumItem + 1)
MyArray(posisikey, jumItem + 1) = mPostingKey
MyArray(2, jumItem + 1) = mAmount
MyArray(3, jumItem + 1) = mdoc
MyArray(4, jumItem + 1) = mTanggal
MyArray(5, jumItem + 1) = mReferenceNo
MyArray(6, jumItem + 1) = mRemark
MyArray(7, jumItem + 1) = kdAccCustomer
If mPostingKey = 25 Then
mPostingKey = 50
ElseIf mPostingKey = 31 Then
mPostingKey = 40
Else
mPostingKey = ""
End If
jumItem = jumItem + 1
ReDim Preserve MyArray(7, jumItem + 1)
MyArray(posisikey, jumItem + 1) = mPostingKey
MyArray(2, jumItem + 1) = mAmount
MyArray(3, jumItem + 1) = "" ' mdoc
' MyArray(4, jumItem + 1) = mTanggal
MyArray(4, jumItem + 1) = ""
' MyArray(5, jumItem + 1) = mReferenceNo
MyArray(5, jumItem + 1) = ""
MyArray(6, jumItem + 1) = mRemark
' MyArray(7, jumItem + 1) = mAccNo
MyArray(7, jumItem + 1) = kdAccLedger
End Sub
To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Mon, 5 Dec 2011 09:45:36 +0000
Subject: RE: [belajar-excel] Masalah Lookup yang rumit

End SubSub TambahanZZ(MyArray, posisikey)

seharusnya di pisah jadi : End Sub Sub TambahanZZ(MyArray, posisikey)

To: belajar-excel@yahoogroups.com
From: dbpermatasari@gmail.com
Date: Mon, 5 Dec 2011 17:01:39 +0800
Subject: Re: [belajar-excel] Masalah Lookup yang rumit

Pak Sudarsono,

Kode macro yang kedua ada Compile error message " Sub or function not define "

Saya udah coba debug namun tidak berhasil.
Mohon sekali lag bantuan bapak.

Terima kasih

-Mansor






MARKETPLACE


Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.




Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

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

Trs: Bls: [belajar-excel] Dynamic row

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Mon Dec 5, 2011 5:30 pm (PST)



koreksi atas solusi dynamic row pertanyaan  ""andre prisuasetio"" <qlick@inbox.com> ini forward dari japri yang diajukan oleh yang bersangkutan sekaligus bisa dipelajari oleh be exelers yang lain.

wassalam

Ghozi Alkatiri

----- Pesan yang Diteruskan -----
Dari: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Kepada: ""andre prisuasetio"" <qlick@inbox.com>
Dikirim: Selasa, 6 Desember 2011 7:35
Judul: Bls: Bls: [belajar-excel] Dynamic row


terima kasih atas koreksinya
untuk menghindari kasus seperti yang ditanyakan saya merubah formula menjadi :
tulis formula array di G1 tekan enter +shift +CTRL
{=IFERROR(INDEX(NAMA;SMALL(IF((DIVISI=$F1)*(PT=INDEX($F$1:$F1;TRUNC((ROW()-1)/4)*4+1));ROW(PT)-1);COLUMNS($A:A)));"")}

jika  range yang sebelumnya ditulis Row(1:26) diganti dengan  ROW(PT)-1 dan colomn($1:$1) diganti dengan COLUMNS($A:A)
jadi dengan perubahan ini berapapun tambahan data akan otomatis masuk selama cell tempat masuknya datatambahan  diberi formula. dan dengan formula baru ini formula cukup ditulis sekali di G1 bisa dicopy ke kanan maupun ke bawah  dengan bebas tanpa harus memmilih kolom input secara  serentak seperti formula sebelumnya.

silahkan dicoba

Wassalam

Ghozi Alkatiri

________________________________
Dari: ""andre prisuasetio"" <qlick@inbox.com>
Kepada: ghozialkatiri@yahoo.co.id
Dikirim: Senin, 5 Desember 2011 22:25
Judul: RE:Bls: [belajar-excel] Dynamic row

Mas ghozi, saya coba tambah data, malah hilang 1 baris (saya tambah data PT. A, Divisi IT, Kodir, data yg sudah ada malah
hilang)

__________________________________________________________
Send your photos by email in seconds...
TRY FREE IM TOOLPACK at 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 (1)
Recent Activity
Visit Your Group
Dog Groups

on Yahoo! Groups

Share pictures &

stories about dogs.

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Y! Groups blog

the best source

for the latest

scoop on Groups.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
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
---------------------------------------------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Diposting oleh EXCEL FEED LEARNING di 18.12

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)