[belajar-excel] Digest Number 1425

Milis Belajar Microsoft Excel

Messages In This Digest (25 Messages)

1a.

Re: Replace Data Perbaris From: o' Seno

1b.

Re: Replace Data Perbaris From: mail4muja@yahoo.co.id

2a.

Re: Week berdasar sel tanggal dan Bulan From: agung_widodo@sanyo.com

3.1.

Re: Debug dan restart my workbook From: jkssxls Sudarsono

3.2.

Re: Debug dan restart my workbook From: ppc lambda

3.3.

Re: Debug dan restart my workbook From: Kid Mr.

3.4.

Re: Debug dan restart my workbook From: jkssxls Sudarsono

3.5.

Re: Debug dan restart my workbook From: ppc lambda

3.6.

Re: Debug dan restart my workbook From: jkssxls Sudarsono

4a.

Re: ListBox Multi Selection From: Purnomo Sidi

5a.

Menghindari entry data yg sama dengan 3 kriteria From: andre pri

5b.

Re: Menghindari entry data yg sama dengan 3 kriteria From: Kid Mr.

6.

RE:Re: [belajar-excel] Menghindari entry data yg sama dengan 3 krite From: "andre prisuasetio"

7a.

Prosentase Kehadiran From: Rachmad HIDAYAT

7b.

Re: Prosentase Kehadiran From: Kid Mr.

8.

bagaimana nglink dr vb ke word? From: Harumi Wanasita

9a.

Merubah data dari colom ke row dengan tambahan kategori From: Dwi Hadwan Ridho

9b.

Re: Merubah data dari colom ke row dengan tambahan kategori From: Kid Mr.

9c.

Re: Merubah data dari colom ke row dengan tambahan kategori From: Haps

10a.

Menghilangkan data yang duplicate From: Muhammad Assegaf

10b.

Re: Menghilangkan data yang duplicate From: Kid Mr.

10c.

Re: Menghilangkan data yang duplicate From: Muhammad Assegaf

10d.

Bls: [belajar-excel] Menghilangkan data yang duplicate From: ghozi alkatiri

11a.

Ingin membuat legger nilai From: wawan tawon

11b.

Re: Ingin membuat legger nilai From: Kid Mr.

View All Topics | Create New Topic

Messages

1a.

Re: Replace Data Perbaris

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

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

SUDAH dilampirkan tgl 5 des jan 07:02 pagi

2011/12/6 muja <mail4muja@yahoo.co.id>
> 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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)

1b.

Re: Replace Data Perbaris

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

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

Ok Mr. Kid, It's Work...
Terima kasih banyak...
:-D
Mas Muja
=======
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 6 Dec 2011 09:12:07
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Replace Data Perbaris

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 (10)

2a.

Re: Week berdasar sel tanggal dan Bulan

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

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

Maaf salah sebut copyright formula
(c) mbak Hapsari : =WEEKNUM(B2 - DAY(B2) + A2)-1
(c) Pak Udin & Mr Kid : =WEEKNUM(DATE(YEAR(B2),MONTH(B2),A2),2)-1

Semuanya bagus dan terpakai.
Terimakasih

Terimakasih juga untuk komentar lainnya

Wassalam
Agung Widodo
________________________________
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of agung_widodo@sanyo.com
Sent: Tuesday, December 06, 2011 8:48 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Week berdasar sel tanggal dan Bulan

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 (11)

3.1.

Re: Debug dan restart my workbook

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

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

karena penekanan tombol ( Start , Comm dan Generate bisa sembarangan ) dapat menimbulkan looping yg tak terbatas maka perlu meng- antisipasinya : 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
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

If Rng.Offset(1, 0) <> "" Then
Set Rng = ActiveSheet.Range(Rng, Rng.End(xlDown))
End If

' 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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (27)

3.2.

Re: Debug dan restart my workbook

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

Mon Dec 5, 2011 7:06 pm (PST)

pak sudarsono
pada cmb_Generate terdapat code & nbsp; bila di tuliskan di view code menjadi warna merah dan tidak bisa di jalankan
jika code & nbsp; itu dihilangkan masih terjadi error yang sama
berikut yang berwarna merah ketika di ketikkan di View Code (VBA EXCEL)

&nb sp; On Error Resume Next
&nb sp; End If
& nbsp; .Cells(aw, 7) = Right(txt_jam, 5)

para pakar excel yang lain mohon bantuannya
Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
Sidoel
----- Original Message -----
From: jkssxls Sudarsono
To: Belajar-Excel Yahoo Groups
Sent: Tuesday, December 06, 2011 9:24 AM
Subject: RE: [belajar-excel] Debug dan restart my workbook

karena penekanan tombol ( Start , Comm dan Generate bisa sembarangan ) dapat menimbulkan looping yg tak terbatas maka perlu meng- antisipasinya :

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

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

If Rng.Offset(1, 0) <> "" Then
Set Rng = ActiveSheet.Range(Rng, Rng.End(xlDown))
End If

' 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
&nb sp; 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
&nb sp; 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)
& nbsp; .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: 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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (27)

3.3.

Re: Debug dan restart my workbook

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

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

Coba sheet SPKL di file SPKI.xlsm diubah view-nya jadi mode normal (jangan
mode page break).
Sapa tahu ada efeknya. Hanya sapa tahu loh.

Kid.

2011/12/6 ppc lambda <ppc_03@sami.co.id>

> **
>
>
> 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 (27)

3.4.

Re: Debug dan restart my workbook

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

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

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

pak sudarsono
pada cmb_Generate terdapat code & nbsp; bila
di tuliskan di view code menjadi warna merah dan tidak bisa di
jalankan
jika code & nbsp; itu dihilangkan masih terjadi error yang
sama
berikut yang berwarna merah ketika di ketikkan di View Code (VBA
EXCEL)

&nb sp; On Error
Resume Next
&nb sp; End
If
& nbsp; .Cells(aw, 7) =
Right(txt_jam, 5)

para pakar excel yang lain mohon
bantuannya
Terimakasih
Best
Regard
<>.<>.<>.<>.<>.<>.
Sidoel

----- Original Message -----
From:
jkssxls
Sudarsono
To: Belajar-Excel Yahoo Groups

Sent: Tuesday, December 06, 2011 9:24
AM
Subject: RE: [belajar-excel] Debug dan
restart my workbook




karena penekanan tombol ( Start , Comm dan Generate bisa
sembarangan ) dapat menimbulkan looping yg tak terbatas maka
perlu meng- antisipasinya :

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
'karena copy paste memang kadang muncul karakter aneh2
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

If Rng.Offset(1, 0) <> "" Then
Set Rng = ActiveSheet.Range(Rng, Rng.End(xlDown))
End If

' 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
Next
End 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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (27)

3.5.

Re: Debug dan restart my workbook

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

Tue Dec 6, 2011 1:18 am (PST)

oh betul Mr Kid, error tidak terjadi lagi setelah saya coba sarannya Mr kid
intinya error terjadi karena code
ThisWorkbook.Sheets("SPKL").Copy after:=WAdd.Sheets("Sheet1")
nah yang ThisWorkbook.Sheets("SPKL") harus ber mode normal tidak boleh ber Mode Page Break

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

Coba sheet SPKL di file SPKI.xlsm diubah view-nya jadi mode normal (jangan mode page break).
Sapa tahu ada efeknya. Hanya sapa tahu loh.

Kid.

2011/12/6 ppc lambda <ppc_03@sami.co.id>

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 (27)

3.6.

Re: Debug dan restart my workbook

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

Tue Dec 6, 2011 2:28 am (PST)

Saya belum coba di button mulai :ternyata memang eror muncul jika View dalam keadaan PagePreview. untuk mengatasi hal tsb dapat mengubah koding smb_mulai_click Private Sub smb_mulai_Click()
If WAdd Is Nothing Then Exit Sub
SavView = ActiveWindow.View
If ActiveWindow.View = xlPageBreakPreview Then
ActiveWindow.View = xlNormalView
End If
Set WAdd = Workbooks.Add
ActiveWindow.View = SavView
WAdd.Sheets(1).Range("A1:H1") = Split("NIK,TANGGAL,DARI,SAMPAI,JUMLAH,AREA,ATASAN,PIC_SCAN", ",")
L = 1
End Sub

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

oh betul Mr Kid, error tidak terjadi lagi setelah
saya coba sarannya Mr kid
intinya error terjadi karena code
ThisWorkbook.Sheets("SPKL").Copy
after:=WAdd.Sheets("Sheet1")
nah yang ThisWorkbook.Sheets("SPKL") harus ber
mode normal tidak boleh ber Mode Page Break

Terimakasih baget Mr Kid
Best
Regard
<>.<>.<>.<>.<>.<>.
Sidoel

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

To: belajar-excel@yahoogroups.com

Sent: Tuesday, December 06, 2011 10:22
AM
Subject: Re: [belajar-excel] Debug dan
restart my workbook



Coba sheet SPKL di file SPKI.xlsm diubah view-nya jadi mode normal (jangan
mode page break).
Sapa tahu ada efeknya. Hanya sapa tahu
loh.

Kid.

2011/12/6 ppc lambda <ppc_03@sami.co.id>

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 (27)

4a.

Re: ListBox Multi Selection

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

Mon Dec 5, 2011 7:07 pm (PST)

ga masalah pak Onto Seno memang benar solusi dari Mr Kid sangant cerdas dan itu boleh dibilang sudah menyelesaikan masalah saya. Mungkin keinginan tahu saya tidak diimbangi dengan kemampuan makro saya (saya masih harus belajar lagi) sehingga menyulitkan saya. Sekali lagi terima kasih "BELAJAR EXCEL", Pak Onto Seno dan master Excel yang lain.... 

________________________________
From: o' Seno <ontoseno84@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, December 6, 2011 9:16 AM
Subject: Re: [belajar-excel] ListBox Multi Selection


 
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 (8)

5a.

Menghindari entry data yg sama dengan 3 kriteria

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

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

Dear Exceler,

Mas Kid dan mas Ghozi terima kasih atas solusi dynamic row nya, semua solusi sesuai dengan penyelesaian masalah saya.

Saya ada pertanyaan baru (data sama).
Bagaimana menghindari entry data yg sama dengan 3 kriteria?

File terlampir.

salam

__________________________________________________________
Share photos & screenshots in seconds...
TRY FREE IM TOOLPACK at 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 (2)

5b.

Re: Menghindari entry data yg sama dengan 3 kriteria

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

Mon Dec 5, 2011 7:57 pm (PST)

Hai Andre,

File terlampir menggunakan data validation -> custom
Fitur ini rentan terhadap fitur copy paste, meskipun copy paste values.
Untuk meng-handle efek dari copy paste values, bisa dibantu dengan fitur
Conditional Formatting, yang hanya bisa memberi informasi terjadinya
duplikasi entry melalui format cell.

Terkadang protect sheet pada kolom-kolom kosong yang di-locked diantara
kolom-kolom entry yang un-locked, bisa meminimalisir efek copy-paste walau
tidak seutuhnya.
Untuk mengatasi efek Copy Paste secara utuh, tampaknya harus dibantu oleh
VBA.

Wassalam,
Kid.

2011/12/6 andre pri <qlick@inbox.com>

> **
>
>
> Dear Exceler,
>
> Mas Kid dan mas Ghozi terima kasih atas solusi dynamic row nya, semua
> solusi sesuai dengan penyelesaian masalah saya.
>
> Saya ada pertanyaan baru (data sama).
> Bagaimana menghindari entry data yg sama dengan 3 kriteria?
>
> File terlampir.
>
> salam
>
> __________________________________________________________
> Share photos & screenshots in seconds...
> TRY FREE IM TOOLPACK at 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 (2)

6.

RE:Re: [belajar-excel] Menghindari entry data yg sama dengan 3 krite

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

Mon Dec 5, 2011 8:18 pm (PST)

Terima kasih mas Kid atas solusi kilatnya, problem solved

__________________________________________________________
Publish your photos in seconds for FREE
TRY IM TOOLPACK at http://www.imtoolpack.com/default.aspx?rc=if4

Back to top

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

7a.

Prosentase Kehadiran

Posted by: "Rachmad HIDAYAT" rachmad.hidayat@external.total.com

Tue Dec 6, 2011 1:06 am (PST)

Assalamu'alaikum wr.wb

Saya punya case seperti tabel di atas(attachment)

casenya seperti ini :

Dalam satu wilayah "ABC" ada beberapa Group (dalam kasus hanya 3 group). Setiap minggunya mengadakan meeting 1 kali dalam 1 minggu

jika anggotanya hadir di tulis "H", Tidak hadir ijin di tulis "I", tidak hadir tanpa keterangan "X"

pertanyaannya :

Bagaimana saya dapat memprosentasekan kehadiran per personal/bulan, per group/bulan dan perwilayah/bulannya

ohya ,kalo menurut para pakar, tabel saya ini sudah memenuhi kriteria database tidak ya ?

Terima kasih atas bantuannya teman-teman

Wassalamu'alaikum.wr.wb.

R@h<mailto:R@h>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

7b.

Re: Prosentase Kehadiran

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

Tue Dec 6, 2011 3:16 am (PST)

Wa alaikumussalam Wr. Wb.

Pak Rachmad,

File terlampir adalah salah satu contoh solusi.
Contoh penyusunan data yang lebih memudahkan proses juga disertakan, meski
belum berkaidah database.

Wassalamualaikum Wr. Wb.
Kid.

2011/12/6 Rachmad HIDAYAT <rachmad.hidayat@external.total.com>

> Assalamu'alaikum wr.wb****
>
> Saya punya case seperti tabel di atas(attachment)****
>
> casenya seperti ini :****
>
> Dalam satu wilayah "ABC" ada beberapa Group (dalam kasus hanya 3 group).
> Setiap minggunya mengadakan meeting 1 kali dalam 1 minggu****
>
> jika anggotanya hadir di tulis "H", Tidak hadir ijin di tulis "I", tidak
> hadir tanpa keterangan "X"****
>
> pertanyaannya :****
>
> Bagaimana saya dapat memprosentasekan kehadiran per personal/bulan, per
> group/bulan dan perwilayah/bulannya****
>
> ohya ,kalo menurut para pakar, tabel saya ini sudah memenuhi kriteria
> database tidak ya ?****
>
> Terima kasih atas bantuannya teman-teman****
>
> ** **
>
> Wassalamu'alaikum.wr.wb.****
>
> *R@h*
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

8.

bagaimana nglink dr vb ke word?

Posted by: "Harumi Wanasita" hwanasita@yahoo.com   hwanasita

Tue Dec 6, 2011 1:17 am (PST)

dear exceler,
sy punya program seperti ini (terlampir) untuk surat2.

maksudnya jika ada kegiatan yang berkaitan dengan uang misalkan pekerjaan pemborongan dengan jumlah Rp 200.000.000 ,
maka ketika diisi tanggal keterangan dan jumlah pada frame anggaran user form1 dan saya klik command button pekerjaan pemborongan langsung ngisi
pada file excel sy yang anggaran.dan langsung ngelink ke user form 3 frame proses pemborongan untuk dibuatkan kontraknya.
dan bagaimana code pada user form3 kalau sy mengklik penyampaian nama kemudian langsung ngelink ke word.

begitu juga kalo restitusi dan sup.
terima kasih atas bantuannya

Back to top

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

9a.

Merubah data dari colom ke row dengan tambahan kategori

Posted by: "Dwi Hadwan Ridho" pos.syariah@bni-life.co.id

Tue Dec 6, 2011 1:18 am (PST)

Assalamu'alaikum warahmatullahi wabarakatuh,

Dear All,

Mohon bantuannya untuk formula taua rumus mengenai data terlampir ya.

Sebelumnya terima kasih banyak.

Wassalamu'alaikum warahmatullahi wabarakatuh.

Best Regards,

Dwi Hadwan Ridho

Back to top

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

9b.

Re: Merubah data dari colom ke row dengan tambahan kategori

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

Tue Dec 6, 2011 2:36 am (PST)

Waalaikumussalam Wr. Wb.

Pak Ridho,

File terlampir membutuhkan data NOPES yang terurut selalu, agar 2 kolom
bantu bisa menyusun nomor urut NOPES dan nomor item yang baik.

Untuk penyusunan hasil, ada 2 formula, yaitu :
A. formula penyusun NOPES (bukan array formula)
=INDEX($A$2:$A$137,MATCH(CEILING((ROW()-ROW($J$7))/2,1),$E$2:$E$137,0))
kemudian copy ke baris berikutnya. Asumsi, setiap NOPES akan ditulis 2 kali.

B. array formula penyusun blok data NAPES,JK,LAHIR (1 baris x 3 kolom)
secara langsung per blok
Cara buat :
1. Blok range seluas 1 baris x 3 kolom
2. Tulis formula berikut

=IF($J8=$J7,IF(COUNTIF($K$7:K$7,K$7)>1,K7:M7,""),IF(COUNTIF($F$2:$F$137,CEILING((ROW()-ROW($J$7))/2,1)*100+COUNTIF($K$7:K$7,$K$7)),INDEX($B$2:$D$137,MATCH(CEILING((ROW()-ROW($J$7))/2,1)*100+COUNTIF($K$7:K$7,$K$7),$F$2:$F$137,0),0),""))

3. Tekan Ctrl Shift Enter secara bersamaan, yang akan membuat formula
menjadi array formula (dillingkupi kurung kurawal)
4. Copy ke blok lain (NAPES,JK,LAHIR) di kanan dan bawahnya sesuai
kebutuhan.

Wassalamualaikum Wr. Wb.
Kid.

2011/12/6 Dwi Hadwan Ridho <pos.syariah@bni-life.co.id>

> **
>
>
> Assalamu'alaikum warahmatullahi wabarakatuh,****
>
> ** **
>
> Dear All,****
>
> ** **
>
> Mohon bantuannya untuk formula taua rumus mengenai data terlampir ya.****
>
> ** **
>
> Sebelumnya terima kasih banyak.****
>
> ** **
>
> ** **
>
> Wassalamu'alaikum warahmatullahi wabarakatuh.****
>
> ** **
>
> Best Regards,****
>
> *Dwi Hadwan Ridho*
>
>
>

Back to top

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

9c.

Re: Merubah data dari colom ke row dengan tambahan kategori

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Tue Dec 6, 2011 4:01 am (PST)

Kalau mau pakai "*Ceklik-an*"
pak hadwan tinggal pencet "tanda panah"nya saja
Data di kiri akan di copy kekanan sambil MENG-UBAH (bukan me-RUBAH) dirinya
dengan bentuk seperti yg dikehendaki pak hadwan

Rumusnya terpaksa jadi agak panjang seperti ini, ditulis di VBE module
(bukan di sheet)

Sub MengAbnormalkanTabel()
'--indriHapsari / dec 06, 2011
* '--*BeExcel Case # *14471*
Dim Normal As Range, Abnormal As Range, UniqNopes
Dim n As Long, i As Long, r As Long, c As Integer

Set Normal = Cells(1).CurrentRegion
Set Abnormal = Cells(1, 10).CurrentRegion
Abnormal.Offset(1, 0).ClearContents
Set Abnormal = Abnormal.Offset(1, 1)
UniqNopes = LOUV(Normal.Offset(1, 0). _
Resize(Normal.Rows.Count - 1, 1))

r = 1
For i = 1 To UBound(UniqNopes)
Abnormal(r + 0, 0) = UniqNopes(i)
Abnormal(r + 1, 0) = UniqNopes(i)
c = -2
For n = 2 To Normal.Rows.Count
If Normal(n, 1) = UniqNopes(i) Then
c = c + 3
Abnormal(r, c + 0) = Normal(n, 2)
Abnormal(r, c + 1) = Normal(n, 3)
Abnormal(r, c + 2) = Normal(n, 4)
If c > 1 Then
Abnormal(r + 1, c + 0) = Normal(n, 2)
Abnormal(r + 1, c + 1) = Normal(n, 3)
Abnormal(r + 1, c + 2) = Normal(n, 4)
End If
End If
Next n
r = r + 2
Next i
End Sub

2011/12/6 Dwi Hadwan Ridho <pos.syariah@bni-life.co.id>

> **
>
> Assalamu'alaikum warahmatullahi wabarakatuh,****
>
> Dear All,
>
> Mohon bantuannya untuk formula taua rumus mengenai data terlampir ya.
>
> Sebelumnya terima kasih banyak.
>
> Wassalamu'alaikum warahmatullahi wabarakatuh.
>
> Best Regards,
>
> *Dwi Hadwan Ridho*
>
>
>

Back to top

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

10a.

Menghilangkan data yang duplicate

Posted by: "Muhammad Assegaf" seggaf@sbtcgroup.com   man_jufri

Tue Dec 6, 2011 2:50 am (PST)

Halooooooo friends,....

Butuh bantuan lagi nih,...

Bagaimana cara kita untuk menghilangkan data duplicate dalam satu kolom ?

Makasih yah sebelumnya :D

Best regards,

Muhammad Asseggaf

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

10b.

Re: Menghilangkan data yang duplicate

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

Tue Dec 6, 2011 3:28 am (PST)

Halo Pak Assegaf,

Ada 3 solusi dari sekian banyak solusi pada file terlampir, yaitu :
1. Formula IF
2. Fitur Remove Duplicate
3. Pivot Table.

Wassalamualaikum Wr. Wb.
Kid.

2011/12/6 Muhammad Assegaf <seggaf@sbtcgroup.com>

> **
>
>
> **
> Halooooooo friends,....
>
> Butuh bantuan lagi nih,...
>
> Bagaimana cara kita untuk menghilangkan data duplicate dalam satu kolom ?
>
> Makasih yah sebelumnya :D
>
> Best regards,
>
> Muhammad Asseggaf
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

10c.

Re: Menghilangkan data yang duplicate

Posted by: "Muhammad Assegaf" seggaf@sbtcgroup.com   man_jufri

Tue Dec 6, 2011 3:30 am (PST)

Makasiiiiiiiiiiiiiiiih Mr. Kid,..

:D

----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Tuesday, December 06, 2011 2:28 PM
Subject: Re: [belajar-excel] Menghilangkan data yang duplicate

Halo Pak Assegaf,

Ada 3 solusi dari sekian banyak solusi pada file terlampir, yaitu :
1. Formula IF
2. Fitur Remove Duplicate
3. Pivot Table.

Wassalamualaikum Wr. Wb.
Kid.

2011/12/6 Muhammad Assegaf <seggaf@sbtcgroup.com>



Halooooooo friends,....

Butuh bantuan lagi nih,...

Bagaimana cara kita untuk menghilangkan data duplicate dalam satu kolom ?

Makasih yah sebelumnya :D

Best regards,

Muhammad Asseggaf

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

10d.

Bls: [belajar-excel] Menghilangkan data yang duplicate

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

Tue Dec 6, 2011 3:36 am (PST)

=IF(COUNTIF(A$4:A4;A4)>1;"";A4)
copy  ke kanan dan ke bawah

wassalam

Ghozi Alkatiri

________________________________
Dari: Muhammad Assegaf <seggaf@sbtcgroup.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 6 Desember 2011 17:49
Judul: [belajar-excel] Menghilangkan data yang duplicate


 

Halooooooo friends,....

Butuh bantuan lagi
nih,...

Bagaimana cara kita untuk menghilangkan data duplicate dalam satu
kolom ?

Makasih yah sebelumnya :D

Best regards,

Muhammad
Asseggaf

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

11a.

Ingin membuat legger nilai

Posted by: "wawan tawon" tawon_cbr@yahoo.co.id   tawon_cbr

Tue Dec 6, 2011 3:29 am (PST)

Malam semua.....
Apakah bisa membuat legger nilai siswa utk tiap semesternya dengan menggunakan fungsi vlookup??

Berikut ini saya lampirkan contoh file excelnya....

terima kasih...

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

11b.

Re: Ingin membuat legger nilai

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

Tue Dec 6, 2011 4:10 am (PST)

Malam Pak Wawan,

>> Apakah bisa membuat legger nilai siswa utk tiap semesternya dengan
menggunakan fungsi vlookup??
Insya Allah bisa Pak.
Pertanyaannya adalah, seberapa mudah ?
oh mungkin salah juga pertanyaan tersebut, karena relatif mudah dipelajari
untuk bisa mengembangkan sendiri sesuai kebutuhan.

Mungkin pertanyaan yang lebih mengena, apakah bisa cepat dan mudah ?
Terutama ketika ada banyak siswa.

File terlampir mencoba dengan 3 cara dari seabreg cara yang mungkin, yaitu :
1. Formula VLookUp sebagai array formula dalam sebuah blok array.
2. Formula VLookUp yang sering digunakan apa adanya.
3. Penyusunan data per semester yang lebih sederhana (walau belum sebagai
tabel normal secara utuh), kemudian memanfaatkan fitur Pivot Table untuk
membuat Summary Report.

Wassalamualaikum Wr. Wb.
Kid.

2011/12/6 wawan tawon <tawon_cbr@yahoo.co.id>

> **
>
>
> Malam semua.....
> Apakah bisa membuat legger nilai siswa utk tiap semesternya dengan
> menggunakan fungsi vlookup??
>
> Berikut ini saya lampirkan contoh file excelnya....
>
> terima kasih...
>
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

Recent Activity

•  21
  New Members

Visit Your Group

Y! Groups blog

the best source

for the latest

scoop on Groups.

Yahoo! Groups

Mental Health Zone

Bi-polar disorder

Find support

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

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

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

MARKETPLACE

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

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