Jumat, 07 Agustus 2015

[belajar-excel] Digest Number 3530

11 Messages

Digest #3530

Messages

Thu Aug 6, 2015 5:21 am (PDT) . Posted by:

"Danny Prasetyo" danny_06791

body { font-family: "Calibri","Slate
Pro",sans-serif,"sans-serif"; color:#262626 } Selamat malam para
master. Saya ada 2 kendala. 1. Bagaimana caranya ‎mencegah
data ganda dalam userform dengan jumlah 35 textbox? Contoh :-
jika semua data sama (semua textbox) , maka ada pesan = data
masih sama.‎- jika ada satu atau dua (textbox) yang
berubah, maka ada pesan = textbox 1 dan 21 selesai diubah. 2.
Dalam kode textbox, saya mengisi agar tidak bisa diisi selain
angka. Tetapi dalam kondisi lain, saya ingin mengisi angka dengan
menggunakan koma atau titik (contoh = 7,5 atau 7.5). Kode apa
yang bisa digunakan untuk melakukan hal itu?
Terima kasih jika bersedia membantu.

Thu Aug 6, 2015 5:40 am (PDT) . Posted by:

"Cahaya Hati Abadi" cahayahatiabadi

Malam Pak Agus,
Boleh bantu untuk bikin nomor kwitansi berdasarkan tanggal + Nomor urut,
dan jikalau beda tanggal mulai dari no.urut 1(satu) lagi.
Terima kasih.
Salam hormat,Abo
 

Pada Kamis, 6 Agustus 2015 8:22, "Cahaya Hati Abadi cahayahatiabadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:



 

Dear Pak Agus,
Terima kasih pak, saya sudah coba pakai record macro tapi gagal terus, sehingga saya coba tanya ke milist.
sekali lagi terima kasih atas bantuannya semoga bapak cepat sukses dalam pembellajaran yang sedang dilakukan.
Salam Abo,
Abo



Pada Kamis, 6 Agustus 2015 11:37, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:



 

Dear Abo,

Bagaimana kalau cekrip menyimpan dibuat seperti ini?

Option Explicit
Sub Kopi()
Dim i As Integer
Dim mak As Integer
Dim baris As Integer
Application.ScreenUpdating = False
mak = Application.CountA(Worksheets("Sheet1").Range("E9:E21"))
baris = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
For i = 0 To mak - 1
Worksheets("Sheet1").Range("H4").Copy
Worksheets("Sheet2").Range("A" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("H5").Copy
Worksheets("Sheet2").Range("B" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("C4").Copy
Worksheets("Sheet2").Range("C" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("C5").Copy
Worksheets("Sheet2").Range("D" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("A" & 9 + i).Copy
Worksheets("Sheet2").Range("E" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("C" & 9 + i).Copy
Worksheets("Sheet2").Range("F" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("D" & 9 + i).Copy
Worksheets("Sheet2").Range("G" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("F" & 9 + i).Copy
Worksheets("Sheet2").Range("H" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("H" & 9 + i).Copy
Worksheets("Sheet2").Range("I" & baris + i).PasteSpecial xlValues

Next i

Application.ScreenUpdating = True
End Sub

sedangkan untuk menghapusnya boleh digunakan cekrip:

Sub hapus()
Sheets("Sheet1").Range("C4:C6").ClearContents
Sheets("Sheet1").Range("H4:C6").ClearContents
Sheets("Sheet1").Range("A9:G21").ClearContents
Sheets("Sheet1").Range("F23:H23").ClearContents
End Sub

sebenarnya untuk belajar macro dapat menggunakan record macro. saya sendiri masih belajar dengan cara tersebut.

salam
Agus

2015-08-05 15:23 GMT+07:00 Cahaya Hati Abadi cahayahatiabadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Dear Para Master,Mohon bantuan untuk pertanyaan saya sesuai terlampir.
Terima kasih.
Salam hormat,Abo

#yiv0275534446 -- #yiv0275534446ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0275534446 #yiv0275534446ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0275534446 #yiv0275534446ygrp-mkp #yiv0275534446hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0275534446 #yiv0275534446ygrp-mkp #yiv0275534446ads {margin-bottom:10px;}#yiv0275534446 #yiv0275534446ygrp-mkp .yiv0275534446ad {padding:0 0;}#yiv0275534446 #yiv0275534446ygrp-mkp .yiv0275534446ad p {margin:0;}#yiv0275534446 #yiv0275534446ygrp-mkp .yiv0275534446ad a {color:#0000ff;text-decoration:none;}#yiv0275534446 #yiv0275534446ygrp-sponsor #yiv0275534446ygrp-lc {font-family:Arial;}#yiv0275534446 #yiv0275534446ygrp-sponsor #yiv0275534446ygrp-lc #yiv0275534446hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0275534446 #yiv0275534446ygrp-sponsor #yiv0275534446ygrp-lc .yiv0275534446ad {margin-bottom:10px;padding:0 0;}#yiv0275534446 #yiv0275534446actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0275534446 #yiv0275534446activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0275534446 #yiv0275534446activity span {font-weight:700;}#yiv0275534446 #yiv0275534446activity span:first-child {text-transform:uppercase;}#yiv0275534446 #yiv0275534446activity span a {color:#5085b6;text-decoration:none;}#yiv0275534446 #yiv0275534446activity span span {color:#ff7900;}#yiv0275534446 #yiv0275534446activity span .yiv0275534446underline {text-decoration:underline;}#yiv0275534446 .yiv0275534446attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0275534446 .yiv0275534446attach div a {text-decoration:none;}#yiv0275534446 .yiv0275534446attach img {border:none;padding-right:5px;}#yiv0275534446 .yiv0275534446attach label {display:block;margin-bottom:5px;}#yiv0275534446 .yiv0275534446attach label a {text-decoration:none;}#yiv0275534446 blockquote {margin:0 0 0 4px;}#yiv0275534446 .yiv0275534446bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0275534446 .yiv0275534446bold a {text-decoration:none;}#yiv0275534446 dd.yiv0275534446last p a {font-family:Verdana;font-weight:700;}#yiv0275534446 dd.yiv0275534446last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0275534446 dd.yiv0275534446last p span.yiv0275534446yshortcuts {margin-right:0;}#yiv0275534446 div.yiv0275534446attach-table div div a {text-decoration:none;}#yiv0275534446 div.yiv0275534446attach-table {width:400px;}#yiv0275534446 div.yiv0275534446file-title a, #yiv0275534446 div.yiv0275534446file-title a:active, #yiv0275534446 div.yiv0275534446file-title a:hover, #yiv0275534446 div.yiv0275534446file-title a:visited {text-decoration:none;}#yiv0275534446 div.yiv0275534446photo-title a, #yiv0275534446 div.yiv0275534446photo-title a:active, #yiv0275534446 div.yiv0275534446photo-title a:hover, #yiv0275534446 div.yiv0275534446photo-title a:visited {text-decoration:none;}#yiv0275534446 div#yiv0275534446ygrp-mlmsg #yiv0275534446ygrp-msg p a span.yiv0275534446yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0275534446 .yiv0275534446green {color:#628c2a;}#yiv0275534446 .yiv0275534446MsoNormal {margin:0 0 0 0;}#yiv0275534446 o {font-size:0;}#yiv0275534446 #yiv0275534446photos div {float:left;width:72px;}#yiv0275534446 #yiv0275534446photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0275534446 #yiv0275534446photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0275534446 #yiv0275534446reco-category {font-size:77%;}#yiv0275534446 #yiv0275534446reco-desc {font-size:77%;}#yiv0275534446 .yiv0275534446replbq {margin:4px;}#yiv0275534446 #yiv0275534446ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0275534446 #yiv0275534446ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0275534446 #yiv0275534446ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0275534446 #yiv0275534446ygrp-mlmsg select, #yiv0275534446 input, #yiv0275534446 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0275534446 #yiv0275534446ygrp-mlmsg pre, #yiv0275534446 code {font:115% monospace;}#yiv0275534446 #yiv0275534446ygrp-mlmsg * {line-height:1.22em;}#yiv0275534446 #yiv0275534446ygrp-mlmsg #yiv0275534446logo {padding-bottom:10px;}#yiv0275534446 #yiv0275534446ygrp-msg p a {font-family:Verdana;}#yiv0275534446 #yiv0275534446ygrp-msg p#yiv0275534446attach-count span {color:#1E66AE;font-weight:700;}#yiv0275534446 #yiv0275534446ygrp-reco #yiv0275534446reco-head {color:#ff7900;font-weight:700;}#yiv0275534446 #yiv0275534446ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0275534446 #yiv0275534446ygrp-sponsor #yiv0275534446ov li a {font-size:130%;text-decoration:none;}#yiv0275534446 #yiv0275534446ygrp-sponsor #yiv0275534446ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0275534446 #yiv0275534446ygrp-sponsor #yiv0275534446ov ul {margin:0;padding:0 0 0 8px;}#yiv0275534446 #yiv0275534446ygrp-text {font-family:Georgia;}#yiv0275534446 #yiv0275534446ygrp-text p {margin:0 0 1em 0;}#yiv0275534446 #yiv0275534446ygrp-text tt {font-size:120%;}#yiv0275534446 #yiv0275534446ygrp-vital ul li:last-child {border-right:none !important;}#yiv0275534446

Thu Aug 6, 2015 5:24 pm (PDT) . Posted by:

"Nang Agus"

Dear Abo,

coba cekrip hapus yang kemarin diganti dengan cekrip ini:

Sub hapus()
Dim tgl As Date
Dim nomer As Variant
tgl = Sheets("sheet2").Range("A" & Worksheets("Sheet2").Range("A" &
Rows.Count).End(xlUp).Row)
If tgl = Sheets("sheet1").Range("H4") Then
nomer = "PJ/" & Format(Right(Sheets("sheet2").Range("B" &
Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row), 4) + 1, "0000")
Else
nomer = "PJ/" & Format(1, "0000")
End If
Range("H5") = nomer
Sheets("Sheet1").Range("C4:C6").ClearContents
Sheets("Sheet1").Range("H6:H6").ClearContents
Sheets("Sheet1").Range("A9:G21").ClearContents
Sheets("Sheet1").Range("F23:H23").ClearContents
End Sub

Kolom sub total tidak dihapus, Cellnya diisi dengan formula perkalian
antara quality dan harga datanya yang kosong dapat disembunyikan dengan
format cell,
Format nomor kutansi disesuaikan kebutuhan

Salam
Kenang

On Thu, Aug 6, 2015 at 7:37 PM, Cahaya Hati Abadi cahayahatiabadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Malam Pak Agus,
> Boleh bantu untuk bikin nomor kwitansi berdasarkan tanggal + Nomor urut,
> dan jikalau beda tanggal mulai dari no.urut 1(satu) lagi.
>
> Terima kasih.
>
> Salam hormat,
> Abo
>
>
>
>
>
>
> Pada Kamis, 6 Agustus 2015 8:22, "Cahaya Hati Abadi
> cahayahatiabadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
> menulis:
>
>
>
>
>
>
> Dear Pak Agus,
>
> Terima kasih pak, saya sudah coba pakai record macro tapi gagal terus,
> sehingga saya coba tanya ke milist.
> sekali lagi terima kasih atas bantuannya semoga bapak cepat sukses dalam
> pembellajaran yang sedang dilakukan.
>
> Salam Abo,
> Abo
>
>
>
>
> Pada Kamis, 6 Agustus 2015 11:37, "Nang Agus nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>
>
> Dear Abo,
>
> Bagaimana kalau cekrip menyimpan dibuat seperti ini?
>
> Option Explicit
> Sub Kopi()
> Dim i As Integer
> Dim mak As Integer
> Dim baris As Integer
> Application.ScreenUpdating = False
> mak = Application.CountA(Worksheets("Sheet1").Range("E9:E21"))
> baris = Worksheets("Sheet2").Range("A" &
> Rows.Count).End(xlUp).Offset(1).Row
> For i = 0 To mak - 1
> Worksheets("Sheet1").Range("H4").Copy
> Worksheets("Sheet2").Range("A" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("H5").Copy
> Worksheets("Sheet2").Range("B" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("C4").Copy
> Worksheets("Sheet2").Range("C" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("C5").Copy
> Worksheets("Sheet2").Range("D" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("A" & 9 + i).Copy
> Worksheets("Sheet2").Range("E" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("C" & 9 + i).Copy
> Worksheets("Sheet2").Range("F" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("D" & 9 + i).Copy
> Worksheets("Sheet2").Range("G" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("F" & 9 + i).Copy
> Worksheets("Sheet2").Range("H" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("H" & 9 + i).Copy
> Worksheets("Sheet2").Range("I" & baris + i).PasteSpecial xlValues
>
> Next i
>
> Application.ScreenUpdating = True
> End Sub
>
>
> sedangkan untuk menghapusnya boleh digunakan cekrip:
>
> Sub hapus()
> Sheets("Sheet1").Range("C4:C6").ClearContents
> Sheets("Sheet1").Range("H4:C6").ClearContents
> Sheets("Sheet1").Range("A9:G21").ClearContents
> Sheets("Sheet1").Range("F23:H23").ClearContents
> End Sub
>
> sebenarnya untuk belajar macro dapat menggunakan record macro. saya
> sendiri masih belajar dengan cara tersebut.
>
> salam
> Agus
>
> 2015-08-05 15:23 GMT+07:00 Cahaya Hati Abadi cahayahatiabadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Para Master,
> Mohon bantuan untuk pertanyaan saya sesuai terlampir.
>
> Terima kasih.
>
> Salam hormat,
> Abo
>
>
>
>
>
>
>
>

Thu Aug 6, 2015 7:14 am (PDT) . Posted by:

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

Hai Dede,

Pivot table yang handal untuk kecepatan proses data banyak seperti kasus
ini. Bahkan dengan memanfaatkan Get External Data akan bisa mengolah data
lebih dari 1juta records (multiple sheets dan mungkin juga di multiple
workbooks) dengan tetap cepat. Sayangnya pivot table tidak bisa diatur
layoutnya agar bisa sesuai dengan berbagai macam kebutuhan. Pivot table
juga sering dijauhi karena menuntut proses belajar bagi calon penggunanya.
Pivot table juga bisa diotomasi dengan VBA.

Excel QueryTable hasil fitur Get External Data juga bisa dimanfaatkan dan
cepat seperti pivot table dan bisa bekerja terhadap data lebih dari 1 juta
records (multiple sheets) yang bisa jadi di multiple workbooks. Sayangnya,
layout output pasti berbentuk tabel. Selain itu, filter secara dinamis
tidak mudah dilakukan kecuali disertai proses otomasi dengan VBA untuk
mengubah bunyi query-nya.

Fitur Advanced filter yang diotomasi dengan VBA juga bisa dimanfaatkan.
Sayangnya, fitur ini menuntut susunan tabel kriteria dan nama-nama kolom
output yang sama dengan tabel sumber data, yang perlu diatur dengan kode
tersendiri. Pada data multiple sheets (apalagi yang multiple workbooks),
maka otomasi dengan VBA-nya menjadi tidak sesederhana jika mengolah 1 sheet
data saja.

Fitur formulalah yang digunakan sebagian besar pengguna Excel. Meskipun
tidak cocok untuk pengolahan data multiple sheets (data lebih dari 1juta
records) apalagi yang multiple workbooks, fitur ini relatif mudah
dipelajari. Sayangnya, banyaknya cells berformula akan memperlambat kinerja
Excel dan memperbesar ukuran workbook.

Untuk records yang banyak :
1. filtering dengan array formula tidaklah efisien, meskipun dengan
disertai kolom bantu.
2. data yang terurut membuat formula menjadi jauh lebih sederhana, yang
berarti akan membuat ukuran file dipengaruhi oleh jumlah cells berformula.
Kinerja Excel juga relatif bisa lebih cepat (jauh lebih cepat dibanding
dengan arrau formula) walau dipengaruhi dengan kompleksitas formulanya.
(lihat sheet 'cara2' pada file terlampir)
3. data yang tidak terurut membutuhkan kolom maupun beberapa cells bantu
berformula agar bisa membantu penyusunan formula yang sederhana. (lihat
sheet 'cara1' pada file terlampir).

Sumber data yang dipisahkan dalam sheet khusus sesuai tema data akan
relatif memudahkan penyusunan proses pengolahan data.

Wassalam,
Kid

2015-08-05 12:06 GMT+07:00 'Dede' pmaho_log4@pinusmerahabadi.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> *Dear Master Excel,*
>
>
>
> *Saya punya kasus dimana formula yang saya pakaisepertinya tidak cocok
> dengan report yang sedang saya kerjakan, formula ini bikin ngantuk kalo
> ditungguin....*
>
> *Mohon pencerahannya pada file terlampir.*
>
>
>
> *Salam,*
>
> *DD*
>
>
>

Thu Aug 6, 2015 8:10 pm (PDT) . Posted by:

"Dede"

Dear Mr Kid,

Terima kasih atas solusinya.

Akan saya pelajari dulu, terima kasih banyak Mr......

Warm Regards,

Dede Sulaeman

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 06 Agustus 2015 21:14
To: BeExcel
Subject: Re: [belajar-excel] Formula Array Yang Lemot [1 Attachment]

Hai Dede,

Pivot table yang handal untuk kecepatan proses data banyak seperti kasus ini. Bahkan dengan memanfaatkan Get External Data akan bisa mengolah data lebih dari 1juta records (multiple sheets dan mungkin juga di multiple workbooks) dengan tetap cepat. Sayangnya pivot table tidak bisa diatur layoutnya agar bisa sesuai dengan berbagai macam kebutuhan. Pivot table juga sering dijauhi karena menuntut proses belajar bagi calon penggunanya. Pivot table juga bisa diotomasi dengan VBA.

Excel QueryTable hasil fitur Get External Data juga bisa dimanfaatkan dan cepat seperti pivot table dan bisa bekerja terhadap data lebih dari 1 juta records (multiple sheets) yang bisa jadi di multiple workbooks. Sayangnya, layout output pasti berbentuk tabel. Selain itu, filter secara dinamis tidak mudah dilakukan kecuali disertai proses otomasi dengan VBA untuk mengubah bunyi query-nya.

Fitur Advanced filter yang diotomasi dengan VBA juga bisa dimanfaatkan. Sayangnya, fitur ini menuntut susunan tabel kriteria dan nama-nama kolom output yang sama dengan tabel sumber data, yang perlu diatur dengan kode tersendiri. Pada data multiple sheets (apalagi yang multiple workbooks), maka otomasi dengan VBA-nya menjadi tidak sesederhana jika mengolah 1 sheet data saja.

Fitur formulalah yang digunakan sebagian besar pengguna Excel. Meskipun tidak cocok untuk pengolahan data multiple sheets (data lebih dari 1juta records) apalagi yang multiple workbooks, fitur ini relatif mudah dipelajari. Sayangnya, banyaknya cells berformula akan memperlambat kinerja Excel dan memperbesar ukuran workbook.

Untuk records yang banyak :
1. filtering dengan array formula tidaklah efisien, meskipun dengan disertai kolom bantu.

2. data yang terurut membuat formula menjadi jauh lebih sederhana, yang berarti akan membuat ukuran file dipengaruhi oleh jumlah cells berformula. Kinerja Excel juga relatif bisa lebih cepat (jauh lebih cepat dibanding dengan arrau formula) walau dipengaruhi dengan kompleksitas formulanya. (lihat sheet 'cara2' pada file terlampir)

3. data yang tidak terurut membutuhkan kolom maupun beberapa cells bantu berformula agar bisa membantu penyusunan formula yang sederhana. (lihat sheet 'cara1' pada file terlampir).

Sumber data yang dipisahkan dalam sheet khusus sesuai tema data akan relatif memudahkan penyusunan proses pengolahan data.

Wassalam,

Kid

2015-08-05 12:06 GMT+07:00 'Dede' pmaho_log4@pinusmerahabadi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear Master Excel,

Saya punya kasus dimana formula yang saya pakaisepertinya tidak cocok dengan report yang sedang saya kerjakan, formula ini bikin ngantuk kalo ditungguin....

Mohon pencerahannya pada file terlampir.

Salam,

DD

Thu Aug 6, 2015 8:07 am (PDT) . Posted by:

warujuanda

untuk mengatasi beda tahun (contoh lahir tahun 28 Des 2015 jika ditambah 6 hari maka akan merujuk ketanggal 3 Jan 2016), mungkin ini ada alternatif lain... (kalau salah ya mohon dikoreksi)

Thu Aug 6, 2015 8:10 am (PDT) . Posted by:

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

Hai Latifa,

File terlampir sekedar salah satu contoh solusi. Bisa dikatakan, contoh
dalam file terlampir bisa dikembangkan meski tak hebat idenya.

Wassalam,
Kid

2015-08-06 12:07 GMT+07:00 Fatania Latifa fatania.latifa@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear para master excel,
>
> Mohon bantuannya ya.. bagaimana caranya untuk merekon data dari 2 tabel
> apabila data dari salah satu tabel ada yang identik. Share ide hebatnya ya,
> terima kasih sebelumnya
>
>
>

Thu Aug 6, 2015 8:11 pm (PDT) . Posted by:

"Fatania Latifa"

Terima kasih banyak Mr.Kid...
Sederhana tapi langsung mengena...

2015-08-06 22:09 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Hai Latifa,
>
> File terlampir sekedar salah satu contoh solusi. Bisa dikatakan, contoh
> dalam file terlampir bisa dikembangkan meski tak hebat idenya.
>
> Wassalam,
> Kid
>
>
>
>
>
> 2015-08-06 12:07 GMT+07:00 Fatania Latifa fatania.latifa@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear para master excel,
>>
>> Mohon bantuannya ya.. bagaimana caranya untuk merekon data dari 2 tabel
>> apabila data dari salah satu tabel ada yang identik. Share ide hebatnya ya,
>> terima kasih sebelumnya
>>
>>
>
>

Thu Aug 6, 2015 6:20 pm (PDT) . Posted by:

"dedy rauf"

coba pakai teks to coloumn mas, delimeter (pemisahnnya) spasi
dipecah per kata lo ya
kalau kalimat beda lagi treatmentnya

On 8/6/15, It Dpm it_dpm@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Dear Master Excelsekalian,
>
>
> Mohonbantuan para master sekalian, bagaimanacaranya split (memecah) text
> yang panjang menjadi beberapa cell tanpaada kata yang terpenggal seperti
> contoh terlampir...
>
>
> terima kasih sebelumnya
>

Thu Aug 6, 2015 7:09 pm (PDT) . Posted by:

"Nang Agus"

Dear LT Dmp

Pakai macro ya....

Option Explicit
Sub pecah()
Dim i As Integer
Dim nom As Integer
Dim kar As Variant
Dim wis As Variant
Dim has As Variant
kar = Range("C20").Value
For i = 1 To Int(Len(kar) / 85) + 1
wis = Left(kar, 86)
If Right(wis, 1) = " " Then
has = Left(wis, 85)
Else
If Len(wis) < 86 Then
nom = Len(wis)
Else
nom = InStrRev(wis, " ", -1)
End If
has = Mid(wis, 1, nom)
End If
Range("M" & 30 + i) = has
kar = Mid(kar, Len(has) + 1)
Next i
End Sub

sebenarnya macro tersebut dapat disederhanakan, silahkan diubah sesuai
kebutuhan.
Salam
Nang Agus

2015-08-06 12:23 GMT+07:00 It Dpm it_dpm@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Master Excel sekalian,
>
> Mohon bantuan para master sekalian,
> bagaimana caranya split (memecah) text
> yang panjang menjadi beberapa cell tanpa
> ada kata yang terpenggal seperti contoh terlampir...
>
>
> terima kasih sebelumnya
>
>
>

Thu Aug 6, 2015 8:30 pm (PDT) . Posted by:

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

Hai,

File terlampir bisa dikembangkan agar sesuai kebutuhan yang bener lan pener.

Wassalam,
Kid

2015-08-06 12:23 GMT+07:00 It Dpm it_dpm@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Master Excel sekalian,
>
> Mohon bantuan para master sekalian,
> bagaimana caranya split (memecah) text
> yang panjang menjadi beberapa cell tanpa
> ada kata yang terpenggal seperti contoh terlampir...
>
>
> terima kasih sebelumnya
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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:

Poskan Komentar