15 New Messages
Digest #2682
2a
Bls: [belajar-excel] Ambil data antara 2 karakter tertentu [1 Attach by "A. Zainal H." a_zainal_hilmi
7a
Re: Copas dan Grafik Gabung persen dan Tanpa persen [2 Attachments] by "Mr. Kid" nmkid.family@ymail.com
8a
Re: copy-paste dari data yang tidak di filter ke data yang di filter by "Mr. Kid" nmkid.family@ymail.com
9a
Re: Code VBA mengkopi data berdasarkan header text/ judul kolom [2 A by "Mr. Kid" nmkid.family@ymail.com
Messages
Fri Dec 6, 2013 5:46 am (PST) . Posted by:
respati007
Dear All Para Master,
Mohon Bantuan untuk permaslahan ini, Data terlampir...
Untk copy paste dari 1 worksheet yg mempunyai banyak table yang terpisah dan saya ingin menjadikan satu dlam workbook baru.
Mohon Bantuan untuk permaslahan ini, Data terlampir...
Untk copy paste dari 1 worksheet yg mempunyai banyak table yang terpisah dan saya ingin menjadikan satu dlam workbook baru.
Fri Dec 6, 2013 10:02 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Kok filenya gak bisa dibuka ya.
Kid.
2013/12/6 <respati007@gmail.com>
>
>
> Dear All Para Master,
> Mohon Bantuan untuk permaslahan ini, Data terlampir...
>
> Untk copy paste dari 1 worksheet yg mempunyai banyak table yang terpisah
> dan saya ingin menjadikan satu dlam workbook baru.
>
>
>
Kid.
2013/12/6 <respati007@gmail.
>
>
> Dear All Para Master,
> Mohon Bantuan untuk permaslahan ini, Data terlampir...
>
> Untk copy paste dari 1 worksheet yg mempunyai banyak table yang terpisah
> dan saya ingin menjadikan satu dlam workbook baru.
>
>
>
Fri Dec 6, 2013 5:47 am (PST) . Posted by:
"A. Zainal H." a_zainal_hilmi
Dear Pak Bagus
Mohon pencerahannya mengapa terjadi seperti ini setelah protected view di enable
jadi seperti ini
Wassalam
Zainal
Pada Jumat, 6 Desember 2013 17:25, Bagus <bagus@kingjim.co.id> menulis:
Pak Zainal..
File terlampir semoga sesuai harapan
Wassalam
~ Bagus~
----- Original Message -----
>From: A. Zainal H.
>To: belajar-excel@yahoogroups.com
>Sent: Friday, December 06, 2013 2:24 PM
>Subject: Bls: [belajar-excel] Ambil data antara 2 karakter tertentu [1 Attachment]
>
>
>
> وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>Saya lampirkan file contohnya Miss Jan
>Terimakasih atas bantuannya
>
>
>
>
>وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>Zainal
>
>
>
>Pada Jumat, 6 Desember 2013 9:32, Jan Raisin <miss.jan.raisin@gmail.com> menulis:
>
>
> وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>
>
>Sebuah sample workbook yang menunjukkan hasil yang diingingkan akan lebih mempermudah BeExceller yang ingin membantu memberikan solusi untuk thread ini.
>
>
>apakah hasil akan diletakan dalam 1 kolom yang sama atau 3 kolom yang berbeda?
>jika diletakan dalam 1 kolom yang sama, bagaimana format penulisannya?
>jika diletakan dalam 3 kolom yang berbeda, apakah ingin ditampilkan dalam bentuk text atau numeric?
>
>
>وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>
>
>-Miss Jan Raisin-
>
>
>Pada 5 Desember 2013 09.11, A. Zainal H. <a_zainal_hilmi@yahoo.com> menulis:
>
>
>>
>>السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>Dear Para Pakar Excel
>>
>>
>>Mohon bantuannya untuk mengambil kata antara karakter "|" keN s/d karakter "|" keN
>>Sebagai contoh data seperti di bawah ini:
>>
>>
>>A1: |1501|2010000493 |ADAPTER 90XS115 |01.11.2013 |05.12.2013 | 2 | 0 | 0 | 2 |PC | 38,000,000 | 0 | 0 | 38,000,000 |IDR |
>>A2: |1501|2010000495 |AIR CLEANER C125004 |01.11.2013 |05.12.2013 | 1 | 1 | 0 | 2 |PC | 1,063,402 | 1,075,000 | 0 | 2,138,402 |IDR |
>>
>>
>>Sedangkan data yang akan saya ambil adalah yang ditandain warna kuning
>>mohon solusinya, sebelum dan sesudahnya saya ucapkan banyak terimakasih
>>
>>
>>
>>
>>وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>>
>>Zainal
>
>
Mohon pencerahannya mengapa terjadi seperti ini setelah protected view di enable
jadi seperti ini
Wassalam
Zainal
Pada Jumat, 6 Desember 2013 17:25, Bagus <bagus@kingjim.
Pak Zainal..
File terlampir semoga sesuai harapan
Wassalam
~ Bagus~
----- Original Message -----
>From: A. Zainal H.
>To: belajar-excel@
>Sent: Friday, December 06, 2013 2:24 PM
>Subject: Bls: [belajar-excel] Ambil data antara 2 karakter tertentu [1 Attachment]
>
>
>
> وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>Saya lampirkan file contohnya Miss Jan
>Terimakasih atas bantuannya
>
>
>
>
>وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>Zainal
>
>
>
>Pada Jumat, 6 Desember 2013 9:32, Jan Raisin <miss.jan.raisin@
>
>
> وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>
>
>Sebuah sample workbook yang menunjukkan hasil yang diingingkan akan lebih mempermudah BeExceller yang ingin membantu memberikan solusi untuk thread ini.
>
>
>apakah hasil akan diletakan dalam 1 kolom yang sama atau 3 kolom yang berbeda?
>jika diletakan dalam 1 kolom yang sama, bagaimana format penulisannya?
>jika diletakan dalam 3 kolom yang berbeda, apakah ingin ditampilkan dalam bentuk text atau numeric?
>
>
>وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>
>
>-Miss Jan Raisin-
>
>
>Pada 5 Desember 2013 09.11, A. Zainal H. <a_zainal_hilmi@
>
>
>>
>>السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>Dear Para Pakar Excel
>>
>>
>>Mohon bantuannya untuk mengambil kata antara karakter "|" keN s/d karakter "|" keN
>>Sebagai contoh data seperti di bawah ini:
>>
>>
>>A1: |1501|2010000493 |ADAPTER 90XS115 |01.11.2013 |05.12.2013 | 2 | 0 | 0 | 2 |PC | 38,000,000 | 0 | 0 | 38,000,000 |IDR |
>>A2: |1501|2010000495 |AIR CLEANER C125004 |01.11.2013 |05.12.2013 | 1 | 1 | 0 | 2 |PC | 1,063,402 | 1,075,000 | 0 | 2,138,402 |IDR |
>>
>>
>>Sedangkan data yang akan saya ambil adalah yang ditandain warna kuning
>>mohon solusinya, sebelum dan sesudahnya saya ucapkan banyak terimakasih
>>
>>
>>
>>
>>وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>>
>>Zainal
>
>
Fri Dec 6, 2013 5:47 am (PST) . Posted by:
"ChordJR" indra_gustian
Dear Be-Exceller,
Mau tanya tentang macro yang sudah saya buat kok tidak bisa berjalan
sesuai keinginan...mohon di koreksi apabila ada kesalahan pada coding"nya...
Sub AutoShape6_Click()
Dim rngOut As Range, rngFields As Range
Dim lHitung As Long, lFields As Long
Set rngOut = Sheet2.Range("a8").Offset(1, 0)
Set rngFields = rngOut.End(xlDown)
lHitung = 0
lFields = rngFields.Count
lHitung = lHitung + 1
With rngOut
.Value = lHitung
.Resize(0, rngFields).DataSeries Rowcol:=xlColumns,
Type:=xlLinear, Date:=xlDay, _
Step:=1, Trend:=False
End With
End Sub
Wassalam,
Indra
Mau tanya tentang macro yang sudah saya buat kok tidak bisa berjalan
sesuai keinginan...
Sub AutoShape6_Click(
Dim rngOut As Range, rngFields As Range
Dim lHitung As Long, lFields As Long
Set rngOut = Sheet2.Range(
Set rngFields = rngOut.End(xlDown)
lHitung = 0
lFields = rngFields.Count
lHitung = lHitung + 1
With rngOut
.Value = lHitung
.Resize(0, rngFields).DataSeri
Type:=xlLinear, Date:=xlDay, _
Step:=1, Trend:=False
End With
End Sub
Wassalam,
Indra
Fri Dec 6, 2013 6:02 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Andree,
Coba gunakan fungsi Months( tanggal awal, tanggal akhir , mode )
kalau mode = 0 maka hitungnya dari tanggal ke tanggal
kalau mode = 1 maka dihitung jumlah bulan setelah tanggal awal sampai
dengan tanggal akhir tanpa memperdulikan nilai tanggalnya.
Syarat : tipe data dari tanggal awal dan tanggal akhir adalah datetime atau
teks tanggal berformat YYYY-MM-DD
Format tanggal YYYY-MM-DD adalah format tanggal universal diseluruh
komputer. Komputer tidak akan salah baca seperti yang Anda alami saat ini.
Wassalam,
Kid.
2013/12/2 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com>
>
>
> Siang Beexceller
>
> saya mau tanya gimana rumus cara menghitung bulan di openoffice, saya udah
> coba di openoffice ternyata rumusnya salah menghitung bulan berjalan.
> contohnya tanggal 10/07/2012 rumus saya malah membaca bulan dari tanggal
> 10/07/2013 s/d 31/12/2013 = 3 bulan seharusnya 6 bulan. (file contoh
> terlampir). file terlampir dalam format openoffice
>
>
> Wassalam
>
> andre
>
>
>
Coba gunakan fungsi Months( tanggal awal, tanggal akhir , mode )
kalau mode = 0 maka hitungnya dari tanggal ke tanggal
kalau mode = 1 maka dihitung jumlah bulan setelah tanggal awal sampai
dengan tanggal akhir tanpa memperdulikan nilai tanggalnya.
Syarat : tipe data dari tanggal awal dan tanggal akhir adalah datetime atau
teks tanggal berformat YYYY-MM-DD
Format tanggal YYYY-MM-DD adalah format tanggal universal diseluruh
komputer. Komputer tidak akan salah baca seperti yang Anda alami saat ini.
Wassalam,
Kid.
2013/12/2 Andre Rahmaidy Teeza <andre_teeza_
>
>
> Siang Beexceller
>
> saya mau tanya gimana rumus cara menghitung bulan di openoffice, saya udah
> coba di openoffice ternyata rumusnya salah menghitung bulan berjalan.
> contohnya tanggal 10/07/2012 rumus saya malah membaca bulan dari tanggal
> 10/07/2013 s/d 31/12/2013 = 3 bulan seharusnya 6 bulan. (file contoh
> terlampir). file terlampir dalam format openoffice
>
>
> Wassalam
>
> andre
>
>
>
Fri Dec 6, 2013 6:13 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Aliif,
Setidaknya ada 2 cara yang relatif memungkinkan dari sekian banyak cara
yang memungkinkan, yaitu :
1. memanfaatkan activex datagrid control yang mendapat suplai data dari
object recordset ado (object recordset ado bisa juga memanfaatkan activex
control adodc). Pastikan seluruh komputer memiliki library yang berisi
activex control tersebut. Jika tidak punya, maka userform tidak dapat
digunakan.
2. memanfaatkan fitur get external data untuk menghasilkan tabel hasil
koneksi disebuah sheet, kemudian menampilkan tabel hasil koneksi tersebut
ke sebuah listbox memanfaatkan nama range dan diletakkan dalam properti row
source milik listbox. Sayangnya, tipe data setiap kolom dalam listbox
adalah text (string). Proses get external data (proses untuk mendapatkan
dataset hasil koneksi) bisa juga diperoleh menggunakan ADO. Kemudian
recordset ADO tersebut dipindahkan ke suatu variabel array. Lalu, variabel
array tersebut mengisi row source sebuah listbox.
Sumber referensinya bisa search di internet.
Wassalam,
Kid.
2013/12/3 Aliif Akbar <aliif.akbar@yahoo.co.id>
>
>
> selamat pagi,
>
> Mr.Kid,
> Hasil jawaban dari Mr.Kid, digabungkan dengan rumus2 yang pernah melayang
> - layang dimilis rame, jadinya seperti ini --> file terlampir,
> mungkin ada yang lebih sederhana.
>
> eh satu lagi Mr.Kid, mau belajar koneksi database Ms Access kemudian di
> akses menggunakan userform punya Excel aada di link mana yah? ada
> referensi?
>
> terimakasih.
> Aliif Akbar
> Sent from my Windows Phone Lumia 620
>
>
>
> Pada Sabtu, 30 November 2013 13:11, Aliif Akbar <aliif.akbar@yahoo.co.id>
> menulis:
>
> Siang,
> Mr.Kid,
> Terimakasih, nanti coba saya buat, hasilnya saya share kalo uda ataupun
> belum jadi,
> Salam,
>
>
> Aliif Akbar
> Sent from my Windows Phone Lumia 620
> ------------------------------
> From: Mr. Kid <mr.nmkid@gmail.com>
> Sent: 29/11/2013 16:36
> To: belajar-excel@yahoogroups.com
> Subject: Re: [belajar-excel] Memasukkan foto kedalam userform
>
>
> Hai Aliif,
> Misal dalam userform ada object control image bernama imgFoto
> imgFoto.picture=LoadPicture( "filefullname.jpg")
> Letakkan di prosedur pemasang gambar.
> Wassalam,
> Kid.
> On Nov 29, 2013 2:03 PM, "Aliif Akbar" <aliif.akbar@yahoo.co.id> wrote:
>
>
> selamat siang,
>
> dear rekan2 be excel,
> mohon bantaunnya untuk bisa membantu, bagaimana cara memasukkan foto
> kedalamuser form, lampiran dari saya mungkin lebih jelas.
>
> demikian, terimakasih.
>
> salam,
>
> Aliif Akbar
>
>
>
>
>
Setidaknya ada 2 cara yang relatif memungkinkan dari sekian banyak cara
yang memungkinkan, yaitu :
1. memanfaatkan activex datagrid control yang mendapat suplai data dari
object recordset ado (object recordset ado bisa juga memanfaatkan activex
control adodc). Pastikan seluruh komputer memiliki library yang berisi
activex control tersebut. Jika tidak punya, maka userform tidak dapat
digunakan.
2. memanfaatkan fitur get external data untuk menghasilkan tabel hasil
koneksi disebuah sheet, kemudian menampilkan tabel hasil koneksi tersebut
ke sebuah listbox memanfaatkan nama range dan diletakkan dalam properti row
source milik listbox. Sayangnya, tipe data setiap kolom dalam listbox
adalah text (string). Proses get external data (proses untuk mendapatkan
dataset hasil koneksi) bisa juga diperoleh menggunakan ADO. Kemudian
recordset ADO tersebut dipindahkan ke suatu variabel array. Lalu, variabel
array tersebut mengisi row source sebuah listbox.
Sumber referensinya bisa search di internet.
Wassalam,
Kid.
2013/12/3 Aliif Akbar <aliif.akbar@
>
>
> selamat pagi,
>
> Mr.Kid,
> Hasil jawaban dari Mr.Kid, digabungkan dengan rumus2 yang pernah melayang
> - layang dimilis rame, jadinya seperti ini --> file terlampir,
> mungkin ada yang lebih sederhana.
>
> eh satu lagi Mr.Kid, mau belajar koneksi database Ms Access kemudian di
> akses menggunakan userform punya Excel aada di link mana yah? ada
> referensi?
>
> terimakasih.
> Aliif Akbar
> Sent from my Windows Phone Lumia 620
>
>
>
> Pada Sabtu, 30 November 2013 13:11, Aliif Akbar <aliif.akbar@
> menulis:
>
> Siang,
> Mr.Kid,
> Terimakasih, nanti coba saya buat, hasilnya saya share kalo uda ataupun
> belum jadi,
> Salam,
>
>
> Aliif Akbar
> Sent from my Windows Phone Lumia 620
> ------------
> From: Mr. Kid <mr.nmkid@gmail.
> Sent: 29/11/2013 16:36
> To: belajar-excel@
> Subject: Re: [belajar-excel] Memasukkan foto kedalam userform
>
>
> Hai Aliif,
> Misal dalam userform ada object control image bernama imgFoto
> imgFoto.picture=
> Letakkan di prosedur pemasang gambar.
> Wassalam,
> Kid.
> On Nov 29, 2013 2:03 PM, "Aliif Akbar" <aliif.akbar@
>
>
> selamat siang,
>
> dear rekan2 be excel,
> mohon bantaunnya untuk bisa membantu, bagaimana cara memasukkan foto
> kedalamuser form, lampiran dari saya mungkin lebih jelas.
>
> demikian, terimakasih.
>
> salam,
>
> Aliif Akbar
>
>
>
>
>
Fri Dec 6, 2013 6:31 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Jhony,
Coba manfaatkan fungsi Shell untuk menjalankan cmd, sehingga bisa
memanfaatkan fungsi-fungsi MS DOS dengannya.
Contoh untuk merge file dengan copy milik MS DOS :
Shell "cmd.exe /C copy d:\cek\*.txt d:\cek2\coba.txt";
untuk append data ke file lain bisa dengan type. Misal file
d:\cek2\coba.txt sudah ada dan isi dari file d:\cek\x.txt akan di-append
ke d:\cek2\coba.txt dengan :
Shell "cmd.exe /C type d:\cek\x.txt >> d:\cek2\coba.txt";
Wassalam,
Kid.
On Tue, Dec 3, 2013 at 3:23 PM, <jhony.excel@yahoo.co.id> wrote:
>
>
> Trima kasih Miss Jan, VBA berjalan dengan sempurna,
>
> Btw ada pertanyaan tambahan
> Bagaimana cara menggabungkan beberapa file txt menjadi 1 file txt ?
>
> Kalau di dos ada perintah copy d:\cek\*.txt. d:\cek2\coba.txt
>
> Terima kasih sebelumnya
>
> Wassalam
> Best Regards,
>
> Powered by Telkomsel BlackBerry�
> ------------------------------
> *From: * Jan Raisin <miss.jan.raisin@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Tue, 3 Dec 2013 15:05:17 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Perintah Move All File
>
>
>
> coba script berikut ini:
>
> Dim d As String, ext As Variant, x As Variant
> Dim sAsal As String, sTuju As String, sFile As String
>
> sAsal = "D:\Cek\"
> sTuju = "D:\Cek2\"
> ext = Array("*.xlsx", "*.xlsm")
> For Each x In ext
> d = Dir(sAsal & x)
> Do While d <> ""
> sFile = sAsal & d
> FileCopy sFile, sTuju & d
> Kill sFile
> d = Dir
> Loop
> Next x
>
> Salam,
>
> -Miss Jan Raisin-
>
>
> Pada 3 Desember 2013 11.43, <jhony.excel@yahoo.co.id> menulis:
>
>> Salam Semua,
>>
>> Saya mau tanya bagaimana vba memindahkan semua file excel (xlsx, xlsm
>> dll) dari folder d:\cek ke folder d:\cek2
>>
>> Terima kasih
>> Best Regards,
>>
>> Powered by Telkomsel BlackBerry�
>>
>> ------------------------------------
>>
>
>
Coba manfaatkan fungsi Shell untuk menjalankan cmd, sehingga bisa
memanfaatkan fungsi-fungsi MS DOS dengannya.
Contoh untuk merge file dengan copy milik MS DOS :
Shell "cmd.exe /C copy d:\cek&#
untuk append data ke file lain bisa dengan type. Misal file
d:\cek2&#
ke d:\cek2&#
Shell "cmd.exe /C type d:\cek&#
Wassalam,
Kid.
On Tue, Dec 3, 2013 at 3:23 PM, <jhony.excel@
>
>
> Trima kasih Miss Jan, VBA berjalan dengan sempurna,
>
> Btw ada pertanyaan tambahan
> Bagaimana cara menggabungkan beberapa file txt menjadi 1 file txt ?
>
> Kalau di dos ada perintah copy d:\cek&#
>
> Terima kasih sebelumnya
>
> Wassalam
> Best Regards,
>
> Powered by Telkomsel BlackBerry�
> ------------
> *From: * Jan Raisin <miss.jan.raisin@
> *Sender: * belajar-excel@
> *Date: *Tue, 3 Dec 2013 15:05:17 +0700
> *To: *<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Perintah Move All File
>
>
>
> coba script berikut ini:
>
> Dim d As String, ext As Variant, x As Variant
> Dim sAsal As String, sTuju As String, sFile As String
>
> sAsal = "D:\
> sTuju = "D:\
> ext = Array("
> For Each x In ext
> d = Dir(sAsal & x)
> Do While d <> ""
> sFile = sAsal & d
> FileCopy sFile, sTuju & d
> Kill sFile
> d = Dir
> Loop
> Next x
>
> Salam,
>
> -Miss Jan Raisin-
>
>
> Pada 3 Desember 2013 11.43, <jhony.excel@
>
>> Salam Semua,
>>
>> Saya mau tanya bagaimana vba memindahkan semua file excel (xlsx, xlsm
>> dll) dari folder d:\cek ke folder d:\cek2
>>
>> Terima kasih
>> Best Regards,
>>
>> Powered by Telkomsel BlackBerry�
>>
>> ------------
>>
>
>
Fri Dec 6, 2013 7:50 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Mungkin seperti file terlampir.
Grafiknya menampilkan nilai saja ya, karena persentase setiap blok relatif
terhadap sasaran setiap blok yang berbeda-beda antar bloknya.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/12/2 Laode Herman Umar <mentor_umb@yahoo.co.id>
>
>
> Assalamu alaikum
> dear para master excel
> mohon maaf langsung ajukan 2 masalah.
> 1. Copy paste (file terlampir) dari banyak kolom ke 2 kolom
> 2. Grafik yang terdiri dari nilai persen (bingung jelasinnya)...
> terima kasih sebelumnya
> wassalam
>
>
>
Mungkin seperti file terlampir.
Grafiknya menampilkan nilai saja ya, karena persentase setiap blok relatif
terhadap sasaran setiap blok yang berbeda-beda antar bloknya.
Wassalamu'
Kid.
2013/12/2 Laode Herman Umar <mentor_umb@yahoo.
>
>
> Assalamu alaikum
> dear para master excel
> mohon maaf langsung ajukan 2 masalah.
> 1. Copy paste (file terlampir) dari banyak kolom ke 2 kolom
> 2. Grafik yang terdiri dari nilai persen (bingung jelasinnya).
> terima kasih sebelumnya
> wassalam
>
>
>
Fri Dec 6, 2013 8:13 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Liem,
Mungkin seperti file terlampir.
Wassalam,
Kid.
2013/12/3 Liem Suliem <liemsuliem@yahoo.co.id>
>
>
> dh
> dear master
> bagaimana mengcopy data yang tidak di filter ke data yang di filter
>
> contoh file terlampir
>
>
> salam
> liem
>
>
>
Mungkin seperti file terlampir.
Wassalam,
Kid.
2013/12/3 Liem Suliem <liemsuliem@yahoo.
>
>
> dh
> dear master
> bagaimana mengcopy data yang tidak di filter ke data yang di filter
>
> contoh file terlampir
>
>
> salam
> liem
>
>
>
Fri Dec 6, 2013 8:39 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Odhy,
Bisa diperjelas bagaimana cara meng-copy manualnya ?
Jika isi file A berisi 5 record akan di copy ke file B berisi 19 record
hanya pada kolom Kol1,kol9,kol13 saja, apa saja yang menjadi kolom-kolom
kunci dari tabel data tersebut ?
Bagaimana nasib sisa 14 record yang sudah ada di file B ?
Wassalam,
Kid.
2013/12/4 Odhy <odhyz83_assasaky@yahoo.com>
>
>
> Dear Para Master,
> 1. Dibawa ini code VBA yang saya gunakan untuk mengcopy data pada
> kolom yang sudah saya tentukan, akan tetapi ternyata posisi kolom yang saya
> copy posisinya berubah-rubah, yang ingin saya tanyakan bagaimana caranya
> mengcopy kolom berdasarkan Header / judul kolom (3 kolom):
> Misalnya saya mau mengcopy semua data pada kolom |Plant|, |Material|,|
> ClosingBalQty|,
> Private Sub CommandButton9_Click()
> FileTerpilih = Application.GetOpenFilename _
> ("Excel 2003(*.xls),*.xls, Excel 2010 (*.xlsx),*.xlsx", Title:="Open
> file", MultiSelect:=True)
> If VarType(FileTerpilih) = vbBoolean Then
> Exit Sub
> End If
> NamaFileUtama = ActiveWorkbook.Name
> JumlahFile = UBound(FileTerpilih)
> Application.DisplayAlerts = False
> For i = 1 To JumlahFile
> Workbooks.Open FileTerpilih(i)
> With ActiveWorkbook.Worksheets(1)
> Selection.AutoFilter Field:=3, Criteria1:=1000
> BarisTerakhirFilePilihan = .Cells(.Rows.Count,
> 1).End(xlUp).Row
> BarisTerakhirFileUtama =
> Workbooks(NamaFileUtama).Worksheets(1) _
> .Cells(Workbooks(NamaFileUtama).Worksheets(1).Rows.Count,
> 1).End(xlUp).Row
> .Range("A2:A100,A2:A100,X2:X100").Copy
>
> //bagaimana mengcopy 3 kolom??
>
>
>
>
>
>
> End With
>
>
> With Workbooks(NamaFileUtama).Worksheets("DATA";)
> Range("A4").PasteSpecial Paste:=xlValues
> End With
> ActiveWorkbook.Close
> Next i
> Application.DisplayAlerts = True
> End Sub
>
>
> 2. Kalau saya menggunakan code : Application.Quit maka semua
> workbook akan tertutup semua, atau kadang2 worbook yang lain terhide, nah
> bagaimana caranya agar apabila menutup sebuah workbook menggunakan code VBA
> hanya workbook tersebut yang tertutup/ diclose.
>
> Terima Kasih atas pencerahannya,
>
> Odhy.
>
>
>
Bisa diperjelas bagaimana cara meng-copy manualnya ?
Jika isi file A berisi 5 record akan di copy ke file B berisi 19 record
hanya pada kolom Kol1,kol9,kol13 saja, apa saja yang menjadi kolom-kolom
kunci dari tabel data tersebut ?
Bagaimana nasib sisa 14 record yang sudah ada di file B ?
Wassalam,
Kid.
2013/12/4 Odhy <odhyz83_assasaky@
>
>
> Dear Para Master,
> 1. Dibawa ini code VBA yang saya gunakan untuk mengcopy data pada
> kolom yang sudah saya tentukan, akan tetapi ternyata posisi kolom yang saya
> copy posisinya berubah-rubah, yang ingin saya tanyakan bagaimana caranya
> mengcopy kolom berdasarkan Header / judul kolom (3 kolom):
> Misalnya saya mau mengcopy semua data pada kolom |Plant|, |Material|,|
> ClosingBalQty|
> Private Sub CommandButton9_
> FileTerpilih = Application.
> ("Excel 2003(*.xls),
> file", MultiSelect:
> If VarType(FileTerpili
> Exit Sub
> End If
> NamaFileUtama = ActiveWorkbook.
> JumlahFile = UBound(FileTerpilih
> Application.
> For i = 1 To JumlahFile
> Workbooks.Open FileTerpilih(
> With ActiveWorkbook.
> Selection.AutoFilte
> BarisTerakhirFilePi
> 1).End(xlUp)
> BarisTerakhirFileUt
> Workbooks(NamaFileU
> .Cells(Workbooks(
> 1).End(xlUp)
> .Range("
>
> //bagaimana mengcopy 3 kolom??
>
>
>
>
>
>
> End With
>
>
> With Workbooks(NamaFileU
> Range("
> End With
> ActiveWorkbook.
> Next i
> Application.
> End Sub
>
>
> 2. Kalau saya menggunakan code : Application.
> workbook akan tertutup semua, atau kadang2 worbook yang lain terhide, nah
> bagaimana caranya agar apabila menutup sebuah workbook menggunakan code VBA
> hanya workbook tersebut yang tertutup/ diclose.
>
> Terima Kasih atas pencerahannya,
>
> Odhy.
>
>
>
Fri Dec 6, 2013 8:50 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Dengan sumber data yang kurang berkaidah database, masih bisa dilakukan
secara sederhana dengan link workbook. Asumsinya, item di setiap sheet
memiliki jumlah dan urutan yang tetap.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/12/5 Krisan Flower <krisan_flower@rocketmail.com>
>
>
> Walaikum Salam WR WB
> Dear Master Excell, saya menangalami kesulitan untuk masalah yang satu ini,
> saya ingin mengambil data yg ada pada sheet tertentu pada range tertentu.
> Silahkan dilihat filenya di attachment.
> Mohon bantuannya.
>
> Terima Kasih Sebelumnya
>
> Krisan
>
>
>
Dengan sumber data yang kurang berkaidah database, masih bisa dilakukan
secara sederhana dengan link workbook. Asumsinya, item di setiap sheet
memiliki jumlah dan urutan yang tetap.
Wassalamu'
Kid.
2013/12/5 Krisan Flower <krisan_flower@
>
>
> Walaikum Salam WR WB
> Dear Master Excell, saya menangalami kesulitan untuk masalah yang satu ini,
> saya ingin mengambil data yg ada pada sheet tertentu pada range tertentu.
> Silahkan dilihat filenya di attachment.
> Mohon bantuannya.
>
> Terima Kasih Sebelumnya
>
> Krisan
>
>
>
Fri Dec 6, 2013 10:13 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Misal data asli dari text file di cell A23 dan hasil diletakkan mulai cell
B23 kekanan (total kolom hasil 4).
=SUBSTITUTE(TRIM(MID(SUBSTITUTE($A23,"|",REPT("
",LEN($A23))),(COLUMN()+9)*LEN($A23)+1,LEN($A23))),",","")*1
** Jika regional setting komputer setempat adalah Indonesia, maka ganti
seluruh karakter koma dengan karakter titik koma kecuali bagian ","
Wassalamu'alaikum Wr. Wb.
Kid.
2013/12/6 A. Zainal H. <a_zainal_hilmi@yahoo.com>
>
>
> ������������ ��������� ���������� ����� �������������
>
> Saya lampirkan file contohnya Miss Jan
> Terimakasih atas bantuannya
>
>
> ���������� ���������� ���������� ����� �������������
>
> *Zainal*
>
>
> Pada Jumat, 6 Desember 2013 9:32, Jan Raisin <miss.jan.raisin@gmail.com>
> menulis:
>
> ������������ ��������� ���������� ����� �������������
>
> Sebuah sample workbook yang menunjukkan hasil yang diingingkan akan lebih
> mempermudah BeExceller yang ingin membantu memberikan solusi untuk thread
> ini.
>
> apakah hasil akan diletakan dalam 1 kolom yang sama atau 3 kolom yang
> berbeda?
> jika diletakan dalam 1 kolom yang sama, bagaimana format penulisannya?
> jika diletakan dalam 3 kolom yang berbeda, apakah ingin ditampilkan dalam
> bentuk text atau numeric?
>
> ���������� ���������� ���������� ����� �������������
>
> -Miss Jan Raisin-
>
>
> Pada 5 Desember 2013 09.11, A. Zainal H. <a_zainal_hilmi@yahoo.com>menulis:
>
>
> ���������� ���������� ���������� ����� �������������
> Dear Para Pakar Excel
>
> Mohon bantuannya untuk mengambil kata antara karakter "|" keN s/d karakter
> "|" keN
> Sebagai contoh data seperti di bawah ini:
>
> A1: |1501|2010000493 |ADAPTER 90XS115 |01.11.2013 |05.12.2013 | 2 | 0 | 0
> | 2 |PC | 38,000,000 | 0 | 0 | 38,000,000 |IDR |
> A2: |1501|2010000495 |AIR CLEANER C125004 |01.11.2013 |05.12.2013 | 1 | 1
> | 0 | 2 |PC | 1,063,402 | 1,075,000 | 0 | 2,138,402 |IDR |
>
> Sedangkan data yang akan saya ambil adalah yang ditandain warna kuning
> mohon solusinya, sebelum dan sesudahnya saya ucapkan banyak terimakasih
>
>
> �� ���������� ���������� ���������� ����� �������������
>
> *Zainal*
>
>
>
>
>
>
Misal data asli dari text file di cell A23 dan hasil diletakkan mulai cell
B23 kekanan (total kolom hasil 4).
=SUBSTITUTE(
",LEN($
** Jika regional setting komputer setempat adalah Indonesia, maka ganti
seluruh karakter koma dengan karakter titik koma kecuali bagian ","
Wassalamu'
Kid.
2013/12/6 A. Zainal H. <a_zainal_hilmi@
>
>
> ������������ ��������� ���������� ����� �������������
>
> Saya lampirkan file contohnya Miss Jan
> Terimakasih atas bantuannya
>
>
> ���������� ���������� ���������� ����� �������������
>
> *Zainal*
>
>
> Pada Jumat, 6 Desember 2013 9:32, Jan Raisin <miss.jan.raisin@
> menulis:
>
> ������������ ��������� ���������� ����� �������������
>
> Sebuah sample workbook yang menunjukkan hasil yang diingingkan akan lebih
> mempermudah BeExceller yang ingin membantu memberikan solusi untuk thread
> ini.
>
> apakah hasil akan diletakan dalam 1 kolom yang sama atau 3 kolom yang
> berbeda?
> jika diletakan dalam 1 kolom yang sama, bagaimana format penulisannya?
> jika diletakan dalam 3 kolom yang berbeda, apakah ingin ditampilkan dalam
> bentuk text atau numeric?
>
> ���������� ���������� ���������� ����� �������������
>
> -Miss Jan Raisin-
>
>
> Pada 5 Desember 2013 09.11, A. Zainal H. <a_zainal_hilmi@
>
>
> ���������� ���������� ���������� ����� �������������
> Dear Para Pakar Excel
>
> Mohon bantuannya untuk mengambil kata antara karakter "|" keN s/d karakter
> "|" keN
> Sebagai contoh data seperti di bawah ini:
>
> A1: |1501|2010000493 |ADAPTER 90XS115 |01.11.2013 |05.12.2013 | 2 | 0 | 0
> | 2 |PC | 38,000,000 | 0 | 0 | 38,000,000 |IDR |
> A2: |1501|2010000495 |AIR CLEANER C125004 |01.11.2013 |05.12.2013 | 1 | 1
> | 0 | 2 |PC | 1,063,402 | 1,075,000 | 0 | 2,138,402 |IDR |
>
> Sedangkan data yang akan saya ambil adalah yang ditandain warna kuning
> mohon solusinya, sebelum dan sesudahnya saya ucapkan banyak terimakasih
>
>
> �� ���������� ���������� ���������� ����� �������������
>
> *Zainal*
>
>
>
>
>
>
Fri Dec 6, 2013 7:15 pm (PST) . Posted by:
"A. Zainal H." a_zainal_hilmi
Terimakasih Mr. Kid atas formulanya
Wassalam
Zainal
Pada Sabtu, 7 Desember 2013 2:13, Mr. Kid <mr.nmkid@gmail.com> menulis:
Wa'alaikumussalam Wr. Wb.
Misal data asli dari text file di cell A23 dan hasil diletakkan mulai cell B23 kekanan (total kolom hasil 4).
=SUBSTITUTE(TRIM(MID(SUBSTITUTE($A23,"|",REPT(" ",LEN($A23))),(COLUMN()+9)*LEN($A23)+1,LEN($A23))),",","")*1
** Jika regional setting komputer setempat adalah Indonesia, maka ganti seluruh karakter koma dengan karakter titik koma kecuali bagian ","
Wassalamu'alaikum Wr. Wb.
Kid.
2013/12/6 A. Zainal H. <a_zainal_hilmi@yahoo.com>
>
> وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>Saya lampirkan file contohnya Miss Jan
>Terimakasih atas bantuannya
>
>
>
>
>وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>Zainal
>
>
>
>Pada Jumat, 6 Desember 2013 9:32, Jan Raisin <miss.jan.raisin@gmail.com> menulis:
>
>
> وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>
>
>Sebuah sample workbook yang menunjukkan hasil yang diingingkan akan lebih mempermudah BeExceller yang ingin membantu memberikan solusi untuk thread ini.
>
>
>apakah hasil akan diletakan dalam 1 kolom yang sama atau 3 kolom yang berbeda?
>jika diletakan dalam 1 kolom yang sama, bagaimana format penulisannya?
>jika diletakan dalam 3 kolom yang berbeda, apakah ingin ditampilkan dalam bentuk text atau numeric?
>
>
>وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>
>
>-Miss Jan Raisin-
>
>
>Pada 5 Desember 2013 09.11, A. Zainal H. <a_zainal_hilmi@yahoo.com> menulis:
>
>
>>
>>السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>Dear Para Pakar Excel
>>
>>
>>Mohon bantuannya untuk mengambil kata antara karakter "|" keN s/d karakter "|" keN
>>Sebagai contoh data seperti di bawah ini:
>>
>>
>>A1: |1501|2010000493 |ADAPTER 90XS115 |01.11.2013 |05.12.2013 | 2 | 0 | 0 | 2 |PC | 38,000,000 | 0 | 0 | 38,000,000 |IDR |
>>A2: |1501|2010000495 |AIR CLEANER C125004 |01.11.2013 |05.12.2013 | 1 | 1 | 0 | 2 |PC | 1,063,402 | 1,075,000 | 0 | 2,138,402 |IDR |
>>
>>
>>Sedangkan data yang akan saya ambil adalah yang ditandain warna kuning
>>mohon solusinya, sebelum dan sesudahnya saya ucapkan banyak terimakasih
>>
>>
>>
>>
>>وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>>
>>Zainal
>
>
>
Wassalam
Zainal
Pada Sabtu, 7 Desember 2013 2:13, Mr. Kid <mr.nmkid@gmail.
Wa'alaikumussal
Misal data asli dari text file di cell A23 dan hasil diletakkan mulai cell B23 kekanan (total kolom hasil 4).
=SUBSTITUTE(
** Jika regional setting komputer setempat adalah Indonesia, maka ganti seluruh karakter koma dengan karakter titik koma kecuali bagian ","
Wassalamu'
Kid.
2013/12/6 A. Zainal H. <a_zainal_hilmi@
>
> وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>Saya lampirkan file contohnya Miss Jan
>Terimakasih atas bantuannya
>
>
>
>
>وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>Zainal
>
>
>
>Pada Jumat, 6 Desember 2013 9:32, Jan Raisin <miss.jan.raisin@
>
>
> وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>
>
>Sebuah sample workbook yang menunjukkan hasil yang diingingkan akan lebih mempermudah BeExceller yang ingin membantu memberikan solusi untuk thread ini.
>
>
>apakah hasil akan diletakan dalam 1 kolom yang sama atau 3 kolom yang berbeda?
>jika diletakan dalam 1 kolom yang sama, bagaimana format penulisannya?
>jika diletakan dalam 3 kolom yang berbeda, apakah ingin ditampilkan dalam bentuk text atau numeric?
>
>
>وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>
>
>-Miss Jan Raisin-
>
>
>Pada 5 Desember 2013 09.11, A. Zainal H. <a_zainal_hilmi@
>
>
>>
>>السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>Dear Para Pakar Excel
>>
>>
>>Mohon bantuannya untuk mengambil kata antara karakter "|" keN s/d karakter "|" keN
>>Sebagai contoh data seperti di bawah ini:
>>
>>
>>A1: |1501|2010000493 |ADAPTER 90XS115 |01.11.2013 |05.12.2013 | 2 | 0 | 0 | 2 |PC | 38,000,000 | 0 | 0 | 38,000,000 |IDR |
>>A2: |1501|2010000495 |AIR CLEANER C125004 |01.11.2013 |05.12.2013 | 1 | 1 | 0 | 2 |PC | 1,063,402 | 1,075,000 | 0 | 2,138,402 |IDR |
>>
>>
>>Sedangkan data yang akan saya ambil adalah yang ditandain warna kuning
>>mohon solusinya, sebelum dan sesudahnya saya ucapkan banyak terimakasih
>>
>>
>>
>>
>>وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>>
>>Zainal
>
>
>
Fri Dec 6, 2013 5:26 pm (PST) . Posted by:
"Ahmad Syaifullah Lubis" syaifullah
Mr Fachry,
saya malah gak bisa memodifikasi seperti yang anda lakukan tuh, bisa buat surat jalan.. )
saya jalankan macronya sepertinya nomor invoicenya otomatis berubah kok, tapi kalau nomor invoice mau direset menjadi nomor urut 001 lagi mudah2an Mis Jan, Mr HK dan BeExceller yang lainnya ada yang mau bantu.
saya ada usul, bagaimana kalau harga satuannya dimunculkan juga (kalau harganya sudah standard).
Salam,
ASL
From: p4ch.m4n@gmail.com
To: belajar-excel@yahoogroups.com
Date: Fri, 6 Dec 2013 15:02:12 +0700
Subject: Re: [belajar-excel] Cara merekap data di beda sheet [1 Attachment]
Oke Ms. Jan success caranya smua. Maaf msh ada pertanyaan lagi bgmn cara merubah no invoicenya secara otomatis, karena skrg sudah no 2374. Saya mencoba memodifikasi dengan menambah surat jalan dg cara mencopy dr invoice hehehehe.... Mr Ahmad trima kasih atas masukannya, sangat bermanfaat..
2013/12/6 Jan Raisin <miss.jan.raisin@gmail.com>
Ikutan ya..
pertanyaan nomor 1:bgmn cara mengsetting agar tulisan Print, Cancel, Save tidak ikut ke print
untuk yang printnya, script awal sbb:
ActiveWindow.SelectedSheets.PrintPreview
diganti menjadi:Dim sht As String ' deklarasi variabel untuk menyimpan nama sheet
sht = ActiveSheet.Name ' ambil nama sheet dan simpan ke variabel
Sheets(sht).Range("a1:k28").PrintPreview ' print preview kolom A sampai K baris 1 sampai 28
pertanyaan nomor 2:
bgmn cara menglock row dan kolom yg saya unhide agar datanya tidak dapat di rubah2
salah satu dari banyak cara adalah sbb:
(1) klik kanan HANYA pada cel yang boleh diubah oleh user
(2) pilih Format Cell
(3) klik tab Protection(4) hilangkan tanda cek list pada kotak Locked
setelah itu lakukan proteksi terhadap sheet dengan cara:
(1) klik kanan pada nama sheet(2) pilih Protect sheet(3) hilangkan tanda ceklist pada Selected locked cells
(4) masukkan password untuk melakukan unprotect, setelah ini akan diminta konfirmasi ulang
hati-hati, jika anda lupa passwordnya maka anda pun akan kehilangan akses untuk mengubah isi worksheetsebagai antisipasi, copy dahulu workbooknya dan simpan dengan nama lain.
semoga penjelasannya sesuai dengan yang diharapkan
Salam,
-Miss Jan Raisin-
Pada 6 Desember 2013 11.36, Fachry Rizal <p4ch.m4n@gmail.com> menulis:
Alhamdulillah smuanya sudah terselesaikan oleh mr Ahmad Lubis. tp msh ada sedikit lg yg mengganjal saya yaitu ketika akan memprint garis pada kolom K9:K16 tidak muncul dan bgmn cara mengsetting agar tulisan Print, Cancel, Save tidak ikut ke print. Dan juga bgmn cara menglock row dan kolom yg saya unhide agar datanya tidak dapat di rubah2 (data terlampir).
Terima kasih untuk bantuannyaa....
2013/12/5 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>
Mr Fachry,
iya saya memang lihat productnya Mr Kid, malah jawaban tsb juga karena saya lihat macronya Mr Kid. Thanks Mr Kid.
tapi saya mau jawab lagi nih agar jumlah baris K11:K16 yang belum terisi tidak muncul tanda minus (-), buatkan aja rumus ini =IF(OR(I10="";J10="");"";I10*J10
terus copy deh tuh rumus dari baris K11 sampai baris K16.
sekedar itu aja.
ASL
From: p4ch.m4n@gmail.com
To: belajar-excel@yahoogroups.com
Date: Thu, 5 Dec 2013 15:11:21 +0700
Subject: Re: [belajar-excel] Cara merekap data di beda sheet
Mr Ahmad lubis, terima kasih atas bantuannya. Sialahkan mengcopy semoga bisa bermanfaat. Itu product by Mr Kid pak ahmad. Maaf ada yg tertinggal pertanyaannya, bgmn jika Jumlah (K11:K16) yg belum terisi tidak muncul tanda minus (-). mohon penyempurnaan dr yang lainnya agar bs lebih maksimal lagi.
saya malah gak bisa memodifikasi seperti yang anda lakukan tuh, bisa buat surat jalan.. )
saya jalankan macronya sepertinya nomor invoicenya otomatis berubah kok, tapi kalau nomor invoice mau direset menjadi nomor urut 001 lagi mudah2an Mis Jan, Mr HK dan BeExceller yang lainnya ada yang mau bantu.
saya ada usul, bagaimana kalau harga satuannya dimunculkan juga (kalau harganya sudah standard).
Salam,
ASL
From: p4ch.m4n@gmail.
To: belajar-excel@
Date: Fri, 6 Dec 2013 15:02:12 +0700
Subject: Re: [belajar-excel] Cara merekap data di beda sheet [1 Attachment]
Oke Ms. Jan success caranya smua. Maaf msh ada pertanyaan lagi bgmn cara merubah no invoicenya secara otomatis, karena skrg sudah no 2374. Saya mencoba memodifikasi dengan menambah surat jalan dg cara mencopy dr invoice hehehehe.... Mr Ahmad trima kasih atas masukannya, sangat bermanfaat..
2013/12/6 Jan Raisin <miss.jan.raisin@
Ikutan ya..
pertanyaan nomor 1:bgmn cara mengsetting agar tulisan Print, Cancel, Save tidak ikut ke print
untuk yang printnya, script awal sbb:
ActiveWindow.
diganti menjadi:Dim sht As String ' deklarasi variabel untuk menyimpan nama sheet
sht = ActiveSheet.
Sheets(sht).
pertanyaan nomor 2:
bgmn cara menglock row dan kolom yg saya unhide agar datanya tidak dapat di rubah2
salah satu dari banyak cara adalah sbb:
(1) klik kanan HANYA pada cel yang boleh diubah oleh user
(2) pilih Format Cell
(3) klik tab Protection(4) hilangkan tanda cek list pada kotak Locked
setelah itu lakukan proteksi terhadap sheet dengan cara:
(1) klik kanan pada nama sheet(2) pilih Protect sheet(3) hilangkan tanda ceklist pada Selected locked cells
(4) masukkan password untuk melakukan unprotect, setelah ini akan diminta konfirmasi ulang
hati-hati, jika anda lupa passwordnya maka anda pun akan kehilangan akses untuk mengubah isi worksheetsebagai antisipasi, copy dahulu workbooknya dan simpan dengan nama lain.
semoga penjelasannya sesuai dengan yang diharapkan
Salam,
-Miss Jan Raisin-
Pada 6 Desember 2013 11.36, Fachry Rizal <p4ch.m4n@gmail.
Alhamdulillah smuanya sudah terselesaikan oleh mr Ahmad Lubis. tp msh ada sedikit lg yg mengganjal saya yaitu ketika akan memprint garis pada kolom K9:K16 tidak muncul dan bgmn cara mengsetting agar tulisan Print, Cancel, Save tidak ikut ke print. Dan juga bgmn cara menglock row dan kolom yg saya unhide agar datanya tidak dapat di rubah2 (data terlampir).
Terima kasih untuk bantuannyaa.
2013/12/5 Ahmad Syaifullah Lubis <syaifullah@hotmail.
Mr Fachry,
iya saya memang lihat productnya Mr Kid, malah jawaban tsb juga karena saya lihat macronya Mr Kid. Thanks Mr Kid.
tapi saya mau jawab lagi nih agar jumlah baris K11:K16 yang belum terisi tidak muncul tanda minus (-), buatkan aja rumus ini =IF(OR(I10="
terus copy deh tuh rumus dari baris K11 sampai baris K16.
sekedar itu aja.
ASL
From: p4ch.m4n@gmail.
To: belajar-excel@
Date: Thu, 5 Dec 2013 15:11:21 +0700
Subject: Re: [belajar-excel] Cara merekap data di beda sheet
Mr Ahmad lubis, terima kasih atas bantuannya. Sialahkan mengcopy semoga bisa bermanfaat. Itu product by Mr Kid pak ahmad. Maaf ada yg tertinggal pertanyaannya, bgmn jika Jumlah (K11:K16) yg belum terisi tidak muncul tanda minus (-). mohon penyempurnaan dr yang lainnya agar bs lebih maksimal lagi.
Fri Dec 6, 2013 6:38 pm (PST) . Posted by:
"Aliif Akbar" aliif.akbar
Terimakasih mr.kid,
Saya pelajari dulu untuk kasus ini,
Salam,
Aliif Akbar
Sent from my Windows Phone Lumia 620
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com>
Sent: 06/12/2013 21:14
To: "BeExcel" <belajar-excel@yahoogroups.com>
Subject: Re: [belajar-excel] Memasukkan foto kedalam userform
Hai Aliif,
Setidaknya ada 2 cara yang relatif memungkinkan dari sekian banyak cara yang memungkinkan, yaitu :
1. memanfaatkan activex datagrid control yang mendapat suplai data dari object recordset ado (object recordset ado bisa juga memanfaatkan activex control adodc). Pastikan seluruh komputer memiliki library yang berisi activex control tersebut. Jika tidak punya, maka userform tidak dapat digunakan.
2. memanfaatkan fitur get external data untuk menghasilkan tabel hasil koneksi disebuah sheet, kemudian menampilkan tabel hasil koneksi tersebut ke sebuah listbox memanfaatkan nama range dan diletakkan dalam properti row source milik listbox. Sayangnya, tipe data setiap kolom dalam listbox adalah text (string). Proses get external data (proses untuk mendapatkan dataset hasil koneksi) bisa juga diperoleh menggunakan ADO. Kemudian recordset ADO tersebut dipindahkan ke suatu variabel array. Lalu, variabel array tersebut mengisi row source sebuah listbox.
Sumber referensinya bisa search di internet.
Wassalam,
Kid.
2013/12/3 Aliif Akbar <aliif.akbar@yahoo.co.id>
selamat pagi,
Mr.Kid,
Hasil jawaban dari Mr.Kid, digabungkan dengan rumus2 yang pernah melayang - layang dimilis rame, jadinya seperti ini --> file terlampir,
mungkin ada yang lebih sederhana.
eh satu lagi Mr.Kid, mau belajar koneksi database Ms Access kemudian di akses menggunakan userform punya Excel aada di link mana yah? ada referensi?
terimakasih.
Aliif Akbar
Sent from my Windows Phone Lumia 620
Pada Sabtu, 30 November 2013 13:11, Aliif Akbar <aliif.akbar@yahoo.co.id> menulis:
Siang,
Mr.Kid,
Terimakasih, nanti coba saya buat, hasilnya saya share kalo uda ataupun belum jadi,
Salam,
Aliif Akbar
Sent from my Windows Phone Lumia 620
From: Mr. Kid
Sent: 29/11/2013 16:36
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Memasukkan foto kedalam userform
Hai Aliif,
Misal dalam userform ada object control image bernama imgFoto
imgFoto.picture=LoadPicture( "filefullname.jpg")
Letakkan di prosedur pemasang gambar.
Wassalam,
Kid.
On Nov 29, 2013 2:03 PM, "Aliif Akbar" <aliif.akbar@yahoo.co.id> wrote:
selamat siang,
dear rekan2 be excel,
mohon bantaunnya untuk bisa membantu, bagaimana cara memasukkan foto kedalamuser form, lampiran dari saya mungkin lebih jelas.
demikian, terimakasih.
salam,
Aliif Akbar
[The entire original message is not included.]
Saya pelajari dulu untuk kasus ini,
Salam,
Aliif Akbar
Sent from my Windows Phone Lumia 620
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.
Sent: 06/12/2013 21:14
To: "BeExcel" <belajar-excel@
Subject: Re: [belajar-excel] Memasukkan foto kedalam userform
Hai Aliif,
Setidaknya ada 2 cara yang relatif memungkinkan dari sekian banyak cara yang memungkinkan, yaitu :
1. memanfaatkan activex datagrid control yang mendapat suplai data dari object recordset ado (object recordset ado bisa juga memanfaatkan activex control adodc). Pastikan seluruh komputer memiliki library yang berisi activex control tersebut. Jika tidak punya, maka userform tidak dapat digunakan.
2. memanfaatkan fitur get external data untuk menghasilkan tabel hasil koneksi disebuah sheet, kemudian menampilkan tabel hasil koneksi tersebut ke sebuah listbox memanfaatkan nama range dan diletakkan dalam properti row source milik listbox. Sayangnya, tipe data setiap kolom dalam listbox adalah text (string). Proses get external data (proses untuk mendapatkan dataset hasil koneksi) bisa juga diperoleh menggunakan ADO. Kemudian recordset ADO tersebut dipindahkan ke suatu variabel array. Lalu, variabel array tersebut mengisi row source sebuah listbox.
Sumber referensinya bisa search di internet.
Wassalam,
Kid.
2013/12/3 Aliif Akbar <aliif.akbar@
selamat pagi,
Mr.Kid,
Hasil jawaban dari Mr.Kid, digabungkan dengan rumus2 yang pernah melayang - layang dimilis rame, jadinya seperti ini --> file terlampir,
mungkin ada yang lebih sederhana.
eh satu lagi Mr.Kid, mau belajar koneksi database Ms Access kemudian di akses menggunakan userform punya Excel aada di link mana yah? ada referensi?
terimakasih.
Aliif Akbar
Sent from my Windows Phone Lumia 620
Pada Sabtu, 30 November 2013 13:11, Aliif Akbar <aliif.akbar@
Siang,
Mr.Kid,
Terimakasih, nanti coba saya buat, hasilnya saya share kalo uda ataupun belum jadi,
Salam,
Aliif Akbar
Sent from my Windows Phone Lumia 620
From: Mr. Kid
Sent: 29/11/2013 16:36
To: belajar-excel@
Subject: Re: [belajar-excel] Memasukkan foto kedalam userform
Hai Aliif,
Misal dalam userform ada object control image bernama imgFoto
imgFoto.picture=
Letakkan di prosedur pemasang gambar.
Wassalam,
Kid.
On Nov 29, 2013 2:03 PM, "Aliif Akbar" <aliif.akbar@
selamat siang,
dear rekan2 be excel,
mohon bantaunnya untuk bisa membantu, bagaimana cara memasukkan foto kedalamuser form, lampiran dari saya mungkin lebih jelas.
demikian, terimakasih.
salam,
Aliif Akbar
[The entire original message is not included.]
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar