Jumat, 12 Oktober 2012

]] XL-mania [[ Digest Number 2494

12 New Messages

Digest #2494
2a
Re: Query Otomatis dengan Data > Web Query by "Kid Mr." nmkid.family@ymail.com
3a
Re: Membuat jarak di no polisi by "M. Nuruddin" nuruddin_mh
3b
Re: Membuat jarak di no polisi by "summonery" summonery
4a
Re: supaya data terproses sendiri by "Joko Purwanto" djoko_exclnt
5a
Bls: ]] XL-mania [[ Membuat jarak di no polisi by "ghozi alkatiri" ghozialkatiri
5b
Bls: ]] XL-mania [[ Membuat jarak di no polisi by "ghozi alkatiri" ghozialkatiri
6a
Fw: ]] XL-mania [[ supaya data terproses sendiri by "hendrik karnadi" hendrikkarnadi
6b
Fw: ]] XL-mania [[ supaya data terproses sendiri by "hendrik karnadi" hendrikkarnadi
8
Merubah Text ke Number by "Ogoet Nazwan" ogoetnazwan
9
sorting dengan array by "akung bambang" akungb

Messages

Thu Oct 11, 2012 10:47 pm (PDT) . Posted by:

"akbar job" akbar_estefan

selamat pagi rekans,

mohon bantuannya ya :).
saya ada 1 folder excel yang isinya adalah posisi persediaan 3 unit usaha
yang akan saya rangkum
dalam 1 file excel yang bernama *rekapan*.

guna mempercepat pekerjaan dan me-minim-kan kesalahan karna proses manual
berulang,
maka saya record perintah macro berdasarkan apa yang saya kerjakan.

setelah saya coba jalankan, ada kendala, macro saya tidak dapat berjalan
(debug).
saya liat baris perintahnya, workbook yang akan saya proses, misal 001.xlsx
harus saya buka dulu dan seterusnya.

pertanyaan saya:
> unit usaha yang akan saya rangkum ada 50an, dengan baris item sekitar
50an,
~bagaimana membuat perintah macro yang bunyinya:
"*buka* file 001.xls, *olah* isi didalamnya, *salin* ke file
rekap.xls, *isikan* nama file di kolom A disetiap barisnya, kemudian *save*,
lalu *beralih* ke file 001.xls, simpan." kemudian
"*buka* file 002.xls, *olah* isi didalamnya, *salin* ke file
rekap.xls, *isikan* nama file di kolom A disetiap barisnya, kemudian *save*,
lalu *beralih* ke file 002.xls, simpan." kemudian
seterusnya hingga file terakhir (misalnya 060.xls)
> urutan file (mungkin - bisa) loncat loncat
~ada kalanya urutan File Loncat, misalnya setelah 001, 002, 004, 005,
006, 010 dan seterusnya, hingga file terakhir

*yang saya maksud *olah* adalah:
baris list data saya *Filter*,
saya hanya ambil *item dengan Qty selain Blank.*
*
*
saya sertakan lampiran dalam format kompresi .zip,
saya sertakan juga file import macro dalam format .bas.

saya ucapkan terima kasih pada rekans semua atas bantuannya.

terima kasih,

Regards.

Akbar

Thu Oct 11, 2012 10:48 pm (PDT) . Posted by:

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

Hai Abin,

Asumsi : telah ada sebuah sheet berisi sebuah web query table (misal
namanya sheet myWeb), dan data
Coba buat disebuah module :
public sub ubahkoneksi()
dim qt as querytable, sCon as string, lPage as long
set qt=sheets("myWeb").querytables(1)
with qt
for lpage=1 to 234
scon= "
https://www.address.co.id/web/data/?m1=1&m2=1&m3=2011&hal=" & lpage
.connection=scon
.refresh false
'proses copy data di sheet myweb ke sheet penyimpanan data
diletakkan disini
next lpage
end with
end sub

Jalankan prosedur tersebut dengan menekan ALT F8 kemudian pilih nama
prosedur diatas dan tekan Run

Wassalam,
Kid.

2012/10/8 abin sierra <abin.sierra@gmail.com>

> **
>
>
> Malam semua...
>
> Sehari2, saya menggunakan Excel untuk melakukan query record dari server
> melalui menu Data > From Web > Address
> Jumlah record yang diambil selama satu bulan mencapai 7000 s/d 10000
> record.
> Aplikasi web server hanya membatasi 30 record per query sehingga untuk
> 7000 record dibutuhkan
> query sebanyak 7000/30 = 234.
> Proses query ini saya lakukan secara manual dengan melakukan copy paste
> url ke menu Data > From Web > Address.
>
> Misal alamat url nya :
> https://www.address.co.id/web/data/?m1=1&m2=1&m3=2011&hal=1
>
> maka saya melakukan copy paste manual
> https://www.address.co.id/web/data/?m1=1&m2=1&m3=2011&hal=1
> ke Data > From Web > Address
> kemudian hasil query saya copy paste ke Excel
>
> Selanjutnya untuk query halaman 2, saya copy paste
> https://www.address.co.id/web/data/?m1=1&m2=1&m3=2011&hal=2
> ke Data > From Web > Address
> kemudian hasil query saya copy paste ke Excel
>
> Selanjutnya untuk query halaman 3, saya copy paste
> https://www.address.co.id/web/data/?m1=1&m2=1&m3=2011&hal=3
> ke Data > From Web > Address
> kemudian hasil query saya copy paste ke Excel
>
> begitu seterusnya sampai hal 234.
> https://www.address.co.id/web/data/?m1=1&m2=1&m3=2011&hal=234
>
> m1 = bulan awal
> m2 = bulan akhir
> m3 = tahun
> hal = halaman web query
>
> Yang saya inginkan adalah sebuah script yang mampu melakukan query
> otomatis dari hal 1 sampai hal terakhir pada bulan awal, bulan akhir dan
> tahun yang bersangkutan.
>
> Saya sangat berharap ada teman-teman yang bersedia berbagi.
> Terima kasih atas berbaginya.
> Salam.
>
>
>

Thu Oct 11, 2012 10:48 pm (PDT) . Posted by:

"M. Nuruddin" nuruddin_mh

Kayak gini kah?

----- Original Message -----
From: hendra Sembiring
To: xl-mania@yahoogroups.com
Sent: Tuesday, October 09, 2012 8:35 AM
Subject: ]] XL-mania [[ Membuat jarak di no polisi

DEar Para Suhu,
Mohon saya di bantu untuk membuat jarak di no polisi,
terlampir di attacment.
Terima kasih


Thu Oct 11, 2012 10:49 pm (PDT) . Posted by:

"summonery" summonery

coba juga,
=REPLACE(REPLACE(B2,MATCH(1,INDEX(-MID(B2,ROW($1:$8),1),))+1,,"-"),3-(MI\
D(B2,2,1)<"A"),,"-")
KT2153AV hasilnya: KT-2153-AVKT2879R hasilnya: KT-2879-RB2332JP
hasilnya: B-2332-JP

>semoga bermanfaat

--- In XL-mania@yahoogroups.com, "Kid Mr." <mr.nmkid@...> wrote:
>
> C2 :
>
=REPLACE(REPLACE(B2,LOOKUP(2,1/(MID(B2&REPT("x",10),ROW($1:$10),1)<"A"),\
ROW($2:$11)),0,"-"),3-(MID(B2,2,1)<"A"),0,"-")
>
> Kid
>
> 2012/10/9 hendra Sembiring hcpt@...
>
> > **
> >
> >
> > DEar Para Suhu,
> > Mohon saya di bantu untuk membuat jarak di no polisi,
> > terlampir di attacment.
> > Terima kasih
> >
> >
> >
> >
>

Thu Oct 11, 2012 10:48 pm (PDT) . Posted by:

"Joko Purwanto" djoko_exclnt

Dear Mr. Anga or Angga,

Mungkin contoh berikut bisa menjawab pertanyaan Anda. Semangat terus
belajar excel@ XL-mania

Regards,

Note: untuk file jawaban-2 di simpan di directory C:\

Thu Oct 11, 2012 10:48 pm (PDT) . Posted by:

"ghozi alkatiri" ghozialkatiri

maaf ada kesalahan penulisan formula pada tulisan saya sebelumnya yang benar adalah :
{=SUBSTITUTE(B2;MID(B2;MIN(IF(ISNUMBER(--MID(B2;ROW($1:$10);1));ROW($1:$10)));COUNT(IF(ISNUMBER(--MID(B2;ROW($1:$10);1));ROW($1:$10))));"-"&MID(B2;MIN(IF(ISNUMBER(--MID(B2;ROW($1:$10);1));ROW($1:$10)));COUNT(IF(ISNUMBER(--MID(B2;ROW($1:$10);1));ROW($1:$10))))&"-")}

wassalam

Ghozi Alkatiri

________________________________
Dari: hendra Sembiring <hcpt@ymail.com>
Kepada: xl-mania@yahoogroups.com
Dikirim: Selasa, 9 Oktober 2012 8:35
Judul: ]] XL-mania [[ Membuat jarak di no polisi


 
DEar Para Suhu,
Mohon saya di bantu untuk membuat jarak di no polisi,
terlampir di attacment.
Terima kasih

Thu Oct 11, 2012 10:51 pm (PDT) . Posted by:

"ghozi alkatiri" ghozialkatiri

formula array

{=SUBSTITUTE(B2;MID(B2;MIN(IF(ISNUMBER(--MID($B$12;ROW($1:$10);1));ROW($1:$10)));COUNT(IF(ISNUMBER(--MID($B$12;ROW($1:$10);1));ROW($1:$10))));"-"&MID(B2;MIN(IF(ISNUMBER(--MID($B$12;ROW($1:$10);1));ROW($1:$10)));COUNT(IF(ISNUMBER(--MID($B$12;ROW($1:$10);1));ROW($1:$10))))&"-")}

wassalam

Ghozi Alkatiri

________________________________
Dari: hendra Sembiring <hcpt@ymail.com>
Kepada: xl-mania@yahoogroups.com
Dikirim: Selasa, 9 Oktober 2012 8:35
Judul: ]] XL-mania [[ Membuat jarak di no polisi


 
DEar Para Suhu,
Mohon saya di bantu untuk membuat jarak di no polisi,
terlampir di attacment.
Terima kasih

Thu Oct 11, 2012 10:49 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Macro di bawah ini berfungsi untuk menyimpan file pada Dir dan Sub Dir tertentu sesuai dengan nama yang diinginkan (diinput) dan dengan extension tetentu.
Pilih salah satu baris program (xlsm, xls atau xlsb) dan non aktifkan dua baris program yang lain dengan memberi tanda apostropi(') untuk menyimpan file dengan extension tertentu.

Salah satu cara untuk mengkatifkan macronya adalah dengan menggunakan tombol Short Cut seperti yang disebutkan dalam pertanyaan.

Salam,
Hendrik Karnadi

Catatan : Macro yang tertulis di bawah dapat di copy paste ke sheet VBA (module1)

----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Wednesday, 10 October 2012, 16:19
Subject: Fw: ]] XL-mania [[ supaya data terproses sendiri


Untuk pertanyaan pertama coba buat macro ini pada module1:

Sub Tes()
    On Error GoTo Pesan
    Dim a As String
    a = InputBox("Masukkan Dir dan Sub Dir")
    ChDir a
    b = InputBox("Masukkan Nama File, mis. Testing")
    ActiveWorkbook.SaveAs Filename:=a & "\" & b, FileFormat:=xlOpenXMLWorkbookMacroEnabled 'xlsm
    ActiveWorkbook.SaveAs Filename:=a & "\" & b, FileFormat:=xlExcel8'xls
    ActiveWorkbook.SaveAs Filename:=a & "\" & b, FileFormat:=xlExcel12'xlsb
    Exit Sub
Pesan:
    MsgBox "Dir atau Sub Dir tidak ada"
End Sub

Salam,
Hendrik Karnadi

----- Forwarded Message -----
From: Erna Kustanti <ErnaKustanti@sbm.shimano.com.sg>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Wednesday, 10 October 2012, 8:05
Subject: RE: ]] XL-mania [[ supaya data terproses sendiri


 
Teman,
 
Saya ada salah satu cara untuk pertanyaan ke dua:
 
Di kolom F masukkan formula:
 
=right(E1,3)
 
Dia akan membaca dikolom E1 3 digit dari kanan jadi yang muncul "JKT"
Dengan catatan jika semua daerah singkatan nya Cuma 3 digit..
 
Semoga membantu.. J
 
From:XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of anga
Sent: Tuesday, October 09, 2012 8:29 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ supaya data terproses sendiri
 
 
malam teman2 semua, Saya mau tanya,
beberapa hari yang lalu saya melihat teman saya menggunakan macro, dan saya sangat tertarik dengan hal tersebut,,

disini ada bebrapa hal yang mau saya tanyakan

1. bagaimana caranya supaya data kita bisa terproses sendiri hanya dengan memasukkan lokasi penyimpanan file "C:\Users\zin\Documents\TT"
waktu itu saya lihat teman saya hanya menekan tombol kombinasi "CTRL+R" maaka keluar window untuk memasukkan adress file

2. Bagaimana caranya jika saya mempunyai tabel A, B, C, D, E
di tabel E1 dan seterusnya berisi perpaduan antara nama orang dan daerah orang seperti :

Kolom E1 : Joni-JKT
Kolom E2 : Budi-BDG
Kolom E3 : Doni-SMR
dan seterusnya

bagaimana caranya supaya muncul kolom F secara otomatis yang isinya hanya mengenai nama daerah saja yang mengacu pada kolom E berdasarkan kode daerah yang terdapat dibelakang nama.

terimakasih, :)

Thu Oct 11, 2012 10:53 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Untuk pertanyaan pertama coba buat macro ini pada module1:

Sub Tes()
    On Error GoTo Pesan
    Dim a As String
    a = InputBox("Masukkan Dir dan Sub Dir")
    ChDir a
    b = InputBox("Masukkan Nama File, mis. Testing")
    ActiveWorkbook.SaveAs Filename:=a & "\" & b, FileFormat:=xlOpenXMLWorkbookMacroEnabled 'xlsm
    ActiveWorkbook.SaveAs Filename:=a & "\" & b, FileFormat:=xlExcel8'xls
    ActiveWorkbook.SaveAs Filename:=a & "\" & b, FileFormat:=xlExcel12'xlsb
    Exit Sub
Pesan:
    MsgBox "Dir atau Sub Dir tidak ada"
End Sub

Salam,
Hendrik Karnadi

----- Forwarded Message -----
From: Erna Kustanti <ErnaKustanti@sbm.shimano.com.sg>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Wednesday, 10 October 2012, 8:05
Subject: RE: ]] XL-mania [[ supaya data terproses sendiri


 
Teman,
 
Saya ada salah satu cara untuk pertanyaan ke dua:
 
Di kolom F masukkan formula:
 
=right(E1,3)
 
Dia akan membaca dikolom E1 3 digit dari kanan jadi yang muncul "JKT"
Dengan catatan jika semua daerah singkatan nya Cuma 3 digit..
 
Semoga membantu.. J
 
From:XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of anga
Sent: Tuesday, October 09, 2012 8:29 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ supaya data terproses sendiri
 
 
malam teman2 semua, Saya mau tanya,
beberapa hari yang lalu saya melihat teman saya menggunakan macro, dan saya sangat tertarik dengan hal tersebut,,

disini ada bebrapa hal yang mau saya tanyakan

1. bagaimana caranya supaya data kita bisa terproses sendiri hanya dengan memasukkan lokasi penyimpanan file "C:\Users\zin\Documents\TT"
waktu itu saya lihat teman saya hanya menekan tombol kombinasi "CTRL+R" maaka keluar window untuk memasukkan adress file

2. Bagaimana caranya jika saya mempunyai tabel A, B, C, D, E
di tabel E1 dan seterusnya berisi perpaduan antara nama orang dan daerah orang seperti :

Kolom E1 : Joni-JKT
Kolom E2 : Budi-BDG
Kolom E3 : Doni-SMR
dan seterusnya

bagaimana caranya supaya muncul kolom F secara otomatis yang isinya hanya mengenai nama daerah saja yang mengacu pada kolom E berdasarkan kode daerah yang terdapat dibelakang nama.

terimakasih, :)

Thu Oct 11, 2012 10:52 pm (PDT) . Posted by:

"Steven Rambi" steven_bfi

Dear Para Master Excel,

Saya membuat hasil transaksi pulsa detail seperti  file terlampir ini (maaf tidak dijabarkan karena panjang),
singkatnya :

data awal:
 
|| No || Nama || No.Hape || Nominal || Operator || Status   ||   Utang    ||   Lunas     ||   Tanggal transaksi ||
   1       jeje         0856            10          ind           l                   -              12000          3 okt 2012                    
   2       doni         0878           25            xl           u                27000              -             5 okt 2012
   3       jeje         0857            50          ind            u              52000               -            7 okt 2012   

Hasilnya:

|| Nama :  jeje           ||
|| No || Tanggal transaksi || No. Hape || Nominal || Operator   || Status    ||  Utang   ||   Lunas ||
   1      3 okt 2012               0856            10              ind              l                           12000                                                                         
   2      7 okt 2012               0857            50              ind              u         52000          -                                                                                           

 



















Masalahnya :
Saya ingin merekap transaksi berdasarkan nama customer dari sheet detail transaksi
Jadi jika saya ketik pada kolom nama "jeje" atau "joko" maka tabel dibawah akan otomatis terlihat transaksinya dari sheet detail transaksi tsb


formula apa yang cocok untuk saya gunakan ? Apakah bisa dengan cara pivot table atau tidak?

Mohon bantuannya dari para master excel,,, (**,)

File terlampir.

Terima kasih yaaaa master master Excel

Salam
Sahabat
Even

Thu Oct 11, 2012 10:54 pm (PDT) . Posted by:

"Ogoet Nazwan" ogoetnazwan

Dear

para pakar XL,

Bagaimana merubah format Text ke Number tanpa menggunakan Macro.sesuai data terlampir

Mohon maaf jika sudah pernah dibahas sebelumnya.Mohon bantuannya berhubung datanya banyak.

Terimakasih
Nazwan

Thu Oct 11, 2012 10:55 pm (PDT) . Posted by:

"akung bambang" akungb

salam hormat, mohon bantuan untuk membuat rumus sorting data dengan array, pada lampiran. terimakasih.
GROUP FOOTER MESSAGE
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat jalan SitiVi, semoga bahagia di sisi-Nya...               |
| Maaf moderasi lemooOooOott... momods siboek                       |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Tidak ada komentar:

Posting Komentar