Rabu, 22 Maret 2017

[belajar-excel] Digest Number 4133

12 Messages

Digest #4133
1a
Macro menuju cell tertentu di sheet lain by "Heru Safrudin" heru.safrudin
1b
Re: Macro menuju cell tertentu di sheet lain by "hendrik karnadi" hendrikkarnadi
1c
Re: Macro menuju cell tertentu di sheet lain by "Heru Safrudin" heru.safrudin
2a
Re: Update data kontak (file vcf) by "Heru Safrudin" heru.safrudin
4a
Macro Gabung Sheet by cheivory_bridge
4b
Re: Macro Gabung Sheet by "hendrik karnadi" hendrikkarnadi
4c
Re: Macro Gabung Sheet by "lkm jktind" lkmjkt
5
Re: Update data kontak (file vcf) [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
6a
insert kolom berjarak????? by shenly_excelmania

Messages

Tue Mar 21, 2017 7:45 pm (PDT) . Posted by:

"Heru Safrudin" heru.safrudin

Dear B-Exceller,

Bagaimanakah penulisan macro jika kita ingin menuju ke cell tertentu di
sheet lain?

Misal kita ingin kursor berada di cell:A5 dalam Sheet5

Terima kasih

Regards,

Heru Safrudin

Tue Mar 21, 2017 7:54 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Coba Application.Goto sel_tujuan
Salam, HK

Sent from Yahoo Mail on Android

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

Dear  B-Exceller,

 

Bagaimanakah penulisan macro jika kita ingin menuju ke celltertentu di sheet lain?

 

Misal kita ingin kursor berada di cell:A5 dalam Sheet5

 

Terima kasih

 

Regards,

Heru Safrudin
#yiv7327613675 #yiv7327613675 -- #yiv7327613675ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7327613675 #yiv7327613675ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7327613675 #yiv7327613675ygrp-mkp #yiv7327613675hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7327613675 #yiv7327613675ygrp-mkp #yiv7327613675ads {margin-bottom:10px;}#yiv7327613675 #yiv7327613675ygrp-mkp .yiv7327613675ad {padding:0 0;}#yiv7327613675 #yiv7327613675ygrp-mkp .yiv7327613675ad p {margin:0;}#yiv7327613675 #yiv7327613675ygrp-mkp .yiv7327613675ad a {color:#0000ff;text-decoration:none;}#yiv7327613675 #yiv7327613675ygrp-sponsor #yiv7327613675ygrp-lc {font-family:Arial;}#yiv7327613675 #yiv7327613675ygrp-sponsor #yiv7327613675ygrp-lc #yiv7327613675hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7327613675 #yiv7327613675ygrp-sponsor #yiv7327613675ygrp-lc .yiv7327613675ad {margin-bottom:10px;padding:0 0;}#yiv7327613675 #yiv7327613675actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7327613675 #yiv7327613675activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7327613675 #yiv7327613675activity span {font-weight:700;}#yiv7327613675 #yiv7327613675activity span:first-child {text-transform:uppercase;}#yiv7327613675 #yiv7327613675activity span a {color:#5085b6;text-decoration:none;}#yiv7327613675 #yiv7327613675activity span span {color:#ff7900;}#yiv7327613675 #yiv7327613675activity span .yiv7327613675underline {text-decoration:underline;}#yiv7327613675 .yiv7327613675attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7327613675 .yiv7327613675attach div a {text-decoration:none;}#yiv7327613675 .yiv7327613675attach img {border:none;padding-right:5px;}#yiv7327613675 .yiv7327613675attach label {display:block;margin-bottom:5px;}#yiv7327613675 .yiv7327613675attach label a {text-decoration:none;}#yiv7327613675 blockquote {margin:0 0 0 4px;}#yiv7327613675 .yiv7327613675bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7327613675 .yiv7327613675bold a {text-decoration:none;}#yiv7327613675 dd.yiv7327613675last p a {font-family:Verdana;font-weight:700;}#yiv7327613675 dd.yiv7327613675last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7327613675 dd.yiv7327613675last p span.yiv7327613675yshortcuts {margin-right:0;}#yiv7327613675 div.yiv7327613675attach-table div div a {text-decoration:none;}#yiv7327613675 div.yiv7327613675attach-table {width:400px;}#yiv7327613675 div.yiv7327613675file-title a, #yiv7327613675 div.yiv7327613675file-title a:active, #yiv7327613675 div.yiv7327613675file-title a:hover, #yiv7327613675 div.yiv7327613675file-title a:visited {text-decoration:none;}#yiv7327613675 div.yiv7327613675photo-title a, #yiv7327613675 div.yiv7327613675photo-title a:active, #yiv7327613675 div.yiv7327613675photo-title a:hover, #yiv7327613675 div.yiv7327613675photo-title a:visited {text-decoration:none;}#yiv7327613675 div#yiv7327613675ygrp-mlmsg #yiv7327613675ygrp-msg p a span.yiv7327613675yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7327613675 .yiv7327613675green {color:#628c2a;}#yiv7327613675 .yiv7327613675MsoNormal {margin:0 0 0 0;}#yiv7327613675 o {font-size:0;}#yiv7327613675 #yiv7327613675photos div {float:left;width:72px;}#yiv7327613675 #yiv7327613675photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7327613675 #yiv7327613675photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7327613675 #yiv7327613675reco-category {font-size:77%;}#yiv7327613675 #yiv7327613675reco-desc {font-size:77%;}#yiv7327613675 .yiv7327613675replbq {margin:4px;}#yiv7327613675 #yiv7327613675ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7327613675 #yiv7327613675ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7327613675 #yiv7327613675ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7327613675 #yiv7327613675ygrp-mlmsg select, #yiv7327613675 input, #yiv7327613675 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7327613675 #yiv7327613675ygrp-mlmsg pre, #yiv7327613675 code {font:115% monospace;}#yiv7327613675 #yiv7327613675ygrp-mlmsg * {line-height:1.22em;}#yiv7327613675 #yiv7327613675ygrp-mlmsg #yiv7327613675logo {padding-bottom:10px;}#yiv7327613675 #yiv7327613675ygrp-msg p a {font-family:Verdana;}#yiv7327613675 #yiv7327613675ygrp-msg p#yiv7327613675attach-count span {color:#1E66AE;font-weight:700;}#yiv7327613675 #yiv7327613675ygrp-reco #yiv7327613675reco-head {color:#ff7900;font-weight:700;}#yiv7327613675 #yiv7327613675ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7327613675 #yiv7327613675ygrp-sponsor #yiv7327613675ov li a {font-size:130%;text-decoration:none;}#yiv7327613675 #yiv7327613675ygrp-sponsor #yiv7327613675ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7327613675 #yiv7327613675ygrp-sponsor #yiv7327613675ov ul {margin:0;padding:0 0 0 8px;}#yiv7327613675 #yiv7327613675ygrp-text {font-family:Georgia;}#yiv7327613675 #yiv7327613675ygrp-text p {margin:0 0 1em 0;}#yiv7327613675 #yiv7327613675ygrp-text tt {font-size:120%;}#yiv7327613675 #yiv7327613675ygrp-vital ul li:last-child {border-right:none !important;}#yiv7327613675

Tue Mar 21, 2017 8:11 pm (PDT) . Posted by:

"Heru Safrudin" heru.safrudin

Betul sekali Pak Hendrik, makasih banyak…..

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Maret 2017 9:54
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Macro menuju cell tertentu di sheet lain

Coba Application.Goto sel_tujuan

Salam,

HK

Sent from Yahoo <https://overview.mail.yahoo.com/mobile/?.src=Android> Mail on Android

Dear B-Exceller,

Bagaimanakah penulisan macro jika kita ingin menuju ke cell tertentu di sheet lain?

Misal kita ingin kursor berada di cell:A5 dalam Sheet5

Terima kasih

Regards,

Heru Safrudin

Wed Mar 22, 2017 12:36 am (PDT) . Posted by:

"Heru Safrudin" heru.safrudin

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

Heru SafrudinBISI,Heru Safrudin,YM online

Wed Mar 22, 2017 12:37 am (PDT) . Posted by:

"jajang muhammad siddik" jajang_ms

Halo Pak Sony,
Terimakasih atas masukkan nya. script ini bisa berjalan jika saya save file ini dengan format xls. Namun kendala nya jiika saya save as file menjadi add-in, kenudian saya tambahkan beberapa perintah di sheet (contoh di bawah yang di bold) script ini tidak bisa berjalan.Setelah saya check jika script nya berjalan sebagai add-in, script tersebut berjalan setelah workbook di buka, namun sebelum sheet aktif, walhasil script tidak bisa menemukan sheet1 karena memang status nya tidak ada/belum terbuka. Sementara perintah yang akan saya buat membutuhkan sheet yang aktif.
Private Sub Workbook_Open()    Dim wbName As String        wbName = Application.ThisWorkbook.Name        If wbName <> "FileName.xlsm" Then            MsgBox "Nama file tidak sesuai !"                        Sheet1.Activate            Range("a1").value = "1"                        Else            If wbName = "FileName.xlsm" Then                MsgBox "Nama file sudah sesuai"            End If        End If        End Sub


Pada Senin, 20 Maret 2017 18:20, "Sony Ario sony.ario1@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Halo Jajang,
Apa maksud nya seperti file terlampir ? Maaf kalau belum sesuai ya ?
Skrip saya :
Private Sub Workbook_Open()    Dim wbName As String        wbName = Application.ThisWorkbook.Name        If wbName <> "FileName.xlsm" Then            MsgBox "Nama file tidak sesuai !"            Else            If wbName = "FileName.xlsm" Then                MsgBox "Nama file sudah sesuai"            End If        End If        End Sub
SalamSony

gnl-excelinfo.blogspot.co.id
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 


#yiv1941761468 #yiv1941761468 -- #yiv1941761468ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1941761468 #yiv1941761468ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1941761468 #yiv1941761468ygrp-mkp #yiv1941761468hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1941761468 #yiv1941761468ygrp-mkp #yiv1941761468ads {margin-bottom:10px;}#yiv1941761468 #yiv1941761468ygrp-mkp .yiv1941761468ad {padding:0 0;}#yiv1941761468 #yiv1941761468ygrp-mkp .yiv1941761468ad p {margin:0;}#yiv1941761468 #yiv1941761468ygrp-mkp .yiv1941761468ad a {color:#0000ff;text-decoration:none;}#yiv1941761468 #yiv1941761468ygrp-sponsor #yiv1941761468ygrp-lc {font-family:Arial;}#yiv1941761468 #yiv1941761468ygrp-sponsor #yiv1941761468ygrp-lc #yiv1941761468hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1941761468 #yiv1941761468ygrp-sponsor #yiv1941761468ygrp-lc .yiv1941761468ad {margin-bottom:10px;padding:0 0;}#yiv1941761468 #yiv1941761468actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1941761468 #yiv1941761468activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1941761468 #yiv1941761468activity span {font-weight:700;}#yiv1941761468 #yiv1941761468activity span:first-child {text-transform:uppercase;}#yiv1941761468 #yiv1941761468activity span a {color:#5085b6;text-decoration:none;}#yiv1941761468 #yiv1941761468activity span span {color:#ff7900;}#yiv1941761468 #yiv1941761468activity span .yiv1941761468underline {text-decoration:underline;}#yiv1941761468 .yiv1941761468attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1941761468 .yiv1941761468attach div a {text-decoration:none;}#yiv1941761468 .yiv1941761468attach img {border:none;padding-right:5px;}#yiv1941761468 .yiv1941761468attach label {display:block;margin-bottom:5px;}#yiv1941761468 .yiv1941761468attach label a {text-decoration:none;}#yiv1941761468 blockquote {margin:0 0 0 4px;}#yiv1941761468 .yiv1941761468bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1941761468 .yiv1941761468bold a {text-decoration:none;}#yiv1941761468 dd.yiv1941761468last p a {font-family:Verdana;font-weight:700;}#yiv1941761468 dd.yiv1941761468last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1941761468 dd.yiv1941761468last p span.yiv1941761468yshortcuts {margin-right:0;}#yiv1941761468 div.yiv1941761468attach-table div div a {text-decoration:none;}#yiv1941761468 div.yiv1941761468attach-table {width:400px;}#yiv1941761468 div.yiv1941761468file-title a, #yiv1941761468 div.yiv1941761468file-title a:active, #yiv1941761468 div.yiv1941761468file-title a:hover, #yiv1941761468 div.yiv1941761468file-title a:visited {text-decoration:none;}#yiv1941761468 div.yiv1941761468photo-title a, #yiv1941761468 div.yiv1941761468photo-title a:active, #yiv1941761468 div.yiv1941761468photo-title a:hover, #yiv1941761468 div.yiv1941761468photo-title a:visited {text-decoration:none;}#yiv1941761468 div#yiv1941761468ygrp-mlmsg #yiv1941761468ygrp-msg p a span.yiv1941761468yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1941761468 .yiv1941761468green {color:#628c2a;}#yiv1941761468 .yiv1941761468MsoNormal {margin:0 0 0 0;}#yiv1941761468 o {font-size:0;}#yiv1941761468 #yiv1941761468photos div {float:left;width:72px;}#yiv1941761468 #yiv1941761468photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv1941761468 #yiv1941761468photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1941761468 #yiv1941761468reco-category {font-size:77%;}#yiv1941761468 #yiv1941761468reco-desc {font-size:77%;}#yiv1941761468 .yiv1941761468replbq {margin:4px;}#yiv1941761468 #yiv1941761468ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1941761468 #yiv1941761468ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1941761468 #yiv1941761468ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1941761468 #yiv1941761468ygrp-mlmsg select, #yiv1941761468 input, #yiv1941761468 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1941761468 #yiv1941761468ygrp-mlmsg pre, #yiv1941761468 code {font:115% monospace;}#yiv1941761468 #yiv1941761468ygrp-mlmsg * {line-height:1.22em;}#yiv1941761468 #yiv1941761468ygrp-mlmsg #yiv1941761468logo {padding-bottom:10px;}#yiv1941761468 #yiv1941761468ygrp-msg p a {font-family:Verdana;}#yiv1941761468 #yiv1941761468ygrp-msg p#yiv1941761468attach-count span {color:#1E66AE;font-weight:700;}#yiv1941761468 #yiv1941761468ygrp-reco #yiv1941761468reco-head {color:#ff7900;font-weight:700;}#yiv1941761468 #yiv1941761468ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1941761468 #yiv1941761468ygrp-sponsor #yiv1941761468ov li a {font-size:130%;text-decoration:none;}#yiv1941761468 #yiv1941761468ygrp-sponsor #yiv1941761468ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1941761468 #yiv1941761468ygrp-sponsor #yiv1941761468ov ul {margin:0;padding:0 0 0 8px;}#yiv1941761468 #yiv1941761468ygrp-text {font-family:Georgia;}#yiv1941761468 #yiv1941761468ygrp-text p {margin:0 0 1em 0;}#yiv1941761468 #yiv1941761468ygrp-text tt {font-size:120%;}#yiv1941761468 #yiv1941761468ygrp-vital ul li:last-child {border-right:none !important;}#yiv1941761468

Wed Mar 22, 2017 4:54 pm (PDT) . Posted by:

"Sony Ario"

Halo Jajang,

Sambil tunggu masukan dari para master, Coba nanti saya lihat dulu ya ?
Btw, Maaf. Saya baru 'ngeh.. karena prosedurnya untuk Add in, copas skrip
tsb mulai dari Dim sampai dengan End If yang terakhir ditengah sebuah
Function (ie : Function WbCheck Bukan pada event Workbook open).

Sony.

*gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*

On Tue, Mar 21, 2017 at 9:22 AM, jajang muhammad siddik
jajang_ms@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Halo Pak Sony,
>
> Terimakasih atas masukkan nya. script ini bisa berjalan jika saya save
> file ini dengan format xls. Namun kendala nya jiika saya save as file
> menjadi add-in, kenudian saya tambahkan beberapa perintah di sheet (contoh
> di bawah yang di bold) script ini tidak bisa berjalan.
> Setelah saya check jika script nya berjalan sebagai add-in, script
> tersebut berjalan setelah workbook di buka, namun sebelum sheet aktif,
> walhasil script tidak bisa menemukan *sheet1 *karena memang status nya
> tidak ada/belum terbuka. Sementara perintah yang akan saya buat membutuhkan
> sheet yang aktif.
>
> Private Sub Workbook_Open()
> Dim wbName As String
>
> wbName = Application.ThisWorkbook.Name
> If wbName <> "FileName.xlsm" Then
> MsgBox "Nama file tidak sesuai !"
>
> *Sheet1.Activate*
> * Range("a1").value = "1"*
>
> Else
> If wbName = "FileName.xlsm" Then
> MsgBox "Nama file sudah sesuai"
> End If
> End If
>
> End Sub
>
>
>
> Pada Senin, 20 Maret 2017 18:20, "Sony Ario sony.ario1@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Halo Jajang,
>
> Apa maksud nya seperti file terlampir ? Maaf kalau belum sesuai ya ?
>
> Skrip saya :
>
> Private Sub Workbook_Open()
> Dim wbName As String
>
> wbName = Application.ThisWorkbook.Name
> <http://application.thisworkbook.name/>
> If wbName <> "FileName.xlsm" Then
> MsgBox "Nama file tidak sesuai !"
> Else
> If wbName = "FileName.xlsm" Then
> MsgBox "Nama file sudah sesuai"
> End If
> End If
>
> End Sub
>
> Salam
> Sony
>
>
> *gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id/>*
>
> 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
>
>
>
>
>
>
>

Wed Mar 22, 2017 12:37 am (PDT) . Posted by:

cheivory_bridge

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&quot;).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 = True
End 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



Wed Mar 22, 2017 1:27 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

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

On Wed, Mar 22, 2017 at 14:37, cheivory_bridge@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:  

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&quot;).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 = True

End 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 

#yiv9321595764 #yiv9321595764 -- #yiv9321595764ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9321595764 #yiv9321595764ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9321595764 #yiv9321595764ygrp-mkp #yiv9321595764hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9321595764 #yiv9321595764ygrp-mkp #yiv9321595764ads {margin-bottom:10px;}#yiv9321595764 #yiv9321595764ygrp-mkp .yiv9321595764ad {padding:0 0;}#yiv9321595764 #yiv9321595764ygrp-mkp .yiv9321595764ad p {margin:0;}#yiv9321595764 #yiv9321595764ygrp-mkp .yiv9321595764ad a {color:#0000ff;text-decoration:none;}#yiv9321595764 #yiv9321595764ygrp-sponsor #yiv9321595764ygrp-lc {font-family:Arial;}#yiv9321595764 #yiv9321595764ygrp-sponsor #yiv9321595764ygrp-lc #yiv9321595764hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9321595764 #yiv9321595764ygrp-sponsor #yiv9321595764ygrp-lc .yiv9321595764ad {margin-bottom:10px;padding:0 0;}#yiv9321595764 #yiv9321595764actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9321595764 #yiv9321595764activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9321595764 #yiv9321595764activity span {font-weight:700;}#yiv9321595764 #yiv9321595764activity span:first-child {text-transform:uppercase;}#yiv9321595764 #yiv9321595764activity span a {color:#5085b6;text-decoration:none;}#yiv9321595764 #yiv9321595764activity span span {color:#ff7900;}#yiv9321595764 #yiv9321595764activity span .yiv9321595764underline {text-decoration:underline;}#yiv9321595764 .yiv9321595764attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9321595764 .yiv9321595764attach div a {text-decoration:none;}#yiv9321595764 .yiv9321595764attach img {border:none;padding-right:5px;}#yiv9321595764 .yiv9321595764attach label {display:block;margin-bottom:5px;}#yiv9321595764 .yiv9321595764attach label a {text-decoration:none;}#yiv9321595764 blockquote {margin:0 0 0 4px;}#yiv9321595764 .yiv9321595764bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9321595764 .yiv9321595764bold a {text-decoration:none;}#yiv9321595764 dd.yiv9321595764last p a {font-family:Verdana;font-weight:700;}#yiv9321595764 dd.yiv9321595764last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9321595764 dd.yiv9321595764last p span.yiv9321595764yshortcuts {margin-right:0;}#yiv9321595764 div.yiv9321595764attach-table div div a {text-decoration:none;}#yiv9321595764 div.yiv9321595764attach-table {width:400px;}#yiv9321595764 div.yiv9321595764file-title a, #yiv9321595764 div.yiv9321595764file-title a:active, #yiv9321595764 div.yiv9321595764file-title a:hover, #yiv9321595764 div.yiv9321595764file-title a:visited {text-decoration:none;}#yiv9321595764 div.yiv9321595764photo-title a, #yiv9321595764 div.yiv9321595764photo-title a:active, #yiv9321595764 div.yiv9321595764photo-title a:hover, #yiv9321595764 div.yiv9321595764photo-title a:visited {text-decoration:none;}#yiv9321595764 div#yiv9321595764ygrp-mlmsg #yiv9321595764ygrp-msg p a span.yiv9321595764yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9321595764 .yiv9321595764green {color:#628c2a;}#yiv9321595764 .yiv9321595764MsoNormal {margin:0 0 0 0;}#yiv9321595764 o {font-size:0;}#yiv9321595764 #yiv9321595764photos div {float:left;width:72px;}#yiv9321595764 #yiv9321595764photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9321595764 #yiv9321595764photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9321595764 #yiv9321595764reco-category {font-size:77%;}#yiv9321595764 #yiv9321595764reco-desc {font-size:77%;}#yiv9321595764 .yiv9321595764replbq {margin:4px;}#yiv9321595764 #yiv9321595764ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9321595764 #yiv9321595764ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9321595764 #yiv9321595764ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9321595764 #yiv9321595764ygrp-mlmsg select, #yiv9321595764 input, #yiv9321595764 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9321595764 #yiv9321595764ygrp-mlmsg pre, #yiv9321595764 code {font:115% monospace;}#yiv9321595764 #yiv9321595764ygrp-mlmsg * {line-height:1.22em;}#yiv9321595764 #yiv9321595764ygrp-mlmsg #yiv9321595764logo {padding-bottom:10px;}#yiv9321595764 #yiv9321595764ygrp-msg p a {font-family:Verdana;}#yiv9321595764 #yiv9321595764ygrp-msg p#yiv9321595764attach-count span {color:#1E66AE;font-weight:700;}#yiv9321595764 #yiv9321595764ygrp-reco #yiv9321595764reco-head {color:#ff7900;font-weight:700;}#yiv9321595764 #yiv9321595764ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9321595764 #yiv9321595764ygrp-sponsor #yiv9321595764ov li a {font-size:130%;text-decoration:none;}#yiv9321595764 #yiv9321595764ygrp-sponsor #yiv9321595764ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9321595764 #yiv9321595764ygrp-sponsor #yiv9321595764ov ul {margin:0;padding:0 0 0 8px;}#yiv9321595764 #yiv9321595764ygrp-text {font-family:Georgia;}#yiv9321595764 #yiv9321595764ygrp-text p {margin:0 0 1em 0;}#yiv9321595764 #yiv9321595764ygrp-text tt {font-size:120%;}#yiv9321595764 #yiv9321595764ygrp-vital ul li:last-child {border-right:none !important;}#yiv9321595764

Wed Mar 22, 2017 5:46 am (PDT) . Posted by:

"lkm jktind" lkmjkt

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
> <https://overview.mail.yahoo.com/mobile/?.src=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 = True
>
> End 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
>
>
>
>

Wed Mar 22, 2017 6:10 am (PDT) . Posted by:

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

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, dengan contohnya disini.
>
> 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.
>
> 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>

Wed Mar 22, 2017 9:28 am (PDT) . Posted by:

shenly_excelmania

Assalamualikum,
master sya mau tanya, gimana cara membuat insert colom berjarak. saya mempunyai data dengan jumlah 200,000 colom ke bawah, dan saya mau membuat jarak dengan pemisan kolom kosong dari setiap 200 colom data,


mohon bantuan para master. makasi

Wed Mar 22, 2017 5:31 pm (PDT) . Posted by:

"Sony Ario"

​Waalaikumsalaam Shenly.

Kalo kolom ke bawah saya nangkep nya jadi Baris ya ? Kl memang betul, file
terlampir berisi 1000 baris data dan Macro nya menyisipkan baris baru di
tiap kelipatan 100.

Wassalam
Sony

*gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*

2017-03-22 23:28 GMT+07:00 shenly_excelmania@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Assalamualikum,
>
> master sya mau tanya, gimana cara membuat insert colom berjarak. saya
> mempunyai data dengan jumlah 200,000 colom ke bawah, dan saya mau membuat
> jarak dengan pemisan kolom kosong dari setiap 200 colom data,
>
>
> mohon bantuan para master. makasi
>
>
>
============================================================
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)