Messages In This Digest (15 Messages)

1a.: Re: membedakan format "mm" untuk MINUTE dan untuk MONTH From: Udin Haeruddin

2a.: Re: Bagaimana cara mengeluarkan gambar dengan vlookup ? From: Syamsudin Syamsudin
2b.: Re: Bagaimana cara mengeluarkan gambar dengan vlookup ? From: Kid Mr.

3a.: menjalankan .BATdengan VBA From: ppc lambda
3b.: Re: menjalankan .BATdengan VBA From: STDEV(i)
3c.: Re: menjalankan .BATdengan VBA From: ppc lambda

4.: Lookup dari Table yang berbeda From: Mansor

5a.: Bls: [belajar-excel] Macro excel copy data ke posisi terakhir From: Dewan Deya
5b.: Re: Macro excel copy data ke posisi terakhir From: Franciscus SOG

6a.: Bls: [belajar-excel] Membuat Rangking Kelas From: wawan tawon

7a.: ubah format pdf menjadi xls .. bisakah? From: Mulki Akbar
7b.: Bls: [belajar-excel] ubah format pdf menjadi xls .. bisakah? From: dwint ruswanto
7c.: Bls: [belajar-excel] ubah format pdf menjadi xls .. bisakah? From: Undang Satrianie

8a.: mengurutkan data From: R T Gultom
8b.: Re: mengurutkan data From: Haps

View All Topics | Create New Topic

Messages

1a.: Re: membedakan format "mm" untuk MINUTE dan untuk MONTH

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

Tue Oct 18, 2011 8:02 am (PDT)

Ternyata begitu. Trim atas infonya Mbak Haps.

====== Haeruddin, S.Pd ======

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

2a.: Re: Bagaimana cara mengeluarkan gambar dengan vlookup ?

Posted by: "Syamsudin Syamsudin" syamsudin.syamsudin@cpp.co.id

Tue Oct 18, 2011 9:21 am (PDT)

Sori mod,....kegedean yach....yg ini aja dech...

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of belajar-excel-owner@yahoogroups.com
Sent: 18 Oktober 2011 13:34
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Re: Bagaimana cara mengeluarkan gambar dengan vlookup ?

waduh... pak syamsudin pasti lupa ya..??!
lampirannya kok sampai 1 mega, gimana atuh..
(milis mengatur agar lampiran max 250 KB)

===Mods===

--- In belajar-excel@yahoogroups.com<mailto:belajar-excel%40yahoogroups.com>, Syamsudin Syamsudin <syamsudin.syamsudin@...> wrote:
>
> Halo juga fren...
>
> Ini salah satu contoh lookup picture....
> Kalo formulanya ...tanya ke bu siti vi ya...
>
>
> From: belajar-excel@yahoogroups.com<mailto:belajar-excel%40yahoogroups.com> On Behalf Of Asseggaf
> Sent: 18 Oktober 2011 1:17
> Halo guys,...
> Kayanya perlu bantuan nih untuk membuat formula vlookup yang bisa mengeluarkan gambar,...
> untuk lebih jelasnya bisa liat di file yang saya attach ini

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)
2b.: Re: Bagaimana cara mengeluarkan gambar dengan vlookup ?

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

Tue Oct 18, 2011 9:23 am (PDT)

Berikut file dari Pak Syamsudin.

Kid.

2011/10/18 Syamsudin Syamsudin <syamsudin.syamsudin@cpp.co.id>

> **
>
>
> Sori mod,....kegedean yach....yg ini aja dech...
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of belajar-excel-owner@yahoogroups.com
> Sent: 18 Oktober 2011 13:34
> To: belajar-excel@yahoogroups.com
> Subject: [belajar-excel] Re: Bagaimana cara mengeluarkan gambar dengan
> vlookup ?
>
>
> waduh... pak syamsudin pasti lupa ya..??!
> lampirannya kok sampai 1 mega, gimana atuh..
> (milis mengatur agar lampiran max 250 KB)
>
> ===Mods===
>
> --- In belajar-excel@yahoogroups.com<mailto:
> belajar-excel%40yahoogroups.com>, Syamsudin Syamsudin
> <syamsudin.syamsudin@...> wrote:
> >
> > Halo juga fren...
> >
> > Ini salah satu contoh lookup picture....
> > Kalo formulanya ...tanya ke bu siti vi ya...
> >
> >
> > From: belajar-excel@yahoogroups.com<mailto:
> belajar-excel%40yahoogroups.com> On Behalf Of Asseggaf
>
> > Sent: 18 Oktober 2011 1:17
> > Halo guys,...
> > Kayanya perlu bantuan nih untuk membuat formula vlookup yang bisa
> mengeluarkan gambar,...
> > untuk lebih jelasnya bisa liat di file yang saya attach ini
>
>
>

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

3a.: menjalankan .BATdengan VBA

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

Tue Oct 18, 2011 5:34 pm (PDT)

Maize

hai be-excel selamat pagi
semoga selalu dikaruniai allah ide-2 cemerlang hari ini
be-excel, nanya nich, saya punya file .BAT (cmd) gimana cara menjalankannya namun dengan VBA excel

atas respon dan solusinya saa ucapkan
Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
3b.: Re: menjalankan .BATdengan VBA

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Tue Oct 18, 2011 6:08 pm (PDT)

sambil menunggu tanggapan dari temans lain...
mungkin begini

Sub BlaBlaBla()
Dim PthFNm As String
PthFNm = "CD:\FolderQ\NamaFile.bat"
Call Shell(Environ$("COMSPEC") & PthFNm, vbNormalFocus)
End Sub

2011/10/19 ppc lambda <ppc_03@sami.co.id>
>
> hai be-excel selamat pagi
> semoga selalu dikaruniai allah ide-2 cemerlang hari ini
> be-excel, nanya nich, saya punya file .BAT (cmd) gimana cara
menjalankannya namun dengan VBA excel
>
> atas respon dan solusinya saa ucapkan
> Terimakasih
> Best Regard
>
> sidoel

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
3c.: Re: menjalankan .BATdengan VBA

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

Tue Oct 18, 2011 8:09 pm (PDT)

ok, terimakasih bu siti
akan saya aplikasikan sesuai kebutuhan saya

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From: STDEV(i)
To: belajar-excel@yahoogroups.com
Sent: Wednesday, October 19, 2011 8:08 AM
Subject: Re: [belajar-excel] menjalankan .BATdengan VBA

sambil menunggu tanggapan dari temans lain...

mungkin begini

Sub BlaBlaBla()
Dim PthFNm As String
PthFNm = "CD:\FolderQ\NamaFile.bat"
Call Shell(Environ$("COMSPEC") & PthFNm, vbNormalFocus)
End Sub

2011/10/19 ppc lambda <ppc_03@sami.co.id>
>
> hai be-excel selamat pagi
> semoga selalu dikaruniai allah ide-2 cemerlang hari ini
> be-excel, nanya nich, saya punya file .BAT (cmd) gimana cara menjalankannya namun dengan VBA excel
>
> atas respon dan solusinya saa ucapkan
> Terimakasih
> Best Regard
>
> sidoel

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

4.: Lookup dari Table yang berbeda

Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980

Tue Oct 18, 2011 8:08 pm (PDT)

Dear Pakar pakar Excel yang terhormat,

Saya dalam rangka mau menyiapkan satu template yang akan digunakan oleh
karyawan untuk melakukan input data secara massal
ke Sistem SAP. Data tersebut terlalu banyak, dan tujuanya ialah untuk
pekerjaan mereka jadi lebih simple dan menggurangkan human error.
File berkenaan ada saya lampirkan.

Terima Kasih

Mansor

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

5a.: Bls: [belajar-excel] Macro excel copy data ke posisi terakhir

Posted by: "Dewan Deya" dwanxls@yahoo.co.id dwanxls

Tue Oct 18, 2011 8:28 pm (PDT)

Sudah di coba sesuai listing di bawah. Masih belom bisa jalan.

file terlampir.

________________________________
Dari: Haps <hapsari.stlizbeth@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 18 Oktober 2011 15:20
Judul: Re: [belajar-excel] Macro excel copy data ke posisi terakhir

maaf ikutan..
Procedure yg ada di module milik Workbook SAMPLE.xls

seharusnya seperti ini (bandingkan dengan teliti) vl makro tulisan pak Dewan

Sub KopiTranspose()

Dim CellTujuan1 As Range, CellTujuan2 As Range

Set CellTujuan1 = Sheet2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
Set CellTujuan2 = Sheet2.Cells(Rows.Count, 11).End(xlUp).Offset(1, 0)

Sheets("Master").Range("c3:c11").Copy
CellTujuan1.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True

Sheets("Master").Range("D13:D17").Copy
CellTujuan2.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True

End Sub

sepertinya bapak harus membaca helpnya, bgmana cara merujuk sheet
(ada beberapa cara)
- dengan menyebut indexnyaSheets(1) , Sheets(6) dst..
- dengan menyebut NAMA nyaSheets("NamaSheet") , Sheets("Sheet10")
-dengan menyebut CodeName nya Sheet1 , Sheet32, dst
. dengan mengexpresikan object sheet tsb (banyak cara)
misalnya CellTujuan1.Parent.Range("A1:A1000")
adalah object range yg berada di sheet2 (yaitu sheet yg menjadi induk (parent)
bagi range yg bernama CellTujuan1
dst...

-hapsari-

2011/10/18 Dewan Deya <dwanxls@yahoo.co.id>

>B' Siti
>Saya sudah coba aplikasikan listing VB nya dengan mengcreate file excel baru (nama file nya : Book121.xls). dan VB nya berhasil sesuai dengan yang diharapkan.
>
>Kemudian saya coba VB tersebut di file excel yang sudah ada (nama file excel nya : sample.xls). Terjadi error. Error 424.
>
>Berikut listing di file sample.xls
>
>Sub Transpose()
>'
>' Transpose Macro
>' Matrix transpose
>'
>' Keyboard Shortcut: Ctrl+Shift+O
>'
>Dim CellTujuan1 As Range
>Dim CellTujuan2 As Range
>
>Set CellTujuan1 =Market2011.Cells(Row.Count, 2).End(xlUp).Offset(1, 0)
>Set CellTujuan2 = Market2011.Cells(Row.Count, 11).End(xlUp).Offset(1, 0)
>
>Master.Range("c3:c11").Copy
>CellTujuan1.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
>
>Master.Range("D13:D17").Copy
>CellTujuan2.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
>End Sub
>
>Dan dibawah ini adalah listing VB dari fileBook121.xls
>
>Sub Macro1()
>'
>' Macro1 Macro
>'
>' Keyboard Shortcut: Ctrl+n
>'
>Dim CellTujuan1 As Range
>Dim CellTujuan2 As Range
>
>Set CellTujuan1 = Sheet2.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)
>Set CellTujuan2 = Sheet2.Cells(Rows.Count, 6).End(xlUp).Offset(1, 0)
>
>Sheet1.Range("d4:d8").Copy
>CellTujuan1.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
>=False, Transpose:=True
>
>Sheet1.Range("D16:D20").Copy
>CellTujuan2.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
>
>End Sub
>
>Pada file Book121.xls nama sheet nya saya ubah, sheet1 menjadi master dan sheet2 menjadi index2011. Dan VB tetap bisa berjalan.
>Berikut saya lampirkan ke dua file tersebut.
>
>Sebelumnya saya ucapkan terimakasih.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (19)
5b.: Re: Macro excel copy data ke posisi terakhir

Posted by: "Franciscus SOG" jclugbu@gmail.com elijah_spirit

Tue Oct 18, 2011 9:13 pm (PDT)

Dear Pak Dewan,

Panggil pak Dewan gpp ya, kan ga mau dipanggil pak Menteri (eh salah orang ya)..

Untuk kasus Anda, bedakan antara penulisan Row dengan Rows.

Benar :
Set CellTujuan1 = Sheet2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)

Salah :
Set CellTujuan1 = Sheet2.Cells(Row.Count, 2).End(xlUp).Offset(1, 0)

Just it. Semoga membantu.

Blessings,

Fran'z

On 10/19/11, Dewan Deya <dwanxls@yahoo.co.id> wrote:
> Sudah di coba sesuai listing di bawah. Masih belom bisa jalan.
>
>
> file terlampir.
>
>
>
>
> ________________________________
> Dari: Haps <hapsari.stlizbeth@gmail.com>
> Kepada: belajar-excel@yahoogroups.com
> Dikirim: Selasa, 18 Oktober 2011 15:20
> Judul: Re: [belajar-excel] Macro excel copy data ke posisi terakhir
>
>
>
> maaf ikutan..
> Procedure yg ada di module milik Workbook SAMPLE.xls
>
> seharusnya seperti ini (bandingkan dengan teliti) vl makro tulisan pak
> Dewan
>
> Sub KopiTranspose()
>
> Dim CellTujuan1 As Range, CellTujuan2 As Range
>
> Set CellTujuan1 = Sheet2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
> Set CellTujuan2 = Sheet2.Cells(Rows.Count, 11).End(xlUp).Offset(1, 0)
>
> Sheets("Master").Range("c3:c11").Copy
> CellTujuan1.PasteSpecial Paste:=xlPasteValues, _
> Operation:=xlNone, SkipBlanks:=False, Transpose:=True
>
> Sheets("Master").Range("D13:D17").Copy
> CellTujuan2.PasteSpecial Paste:=xlPasteValues, _
> Operation:=xlNone, SkipBlanks:=False, Transpose:=True
>
> End Sub
>
> sepertinya bapak harus membaca helpnya, bgmana cara merujuk sheet
> (ada beberapa cara)
> - dengan menyebut indexnyaSheets(1) , Sheets(6) dst..
> - dengan menyebut NAMA nyaSheets("NamaSheet") , Sheets("Sheet10")
> -dengan menyebut CodeName nya Sheet1 , Sheet32, dst
> . dengan mengexpresikan object sheet tsb (banyak cara)
> misalnya CellTujuan1.Parent.Range("A1:A1000")
> adalah object range yg berada di sheet2 (yaitu sheet yg menjadi induk
> (parent)
> bagi range yg bernama CellTujuan1
> dst...
>
> -hapsari-
>
>
>
> 2011/10/18 Dewan Deya <dwanxls@yahoo.co.id>
>
>
>>B' Siti
>>Saya sudah coba aplikasikan listing VB nya dengan mengcreate file excel
>> baru (nama file nya : Book121.xls). dan VB nya berhasil sesuai dengan yang
>> diharapkan.
>>
>>Kemudian saya coba VB tersebut di file excel yang sudah ada (nama file
>> excel nya : sample.xls). Terjadi error. Error 424.
>>
>>Berikut listing di file sample.xls
>>
>>Sub Transpose()
>>'
>>' Transpose Macro
>>' Matrix transpose
>>'
>>' Keyboard Shortcut: Ctrl+Shift+O
>>'
>>Dim CellTujuan1 As Range
>>Dim CellTujuan2 As Range
>>
>>Set CellTujuan1 =Market2011.Cells(Row.Count, 2).End(xlUp).Offset(1, 0)
>>Set CellTujuan2 = Market2011.Cells(Row.Count, 11).End(xlUp).Offset(1, 0)
>>
>>Master.Range("c3:c11").Copy
>>CellTujuan1.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks:=False, Transpose:=True
>>
>>Master.Range("D13:D17").Copy
>>CellTujuan2.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks:=False, Transpose:=True
>>End Sub
>>
>>Dan dibawah ini adalah listing VB dari fileBook121.xls
>>
>>Sub Macro1()
>>'
>>' Macro1 Macro
>>'
>>' Keyboard Shortcut: Ctrl+n
>>'
>>Dim CellTujuan1 As Range
>>Dim CellTujuan2 As Range
>>
>>Set CellTujuan1 = Sheet2.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)
>>Set CellTujuan2 = Sheet2.Cells(Rows.Count, 6).End(xlUp).Offset(1, 0)
>>
>>Sheet1.Range("d4:d8").Copy
>>CellTujuan1.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks _
>>=False, Transpose:=True
>>
>>Sheet1.Range("D16:D20").Copy
>>CellTujuan2.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks:=False, Transpose:=True
>>
>>End Sub
>>
>>Pada file Book121.xls nama sheet nya saya ubah, sheet1 menjadi master dan
>> sheet2 menjadi index2011. Dan VB tetap bisa berjalan.
>>Berikut saya lampirkan ke dua file tersebut.
>>
>>Sebelumnya saya ucapkan terimakasih.
>

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

6a.: Bls: [belajar-excel] Membuat Rangking Kelas

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

Tue Oct 18, 2011 9:20 pm (PDT)

Terima kasih utk tanggapannya...saya akan mencoba dulu

________________________________
Dari: STDEV(i) <setiyowati.devi@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 18 Oktober 2011 18:11
Judul: Re: [belajar-excel] Membuat Rangking Kelas

Kalau inginnya cara biasa:
Menu (Tab) Data > SORT
Tabel di-Sort, Descendng (menurun), kolom nilai sebagai kolom kunci
Nomor rangking dibuat sendiri atau dengan formula ROW(1:N)

Kalau tidak ingin setiap kali me SORT
Formula bisa menghasilkan data (di kolom lain) yg hasilnya seperti DI SORT.
Untuk hal seperti ini Fungsi utama yg akan dipakai adalah fungsi LARGE
(sorting menurun, descending) atau SMALL (sorting menaik, ascending)

Seandainya pak Tawon berkenan mengajukan CONTOH datanya dalm workbook
(sedikiiiiittt saja deh), formula akan dapat dipraktekkan oleh penjawab ke dalam
workbook yg bapak ajukan itu (kalau si penjawab membuat sendiri workbook
nya kayaknya tidak terlalu lucu dan bisa salah, tidak sesuai denan keperluan
yg bapak Tawon hadapi)
Btw, klik di sini ada contoh tetapi pakai makro, bisa untuk sekedar hiburan;
bapak unduh /download dulu (guratis..), kemudian docoba-coba...
(nama file RankingReport atas DaftarNilaiSiswa.zip, 33 KB )

Sebelum menjalankan file ini sebaiknya baca-baka dulu "mukadimahnya"
yg pernah diposted di milis sebelah:
http://tech.groups.yahoo.com/group/XL-mania/message/18164

mungkin in perlu juga:
http://tech.groups.yahoo.com/group/XL-mania/message/18958

2011/10/18 wawan tawon <tawon_cbr@yahoo.co.id>

>
>Selamat sore,
>Mohon maaf sebelumnya pabila sudah ada topik yg sama telah lebih dulu di bahas pada milis ini.
>
>
>Yang ingin saya ketahui adalah Apakah ada formula lain selain =RANK(Number, Ref, order) yang dapat digunakan utk menentukan perengkingan siswa kelas. Hal ini karena bila menggunakan formula tadi maka apabila ada siswa yang mempunyai nilai yg sama akan terjadi "Perengkingan loncat".
>Mohon kiranya sudi membagi bantuannya kepada saya.
>
>
>
>
>TYVM

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

7a.: ubah format pdf menjadi xls .. bisakah?

Posted by: "Mulki Akbar" mulki@aop.component.astra.co.id mulki_akbar

Tue Oct 18, 2011 9:20 pm (PDT)

Assalamu'alaikum wr. wb.

Mohon maaf sebelumnya kalo topik ini pernah dibahas ebelumnya dan sedikit OOT.

Saya memiliki data dlm format pdf dan mau di ubah ke excel supaya mudah di edit.
Kalo mungkin, Mohon pencerahannya.

Thx & wassalam,
mulki

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
7b.: Bls: [belajar-excel] ubah format pdf menjadi xls .. bisakah?

Posted by: "dwint ruswanto" dwint.ruswanto@yahoo.co.id dwint.ruswanto

Wed Oct 19, 2011 2:20 am (PDT)

Wa'alaikum salam wr. wb.,

Q: bisa gak PDF dirubah ke excel?
A: BISA

Q: pake softwarenya apa?
A: banyak software converter dari PDF ke Excel, Word, atau ke Office.. coba tanya ke mbah gugel

Q: harganya berapa?
A: bervariasi tergantung jenisnya tapi biasanya pake dollar

Q: ada yang gratis gak?
A: setau saya belum ada.. cmiiw (kata mbak Siti "Colek Me If Ayem Wrong")

Q: ada bajakannya gak?
A: di Indonesia apa sih yang gak dibajak?

Q: bisa kasih link bajakannya?
A: saya gak ada.. mungkin bisa coba ke situs-situs underground.. tapi resiko kena virus, malware, trojan dll ditanggung sendiri

semoga bermafaat.. :D

________________________________
Dari: Mulki Akbar <mulki@aop.component.astra.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 19 Oktober 2011 11:05
Judul: [belajar-excel] ubah format pdf menjadi xls .. bisakah?

Assalamu'alaikum wr. wb.

Mohon maaf sebelumnya kalo topik ini
pernah dibahas ebelumnya dan sedikit OOT.

Saya memiliki data dlm format pdf dan mau
di ubah ke excel supaya mudah di edit.
Kalo mungkin, Mohon
pencerahannya.

Thx & wassalam,
mulki

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
7c.: Bls: [belajar-excel] ubah format pdf menjadi xls .. bisakah?

Posted by: "Undang Satrianie" und4nk@rocketmail.com und4nk@rocketmail.com

Wed Oct 19, 2011 2:44 am (PDT)

Coba Pake Able2extract

Untuk Versi trial bisa di Download Disini, Ini Sudah Versi Terbaru ( Versi 7.0)
Untuk Versi 6,..... dulu harganya ± 1,8 jt

Mudah-mudahan bisa Bermanfaat

________________________________
Dari: Mulki Akbar <mulki@aop.component.astra.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 19 Oktober 2011 11:05
Judul: [belajar-excel] ubah format pdf menjadi xls .. bisakah?

Assalamu'alaikum wr. wb.

Mohon maaf sebelumnya kalo topik ini
pernah dibahas ebelumnya dan sedikit OOT.

Saya memiliki data dlm format pdf dan mau
di ubah ke excel supaya mudah di edit.
Kalo mungkin, Mohon
pencerahannya.

Thx & wassalam,
mulki

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

8a.: mengurutkan data

Posted by: "R T Gultom" ro_tag@yahoo.com ro_tag

Wed Oct 19, 2011 3:17 am (PDT)

Dear B_excel,
Mohon bantuannya bagaimana mengurutkan data dengan VBA sekali sorot otomatis urut
Karena kalau cara manual cukup ditarik otomatis bisa berubah tapi akan banyak melakukan penyorotan untuk data yang banyak

Saya coba seperti terlampir yang berubah hanya 1 baris saja
mohon perbaikan formula VBAnya

Thanks,
Gultom

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
8b.: Re: mengurutkan data

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

Wed Oct 19, 2011 5:40 am (PDT)

"Tunjek" point saja...:

Sub Ubah_NrPO()
' hapsari / Oct 19, 2011
' beExcel Posting# 13632
'--------------------------
Dim Nmr As Long, n As Integer
Dim Hrf As String, Itm As String

Itm = Selection(1, 1)
For *n* = Len(Itm) To 1 Step -1
If Not IsNumeric(Mid(Itm, n, 1)) Then Exit For
Next
Hrf = Left(Itm, n)
Nmr = Val(Right(Itm, Len(Itm) - n))
For *n* = 1 To Selection.Rows.Count
Selection(n, 1) = Hrf & *Nmr + n - 1*
Next n

End Sub

Data pertama di daerah yg disorot (selection) dianggap mewakili semua data
di bawahnya; data itu kita ingat sbg* Itm* dan kita penggal menjadi dua
kelompok.
Kelompok-depan namanya* Pre* (diharapkan berisi karakter-karakater Huruf)
Kelompok belakang namanya *Nmr* (diharapkan berisi karakter-karakter
Numeric)

Untuk BISA membagi dua kelompok tsb diperlukan posisi (N) yaitu *letak
karakter*
*HURUF *(bukan angka)* yg terkanan*, untuk keperluan itu diperlukan loop
(loop pertama)
yg hanya mengunjungi semua karakter dlm string *Itm.*

Setelah itu dilakukan loop lagi yg *mengunjungi semua cell dlm sorotan
(selection)*
tiap cell yg dikunjungi diisi DATA BARU yaitu *gabungan* dari *Hrf* dan *
Nmr* tetapi
setiap step* Nmr* *ditambah dengan nilai Counter (n) dikurangi 1*

Pantas saja kalau hasilnya sepeti yg diharapkan (mudah-mudahanan sih...)

-haps-

2011/10/19 R T Gultom <ro_tag@yahoo.com>

> **
> Dear B_excel,
> Mohon bantuannya bagaimana mengurutkan data dengan VBA sekali sorot
> otomatis urut
> Karena kalau cara manual cukup ditarik otomatis bisa berubah tapi akan
> banyak melakukan
>
penyorotan untuk data yang banyak
> Saya coba seperti terlampir yang berubah hanya 1 baris saja
> mohon perbaikan formula VBAnya
> Thanks,
> Gultom
>

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

Create New Topic | Visit Your Group on the Web

Messages

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

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

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

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

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

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

MARKETPLACE

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

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

Rabu, 19 Oktober 2011

Messages In This Digest (15 Messages)

Messages

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

Tue Oct 18, 2011 8:02 am (PDT)

Posted by: "Syamsudin Syamsudin" syamsudin.syamsudin@cpp.co.id

Tue Oct 18, 2011 9:21 am (PDT)

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

Tue Oct 18, 2011 9:23 am (PDT)

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

Tue Oct 18, 2011 5:34 pm (PDT)

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Tue Oct 18, 2011 6:08 pm (PDT)

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

Tue Oct 18, 2011 8:09 pm (PDT)

Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980

Tue Oct 18, 2011 8:08 pm (PDT)

Posted by: "Dewan Deya" dwanxls@yahoo.co.id dwanxls

Tue Oct 18, 2011 8:28 pm (PDT)

Posted by: "Franciscus SOG" jclugbu@gmail.com elijah_spirit

Tue Oct 18, 2011 9:13 pm (PDT)

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

Tue Oct 18, 2011 9:20 pm (PDT)

Posted by: "Mulki Akbar" mulki@aop.component.astra.co.id mulki_akbar

Tue Oct 18, 2011 9:20 pm (PDT)

Posted by: "dwint ruswanto" dwint.ruswanto@yahoo.co.id dwint.ruswanto

Wed Oct 19, 2011 2:20 am (PDT)

Posted by: "Undang Satrianie" und4nk@rocketmail.com und4nk@rocketmail.com

Wed Oct 19, 2011 2:44 am (PDT)

Posted by: "R T Gultom" ro_tag@yahoo.com ro_tag

Wed Oct 19, 2011 3:17 am (PDT)

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

Wed Oct 19, 2011 5:40 am (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me