Kamis, 23 Maret 2017

[belajar-excel] Digest Number 4134

10 Messages

Digest #4134
1a
Re: Macro Gabung Sheet by "Eira I Arie" cheivory_bridge
1b
Re: Macro Gabung Sheet [1 Attachment] by "hendrik karnadi" hendrikkarnadi
3a
4a
Re: Mengisi biaya notaris [1 Attachment] by "Indra Sanjaya" indradjaja80an
4b
Re: Mengisi biaya notaris [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
5a
Re: Update data kontak (file vcf) by "Heru Safrudin" heru.safrudin
5b
Re: Update data kontak (file vcf) by "Mr. Kid" nmkid.family@ymail.com
6a
Re: Macro Berjalan jika buka file tertentu by "Mr. Kid" nmkid.family@ymail.com

Messages

Wed Mar 22, 2017 10:42 pm (PDT) . Posted by:

"Eira I Arie" cheivory_bridge

Yth. Pak HK dan Pak Lukman
file terlampir dari milis ini juga (sudah ditambahkan baris code "copypastevalue" arahan Pak HK) ..
Problemnya begini , Jika misalnya :
- pada sheet 1 , di kolom A diberi Conditional Formatting
- pada sheet 2 , di kolom C diberi warna sell kuning di beberapa data
- pada sheet gabung , dibuat excel table untuk wadah

setelah diproses gabung , dalam sheet gabung terdapat Conditional Formatting (sesuai di sheet 1) dan warna sell (sesuai sheet 2). keinginannya hanya "copy value" . ternyata hasilnya masih terdapat CF dan warna sell seperti contoh terlampir .. 
terkadang , setelah proses tombol hapus, lalu proses gabung lagi maka, pada sheet gabung, format excel table menjadi hilang (jadinya range) ..
mohon solusi atas permasalahan di atas .. 

Terima kasih
Ari

On Wednesday, March 22, 2017 7:46 PM, "lkm jktind lkmjktind@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Pak cheivory_bridge.

tolog lampirkan contoh file nya . 
yang lengkap ya.

Salam

Lukman.

NB : Ada waktu luang dikit .
      

On Wed, Mar 22, 2017 at 3:26 PM, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Coba tambahkan 2 perintah berikut ini:
Set rngGabung = Sheets("Gabung").Range("A2"). CurrentRegion
rngGabung.Value = rngGabung.value
seblm Application.CutCopyMode = False
Salam,HK

Sent from Yahoo Mail on Android

  Yth. Pakar Excel
Mohon bantuannya ,
Saya dapat barisan code macro berikut (dari milis ini juga) :
Sub Gabung()    Dim rngGabung As Range    Dim sh As Worksheet    Dim rngsh As Range    Dim brs As Long    Set rngGabung = Sheets("Gabung").Range("A2"). CurrentRegion    Set rngGabung = rngGabung.Offset(1, 0).Resize(rngGabung.Rows.Count - 1)    Application.ScreenUpdating = False        rngGabung.ClearContents        For Each sh In Worksheets        If sh.Name <> "Gabung" Then            If sh.Name <> "nim_nama"; Then                If sh.Name <> "a2" Then                    If sh.Name <> "pivot_table" Then                        Set rngsh = sh.Range("A2").CurrentRegion                        Set rngsh = rngsh.Offset(1, 0).Resize(rngsh.Rows.Count - 1)                        brs = WorksheetFunction.CountA( Sheets("Gabung").Columns("A:A" ))                        rngsh.Copy Sheets("Gabung").Range("A" & brs + 1)                    End If                End If            End If        End If    Next sh        Application.CutCopyMode = False    Application.ScreenUpdating = TrueEnd Sub
Barisan code macro tersebut jika diterapkan hasilnya "copy paste" .. keinginan saya bagaimana biar hasilnya "copy VALUE" saja, mohon bantuannya merevisi barisan code macro tersebut ..
Terima kasih
ari 

#yiv3532757949 #yiv3532757949 -- #yiv3532757949ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3532757949 #yiv3532757949ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3532757949 #yiv3532757949ygrp-mkp #yiv3532757949hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3532757949 #yiv3532757949ygrp-mkp #yiv3532757949ads {margin-bottom:10px;}#yiv3532757949 #yiv3532757949ygrp-mkp .yiv3532757949ad {padding:0 0;}#yiv3532757949 #yiv3532757949ygrp-mkp .yiv3532757949ad p {margin:0;}#yiv3532757949 #yiv3532757949ygrp-mkp .yiv3532757949ad a {color:#0000ff;text-decoration:none;}#yiv3532757949 #yiv3532757949ygrp-sponsor #yiv3532757949ygrp-lc {font-family:Arial;}#yiv3532757949 #yiv3532757949ygrp-sponsor #yiv3532757949ygrp-lc #yiv3532757949hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3532757949 #yiv3532757949ygrp-sponsor #yiv3532757949ygrp-lc .yiv3532757949ad {margin-bottom:10px;padding:0 0;}#yiv3532757949 #yiv3532757949actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3532757949 #yiv3532757949activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3532757949 #yiv3532757949activity span {font-weight:700;}#yiv3532757949 #yiv3532757949activity span:first-child {text-transform:uppercase;}#yiv3532757949 #yiv3532757949activity span a {color:#5085b6;text-decoration:none;}#yiv3532757949 #yiv3532757949activity span span {color:#ff7900;}#yiv3532757949 #yiv3532757949activity span .yiv3532757949underline {text-decoration:underline;}#yiv3532757949 .yiv3532757949attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3532757949 .yiv3532757949attach div a {text-decoration:none;}#yiv3532757949 .yiv3532757949attach img {border:none;padding-right:5px;}#yiv3532757949 .yiv3532757949attach label {display:block;margin-bottom:5px;}#yiv3532757949 .yiv3532757949attach label a {text-decoration:none;}#yiv3532757949 blockquote {margin:0 0 0 4px;}#yiv3532757949 .yiv3532757949bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3532757949 .yiv3532757949bold a {text-decoration:none;}#yiv3532757949 dd.yiv3532757949last p a {font-family:Verdana;font-weight:700;}#yiv3532757949 dd.yiv3532757949last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3532757949 dd.yiv3532757949last p span.yiv3532757949yshortcuts {margin-right:0;}#yiv3532757949 div.yiv3532757949attach-table div div a {text-decoration:none;}#yiv3532757949 div.yiv3532757949attach-table {width:400px;}#yiv3532757949 div.yiv3532757949file-title a, #yiv3532757949 div.yiv3532757949file-title a:active, #yiv3532757949 div.yiv3532757949file-title a:hover, #yiv3532757949 div.yiv3532757949file-title a:visited {text-decoration:none;}#yiv3532757949 div.yiv3532757949photo-title a, #yiv3532757949 div.yiv3532757949photo-title a:active, #yiv3532757949 div.yiv3532757949photo-title a:hover, #yiv3532757949 div.yiv3532757949photo-title a:visited {text-decoration:none;}#yiv3532757949 div#yiv3532757949ygrp-mlmsg #yiv3532757949ygrp-msg p a span.yiv3532757949yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3532757949 .yiv3532757949green {color:#628c2a;}#yiv3532757949 .yiv3532757949MsoNormal {margin:0 0 0 0;}#yiv3532757949 o {font-size:0;}#yiv3532757949 #yiv3532757949photos div {float:left;width:72px;}#yiv3532757949 #yiv3532757949photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv3532757949 #yiv3532757949photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3532757949 #yiv3532757949reco-category {font-size:77%;}#yiv3532757949 #yiv3532757949reco-desc {font-size:77%;}#yiv3532757949 .yiv3532757949replbq {margin:4px;}#yiv3532757949 #yiv3532757949ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3532757949 #yiv3532757949ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3532757949 #yiv3532757949ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3532757949 #yiv3532757949ygrp-mlmsg select, #yiv3532757949 input, #yiv3532757949 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3532757949 #yiv3532757949ygrp-mlmsg pre, #yiv3532757949 code {font:115% monospace;}#yiv3532757949 #yiv3532757949ygrp-mlmsg * {line-height:1.22em;}#yiv3532757949 #yiv3532757949ygrp-mlmsg #yiv3532757949logo {padding-bottom:10px;}#yiv3532757949 #yiv3532757949ygrp-msg p a {font-family:Verdana;}#yiv3532757949 #yiv3532757949ygrp-msg p#yiv3532757949attach-count span {color:#1E66AE;font-weight:700;}#yiv3532757949 #yiv3532757949ygrp-reco #yiv3532757949reco-head {color:#ff7900;font-weight:700;}#yiv3532757949 #yiv3532757949ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3532757949 #yiv3532757949ygrp-sponsor #yiv3532757949ov li a {font-size:130%;text-decoration:none;}#yiv3532757949 #yiv3532757949ygrp-sponsor #yiv3532757949ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3532757949 #yiv3532757949ygrp-sponsor #yiv3532757949ov ul {margin:0;padding:0 0 0 8px;}#yiv3532757949 #yiv3532757949ygrp-text {font-family:Georgia;}#yiv3532757949 #yiv3532757949ygrp-text p {margin:0 0 1em 0;}#yiv3532757949 #yiv3532757949ygrp-text tt {font-size:120%;}#yiv3532757949 #yiv3532757949ygrp-vital ul li:last-child {border-right:none !important;}#yiv3532757949

Thu Mar 23, 2017 12:10 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Ari,
Pada Sheet Gabung sel K1 tulis formula ini =COUNTA(A:A)
Di VBE Sheet sebelum Application.CutCopyMode = False, copas 3 perintah ini :
Columns("A:I").FormatConditions.DeleteColumns("A:I").Interior.Color = xlNoneActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$I$" & Range("K1")), , xlYes).Name = _        "Tableku"
Selamat mencoba.
Salam,HK

From: "Eira I Arie cheivory_bridge@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 23 March 2017, 12:42
Subject: Re: [belajar-excel] Macro Gabung Sheet [1 Attachment]

  Yth. Pak HK dan Pak Lukman
file terlampir dari milis ini juga (sudah ditambahkan baris code "copypastevalue" arahan Pak HK) ..
Problemnya begini , Jika misalnya :
- pada sheet 1 , di kolom A diberi Conditional Formatting
- pada sheet 2 , di kolom C diberi warna sell kuning di beberapa data
- pada sheet gabung , dibuat excel table untuk wadah

setelah diproses gabung , dalam sheet gabung terdapat Conditional Formatting (sesuai di sheet 1) dan warna sell (sesuai sheet 2). keinginannya hanya "copy value" . ternyata hasilnya masih terdapat CF dan warna sell seperti contoh terlampir .. 
terkadang , setelah proses tombol hapus, lalu proses gabung lagi maka, pada sheet gabung, format excel table menjadi hilang (jadinya range) ..
mohon solusi atas permasalahan di atas .. 

Terima kasih
Ari

On Wednesday, March 22, 2017 7:46 PM, "lkm jktind lkmjktind@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Pak cheivory_bridge.

tolog lampirkan contoh file nya . 
yang lengkap ya.

Salam

Lukman.

NB : Ada waktu luang dikit .
      

On Wed, Mar 22, 2017 at 3:26 PM, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Coba tambahkan 2 perintah berikut ini:
Set rngGabung = Sheets("Gabung").Range("A2"). CurrentRegion
rngGabung.Value = rngGabung.value
seblm Application.CutCopyMode = False
Salam,HK

Sent from Yahoo Mail on Android

  Yth. Pakar Excel
Mohon bantuannya ,
Saya dapat barisan code macro berikut (dari milis ini juga) :
Sub Gabung()    Dim rngGabung As Range    Dim sh As Worksheet    Dim rngsh As Range    Dim brs As Long    Set rngGabung = Sheets("Gabung").Range("A2"). CurrentRegion    Set rngGabung = rngGabung.Offset(1, 0).Resize(rngGabung.Rows.Count - 1)    Application.ScreenUpdating = False        rngGabung.ClearContents        For Each sh In Worksheets        If sh.Name <> "Gabung" Then            If sh.Name <> "nim_nama"; Then                If sh.Name <> "a2" Then                    If sh.Name <> "pivot_table" Then                        Set rngsh = sh.Range("A2").CurrentRegion                        Set rngsh = rngsh.Offset(1, 0).Resize(rngsh.Rows.Count - 1)                        brs = WorksheetFunction.CountA( Sheets("Gabung").Columns("A:A" ))                        rngsh.Copy Sheets("Gabung").Range("A" & brs + 1)                    End If                End If            End If        End If    Next sh        Application.CutCopyMode = False    Application.ScreenUpdating = TrueEnd Sub
Barisan code macro tersebut jika diterapkan hasilnya "copy paste" .. keinginan saya bagaimana biar hasilnya "copy VALUE" saja, mohon bantuannya merevisi barisan code macro tersebut ..
Terima kasih
ari 

#yiv7881542003 #yiv7881542003 -- #yiv7881542003ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7881542003 #yiv7881542003ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7881542003 #yiv7881542003ygrp-mkp #yiv7881542003hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7881542003 #yiv7881542003ygrp-mkp #yiv7881542003ads {margin-bottom:10px;}#yiv7881542003 #yiv7881542003ygrp-mkp .yiv7881542003ad {padding:0 0;}#yiv7881542003 #yiv7881542003ygrp-mkp .yiv7881542003ad p {margin:0;}#yiv7881542003 #yiv7881542003ygrp-mkp .yiv7881542003ad a {color:#0000ff;text-decoration:none;}#yiv7881542003 #yiv7881542003ygrp-sponsor #yiv7881542003ygrp-lc {font-family:Arial;}#yiv7881542003 #yiv7881542003ygrp-sponsor #yiv7881542003ygrp-lc #yiv7881542003hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7881542003 #yiv7881542003ygrp-sponsor #yiv7881542003ygrp-lc .yiv7881542003ad {margin-bottom:10px;padding:0 0;}#yiv7881542003 #yiv7881542003actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7881542003 #yiv7881542003activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7881542003 #yiv7881542003activity span {font-weight:700;}#yiv7881542003 #yiv7881542003activity span:first-child {text-transform:uppercase;}#yiv7881542003 #yiv7881542003activity span a {color:#5085b6;text-decoration:none;}#yiv7881542003 #yiv7881542003activity span span {color:#ff7900;}#yiv7881542003 #yiv7881542003activity span .yiv7881542003underline {text-decoration:underline;}#yiv7881542003 .yiv7881542003attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7881542003 .yiv7881542003attach div a {text-decoration:none;}#yiv7881542003 .yiv7881542003attach img {border:none;padding-right:5px;}#yiv7881542003 .yiv7881542003attach label {display:block;margin-bottom:5px;}#yiv7881542003 .yiv7881542003attach label a {text-decoration:none;}#yiv7881542003 blockquote {margin:0 0 0 4px;}#yiv7881542003 .yiv7881542003bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7881542003 .yiv7881542003bold a {text-decoration:none;}#yiv7881542003 dd.yiv7881542003last p a {font-family:Verdana;font-weight:700;}#yiv7881542003 dd.yiv7881542003last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7881542003 dd.yiv7881542003last p span.yiv7881542003yshortcuts {margin-right:0;}#yiv7881542003 div.yiv7881542003attach-table div div a {text-decoration:none;}#yiv7881542003 div.yiv7881542003attach-table {width:400px;}#yiv7881542003 div.yiv7881542003file-title a, #yiv7881542003 div.yiv7881542003file-title a:active, #yiv7881542003 div.yiv7881542003file-title a:hover, #yiv7881542003 div.yiv7881542003file-title a:visited {text-decoration:none;}#yiv7881542003 div.yiv7881542003photo-title a, #yiv7881542003 div.yiv7881542003photo-title a:active, #yiv7881542003 div.yiv7881542003photo-title a:hover, #yiv7881542003 div.yiv7881542003photo-title a:visited {text-decoration:none;}#yiv7881542003 div#yiv7881542003ygrp-mlmsg #yiv7881542003ygrp-msg p a span.yiv7881542003yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7881542003 .yiv7881542003green {color:#628c2a;}#yiv7881542003 .yiv7881542003MsoNormal {margin:0 0 0 0;}#yiv7881542003 o {font-size:0;}#yiv7881542003 #yiv7881542003photos div {float:left;width:72px;}#yiv7881542003 #yiv7881542003photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7881542003 #yiv7881542003photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7881542003 #yiv7881542003reco-category {font-size:77%;}#yiv7881542003 #yiv7881542003reco-desc {font-size:77%;}#yiv7881542003 .yiv7881542003replbq {margin:4px;}#yiv7881542003 #yiv7881542003ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7881542003 #yiv7881542003ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7881542003 #yiv7881542003ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7881542003 #yiv7881542003ygrp-mlmsg select, #yiv7881542003 input, #yiv7881542003 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7881542003 #yiv7881542003ygrp-mlmsg pre, #yiv7881542003 code {font:115% monospace;}#yiv7881542003 #yiv7881542003ygrp-mlmsg * {line-height:1.22em;}#yiv7881542003 #yiv7881542003ygrp-mlmsg #yiv7881542003logo {padding-bottom:10px;}#yiv7881542003 #yiv7881542003ygrp-msg p a {font-family:Verdana;}#yiv7881542003 #yiv7881542003ygrp-msg p#yiv7881542003attach-count span {color:#1E66AE;font-weight:700;}#yiv7881542003 #yiv7881542003ygrp-reco #yiv7881542003reco-head {color:#ff7900;font-weight:700;}#yiv7881542003 #yiv7881542003ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7881542003 #yiv7881542003ygrp-sponsor #yiv7881542003ov li a {font-size:130%;text-decoration:none;}#yiv7881542003 #yiv7881542003ygrp-sponsor #yiv7881542003ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7881542003 #yiv7881542003ygrp-sponsor #yiv7881542003ov ul {margin:0;padding:0 0 0 8px;}#yiv7881542003 #yiv7881542003ygrp-text {font-family:Georgia;}#yiv7881542003 #yiv7881542003ygrp-text p {margin:0 0 1em 0;}#yiv7881542003 #yiv7881542003ygrp-text tt {font-size:120%;}#yiv7881542003 #yiv7881542003ygrp-vital ul li:last-child {border-right:none !important;}#yiv7881542003

Wed Mar 22, 2017 10:42 pm (PDT) . Posted by:

"Fano The Miner"

Dear Excel Masters..

Mohon bantuannya. Saya mempunyai Group Object yang terdiri dari 1 Chart dan
beberapa Textbox.

Yang saya inginkan adalah bagaimana mengexport Group Object ini ke file
Image (JPG atau PNG atau WMF) menggunakan VBA Code.

Terma kasih sebelumnya atas bantuannya.

Salam,

Fano

Thu Mar 23, 2017 7:25 am (PDT) . Posted by:

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

Hai Fano,

Pindahkan chart yang sudah lengkap (berisi seluruh elemen yang dibutuhkan)
menjadi sebuah chart sheet. Lalu save chart sheet sebagai image.
Contohnya ada di file yang ada disini
<https://app.box.com/s/xt9m126qfn7c6znmjrv5> pada prosedur
CreatePicFileFromShape.

Regards,
Kid

2017-03-23 12:24 GMT+07:00 'Fano The Miner' fano.theminer@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear Excel Masters..
>
>
>
> Mohon bantuannya. Saya mempunyai *Group Object* yang terdiri dari 1 Chart
> dan beberapa Textbox.
>
> Yang saya inginkan adalah bagaimana meng*export* Group Object ini ke
> *file* *Image* (JPG atau PNG atau WMF) menggunakan *VBA Code.*
>
>
>
>
>
> Terma kasih sebelumnya atas bantuannya.
>
>
>
> Salam,
>
> Fano
>
>
>

Wed Mar 22, 2017 10:46 pm (PDT) . Posted by:

shenly_excelmania

ia mas sony baris hehehehe ini udah markotop banget, matur nuhun mas sonny,


Wed Mar 22, 2017 10:47 pm (PDT) . Posted by:

"Indra Sanjaya" indradjaja80an

Mohon maaf sy msh blm paham maksud dari Penyusunan tabel referensi yang memanfaatkan nilai batas bawah lebih memudahkan dalam penyusunan formula.

Dan apa maksud dari penambahan baris lookup key ?

Mohon pencerahannya 

On Tuesday, March 21, 2017 10:00 AM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Hai Indra,

File terlampir berisi beberapa alternatif formula.
Penyusunan tabel referensi yang memanfaatkan nilai batas bawah lebih memudahkan dalam penyusunan formula.

Regards,
Kid

2017-03-20 12:38 GMT+07:00 Indra Sanjaya indradjaja80an@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

 
|
|
| |

|
|
| Dear para master excel
Saya kesulitan mencari biaya notaris karena punya rate sendiri2, baik untuk nominal 50jt, 100jt dan diatas 100jt.
File terlampir terdiri dari 2 sheetSheet1 sebagai acuanSheetIsian untuk mengisi biayanya.
Mohon bantuan dari para master excel sekalian.
Atas bantuannya Saya ucapkan terima kasih  |

|
|

| |

|

|
|
| | Yahoo Mail Stationery |

|

#yiv2781573550 -- #yiv2781573550ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2781573550 #yiv2781573550ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2781573550 #yiv2781573550ygrp-mkp #yiv2781573550hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2781573550 #yiv2781573550ygrp-mkp #yiv2781573550ads {margin-bottom:10px;}#yiv2781573550 #yiv2781573550ygrp-mkp .yiv2781573550ad {padding:0 0;}#yiv2781573550 #yiv2781573550ygrp-mkp .yiv2781573550ad p {margin:0;}#yiv2781573550 #yiv2781573550ygrp-mkp .yiv2781573550ad a {color:#0000ff;text-decoration:none;}#yiv2781573550 #yiv2781573550ygrp-sponsor #yiv2781573550ygrp-lc {font-family:Arial;}#yiv2781573550 #yiv2781573550ygrp-sponsor #yiv2781573550ygrp-lc #yiv2781573550hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2781573550 #yiv2781573550ygrp-sponsor #yiv2781573550ygrp-lc .yiv2781573550ad {margin-bottom:10px;padding:0 0;}#yiv2781573550 #yiv2781573550actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2781573550 #yiv2781573550activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2781573550 #yiv2781573550activity span {font-weight:700;}#yiv2781573550 #yiv2781573550activity span:first-child {text-transform:uppercase;}#yiv2781573550 #yiv2781573550activity span a {color:#5085b6;text-decoration:none;}#yiv2781573550 #yiv2781573550activity span span {color:#ff7900;}#yiv2781573550 #yiv2781573550activity span .yiv2781573550underline {text-decoration:underline;}#yiv2781573550 .yiv2781573550attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2781573550 .yiv2781573550attach div a {text-decoration:none;}#yiv2781573550 .yiv2781573550attach img {border:none;padding-right:5px;}#yiv2781573550 .yiv2781573550attach label {display:block;margin-bottom:5px;}#yiv2781573550 .yiv2781573550attach label a {text-decoration:none;}#yiv2781573550 blockquote {margin:0 0 0 4px;}#yiv2781573550 .yiv2781573550bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2781573550 .yiv2781573550bold a {text-decoration:none;}#yiv2781573550 dd.yiv2781573550last p a {font-family:Verdana;font-weight:700;}#yiv2781573550 dd.yiv2781573550last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2781573550 dd.yiv2781573550last p span.yiv2781573550yshortcuts {margin-right:0;}#yiv2781573550 div.yiv2781573550attach-table div div a {text-decoration:none;}#yiv2781573550 div.yiv2781573550attach-table {width:400px;}#yiv2781573550 div.yiv2781573550file-title a, #yiv2781573550 div.yiv2781573550file-title a:active, #yiv2781573550 div.yiv2781573550file-title a:hover, #yiv2781573550 div.yiv2781573550file-title a:visited {text-decoration:none;}#yiv2781573550 div.yiv2781573550photo-title a, #yiv2781573550 div.yiv2781573550photo-title a:active, #yiv2781573550 div.yiv2781573550photo-title a:hover, #yiv2781573550 div.yiv2781573550photo-title a:visited {text-decoration:none;}#yiv2781573550 div#yiv2781573550ygrp-mlmsg #yiv2781573550ygrp-msg p a span.yiv2781573550yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2781573550 .yiv2781573550green {color:#628c2a;}#yiv2781573550 .yiv2781573550MsoNormal {margin:0 0 0 0;}#yiv2781573550 o {font-size:0;}#yiv2781573550 #yiv2781573550photos div {float:left;width:72px;}#yiv2781573550 #yiv2781573550photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2781573550 #yiv2781573550photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2781573550 #yiv2781573550reco-category {font-size:77%;}#yiv2781573550 #yiv2781573550reco-desc {font-size:77%;}#yiv2781573550 .yiv2781573550replbq {margin:4px;}#yiv2781573550 #yiv2781573550ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2781573550 #yiv2781573550ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2781573550 #yiv2781573550ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2781573550 #yiv2781573550ygrp-mlmsg select, #yiv2781573550 input, #yiv2781573550 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2781573550 #yiv2781573550ygrp-mlmsg pre, #yiv2781573550 code {font:115% monospace;}#yiv2781573550 #yiv2781573550ygrp-mlmsg * {line-height:1.22em;}#yiv2781573550 #yiv2781573550ygrp-mlmsg #yiv2781573550logo {padding-bottom:10px;}#yiv2781573550 #yiv2781573550ygrp-msg p a {font-family:Verdana;}#yiv2781573550 #yiv2781573550ygrp-msg p#yiv2781573550attach-count span {color:#1E66AE;font-weight:700;}#yiv2781573550 #yiv2781573550ygrp-reco #yiv2781573550reco-head {color:#ff7900;font-weight:700;}#yiv2781573550 #yiv2781573550ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2781573550 #yiv2781573550ygrp-sponsor #yiv2781573550ov li a {font-size:130%;text-decoration:none;}#yiv2781573550 #yiv2781573550ygrp-sponsor #yiv2781573550ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2781573550 #yiv2781573550ygrp-sponsor #yiv2781573550ov ul {margin:0;padding:0 0 0 8px;}#yiv2781573550 #yiv2781573550ygrp-text {font-family:Georgia;}#yiv2781573550 #yiv2781573550ygrp-text p {margin:0 0 1em 0;}#yiv2781573550 #yiv2781573550ygrp-text tt {font-size:120%;}#yiv2781573550 #yiv2781573550ygrp-vital ul li:last-child {border-right:none !important;}#yiv2781573550

Thu Mar 23, 2017 3:13 am (PDT) . Posted by:

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

Agar memudahkan proses lookup Pak.

On Thu, Mar 23, 2017 at 10:43 AM, Indra Sanjaya indradjaja80an@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Mohon maaf sy msh blm paham maksud dari Penyusunan tabel referensi yang
> memanfaatkan nilai batas bawah lebih memudahkan dalam penyusunan formula.
>
> Dan apa maksud dari penambahan baris lookup key ?
>
> [image: Inline image]
>
> Mohon pencerahannya [image: *8-> day dreaming]
>
>
>
>
>
> On Tuesday, March 21, 2017 10:00 AM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Hai Indra,
>
> File terlampir berisi beberapa alternatif formula.
> Penyusunan tabel referensi yang memanfaatkan nilai batas bawah lebih
> memudahkan dalam penyusunan formula.
>
> Regards,
> Kid
>
>
> 2017-03-20 12:38 GMT+07:00 Indra Sanjaya indradjaja80an@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> [image: Champers]
>
> Dear para master excel
>
> Saya kesulitan mencari biaya notaris karena punya rate sendiri2, baik
> untuk nominal 50jt, 100jt dan diatas 100jt.
>
> File terlampir terdiri dari 2 sheet
> Sheet1 sebagai acuan
> SheetIsian untuk mengisi biayanya.
>
> Mohon bantuan dari para master excel sekalian.
>
> Atas bantuannya Saya ucapkan terima kasih
> [image: Champers]
> [image: Paperless Post]
> <https://www.paperlesspost.com/cards/card/20180?utm_medium=referral&utm_source=yahoo_birdlogo&utm_campaign=birdlogo&utm_term=20180&pp_channel=yahoo&lang=en-US> Yahoo
> Mail Stationery <https://overview.mail.yahoo.com/features/stationery>
>
>
>
>
>
>

Thu Mar 23, 2017 2:20 am (PDT) . Posted by:

"Heru Safrudin" heru.safrudin

Pakai open file Mr.

Oh karena pelunisan ke file pakai write bukan print

Memang demikiankah ?

Terima kasih

Heru Safrudin

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Maret 2017 20:11
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Update data kontak (file vcf)

Pakai open file as atau saveas printer?

Sent from my smart enough phone

On Mar 22, 2017, at 10:53, 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

Mr. Kenapa hasil penulisannya per baris jadi ada double quote-nya ? (hasilnya terlampir)

Kenapa demikian?

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 14 Maret 2017 13:04
To: BeExcel
Subject: Re: [belajar-excel] Update data kontak (file vcf)

ops kebalik

char(13) adalah CR

char(10) adalah LF

jadi formula untuk karakter ENTER adalah :

char(13) & char(10)

Cara lain supaya tidak pakai open text file as output adalah dengan melakukan save worksheet. Tapi harus disediakan worksheet kosong di workbook baru dan kolom vCardBlock (tanpa header) di copy ke range a1 sheet kosong tersebut.

Kira-kira bunyinya begini :

dim wbkDT as workbook, wbkTMP as workbook

dim shtDT as worksheet, shtTMP as worksheet

application.displayalerts=false

application.calculation=xlcalculationautomatic

set wbkdt=thisworkbook

set shtdt=sheets("nama sheet kontak")

set wbktmp=workbooks.add

set shttmp=wbktmp.sheets(1)

shtdt.range("range data di kolom vCardBlock").copy

shttmp.range("a1").pastespecial xlpastevalues

shttmp.usedrange.wraptext=false

shttmp.saveas wbkdt.path & "\contact.vcf",xltextprinter 'type xltextprinter menulis apa adanya yang tampak, jadi pastikan tidak ter-hide atau ter-wrap

wbktmp.close false

wbkdt.activate

shtdt.activate

application.displayalerts=true

Kalau kurang suka dengan proses save workbook baru, bisa juga dengan save worksheet yang ada. Tetapi, kolom dan baris selain data vcardblock di hide terlebih dulu dan dipastikan wraptext berstatus false (tidak di-wrap text). Barulah kemudian worksheet di save as nama file contact. Kemudian lakukan save as jadi workbook asli lagi.

Cukup banyak opsi yang disediakan VBA untuk menulis ke text file selain open textfile as output

Regards,

Kid

2017-03-14 11:51 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:

oh iya,

untuk membuat karakter Enter dalam formula, gunakan bunyi formula :

char(10) & char(13)

agar setara dengan CRLF (enter pindah baris). Char(10) adalah CR dan char(13) adalah LF

Di VBA, dikenal dengan konstanta vbCrLf

2017-03-14 10:56 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:

Hai Heru,

Yup demikian.

Untuk record data kontak yang tidak sampai ratusan ribu kontak, proses penulisan seluruh blok secara sequential tidak akan lama.

Yang perlu diingat, sediakan 1 kolom di Excel (ter-hide) berisi formula penyusun 1 blok kontak dari begin sampai end, sehingga proses penulisan 1 kontak ke file adalah sebagai 1 blok berisi beberapa baris sekaligus.

Contoh kolom di Excel berisi daftar kolom yang bisa diisi user :

Versi Prefix NmDepan NmTengah NmBlkg Suffix vCardBlock

pada kolom vCardBlock berisi formula agar setiap cells di kolom ini bisa menghasilkan bunyi :

BEGIN:VCARD

VERSION:(berisi nilai dari kolom versi di baris tersebut)

FN:(berisi gabungan nama dari prefix sampai suffix

N:(berisi susunan part nama dari prefix sampai suffix dengan delimiter titik koma dan urutan sesuai standar vCARD)

END:VCARD

Kemudian proses tulis ke file .vcf dengan mode for output.

Regards,

Kid

2017-03-14 7:47 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Iya mungkin maksudnya begitu Mr.

Apakah harus ditulis ulang secara skuensial dari baris pertama sampai baris yg telah diganti isinya atau ada cara lain Mr. ?

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 13 Maret 2017 15:37

To: BeExcel
Subject: Re: [belajar-excel] Update data kontak (file vcf)

hehehe...

terus terang, saya jadi bingung dengan pertanyaannya...
"Kalau sudah ada tabel berisi kontak disebuah sheet, gimana cara ganti isi cellsnya ?"

Apakah demikian maksud pertanyaannya ?

Regards,

Kid

2017-03-13 14:17 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Ok Mr. Baca tulis ke file txt udah bisa, pertanyaan saya bagaimana cara kita bisa edit recordnya ? misal mau delete dan edit kontak ?

Mohon bimbingaannya

Heru Safrudin

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 12 Maret 2017 10:12
To: BeExcel
Subject: Re: [belajar-excel] Update data kontak (file vcf)

Hai Heru,

Bisa.

vCard file (.vcf) adalah plain text file dengan struktur yang standar. Sila dilihat standarisasinya disini <https://en.wikipedia.org/wiki/VCard#Properties> , dengan contohnya disini <https://en.wikipedia.org/wiki/VCard#Example_of_vCard_files> .

Jadi, pada tabel contacts di sebuah sheet, disertakan kode properti yang sesuai. Kemudian di sebuah kolom, susun dengan formula blok vCard setiap record contact yang ada. Setiap contact selalu mulai dengan BEGIN:VCARD dan diakhir dengan END:VCARD. Jangan lupa, item ke-2 adalah VERSION

Setelah di kolom baru tersebut di dapat bunyi blok vCARD untuk contact di baris itu, barulah dilakukan penulisan ke text file yang diberi ekstensi .vcf

Contoh menulis isi range ke sebuah plain text file bisa dilihat disini <https://app.box.com/s/7urcxbqc33vu7sk8m9t5qnmmf7hi1ja1> .

Regards,

Kid

2017-03-04 9:59 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear B-Exceller,

Saya punya data kontak di excel, dengan beberapa kali konversi akhirnya data file excel bisa jadi file contact (vcf)

Pertanyaan saya bisakah vba menghubungkan file contact tersebut di ke dan dari excel ?

Mohon pengetahuannya

Terima kasih

<image001.gif><image002.png>

<Test.txt>

Thu Mar 23, 2017 2:23 am (PDT) . Posted by:

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

Yup...

Dicoba saja untuk membuat prosedur yang menggunakan :
1. Write (1 prosedur)
2. Print (1 prosedur -> copas prosedur yang pakai write lalu ganti jadi
print)
3. saveas xlprinter

Dari hasil ujicoba tersebut, bisa dipilih yang sesuai kebutuhan.

Regards,
Kid

2017-03-23 13:37 GMT+07:00 'Heru Safrudin'
fcprocessing.bisikediri@bisi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Pakai open file Mr.
>
>
>
> Oh karena pelunisan ke file pakai write bukan print
>
> Memang demikiankah ?
>
>
>
> Terima kasih
>
>
>
> Heru Safrudin
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* 22 Maret 2017 20:11
> *To:* belajar-excel@yahoogroups.com
>
> *Subject:* Re: [belajar-excel] Update data kontak (file vcf)
>
>
>
>
>
> Pakai open file as atau saveas printer?
>
> Sent from my smart enough phone
>
>
> On Mar 22, 2017, at 10:53, 'Heru Safrudin' fcprocessing.bisikediri@bisi.
> co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Mr. Kenapa hasil penulisannya per baris jadi ada double quote-nya ?
> (hasilnya terlampir)
>
> Kenapa demikian?
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com <belajar-excel@yahoogroups.com>]
> *Sent:* 14 Maret 2017 13:04
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Update data kontak (file vcf)
>
>
>
>
>
> ops kebalik
>
> char(13) adalah CR
>
> char(10) adalah LF
>
> jadi formula untuk karakter ENTER adalah :
>
> char(13) & char(10)
>
>
> Cara lain supaya tidak pakai open text file as output adalah dengan
> melakukan save worksheet. Tapi harus disediakan worksheet kosong di
> workbook baru dan kolom vCardBlock (tanpa header) di copy ke range a1 sheet
> kosong tersebut.
>
> Kira-kira bunyinya begini :
>
> dim wbkDT as workbook, wbkTMP as workbook
>
> dim shtDT as worksheet, shtTMP as worksheet
>
> application.displayalerts=false
>
> application.calculation=xlcalculationautomatic
>
> set wbkdt=thisworkbook
>
> set shtdt=sheets("nama sheet kontak")
>
> set wbktmp=workbooks.add
>
> set shttmp=wbktmp.sheets(1)
>
> shtdt.range("range data di kolom vCardBlock").copy
>
> shttmp.range("a1").pastespecial xlpastevalues
>
> shttmp.usedrange.wraptext=false
>
> shttmp.saveas wbkdt.path & "\contact.vcf",xltextprinter 'type
> xltextprinter menulis apa adanya yang tampak, jadi pastikan tidak ter-hide
> atau ter-wrap
>
> wbktmp.close false
>
> wbkdt.activate
>
> shtdt.activate
>
> application.displayalerts=true
>
>
>
> Kalau kurang suka dengan proses save workbook baru, bisa juga dengan save
> worksheet yang ada. Tetapi, kolom dan baris selain data vcardblock di hide
> terlebih dulu dan dipastikan wraptext berstatus false (tidak di-wrap text).
> Barulah kemudian worksheet di save as nama file contact. Kemudian lakukan
> save as jadi workbook asli lagi.
>
>
>
> Cukup banyak opsi yang disediakan VBA untuk menulis ke text file selain
> open textfile as output
>
>
>
> Regards,
>
> Kid
>
>
>
>
>
> 2017-03-14 11:51 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
>
> oh iya,
>
> untuk membuat karakter Enter dalam formula, gunakan bunyi formula :
>
> char(10) & char(13)
>
> agar setara dengan CRLF (enter pindah baris). Char(10) adalah CR dan
> char(13) adalah LF
>
> Di VBA, dikenal dengan konstanta vbCrLf
>
>
>
>
>
>
> 2017-03-14 10:56 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
>
> Hai Heru,
>
> Yup demikian.
>
> Untuk record data kontak yang tidak sampai ratusan ribu kontak, proses
> penulisan seluruh blok secara sequential tidak akan lama.
>
> Yang perlu diingat, sediakan 1 kolom di Excel (ter-hide) berisi formula
> penyusun 1 blok kontak dari begin sampai end, sehingga proses penulisan 1
> kontak ke file adalah sebagai 1 blok berisi beberapa baris sekaligus.
>
> Contoh kolom di Excel berisi daftar kolom yang bisa diisi user :
>
> Versi Prefix NmDepan NmTengah
> NmBlkg Suffix vCardBlock
>
>
>
> pada kolom vCardBlock berisi formula agar *setiap *cells di kolom ini
> bisa menghasilkan bunyi :
>
> BEGIN:VCARD
>
> VERSION:(berisi nilai dari kolom versi di baris tersebut)
>
> FN:(berisi gabungan nama dari prefix sampai suffix
>
> N:(berisi susunan part nama dari prefix sampai suffix dengan delimiter
> titik koma dan urutan sesuai standar vCARD)
>
> END:VCARD
>
>
>
> Kemudian proses tulis ke file .vcf dengan mode for output.
>
>
>
> Regards,
>
> Kid
>
>
>
>
>
> 2017-03-14 7:47 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.
> co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Iya mungkin maksudnya begitu Mr.
>
>
>
> Apakah harus ditulis ulang secara skuensial dari baris pertama sampai
> baris yg telah diganti isinya atau ada cara lain Mr. ?
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* 13 Maret 2017 15:37
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Update data kontak (file vcf)
>
>
>
>
>
> hehehe...
>
> terus terang, saya jadi bingung dengan pertanyaannya...
> "Kalau sudah ada tabel berisi kontak disebuah sheet, gimana cara ganti isi
> cellsnya ?"
>
> Apakah demikian maksud pertanyaannya ?
>
>
>
> Regards,
>
> Kid
>
>
>
>
>
> 2017-03-13 14:17 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.
> co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Ok Mr. Baca tulis ke file txt udah bisa, pertanyaan saya bagaimana cara
> kita bisa edit recordnya ? misal mau delete dan edit kontak ?
>
> Mohon bimbingaannya
>
>
>
> Heru Safrudin
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* 12 Maret 2017 10:12
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Update data kontak (file vcf)
>
>
>
>
>
> Hai Heru,
>
> Bisa.
>
> vCard file (.vcf) adalah plain text file dengan struktur yang standar.
> Sila dilihat standarisasinya disini
> <https://en.wikipedia.org/wiki/VCard#Properties>, dengan contohnya disini
> <https://en.wikipedia.org/wiki/VCard#Example_of_vCard_files>.
>
> Jadi, pada tabel contacts di sebuah sheet, disertakan kode properti yang
> sesuai. Kemudian di sebuah kolom, susun dengan formula blok vCard setiap
> record contact yang ada. Setiap contact selalu mulai dengan BEGIN:VCARD dan
> diakhir dengan END:VCARD. Jangan lupa, item ke-2 adalah VERSION
>
> Setelah di kolom baru tersebut di dapat bunyi blok vCARD untuk contact di
> baris itu, barulah dilakukan penulisan ke text file yang diberi ekstensi
> .vcf
>
> Contoh menulis isi range ke sebuah plain text file bisa dilihat disini
> <https://app.box.com/s/7urcxbqc33vu7sk8m9t5qnmmf7hi1ja1>.
>
> Regards,
>
> Kid
>
>
>
>
>
>
> 2017-03-04 9:59 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.
> co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear B-Exceller,
>
>
>
> Saya punya data kontak di excel, dengan beberapa kali konversi akhirnya
> data file excel bisa jadi file contact (vcf)
>
> Pertanyaan saya bisakah vba menghubungkan file contact tersebut di ke dan
> dari excel ?
>
>
>
> Mohon pengetahuannya
>
>
>
> Terima kasih
>
>
>
> <image001.gif><image002.png>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> <Test.txt>
>
>
>

Thu Mar 23, 2017 7:42 am (PDT) . Posted by:

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

Hai Jajang,

Terus terang, saya kurang paham maksud dari kasus ini.

btw,
Jika yang dimaksud adalah WorkbookA yang telah terbuka dapat mengetahui ada
workbook lain (workbookB) yang dibuka kemudian dan workbookB yang baru
dibuka akan diproses oleh VBA yang ada di workbookA (yang terbuka lebih
dulu), maka bisa begini : (bisa di save as add in atau sekadar .xlsm atau
.xlsb)
1. Buka Excel dengan sebuah workbook baru -> lakukan save as -> pilih type
nya adalah .xlsm -> beri nama filenya BookA.xlsm
2. ke VBA -> buka lembar script module Thisworkbook -> buat event workbook
open dan biarkan kosong dulu
3. deklarasikan variabel diluar prosedur event (baris pertama lembar
script) yang bertype object application disertai opsi withevents
public withevents myApp as application

4. di dalam prosedur event workbook open (yang dibuat di nomor 2), isi
dengan proses inisialisasi variabel myApp
set myapp=application

5. pada object myApp, buat event WorkbookOpen dan isi dengan proses yang
Anda butuhkan.
Misal : menampilkan nama workbook yang baru saja dibuka oleh user
msgbox "Open : " & wb.name & vbcrlf & "Folder : " & wb.path & vbcrlf &
"Fullname : " & wb.fullname

6. [bila perlu] pada object myApp, buat event NewWorkbook dan isi dengan
proses yang Anda butuhkan.
Misal : membuat nama sheet pertama workbook baru adalah Kid
wb.sheets(1).name="Kid"

7. save -> tutup semua Excel -> jalankan file BookA.xlsm
8. coba buka workbook lain (CTRL o) atau buat workbook baru (dengan CTRL n)

Regards,
Kid

2017-03-20 12:07 GMT+07:00 jajang muhammad siddik jajang_ms@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Para Suhu
>
> Mohon bantuannya saya akan membuat macro add-in di Excel, dengan perintah
> jika file tertentu di buka makan macro berjalan. misalkan jika file excel
> *olahdata.xls* di buka, maka *macro2* berjalan, namun jika file lain yang
> di buka maka tidak ada macro yang berjalan.
> Saya sudah coba - coba menggunakan perintah *Workbook_Open() , *namun ini
> berfungsi ke semua excel, bukan pada file tertentu.
>
> Semoga teman2 para suhu dapat mengerti penjelasan saya di atas.
>
> Salam,
>
>
> jajangms
>
>
>
>
============================================================
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 19.02

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)