Jumat, 19 Desember 2014

[belajar-excel] Digest Number 3231

15 Messages

Digest #3231
3a
4b
Re: tampilan tanpa 4 karakter belakang [1 Attachment] by "Heri Pamungkas ( Gmail )" dchoosen88
4d
Re: tampilan tanpa 4 karakter belakang by "Mr. Kid" nmkid.family@ymail.com
5
duplicate data to other sheet by "Muhammad Iqbal" iq_bal76id
6a
8a
9a
Re: script update data entry ke database by "Mr. Kid" nmkid.family@ymail.com

Messages

Thu Dec 18, 2014 4:12 am (PST) . Posted by:

"odong nando"

senang sekali bisa langsung ada tanggapan oleh pak HK,
tp cara yang p' HK berikan masih berkendala bila ada penambahan jatah no dari kpp pak.
karena jatah no tersebut akan terus bertambah selama perusahaan masih ada transaksi...
mohon untuk pencerahan lebih lanjut.

thx,

odong

Pada Kamis, 18 Desember 2014 17:15, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


Hai Odong,
Sila lihat jawaban terlampir.

Salam,
HK

________________________________
From: "odong nando odongnando@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, 18 December 2014, 13:10
Subject: [belajar-excel] input ppn masukan [1 Attachment]


dearall,
saya ingin menanyakan tentang bagai
mana penyelesaian untuk penginputan no faktur pajak maka akan otomatis akan keluar
no npwp.

untuk lebih jelas nya tolong lihat lampiran

thx,

odong

Thu Dec 18, 2014 8:02 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Latihan ini ditujukan kepada mereka yang beneran (bukan merasa) pemula...- Macro 1 untuk menggabung kolom Debit dan Kredit (Cut and Paste) ke dalam kolom Jumlah- Macro 2 untuk memisahkan kolom Jumlah (Cut and Paste) kedalam kolom Debit dan Kredit.
Kolom2 asalnya jangan dihapus, walaupun telah kosong.
Cluenya:Definisikan Range melalui VBE Sheet, sesuai jumlah baris dan kolomnya, gunakan Current Region, Resize (Rows dan Column) dan Offset, Cut and Destination.
Selamat mencoba.
Salam,HK

Thu Dec 18, 2014 9:54 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Judul seharusnya "Latihan macro - menggabung dan memisahkan Debit dan Kredit".
Salam,HK
----- Forwarded Message -----
From: "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, 19 December 2014, 11:02
Subject: [belajar-excel] Latihan macro - menggabung dan memisah koma Debit dan Kredit [1 Attachment]

  Latihan ini ditujukan kepada mereka yang beneran (bukan merasa) pemula...- Macro 1 untuk menggabung kolom Debit dan Kredit (Cut and Paste) ke dalam kolom Jumlah- Macro 2 untuk memisahkan kolom Jumlah (Cut and Paste) kedalam kolom Debit dan Kredit.
Kolom2 asalnya jangan dihapus, walaupun telah kosong.
Cluenya:Definisikan Range melalui VBE Sheet, sesuai jumlah baris dan kolomnya, gunakan Current Region, Resize (Rows dan Column) dan Offset, Cut and Destination.
Selamat mencoba.
Salam,HK #yiv4632790565 #yiv4632790565 -- #yiv4632790565ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4632790565 #yiv4632790565ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4632790565 #yiv4632790565ygrp-mkp #yiv4632790565hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4632790565 #yiv4632790565ygrp-mkp #yiv4632790565ads {margin-bottom:10px;}#yiv4632790565 #yiv4632790565ygrp-mkp .yiv4632790565ad {padding:0 0;}#yiv4632790565 #yiv4632790565ygrp-mkp .yiv4632790565ad p {margin:0;}#yiv4632790565 #yiv4632790565ygrp-mkp .yiv4632790565ad a {color:#0000ff;text-decoration:none;}#yiv4632790565 #yiv4632790565ygrp-sponsor #yiv4632790565ygrp-lc {font-family:Arial;}#yiv4632790565 #yiv4632790565ygrp-sponsor #yiv4632790565ygrp-lc #yiv4632790565hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4632790565 #yiv4632790565ygrp-sponsor #yiv4632790565ygrp-lc .yiv4632790565ad {margin-bottom:10px;padding:0 0;}#yiv4632790565 #yiv4632790565actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4632790565 #yiv4632790565activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4632790565 #yiv4632790565activity span {font-weight:700;}#yiv4632790565 #yiv4632790565activity span:first-child {text-transform:uppercase;}#yiv4632790565 #yiv4632790565activity span a {color:#5085b6;text-decoration:none;}#yiv4632790565 #yiv4632790565activity span span {color:#ff7900;}#yiv4632790565 #yiv4632790565activity span .yiv4632790565underline {text-decoration:underline;}#yiv4632790565 .yiv4632790565attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4632790565 .yiv4632790565attach div a {text-decoration:none;}#yiv4632790565 .yiv4632790565attach img {border:none;padding-right:5px;}#yiv4632790565 .yiv4632790565attach label {display:block;margin-bottom:5px;}#yiv4632790565 .yiv4632790565attach label a {text-decoration:none;}#yiv4632790565 blockquote {margin:0 0 0 4px;}#yiv4632790565 .yiv4632790565bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4632790565 .yiv4632790565bold a {text-decoration:none;}#yiv4632790565 dd.yiv4632790565last p a {font-family:Verdana;font-weight:700;}#yiv4632790565 dd.yiv4632790565last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4632790565 dd.yiv4632790565last p span.yiv4632790565yshortcuts {margin-right:0;}#yiv4632790565 div.yiv4632790565attach-table div div a {text-decoration:none;}#yiv4632790565 div.yiv4632790565attach-table {width:400px;}#yiv4632790565 div.yiv4632790565file-title a, #yiv4632790565 div.yiv4632790565file-title a:active, #yiv4632790565 div.yiv4632790565file-title a:hover, #yiv4632790565 div.yiv4632790565file-title a:visited {text-decoration:none;}#yiv4632790565 div.yiv4632790565photo-title a, #yiv4632790565 div.yiv4632790565photo-title a:active, #yiv4632790565 div.yiv4632790565photo-title a:hover, #yiv4632790565 div.yiv4632790565photo-title a:visited {text-decoration:none;}#yiv4632790565 div#yiv4632790565ygrp-mlmsg #yiv4632790565ygrp-msg p a span.yiv4632790565yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4632790565 .yiv4632790565green {color:#628c2a;}#yiv4632790565 .yiv4632790565MsoNormal {margin:0 0 0 0;}#yiv4632790565 o {font-size:0;}#yiv4632790565 #yiv4632790565photos div {float:left;width:72px;}#yiv4632790565 #yiv4632790565photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv4632790565 #yiv4632790565photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4632790565 #yiv4632790565reco-category {font-size:77%;}#yiv4632790565 #yiv4632790565reco-desc {font-size:77%;}#yiv4632790565 .yiv4632790565replbq {margin:4px;}#yiv4632790565 #yiv4632790565ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4632790565 #yiv4632790565ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4632790565 #yiv4632790565ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4632790565 #yiv4632790565ygrp-mlmsg select, #yiv4632790565 input, #yiv4632790565 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4632790565 #yiv4632790565ygrp-mlmsg pre, #yiv4632790565 code {font:115% monospace;}#yiv4632790565 #yiv4632790565ygrp-mlmsg * {line-height:1.22em;}#yiv4632790565 #yiv4632790565ygrp-mlmsg #yiv4632790565logo {padding-bottom:10px;}#yiv4632790565 #yiv4632790565ygrp-msg p a {font-family:Verdana;}#yiv4632790565 #yiv4632790565ygrp-msg p#yiv4632790565attach-count span {color:#1E66AE;font-weight:700;}#yiv4632790565 #yiv4632790565ygrp-reco #yiv4632790565reco-head {color:#ff7900;font-weight:700;}#yiv4632790565 #yiv4632790565ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4632790565 #yiv4632790565ygrp-sponsor #yiv4632790565ov li a {font-size:130%;text-decoration:none;}#yiv4632790565 #yiv4632790565ygrp-sponsor #yiv4632790565ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4632790565 #yiv4632790565ygrp-sponsor #yiv4632790565ov ul {margin:0;padding:0 0 0 8px;}#yiv4632790565 #yiv4632790565ygrp-text {font-family:Georgia;}#yiv4632790565 #yiv4632790565ygrp-text p {margin:0 0 1em 0;}#yiv4632790565 #yiv4632790565ygrp-text tt {font-size:120%;}#yiv4632790565 #yiv4632790565ygrp-vital ul li:last-child {border-right:none !important;}#yiv4632790565

Thu Dec 18, 2014 11:59 pm (PST) . Posted by:

"Abdoel Khobir" mbellgedez

Saya sangat berterima kasih atas respon dari master...
secara substansial memang seperti itu yang saya inginkan.

Karena saya Newbie banget dan umur yg sudah tidak muda lagi ,Bagaimana
caranya kalau format kolomnya seperti dilampiran.
Saya coba edit kolomnya hasilnya jadi berantakan.

Mohon solusinya...
Atas jawabannya kami haturkan Terima kasih

2014-12-12 14:47 GMT+07:00 Abdoel Khobir <glendoch@gmail.com>:
>
> maaf lampiran ketinggalan
>
> Master excel yang terhormat,
> saya punya file excel setiap hari mendata 100an unit pengiriman barang
> dari 15 cabang
> saya menginputnya berdasar order.konsekuensinya data menjadi tidak
> beraturan
>
> pertanyaan saya:
>
> 1. Karena tanda terima pengiriman yang masuk tidak bersamaan masuknya
> bagaimana caranya saya menginiput tanda terima yang masuk diinput
> dikolom kanan "TANDA TERIMA YG SUDAH MASUK"
>
> 2. Bagaimana caranya data yg sudah diinput Berurutan baris nya sesuai
> baris disebelah kiri?
> dan tanda terima yang belum masuk dibiarkan tetap kosong
>
> Mohon maaf kalau pertanyaannya belepotan
> terima kasih
>

Fri Dec 19, 2014 12:05 am (PST) . Posted by:

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

Hai Abdoel,

Menambah kolom baru ?
Pada file lampiran yang lalu (yang masih asli), klik kanan sebuah cell
header lalu pilih Insert dan pilih item Table Cloumn blabla
Silakan diatur akan menambah kolom dibagian mana dan beri nama kolom dengan
baik.

Jangan lupa pesan yang ada di file tersebut, setelah mengadakan pengubahan
pada tabel, lakukan refresh all melalui:
ribbon Data -> group Connetion -> Refresh All

Wassalam,
Kid.

2014-12-18 17:21 GMT+11:00 Abdoel Khobir glendoch@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
>
>
>
> Saya sangat berterima kasih atas respon dari master...
> secara substansial memang seperti itu yang saya inginkan.
>
> Karena saya Newbie banget dan umur yg sudah tidak muda lagi ,Bagaimana
> caranya kalau format kolomnya seperti dilampiran.
> Saya coba edit kolomnya hasilnya jadi berantakan.
>
> Mohon solusinya...
> Atas jawabannya kami haturkan Terima kasih
>
> 2014-12-12 14:47 GMT+07:00 Abdoel Khobir <glendoch@gmail.com>:
>>
>> maaf lampiran ketinggalan
>>
>> Master excel yang terhormat,
>> saya punya file excel setiap hari mendata 100an unit pengiriman barang
>> dari 15 cabang
>> saya menginputnya berdasar order.konsekuensinya data menjadi tidak
>> beraturan
>>
>> pertanyaan saya:
>>
>> 1. Karena tanda terima pengiriman yang masuk tidak bersamaan masuknya
>> bagaimana caranya saya menginiput tanda terima yang masuk diinput
>> dikolom kanan "TANDA TERIMA YG SUDAH MASUK"
>>
>> 2. Bagaimana caranya data yg sudah diinput Berurutan baris nya sesuai
>> baris disebelah kiri?
>> dan tanda terima yang belum masuk dibiarkan tetap kosong
>>
>> Mohon maaf kalau pertanyaannya belepotan
>> terima kasih
>>
>
>

Thu Dec 18, 2014 11:59 pm (PST) . Posted by:

"alam syah"

assalamualaikum para master

mohon bantuannya untuk tampilan tanpa 4 karakter dibelakang. (pemula nih)
terlampir. makasih banyak.

Wassalam

syah

Fri Dec 19, 2014 12:04 am (PST) . Posted by:

"Heri Pamungkas ( Gmail )" dchoosen88


السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.

Mungkin bisa dicoba =LEFT(A2;LEN(A2)-4)

وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Warm Regards,

On 19/12/2014 1:43, alam syah syah.alam75@gmail.com [belajar-excel] wrote:
> assalamualaikum para master
>
> mohon bantuannya untuk tampilan tanpa 4 karakter dibelakang. (pemula nih)
> terlampir. makasih banyak.
>
> Wassalam
>
> syah
>

Fri Dec 19, 2014 12:23 am (PST) . Posted by:

"Dede"

Coba formula ini di cell B2

=MID(LEFT(A2;FIND("_";A2)-1);1;100)

Wslm,

From: alam syah syah.alam75@gmail.com [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 19 Desember 2014 01:43
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tampilan tanpa 4 karakter belakang [1 Attachment]

assalamualaikum para master

mohon bantuannya untuk tampilan tanpa 4 karakter dibelakang. (pemula nih)

terlampir. makasih banyak.

Wassalam

syah

_____

This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.

Fri Dec 19, 2014 12:32 am (PST) . Posted by:

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

Hai BeExceller,

Ketika karakter '_' ada dalam data dan terletak sebelum karakter ke-102,
maka formula dari Pak Dede yang berbunyi :
=MID(*LEFT(A2;FIND("_";A2)-1)*;1;100)

setara dengan bunyi formula :
=*LEFT(A2;FIND("_";A2)-1)*

karena bagian fungsi MID mengambil dari karakter ke-1 sebanyak 100 karakter
dari suatu teks

Wassalam,
Kid.

On Fri, Dec 19, 2014 at 7:19 PM, Dede pmaho_log4@nabatisnack.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Coba formula ini di cell B2
>
>
>
> =MID(LEFT(A2;FIND("_";A2)-1);1;100)
>
>
>
> Wslm,
>
>
>
> *From:* alam syah syah.alam75@gmail.com [belajar-excel] [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 19 Desember 2014 01:43
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] tampilan tanpa 4 karakter belakang [1
> Attachment]
>
>
>
>
>
> assalamualaikum para master
>
> mohon bantuannya untuk tampilan tanpa 4 karakter dibelakang. (pemula nih)
>
> terlampir. makasih banyak.
>
> Wassalam
>
> syah
>
>
> ------------------------------
>
> This e-mail and any files transmitted with it are confidential and
> intended solely for the use of the individual to whom it is addressed. If
> you have received this email in error please send it back to the person
> that sent it to you. Any views or opinions presented are solely those of
> its author and do not necessarily represent those of NABATI or any of its
> subsidiary companies. Unauthorized publication, use, dissemination,
> forwarding, printing or copying of this email and its associated
> attachments is strictly prohibited.
>
>
>

Fri Dec 19, 2014 12:00 am (PST) . Posted by:

"Muhammad Iqbal" iq_bal76id

Dear be exceler,

Mohon bantuan untuk case berikut.

1. Bagaimana cara untuk menduplikasi data di sheet raw (as attached)
ke sheet dengan kriteria tertentu.

2. Keinginannya adalah terduplikasi secara otomatis.

3. Sheet name adalah sesuai dengan kriteria/kategori yang akan saya
duplikasi.

4. Input data hanya dilakukan di sheet Raw. Sedangkan sheet
selanjutnya akan secara otomatis terisi dengan data sesuai dengan
kategorinya.

Terlampir file refferensi nya.

Thanks

Regard

Muhammad Iqbal

Fri Dec 19, 2014 12:22 am (PST) . Posted by:

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

Hai Totong,

Biasanya hal seperti ini disebabkan oleh file bernama fm20.dll
Sebaiknya diperiksa dulu apakah benar-benar disebabkan oleh library forms
dengan langkah berikut :
1. ke VBE -> insert -> userform
2. ke worksheet -> insert activex control object
Jika bisa, berarti bukan karena fm20.dll.
Untuk antisipasi dihari berikutnya, bisa dicoba untuk save as file ke
tipe versi excel 2007 ke atas (xlsm atau xlsb karena ada VBA-nya)

Jika tidak bisa, berarti disevavkan oleh fm20.dll
Langkah berikutnya adalah memeriksa keberadaan file fm20.dll dalam
komputer (search di windows explorer)
Jika menemukan file fm20.dll, lakukan registrasi ke OS setempat
Jika tidak menemukannya, unduh file fm20.dll dari internet,
kemudian lakukan registrasi ke OS setempat

Cara meregistrasi library file ke OS setempat bisa dilihat di-postingan
lawas yang ada disini
<https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/34359>
.
Ganti nama file (lengkap beserta foldernya) yang ada dipostingan lawas
tersebut dengan lokasi dan nama file fm20.dll yang Anda sediakan.

Wassalam,
Kid.

2014-12-17 0:42 GMT+11:00 'Totong Sutiana' to.sutiana@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear Master Excel
>
>
>
> Excel di PC saya tidak bisa insert ActiveX Control mulai minggu ini
> sebelum nya tidak ada masalah.
>
> Tapi ada beberapa file yang sudah ada activex control nya ada yang bisa
> seperti file karya ctv terlampir.
>
> Mohon para master bisa share pengalaman mengenai masalah tersebut. Saya
> pakai Excel 2007.
>
>
>
> Wassalam
>
> totong
>
>
>
>
>

Fri Dec 19, 2014 12:41 am (PST) . Posted by:

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

Hai Rahas,

Mungkin (maaf, masih belum bisa buka Excel) bagian array formula filtering
yang berupa proses pendefinisian krtieria yang berbunyi :
$M$6=data!$K$2:$K$20
bisa diubah dengan :
isnumber( find( $M$6 , data!$K$2:$K$20 ) )

Wassalam,
Kid.

2014-12-18 20:30 GMT+11:00 Rahasus Pae rahasus.pae@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear Be-exceler,
>
> Bagaimana formula small bisa berjalan dengan sebagian reference karena
> dengan formula
> {=SMALL(IF($M$6=data!$K$2:$K$20,ROW(data!$K$2:$K$20)-ROW(data!$K$1)),ROW()-ROW(A$8))} tidak
> akan ada hasil yang diperoleh.
>
> Misalnya saya mengisikan ref2 cuma dengan YAS-17321931 (ref2 completenya
> adalah 126-01972633/YAS-17321931), maka di colom A akan #NUM! daong
> munculnya.
>
> Bagaimana cara meformulasikan fungsi small dengan lookup sebagian supaya
> diperoleh hasil.
>
> Mohon pencerahan.
>
> Salam,
> Rahas
>
>
>

Fri Dec 19, 2014 1:43 am (PST) . Posted by:

"Rahasus Pae" rattip25

Dear Om Kid,

Bisa berjalan sebagaimana diiinginkan "well done" Om.....tapi ada
pertanyaan berikutnya....bagaimana seting tab order-nya.

Misalnya dari setelah combo box dipilih reference-nya, kemudian dengan
tombol tab akan perpindah ke text box, atau sebaliknya combo box <---->
text box.

Masih memakai file yang sama.

Dimanakah and bagaimana setting-nya? apakah diproperti-nya? tapi yang mana
yach?

Terima kasih pencerahannya.

Salam,
Rahas

2014-12-19 15:41 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
>
> Hai Rahas,
>
> Mungkin (maaf, masih belum bisa buka Excel) bagian array formula filtering
> yang berupa proses pendefinisian krtieria yang berbunyi :
> $M$6=data!$K$2:$K$20
> bisa diubah dengan :
> isnumber( find( $M$6 , data!$K$2:$K$20 ) )
>
> Wassalam,
> Kid.
>
>
>
> 2014-12-18 20:30 GMT+11:00 Rahasus Pae rahasus.pae@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>
>> Dear Be-exceler,
>>
>> Bagaimana formula small bisa berjalan dengan sebagian reference karena
>> dengan formula
>> {=SMALL(IF($M$6=data!$K$2:$K$20,ROW(data!$K$2:$K$20)-ROW(data!$K$1)),ROW()-ROW(A$8))} tidak
>> akan ada hasil yang diperoleh.
>>
>> Misalnya saya mengisikan ref2 cuma dengan YAS-17321931 (ref2 completenya
>> adalah 126-01972633/YAS-17321931), maka di colom A akan #NUM! daong
>> munculnya.
>>
>> Bagaimana cara meformulasikan fungsi small dengan lookup sebagian supaya
>> diperoleh hasil.
>>
>> Mohon pencerahan.
>>
>> Salam,
>> Rahas
>>
>>
>

Fri Dec 19, 2014 12:51 am (PST) . Posted by:

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

Wa'alaikumussalam wr wb

Hai Haris,

Coba hapus bagian yang berbunyi :
= FormulaR1C1
pada baris yang berbunyi :
Worksheets("DataBatch").Cells(BatchRow, 1).Value = FormulaR1C1 = _

"=IF(RC[1]="""","""",IF((R[-1]C[1]-RC[1])>15,R[-1]C+1,R[-1]C))"
agar TIDAK terbentuk proses perbandingan yang berbunyi :
FormulaR1C1 = _

"=IF(RC[1]="""","""",IF((R[-1]C[1]-RC[1])>15,R[-1]C+1,R[-1]C))"
Karena jika ada bunyi proses perbandingan yang berbunyi :
FormulaR1C1 = _

"=IF(RC[1]="""","""",IF((R[-1]C[1]-RC[1])>15,R[-1]C+1,R[-1]C))"
tersebut, maka hasil perbandingan tersebutlah yang akan dimasukkan sebagai
hasil ke dalam proses set nilai yang sisi kirinya berbunyi :
Worksheets("DataBatch").Cells(BatchRow, 1).Value =

Jika secara utuh, perhatikan hal berikut :
1. Ingin memasukkan nilai ke suatu cells, maka bagian penunjuk lokasi cell
dan proses penulisan nilainya :
Worksheets("DataBatch").Cells(BatchRow, 1).Value =

2. nilai yang akan dimasukkan ke cell tersebut berbunyi :
"=IF(RC[1]="""","""",IF((R[-1]C[1]-RC[1])>15,R[-1]C+1,R[-1]C))"

3. jika nomor 1 dan nomor 2 ingin dijadikan satu, maka menjadi :
Worksheets("DataBatch").Cells(BatchRow, 1).Value =
"=IF(RC[1]="""","""",IF((R[-1]C[1]-RC[1])>15,R[-1]C+1,R[-1]C))"

Semoga lebih berhati-hati dalam melakukan copy paste.

Kehati-hatian akan mudah tercapai jika ada ilmu yang dipahami sebagai
landasannya.
Semoga tetap semangat dalam belajar.

Wassalamu'alaikum wr wb
Kid.

2014-12-17 17:45 GMT+11:00 ris ha har1sn.excel@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
>
> Assalamu'alaikum para guru dan master excel.
>
> dimana salahnya dari macro saya dibawah ini. Macro ini sy gunakan untuk
> mengedit data.
>
> If Trim(EditBatch) <> "" Then
> With Sheets("DataBatch").Range("C9:C1048576";)
> Set iBatch = .Find(EditBatch, LookIn:=xlValues)
> If Not iBatch Is Nothing Then
> BatchRow = iBatch.Row
>
> If BlnBlend.Value = "" Then
> Worksheets("DataBatch").Cells(BatchRow, 1).Value =
> FormulaR1C1 = _
>
> "=IF(RC[1]="""","""",IF((R[-1]C[1]-RC[1])>15,R[-1]C+1,R[-1]C))"
> Else
> Worksheets("DataBatch").Cells(BatchRow, 1).Value =
> Me.BlnBlend.Value
> End If
>
> End If
> End With
> End If
>
> Macro yg berwarna hijau harapannya pada cell A608 keluar formula di excel
> seperti pada gambar dibawah
> tetapi hasilnya malah keluar tulisan FALSE
> Kemudian makro tsb (yg berwarna hijau) sy tes di dokumen baru, ternyata
> berhasil. File terlampir
>
> Apa penyebab macro keluar tulisan FALSE ?
> Jazakallahu Khairan Katsira dan Terima Kasih, semoga Alloh Swt membalas
> dengan yang lebih baik atas solusi yg diberikan para guru dan master excel
> semua. Amin
>
>
>

Fri Dec 19, 2014 1:26 am (PST) . Posted by:

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

Wa'alaikumussalam wr wb

Hai Andrie,

Baris :
Set C = EditMacroA.Find(TextBox1.Value, LookIn:=xlValues)
bisa menghasilkan error, yaitu ketika proses Find tidak menemukan yang
dicari.

Jadi, tidak ada data bertipe string bernilai isi textbox tersebut dalam
area pencarian EditMacroA yang nilai-nilai dalam EditMacroA bertipe string.

Andaikan area EditMacroA berisi nilai-nilai bertipe numerik atau datetime,
maka ubah nilai pencarian yang tadinya string dari textbox menjadi seuatu
nilai bertipe numerik atau datetime.

Pengubahan menjadi bertipe numerik bisa dengan fungsi seperti (disesuaikan
dengan datatype yang dibutuhkan si nilai data) cdbl, cint, clng, cdate, cdec

Ketika menggunakan textbox yang bisa diisi bebas oleh user, maka proses
pengubahan tipedata bisa emnghasilkan error jika nilai data dalam textbox
tidak bisa diubah ke tipedata yang dimaksud. Contoh, di textbox terisi
2014-02-30 atau 17-PEB-2014 tidak bisa diubah menjadi datetime dengan cDate
karena tidak ada tanggal berbunyi demikian.

Wassalamu'alaikum wr wb
Kid

2014-12-16 20:15 GMT+11:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
>
> Assaalam....
>
> Dear BeExceller...
> Saya doakan dlm keadaan sehat & baik2 aja, amiiinnn...
>
> Saya mohon bantuannya, saya telah menggunakan script ini:
> Set MacroA = Sheets("DATABASE")
> Set EditMacroA = MacroA.Range("TANGGAL1&quot;)
> Set C = EditMacroA.Find(TextBox1.Value, LookIn:=xlValues)
> C.Offset(3, 0).Value = TextBox2.Value
> C.Offset(4, 0).Value = TextBox3.Value
> C.Offset(5, 0).Value = TextBox4.Value
>
> untuk mengedit(update) data entry dari userform ke database,
> permasalahannya adalah: Alur prosesnya:
> Userform (edit/update data enty), diteruskan ke => Sheet DataBase yang
> akan ditampilkan ke => Sheet hasil untuk dicetak (print) dan kemudiian
> disimpan ke => Sheet backup pertanggal entry.
>
> script apa yg harus saya gunakan untuk proses menyimpan data hasil dari
> sheet hasil ke sheet backup... saya modifikasi script diatas tetapi error
> jadinya.
>
> Mohon bantuan para mastah sekalian...
> Sebelimnya saya ucapkan bnyk terimakasih...
>
> Wassalam
> -- Andrie Amorius, SE. Ak
> Desk Service Quality (DSQ)
> PT. Bank Riau Kepri
> JL. Dt Setia Maharaja / Parit Indah
> Perkantoran Grand Sudirman Blok B 2
> Telp (0761) 7072974
> Pekanbaru - Riau
>
>
============================================================
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