Dear Guru dan teman BeExcel.

Saya mau copy data ke sheet lain, dengan makro di bawah ini, tetapi tidak berhasil.

Data di sheet table adalah hasil lookup dari sheet data mentah.
Saya mau jadikan semua data ini sebagai database dengan copy paste special ke sheet database, supaya tidak bergantung kepada formula, karena data mentah akan dihapus dan diganti dengan yg baru.

Mohon pencerahan., apa yg kurang dalam makro ini.

Emi Lestari

Sub CopyToDatabase()
Dim SourceRange As Range, DestRange As Range
Dim DestSheet As Worksheet, Lr As Long

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

'fill in the Source Sheet and range
Set SourceRange = Sheets("Sheet13").Range("B4:I4")

'Fill in the destination sheet and call the LastRow
'function to find the last row
Set DestSheet = Sheets("Sheet19")
Lr =LastRow(DestSheet) 'Problemnya di sini

'With the information from the LastRow function we can create a
'destination cell
Set DestRange = DestSheet.Range("B" & Lr + 1)

'We make DestRange the same size as SourceRange and use the Value
'property to give DestRange the same values
With SourceRange
Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
End With
DestRange.Value = SourceRange.Value

With Application
.ScreenUpdating = True
.EnableEvents = True
End With

End Sub

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

1b

Re: Copy Paste Special ke worksheet lain

Wed Oct 31, 2012 9:31 pm (PDT) . Posted by:

"aji mumpung"

yang ini:
Dim DestSheet As Worksheet
diganti menjadi:
Dim DestSheet As Range

yang ini:
Set SourceRange = Sheets("Sheet13").Range("B4:I4")
diganti menjadi:
Set SourceRange = Sheet13.Range("B4:I4")

yang ini:
Set DestSheet = Sheets("Sheet19")
diganti menjadi:
Set DestSheet = Sheet19.range("b3")

yang ini:
Lr = LastRow(DestSheet) 'Problemnya di sini
diganti menjadi:
If DestSheet.Offset(1, 0) = "" Then
Lr = DestSheet.Row
Else
Lr = DestSheet.End(xlDown).Row
End If

wassalam,

-aji mumpung-

2012/11/1 Emi <emilestariklcc@yahoo.com>

> **
>
>
> Dear Guru dan teman BeExcel.
>
> Saya mau copy data ke sheet lain, dengan makro di bawah ini, tetapi tidak
> berhasil.
>
> Data di sheet table adalah hasil lookup dari sheet data mentah.
> Saya mau jadikan semua data ini sebagai database dengan copy paste special
> ke sheet database, supaya tidak bergantung kepada formula, karena data
> mentah akan dihapus dan diganti dengan yg baru.
>
> Mohon pencerahan., apa yg kurang dalam makro ini.
>
>
> Emi Lestari
>
>
>
>
> Sub CopyToDatabase()
> Dim SourceRange As Range, DestRange As Range
> Dim DestSheet As Worksheet, Lr As Long
>
> With Application
> .ScreenUpdating = False
> .EnableEvents = False
> End With
>
> 'fill in the Source Sheet and range
> Set SourceRange = Sheets("Sheet13").Range("B4:I4")
>
> 'Fill in the destination sheet and call the LastRow
> 'function to find the last row
> Set DestSheet = Sheets("Sheet19")
> Lr = LastRow(DestSheet) 'Problemnya di sini
>
> 'With the information from the LastRow function we can create a
> 'destination cell
> Set DestRange = DestSheet.Range("B" & Lr + 1)
>
> 'We make DestRange the same size as SourceRange and use the Value
> 'property to give DestRange the same values
> With SourceRange
> Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
> End With
> DestRange.Value = SourceRange.Value
>
> With Application
> .ScreenUpdating = True
> .EnableEvents = True
> End With
>
> End Sub
>
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

1c

Re: Copy Paste Special ke worksheet lain

Wed Oct 31, 2012 11:56 pm (PDT) . Posted by:

"Mansor" nbmy1980

Saya coba makro ini, tapi hasilnya ikut ter copy cell kosong yang ada
formula.
Mohon dari teman2 yang tahu, di saat saya menselect area yg mau dicopy,
hanya yang ada value sahaja.

Sub CopyRange()
Dim SourceWS As Worksheet, DestWS As Worksheet
Dim SourceRng As Range, DestCell As Range
Dim IRows As Long

IRows = WorksheetFunction.CountA(ActiveSheet.Range("B1").EntireColumn)
Set SourceWS = Sheets("Table")
Set DestWS = Sheets("Database")

Application.ScreenUpdating = 0

Set SourceRng = SourceWS.Range("B4:I" & IRows)
Set DestCell = DestWS.Range("B" & Rows.Count).End(xlUp).Offset(1)
SourceRng.Copy
DestCell.Offset.PasteSpecial xlPasteValues
With Application

.CutCopyMode = 0
.ScreenUpdating = 1
End With

End Sub

DAFTAR ERROR WILAYAH XXX NO KODE CABANG TANGGAL TRANSAKSI AMAUN
PRUDUK JENIS ERROR ID OPERATOR 10741045 YYYYY 6-Oct-12 GGGR
336.00 KKKKD HUMAN IZZUDIN 10741045 YYYYY 6-Oct-12 CER
639.55 PRODUK SENDIRI TEKNIKAL IZZUDIN, NORHELMI, FIRDAUS 10741045 YYYYY
6-Oct-12 FRR 2,549.60 PRODUK SENDIRI HUMAN IZZUDIN,
NORHELMI, FIRDAUS 10741045 YYYYY 6-Oct-12 4RR 432.40
PRODUK SENDIRI TEKNIKAL IZZUDIN, FIRDAUS 10741045 YYYYY 6-Oct-12 WPM
81.10 PRODUK SENDIRI HUMAN NORHELMI, FIRDAUS 10741045 YYYYY 6-Oct-12 P1
COMM 40.00 PRODUK SENDIRI HUMAN NORHELMI
10741045 YYYYY 6-Oct-12 SER 56.80 PRODUK SENDIRI
HUMAN FIRDAUS 10741018 XCCF 9-Oct-12 IND
253.90 PRODUK
SENDIRI TEKNIKAL NURHALIZAH #N/A #N/A #N/A #N/A
- #N/A #N/A #N/A #N/A #N/A #N/A #N/A -
#N/A #N/A #N/A #N/A #N/A #N/A #N/A -
#N/A #N/A #N/A #N/A #N/A #N/A #N/A -
#N/A #N/A #N/A #N/A #N/A #N/A #N/A -
#N/A #N/A #N/A #N/A #N/A #N/A #N/A -
#N/A #N/A #N/A #N/A #N/A #N/A #N/A -
#N/A #N/A #N/A

On Thu, Nov 1, 2012 at 12:31 PM, aji mumpung <pupung1986@gmail.com> wrote:

> **
>
>
> yang ini:
> Dim DestSheet As Worksheet
> diganti menjadi:
> Dim DestSheet As Range
>
> yang ini:
> Set SourceRange = Sheets("Sheet13").Range("B4:I4")
> diganti menjadi:
> Set SourceRange = Sheet13.Range("B4:I4")
>
> yang ini:
> Set DestSheet = Sheets("Sheet19")
> diganti menjadi:
> Set DestSheet = Sheet19.range("b3")
>
> yang ini:
> Lr = LastRow(DestSheet) 'Problemnya di sini
> diganti menjadi:
> If DestSheet.Offset(1, 0) = "" Then
> Lr = DestSheet.Row
> Else
> Lr = DestSheet.End(xlDown).Row
> End If
>
> wassalam,
>
> -aji mumpung-
>
>
> 2012/11/1 Emi <emilestariklcc@yahoo.com>
>
>> **
>>
>>
>> Dear Guru dan teman BeExcel.
>>
>> Saya mau copy data ke sheet lain, dengan makro di bawah ini, tetapi tidak
>> berhasil.
>>
>> Data di sheet table adalah hasil lookup dari sheet data mentah.
>> Saya mau jadikan semua data ini sebagai database dengan copy paste
>> special ke sheet database, supaya tidak bergantung kepada formula, karena
>> data mentah akan dihapus dan diganti dengan yg baru.
>>
>> Mohon pencerahan., apa yg kurang dalam makro ini.
>>
>>
>> Emi Lestari
>>
>>
>>
>>
>> Sub CopyToDatabase()
>> Dim SourceRange As Range, DestRange As Range
>> Dim DestSheet As Worksheet, Lr As Long
>>
>> With Application
>> .ScreenUpdating = False
>> .EnableEvents = False
>> End With
>>
>> 'fill in the Source Sheet and range
>> Set SourceRange = Sheets("Sheet13").Range("B4:I4")
>>
>> 'Fill in the destination sheet and call the LastRow
>> 'function to find the last row
>> Set DestSheet = Sheets("Sheet19")
>> Lr = LastRow(DestSheet) 'Problemnya di sini
>>
>> 'With the information from the LastRow function we can create a
>> 'destination cell
>> Set DestRange = DestSheet.Range("B" & Lr + 1)
>>
>> 'We make DestRange the same size as SourceRange and use the Value
>> 'property to give DestRange the same values
>> With SourceRange
>> Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
>> End With
>> DestRange.Value = SourceRange.Value
>>
>> With Application
>> .ScreenUpdating = True
>> .EnableEvents = True
>> End With
>>
>> End Sub
>>
>>
>>
>>
>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

1d

Validasi input agar bersifat unik

Thu Nov 1, 2012 3:15 am (PDT) . Posted by:

"arif satria" satria.arif

para master excel,gimana cara setting diexcel agar tidak ada tulisan yg dobel(begitu kita ketik lgsung muncul peringatan sudah pernah/sudah ada)
thx

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

1e

Re: Copy Paste Special ke worksheet lain

Thu Nov 1, 2012 5:33 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Kalau mau coba, ganti semua isinya dengan :
Dim rngDB As Range 'range di db
Dim lRecIn As Long 'jumlah record input (yang akan di simpan
ke db)

'jumlah cell (jumlah cacah) berisi data bertipe numerik yang ada di
kolom D sheet13 (bernama Table)
lRecIn =
Application.WorksheetFunction.Count(Sheet13.Range("d1").EntireColumn)

'cek ada gak data inputnya
If lRecIn > 0 Then 'ada
datanya yang mau di simpan
'set anchor cell di sheet19 (bernama database) cell B1
Set rngDB = Sheet19.Range("b1")

'dari anchor, pindah ke baris kosong pertama yang ditemui,
'yaitu lompat (offset) sebanyak jumlah baris dari area
'yang bersinggungan dengan anchor (current region dari b1)
Set rngDB = rngDB.Offset(rngDB.CurrentRegion.Rows.Count)

Sheet13.Range("b4:i4").Resize(lRecIn).Copy 'copy
rngDB.PasteSpecial xlPasteValues 'paste
special values
End If 'akhir
blok if

Ada apa dengan script asli yang bermasalah atau yang berpotensi bermasalah ?
1. Set SourceRange = Sheets("Sheet13").Range("B4:I4")
>> nama sheet dalam worksheet *harus* bernama Sheet13
>> range yang di-set hanya 1 baris, yaitu baris 4 Excel mulai kolom B
sampai I

2. Set DestSheet = Sheets("Sheet19")
>> nama sheet dalam worksheet *harus* bernama Sheet19

3. Lr = LastRow(DestSheet)
>> *harus *punya prosedur function bernama LastRow dan menghasilkan (nilai
balik fungsi) adalah nilai bertipe numerik long

4. With SourceRange
Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
End With
>> cell di sheet tujuan (lokasi paste) akan seluas cell yang akan di copy
(merah). Dan ini baru di set 1 baris yaitu B4:I4

5. DestRange.Value = SourceRange.Value
>> untuk data bertipe text tapi berisi angka yang bisa jadi lebih dari 15
digit, seperti ID sesuatu, Excel akan mengkonversi tipe data dari data text
di sisi Source menjadi bertipe numerik di sisi Dest

Wassalam,
Kid.

On Thu, Nov 1, 2012 at 6:01 AM, Emi <emilestariklcc@yahoo.com> wrote:

> **
>
>
> Dear Guru dan teman BeExcel.
>
> Saya mau copy data ke sheet lain, dengan makro di bawah ini, tetapi tidak
> berhasil.
>
> Data di sheet table adalah hasil lookup dari sheet data mentah.
> Saya mau jadikan semua data ini sebagai database dengan copy paste special
> ke sheet database, supaya tidak bergantung kepada formula, karena data
> mentah akan dihapus dan diganti dengan yg baru.
>
> Mohon pencerahan., apa yg kurang dalam makro ini.
>
>
> Emi Lestari
>
>
>
>
> Sub CopyToDatabase()
> Dim SourceRange As Range, DestRange As Range
> Dim DestSheet As Worksheet, Lr As Long
>
> With Application
> .ScreenUpdating = False
> .EnableEvents = False
> End With
>
> 'fill in the Source Sheet and range
> Set SourceRange = Sheets("Sheet13").Range("B4:I4")
>
> 'Fill in the destination sheet and call the LastRow
> 'function to find the last row
> Set DestSheet = Sheets("Sheet19")
> Lr = LastRow(DestSheet) 'Problemnya di sini
>
> 'With the information from the LastRow function we can create a
> 'destination cell
> Set DestRange = DestSheet.Range("B" & Lr + 1)
>
> 'We make DestRange the same size as SourceRange and use the Value
> 'property to give DestRange the same values
> With SourceRange
> Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
> End With
> DestRange.Value = SourceRange.Value
>
> With Application
> .ScreenUpdating = True
> .EnableEvents = True
> End With
>
> End Sub
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

1f

Re: Copy Paste Special ke worksheet lain

Thu Nov 1, 2012 5:40 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Bagian :
IRows = WorksheetFunction.CountA(ActiveSheet.Range("B1").EntireColumn)

1. Sebaiknya menggunakan fungsi Count, karena setiap cell yang berisi
formula akan dianggap ada isinya dan dihitung oleh CountA
2. Karena pakai Count (sesuai ide nomor 1), maka harus diterapkan ke kolom
yang hasilnya adalah data bertipe numerik
3. Ketika syarat nomor 2 tidak bisa terpenuhi karena seluruh data bertipe
teks atau tidak ada kolom yang padat terisi (seluruh barisnya pasti punya
nilai),
maka ubah formula dalam worksheet agar menghasilkan error value pada area
baris yang masih kosong (sebenarnya tidak terpakai).

Untuk kasus ini, bisa jadi Count terhadap kolom B

Wassalam,
Kid.

On Thu, Nov 1, 2012 at 1:16 PM, Mansor <dbpermatasari@gmail.com> wrote:

> **
>
>
> Saya coba makro ini, tapi hasilnya ikut ter copy cell kosong yang ada
> formula.
> Mohon dari teman2 yang tahu, di saat saya menselect area yg mau dicopy,
> hanya yang ada value sahaja.
>
> Sub CopyRange()
> Dim SourceWS As Worksheet, DestWS As Worksheet
> Dim SourceRng As Range, DestCell As Range
> Dim IRows As Long
>
> IRows = WorksheetFunction.CountA(ActiveSheet.Range("B1").EntireColumn)
> Set SourceWS = Sheets("Table")
> Set DestWS = Sheets("Database")
>
> Application.ScreenUpdating = 0
>
> Set SourceRng = SourceWS.Range("B4:I" & IRows)
> Set DestCell = DestWS.Range("B" & Rows.Count).End(xlUp).Offset(1)
> SourceRng.Copy
> DestCell.Offset.PasteSpecial xlPasteValues
> With Application
>
> .CutCopyMode = 0
> .ScreenUpdating = 1
> End With
>
> End Sub
>
> DAFTAR ERROR WILAYAH XXX NO KODE CABANG TANGGAL TRANSAKSI AMAUN
> PRUDUK JENIS ERROR ID OPERATOR 10741045 YYYYY 6-Oct-12 GGGR
> 336.00 KKKKD HUMAN IZZUDIN 10741045 YYYYY 6-Oct-12 CER
> 639.55 PRODUK SENDIRI TEKNIKAL IZZUDIN, NORHELMI, FIRDAUS 10741045
> YYYYY 6-Oct-12 FRR 2,549.60 PRODUK SENDIRI HUMAN IZZUDIN,
> NORHELMI, FIRDAUS 10741045 YYYYY 6-Oct-12 4RR 432.40
> PRODUK SENDIRI TEKNIKAL IZZUDIN, FIRDAUS 10741045 YYYYY 6-Oct-12 WPM
> 81.10 PRODUK SENDIRI HUMAN NORHELMI, FIRDAUS 10741045 YYYYY 6-Oct-12 P1
> COMM 40.00 PRODUK SENDIRI HUMAN NORHELMI
> 10741045 YYYYY 6-Oct-12 SER 56.80 PRODUK
> SENDIRI HUMAN FIRDAUS 10741018 XCCF 9-Oct-12 IND
> 253.90 PRODUK SENDIRI TEKNIKAL NURHALIZAH #N/A #N/A #N/A #N/A
> - #N/A #N/A #N/A #N/A #N/A #N/A #N/A
> - #N/A #N/A #N/A #N/A #N/A #N/A #N/A
> - #N/A #N/A #N/A #N/A #N/A #N/A #N/A
> - #N/A #N/A #N/A #N/A #N/A #N/A #N/A
> - #N/A #N/A #N/A #N/A #N/A #N/A #N/A
> - #N/A #N/A #N/A #N/A #N/A #N/A #N/A
> - #N/A #N/A #N/A
>
>
>
>
>
>
> On Thu, Nov 1, 2012 at 12:31 PM, aji mumpung <pupung1986@gmail.com> wrote:
>
>> **
>>
>>
>> yang ini:
>> Dim DestSheet As Worksheet
>> diganti menjadi:
>> Dim DestSheet As Range
>>
>> yang ini:
>> Set SourceRange = Sheets("Sheet13").Range("B4:I4")
>> diganti menjadi:
>> Set SourceRange = Sheet13.Range("B4:I4")
>>
>> yang ini:
>> Set DestSheet = Sheets("Sheet19")
>> diganti menjadi:
>> Set DestSheet = Sheet19.range("b3")
>>
>> yang ini:
>> Lr = LastRow(DestSheet) 'Problemnya di sini
>> diganti menjadi:
>> If DestSheet.Offset(1, 0) = "" Then
>> Lr = DestSheet.Row
>> Else
>> Lr = DestSheet.End(xlDown).Row
>> End If
>>
>> wassalam,
>>
>> -aji mumpung-
>>
>>
>> 2012/11/1 Emi <emilestariklcc@yahoo.com>
>>
>>> **
>>>
>>>
>>> Dear Guru dan teman BeExcel.
>>>
>>> Saya mau copy data ke sheet lain, dengan makro di bawah ini, tetapi
>>> tidak berhasil.
>>>
>>> Data di sheet table adalah hasil lookup dari sheet data mentah.
>>> Saya mau jadikan semua data ini sebagai database dengan copy paste
>>> special ke sheet database, supaya tidak bergantung kepada formula, karena
>>> data mentah akan dihapus dan diganti dengan yg baru.
>>>
>>> Mohon pencerahan., apa yg kurang dalam makro ini.
>>>
>>>
>>> Emi Lestari
>>>
>>>
>>>
>>>
>>> Sub CopyToDatabase()
>>> Dim SourceRange As Range, DestRange As Range
>>> Dim DestSheet As Worksheet, Lr As Long
>>>
>>> With Application
>>> .ScreenUpdating = False
>>> .EnableEvents = False
>>> End With
>>>
>>> 'fill in the Source Sheet and range
>>> Set SourceRange = Sheets("Sheet13").Range("B4:I4")
>>>
>>> 'Fill in the destination sheet and call the LastRow
>>> 'function to find the last row
>>> Set DestSheet = Sheets("Sheet19")
>>> Lr = LastRow(DestSheet) 'Problemnya di sini
>>>
>>> 'With the information from the LastRow function we can create a
>>> 'destination cell
>>> Set DestRange = DestSheet.Range("B" & Lr + 1)
>>>
>>> 'We make DestRange the same size as SourceRange and use the Value
>>> 'property to give DestRange the same values
>>> With SourceRange
>>> Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
>>> End With
>>> DestRange.Value = SourceRange.Value
>>>
>>> With Application
>>> .ScreenUpdating = True
>>> .EnableEvents = True
>>> End With
>>>
>>> End Sub
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

1g

Re: Validasi input agar bersifat unik

Thu Nov 1, 2012 5:58 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Fitur data validation dengan opsi Custom dan diisi formula CountIF bisa
digunakan untuk membatasi entry data agar terjaga unique.
Batasannya : berlaku untuk proses entry data. Proses copas value tidak
dapat ditangkap melalui cara ini.

Cara dengan VBA (Macro) melalui event change dari worksheet bisa lebih baik
dari penggunaan Data Validation

Wassalam,
Kid.

2012/11/1 arif satria <arif_satria07@yahoo.com>

> **
>
>
> para master excel,gimana cara setting diexcel agar tidak ada tulisan yg
> dobel(begitu kita ketik lgsung muncul peringatan sudah pernah/sudah ada)
> thx
>
> __
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

2a

Re: cara membuat tabel koma-koma

Wed Oct 31, 2012 11:54 pm (PDT) . Posted by:

"Gilang Sedar" gilangsedar9662

Dear Thomas,

Mohon maaf meski terlambat,

Saya menyumbang jawaban ya

Mungkin agak aneh dan panjang karena saya suka dengan VLOOKUP.

Semoga berkenan

-GIE-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of thomas
Sent: Wednesday, October 31, 2012 13:37 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] cara membuat tabel koma-koma

Dear exceler..

Saya punya masalah cara membuat table (hasil) dimana dalam 1 kolom nilainya
ada koma2nya. Soalnya kalau manual harus di cut satu per satu. Contoh file
saya lampirkan. Terima kasih

Terima kasih

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

3.1 File - Peraturan Milis belajar-excel

Thu Nov 1, 2012 1:55 am (PDT) . Posted by:

"belajar-excel@yahoogroups.com"

"PERATURAN MILIS belajar-excel"
-------------------------------

Milis belajar-excel dibuat agar menjadi komunitas / tempat berkumpulnya
para pemakai software microsoft excel, untuk saling berbagi pengetahuan
(sharing), diskusi dan tanya-jawab hal-hal yg menyangkut MS Excel.

Setting untuk posting di milis ini masih dipertahankan = "UnModerated"
(member dapat mengirim posting, tanpa melalui moderasi dan langsung
masuk ke message-list di milis).
Posting pertama & kedua dari member yg baru bergabung harus menunggu
approval dari moderators. Jika dinilai wajar, posting selanjutnya tidak
perlu approval lagi.

Hal ini adalah demi menjadikan milis lebih dinamis, posting tidak
tertunda, diskusi lebih hidup.

Tetapi konsekwensinya, kita sebagai members harus punya niat untuk
menjaga milis ini tetap bersih, enak diikuti, yaitu dengan TIDAK
mengirim posting berisi hal yg mubazir, yg di luar topik, yg "nyampah";
apalagi yg memicu timbulnya pertengkaran yg tidak perlu.

Setiap saat para Moderators akan melihat-lihat lagi msg list, dan akan
membersihkan message list dari posting sampah yg tidak perlu.

Untuk itu kita perlu kesepakatan sebagai berikut:

SANGAT DIHARAPKAN:
==================

(1)
Posting dari member berupa: share pengetahuan, pertanyaan, jawaban dan/
atau komentar dan tanggapan yg masih relevan dengan pertanyaan/posting;
semuanya harus sekitar atau ada hubungannya dengan Microsoft Excel.

(2)
Size Lampiran dlm rangka memperjelas kasus/penjelasan, agar diupayakan
tidak lebih dari 250KB, jika perlu dicompressed dulu.

(3)
Posting pertanyaan dialamatkan hanya kepada alamat milis, (jangan ke
alamat owner)

(4)
Semua mail dikemukakan secara santun, ceria, menyenangkan, boleh lucu,
saling menghormati, menjauhkan dari masalah SARA.

SANGAT TIDAK DIHARAPKAN:
========================

(1)
Mail yg isinya melecehkan, menghina fihak lain, berbahasa kasar, memicu
pertengkaran dsb.

(2)
Posting "too good to be true" misalnya "jualan" (MLM), spam, money game,
hoax, mail berantai dan iklan (tanpa lebihdulu mendapat ijin dari owner).

(3)
Cross-posting (mengirim 1 mail sekaligus kepada lebih dari satu milis /
address tujuan).

(4)
Mail yg ditulis dengan ukuran, bentuk/warna font dan cara yg di luar
kewajaran, sehingga menyulitkan pembacaan.

(5)
Mail tanpa judul/subject dan/atau tanpa isi, walaupun melampirkan penjelasan.

LAIN LAIN:
==========

Saran & Tips menulis mail / posting ke milis:
---------------------------------------------

(a)
Berikan subject yg isinya mewakili kasus yg akan ditulis.
Hindari subject yg tidak jelas dan terlalu general (misal "tolong",
"help", "tanya" "mohon pencerahan", dsb)

(b)
Ikuti Subject yg telah ada, (dengan meReply), hanya jika masalah yg akan
ditulis masih berkaitan.
Mengubah Subject (misal dgn menambah kata "Balasan" / "Solusi" /
"Tanggapan" dsb, hanya akan merusak 'Thread' (korelasi/kesinambungan)
suatu topik, oleh karena itu jangan dilakukan.

Jika anda akan mengajukan topik/kasus baru yg tidak berkaitan dengan
topik yg telah ada, buatlah Subject baru, dengan Compose / New Mail.
JANGAN dengan cara mereply subject yg ada lalu mengganti subjecnya.

(c)
Terutama pada posting pertanyaan/request, tuliskan masalah dengan jelas
di badan email. Penjelasan lebih rinci dapat ditulis pada lampiran.
Lampiran sedapat mungkin berupa workbook (file *.xls), dengan nama-file
yang spesifik.

(d)
Posting tanggapan/jawaban hendaknya ditulis secara 'top-posting' (di
ATAS "quoted mail" yg ditanggapi, demi mempermudah pembacaan.

'Quoted mail' tidak harus disertakan semua, cukup 1 atau maximal 2 mail
terdahulu.

(e)
Footer yg tidak perlu hendaknya dihapus dulu sebelum mail Anda kirimkan.

Mengenai OOT dan VOOT
---------------------
Di luar 3 jenis posting di atas, yi: DISKUSI yg berisi sharing,
pertanyaan, tanggapan) akan dianggap Out of Topic (OOT) atau bahkan
VOOT (very out of topic).

Kategory OOT akan dipertimbangkan kasus-demi-kasus dengan kriteria
"manfaat positif bagi komunitas kita".

Kategory OOT atas pertimbangan khusus, misalnya demi kepentingan yg
mendesak dan penting, atau demi "kemanusiaan", tidak didelete.
Jika tidak memenuhi kriteria akan didelete dengan atau tanpa pemberi-
tahuan kpd member.

Kategory VOOT, posting akan langsung didelete, pengirim akan diberi
teguran.

VOOT kedua dari pengirim yg sama akan menyebabkan member ybs didisabled
sementara kemampuan postingnya.

Kelanjutan dari suatu diskusi tanya-jawab, masih layak diposted ke milis,
misal hanya ucapan terima kasih atau pun sejenis konfirmasi bahwa suatu
solusi sudah diterima dan dapat dipakai dsb, ini dapat golongkan sbg OOT
yg masih layak tayang.

Kelanjutan pembicaraan yg sudah tidak relevan lagi bagi member lain,
dapat anda teruskan melalui 'japri' (jalur pribadi).

Kritik dan saran kepada milis 'belajar-excel'
--------------------------------------------
Kritik dan saran diluar masalah excel demi perbaikan milis ini dapat
disampaikan ke owner / moderators

Hak dan wewenang Moderators
---------------------------
Moderators berhak setelah mempertimbangkan hal-hal diatas untuk
memberikan kartu kuning atau langsung kartu merah dan/atau
mem-banned members yang melakukan pelanggaran rules milis ini.

Himbauan dari milis 'belajar excel' kpd members
-----------------------------------------------

Diharapkan para members terus meningkatkan pengetahuannya mengenai
kelaziman cara bermilis & ber-net-ria secara umum.

Perlu selalu disadari bahwa di dunia internet, sama dengan dunia kita
sehari hari.
Jika di dunia nyata kita mengenal "etika / ettiquettes", maka di net
ada semacam etika umum yg lazim disebut "nettiquette".

Kalau anda sering tidak mengindahkan "nettiquettes", tidak akan polisi
yg menangkap anda; tetapi lama-lama anda akan dijauhi banyak rekan,
karena mereka tentu merasa tidak nyaman ber-korespondensi dengan anda.

Sebagai Members of "milis belajar-excel" dan sebagai 'netter sejati',
anda tentu tidak suka kalau harus dicap sebagai "tidak nettis" yang
artinya setara dgn "tidak etis".

--------------------------------------------[rev: 13mar2010 / ctv]-----

Reply to sender . Reply to group . Reply via Web Post . All Messages (56) . Top ^

4 Menyatukan data dari sheet berbeda

Thu Nov 1, 2012 1:56 am (PDT) . Posted by:

"Yudi Dwiyono" yudi_dwiyono

Dear Master Excel,

Mohon bantunnya , adakah cara menyatukan data dari sheet yang berbeda.
Data contoh terlampir.

Thanks,
Yudi

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

5a

set Focus dari modul ke userform control

Thu Nov 1, 2012 2:03 am (PDT) . Posted by:

"him mah"

misal kita sedang menjalankan suatu userform ("formData") kemudian
dari form itu ketika kita meng klik button, maka akan menjalankan
produsedur yang ada di module dimana userform tersebut ngga di close.
terus misal dari prosuder yang ada dimodul terebut kita kembali ke
form dengan setfocus salah satu control misal combobox1. kira kira
caranya gimana ya. terima kasih atas bantuannya

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

5b

Re: set Focus dari modul ke userform control

Thu Nov 1, 2012 2:57 am (PDT) . Posted by:

"lapendosol opik" lapendosol

Ini contoh simplenya, semoga seperti yang diharapkan.
Wassalam,

Lapendosol

________________________________
From: him mah <himmah.mlg@gmail.com>
To: belajar-excel <belajar-excel@yahoogroups.com>
Sent: Thursday, November 1, 2012 4:03 PM
Subject: [belajar-excel] set Focus dari modul ke userform control

misal kita sedang menjalankan suatu userform ("formData") kemudian
dari form itu ketika kita meng klik button, maka akan menjalankan
produsedur yang ada di module dimana userform tersebut ngga di close.
terus misal dari prosuder yang ada dimodul terebut kita kembali ke
form dengan setfocus salah satu control misal combobox1. kira kira
caranya gimana ya. terima kasih atas bantuannya

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

5c

Re: set Focus dari modul ke userform control

Thu Nov 1, 2012 6:10 am (PDT) . Posted by:

"him mah"

maaf kalau tidak merepotkan. vba nya di paste disini. karena belum
bisa buka lampirannya. terima kasih

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

5d

Re: set Focus dari modul ke userform control

Thu Nov 1, 2012 6:18 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Coba didalam event click si CommandButton diberi baris perintah untuk set
fokus ke combobox.
ComboBox.setfocus

Tidak semua object control bisa menerima aksi dari setfocus.

Wassalam,
Kid.

2012/11/1 him mah <himmah.mlg@gmail.com>

> **
>
>
> maaf kalau tidak merepotkan. vba nya di paste disini. karena belum
> bisa buka lampirannya. terima kasih
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

6a

Re: Belajar vlookup in userform

Thu Nov 1, 2012 9:07 am (PDT) . Posted by:

"HaDi SyaH" face_call15

trimakasih mas, berhasil jalan di form sy,
ada yg ingin sy tanyakan lagi mas pada file yg saya lampirkan bagaimana cara mengubah tabel pada sheets 1 menjadi tabel seperti pada sheets 2, kalau harus di rubah satu2 datanya ribuan, mohon pencerahannya, apakah mengunakan formula, macro atau vba, trimakasih

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, October 30, 2012 4:15 AM
Subject: Re: [belajar-excel] Belajar vlookup in userform

Coba file terlampir.

Wassalam,
Kid.

2012/10/30 <face_call15@yahoo.com>

Dear para master, mohon bantuannya sy mempunyai pertanyaan bagaimana cara memasukkan rumus vlookup pada userform, misalnya saya punya dua textbox dan satu combobox, apabila di combobox saya masukkan text otomatis di textbox 1 dan 2 akan terisi data berdasarkan data pada worksheets, maaf gak bisa ngirim file nya, sizenya terlalu besar, atas bantuannya sy ucapkan terima kasih.
>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
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

Visit Your Group

View All Topics

Create New Topic

14 New Members

We are making changes based on your feedback, Thank you !

Submit Feedback

The Yahoo! Groups Product Blog

Check it out!

GROUP FOOTER MESSAGE

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

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

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

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

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

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

CHANGE SETTINGS

UNSUBSCRIBE

Kamis, 01 November 2012

15 New Messages

Messages

1a

Wed Oct 31, 2012 4:01 pm (PDT) . Posted by:

1b

Wed Oct 31, 2012 9:31 pm (PDT) . Posted by:

1c

Wed Oct 31, 2012 11:56 pm (PDT) . Posted by:

1d

Thu Nov 1, 2012 3:15 am (PDT) . Posted by:

1e

Thu Nov 1, 2012 5:33 am (PDT) . Posted by:

1f

Thu Nov 1, 2012 5:40 am (PDT) . Posted by:

1g

Thu Nov 1, 2012 5:58 am (PDT) . Posted by:

2a

Wed Oct 31, 2012 11:54 pm (PDT) . Posted by:

3.1

Thu Nov 1, 2012 1:55 am (PDT) . Posted by:

4

Thu Nov 1, 2012 1:56 am (PDT) . Posted by:

5a

Thu Nov 1, 2012 2:03 am (PDT) . Posted by:

5b

Thu Nov 1, 2012 2:57 am (PDT) . Posted by:

5c

Thu Nov 1, 2012 6:10 am (PDT) . Posted by:

5d

Thu Nov 1, 2012 6:18 am (PDT) . Posted by:

6a

Thu Nov 1, 2012 9:07 am (PDT) . Posted by:

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me