12 Messages
Digest #4133
3a
Bls: [belajar-excel] Macro Berjalan jika buka file tertentu [1 Attac by "jajang muhammad siddik" jajang_ms
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
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
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-
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
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
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,
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
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_
Semoga teman2 para suhu dapat mengerti penjelasan saya di atas.
Salam,
jajangms
#yiv1941761468 #yiv1941761468 -- #yiv1941761468ygrp-
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
>
>
>
>
>
>
>
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(
> 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").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
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("
Set rngGabung = rngGabung.Offset(
Application.
rngGabung.ClearCont
For Each sh In Worksheets
If sh.Name <> "Gabung" Then
If sh.Name <> "nim_nama"
If sh.Name <> "a2" Then
If sh.Name <> "pivot_
Set rngsh = sh.Range("
Set rngsh = rngsh.Offset(
brs = WorksheetFunction.
rngsh.Copy Sheets("
End If
End If
End If
End If
Next sh
Application.
Application.
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").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;}
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("
Set rngGabung = rngGabung.Offset(
Application.
rngGabung.ClearCont
For Each sh In Worksheets
If sh.Name <> "Gabung" Then
If sh.Name <> "nim_nama"
If sh.Name <> "a2" Then
If sh.Name <> "pivot_
Set rngsh = sh.Range("
Set rngsh = rngsh.Offset(
brs = WorksheetFunction.
rngsh.Copy Sheets("
End If
End If
End If
End If
Next sh
Application.
Application.
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-