6 Messages
Digest #3949
Messages
Fri Aug 26, 2016 2:35 am (PDT) . Posted by:
"Ieka Sulis"
Dear Pak Hendrik,
Jika untuk memisahkan data ke dalam masing2 sheet dengan 2 kondisi (misal :
kolom U atau nama lembaga & kolom E atau jenis kelamin) , bagaimana script
nya ya Pak..? Mohon pencerahannya..
Terima kasih..
Jika untuk memisahkan data ke dalam masing2 sheet dengan 2 kondisi (misal :
kolom U atau nama lembaga & kolom E atau jenis kelamin) , bagaimana script
nya ya Pak..? Mohon pencerahannya.
Terima kasih..
Fri Aug 26, 2016 3:22 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Hai Ieka,Pake kolom bantu di kolom 22 yang merupakan kombinasi antara lembaga dan jenis kelaminPerubahan kecil pada macro adalah:- Kolom yang dijadikan kriteria adalah kolom 22 bukan 21- Kolom yang dicopy ke Sheet hasil dikurangi 1.
Contoh file (...(R)) terlampir.
Salam,HK
From: "Ieka Sulis ieka.listy@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 26 August 2016, 15:43
Subject: [belajar-excel] Re: Re_Sheet Otomatis berdasarkan kolom
Dear Pak Hendrik,
Jika untuk memisahkan data ke dalam masing2 sheet dengan 2 kondisi (misal : kolom U atau nama lembaga & kolom E atau jenis kelamin) , bagaimana script nya ya Pak..? Mohon pencerahannya..Terima kasih.. #yiv2709798833 #yiv2709798833 -- #yiv2709798833ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2709798833 #yiv2709798833ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2709798833 #yiv2709798833ygrp-mkp #yiv2709798833hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2709798833 #yiv2709798833ygrp-mkp #yiv2709798833ads {margin-bottom:10px;}#yiv2709798833 #yiv2709798833ygrp-mkp .yiv2709798833ad {padding:0 0;}#yiv2709798833 #yiv2709798833ygrp-mkp .yiv2709798833ad p {margin:0;}#yiv2709798833 #yiv2709798833ygrp-mkp .yiv2709798833ad a {color:#0000ff;text-decoration:none;}#yiv2709798833 #yiv2709798833ygrp-sponsor #yiv2709798833ygrp-lc {font-family:Arial;}#yiv2709798833 #yiv2709798833ygrp-sponsor #yiv2709798833ygrp-lc #yiv2709798833hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2709798833 #yiv2709798833ygrp-sponsor #yiv2709798833ygrp-lc .yiv2709798833ad {margin-bottom:10px;padding:0 0;}#yiv2709798833 #yiv2709798833actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2709798833 #yiv2709798833activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2709798833 #yiv2709798833activity span {font-weight:700;}#yiv2709798833 #yiv2709798833activity span:first-child {text-transform:uppercase;}#yiv2709798833 #yiv2709798833activity span a {color:#5085b6;text-decoration:none;}#yiv2709798833 #yiv2709798833activity span span {color:#ff7900;}#yiv2709798833 #yiv2709798833activity span .yiv2709798833underline {text-decoration:underline;}#yiv2709798833 .yiv2709798833attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2709798833 .yiv2709798833attach div a {text-decoration:none;}#yiv2709798833 .yiv2709798833attach img {border:none;padding-right:5px;}#yiv2709798833 .yiv2709798833attach label {display:block;margin-bottom:5px;}#yiv2709798833 .yiv2709798833attach label a {text-decoration:none;}#yiv2709798833 blockquote {margin:0 0 0 4px;}#yiv2709798833 .yiv2709798833bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2709798833 .yiv2709798833bold a {text-decoration:none;}#yiv2709798833 dd.yiv2709798833last p a {font-family:Verdana;font-weight:700;}#yiv2709798833 dd.yiv2709798833last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2709798833 dd.yiv2709798833last p span.yiv2709798833yshortcuts {margin-right:0;}#yiv2709798833 div.yiv2709798833attach-table div div a {text-decoration:none;}#yiv2709798833 div.yiv2709798833attach-table {width:400px;}#yiv2709798833 div.yiv2709798833file-title a, #yiv2709798833 div.yiv2709798833file-title a:active, #yiv2709798833 div.yiv2709798833file-title a:hover, #yiv2709798833 div.yiv2709798833file-title a:visited {text-decoration:none;}#yiv2709798833 div.yiv2709798833photo-title a, #yiv2709798833 div.yiv2709798833photo-title a:active, #yiv2709798833 div.yiv2709798833photo-title a:hover, #yiv2709798833 div.yiv2709798833photo-title a:visited {text-decoration:none;}#yiv2709798833 div#yiv2709798833ygrp-mlmsg #yiv2709798833ygrp-msg p a span.yiv2709798833yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2709798833 .yiv2709798833green {color:#628c2a;}#yiv2709798833 .yiv2709798833MsoNormal {margin:0 0 0 0;}#yiv2709798833 o {font-size:0;}#yiv2709798833 #yiv2709798833photos div {float:left;width:72px;}#yiv2709798833 #yiv2709798833photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv2709798833 #yiv2709798833photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2709798833 #yiv2709798833reco-category {font-size:77%;}#yiv2709798833 #yiv2709798833reco-desc {font-size:77%;}#yiv2709798833 .yiv2709798833replbq {margin:4px;}#yiv2709798833 #yiv2709798833ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2709798833 #yiv2709798833ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2709798833 #yiv2709798833ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2709798833 #yiv2709798833ygrp-mlmsg select, #yiv2709798833 input, #yiv2709798833 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2709798833 #yiv2709798833ygrp-mlmsg pre, #yiv2709798833 code {font:115% monospace;}#yiv2709798833 #yiv2709798833ygrp-mlmsg * {line-height:1.22em;}#yiv2709798833 #yiv2709798833ygrp-mlmsg #yiv2709798833logo {padding-bottom:10px;}#yiv2709798833 #yiv2709798833ygrp-msg p a {font-family:Verdana;}#yiv2709798833 #yiv2709798833ygrp-msg p#yiv2709798833attach-count span {color:#1E66AE;font-weight:700;}#yiv2709798833 #yiv2709798833ygrp-reco #yiv2709798833reco-head {color:#ff7900;font-weight:700;}#yiv2709798833 #yiv2709798833ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2709798833 #yiv2709798833ygrp-sponsor #yiv2709798833ov li a {font-size:130%;text-decoration:none;}#yiv2709798833 #yiv2709798833ygrp-sponsor #yiv2709798833ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2709798833 #yiv2709798833ygrp-sponsor #yiv2709798833ov ul {margin:0;padding:0 0 0 8px;}#yiv2709798833 #yiv2709798833ygrp-text {font-family:Georgia;}#yiv2709798833 #yiv2709798833ygrp-text p {margin:0 0 1em 0;}#yiv2709798833 #yiv2709798833ygrp-text tt {font-size:120%;}#yiv2709798833 #yiv2709798833ygrp-vital ul li:last-child {border-right:none !important;}#yiv2709798833
Contoh file (...(R)) terlampir.
Salam,HK
From: "Ieka Sulis ieka.listy@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 26 August 2016, 15:43
Subject: [belajar-excel] Re: Re_Sheet Otomatis berdasarkan kolom
Dear Pak Hendrik,
Jika untuk memisahkan data ke dalam masing2 sheet dengan 2 kondisi (misal : kolom U atau nama lembaga & kolom E atau jenis kelamin) , bagaimana script nya ya Pak..? Mohon pencerahannya.
Fri Aug 26, 2016 2:36 am (PDT) . Posted by:
"Fajar Fatahillah" fajar.fatahillah
sudah saya coba,tapi filenya kok gak kebuka ya,hanya muncul message box Pesan Selesai Ok
Best Regards, Fajar Fatahillah
On Friday, August 26, 2016 3:25 PM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Fajar,Coba buat/copas Macro (Open File) berikut ini,Option Explicit
Sub BukaFile()
Dim Path As String Dim nm_file As Range Dim nm As Range Path = Range("G1").Value & "\" 'sel G1 berisi (ditulis) Dir dan Sub Dir tempat dimana file2 berada, mis D:\Coba Set nm_file = Range("H1", Range("H1").End(xlDown)) 'Sel H1 dst. berisi nama2 file yang akan dibuka
For Each nm In nm_file On Error GoTo Pesan Workbooks.Open Filename:=Path & nm Next nmPesan: MsgBox "SELESAI", vbCritical, "P E S A N"End Sub
Salam,HK
From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 26 August 2016, 11:42
Subject: [belajar-excel] Looping Vba berdasarkan list tertentu [1 Attachment]
Dear Para Master Excel,saya ingin membuat aktivitas excel yang rutin dikerjakan dan berdasarkan list terttentu yang berubah ubah,beberapa aktivitas tersebut yaitu open file sesuai list di excel td, copy paste , dan save file as sesuai list juga.
terlampir contoh excelnya
Mohon bantuannya ya
Best Regards, Fajar Fatahillah
#yiv4739736933 #yiv4739736933 -- #yiv4739736933ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4739736933 #yiv4739736933ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4739736933 #yiv4739736933ygrp-mkp #yiv4739736933hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4739736933 #yiv4739736933ygrp-mkp #yiv4739736933ads {margin-bottom:10px;}#yiv4739736933 #yiv4739736933ygrp-mkp .yiv4739736933ad {padding:0 0;}#yiv4739736933 #yiv4739736933ygrp-mkp .yiv4739736933ad p {margin:0;}#yiv4739736933 #yiv4739736933ygrp-mkp .yiv4739736933ad a {color:#0000ff;text-decoration:none;}#yiv4739736933 #yiv4739736933ygrp-sponsor #yiv4739736933ygrp-lc {font-family:Arial;}#yiv4739736933 #yiv4739736933ygrp-sponsor #yiv4739736933ygrp-lc #yiv4739736933hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4739736933 #yiv4739736933ygrp-sponsor #yiv4739736933ygrp-lc .yiv4739736933ad {margin-bottom:10px;padding:0 0;}#yiv4739736933 #yiv4739736933actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4739736933 #yiv4739736933activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4739736933 #yiv4739736933activity span {font-weight:700;}#yiv4739736933 #yiv4739736933activity span:first-child {text-transform:uppercase;}#yiv4739736933 #yiv4739736933activity span a {color:#5085b6;text-decoration:none;}#yiv4739736933 #yiv4739736933activity span span {color:#ff7900;}#yiv4739736933 #yiv4739736933activity span .yiv4739736933underline {text-decoration:underline;}#yiv4739736933 .yiv4739736933attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4739736933 .yiv4739736933attach div a {text-decoration:none;}#yiv4739736933 .yiv4739736933attach img {border:none;padding-right:5px;}#yiv4739736933 .yiv4739736933attach label {display:block;margin-bottom:5px;}#yiv4739736933 .yiv4739736933attach label a {text-decoration:none;}#yiv4739736933 blockquote {margin:0 0 0 4px;}#yiv4739736933 .yiv4739736933bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4739736933 .yiv4739736933bold a {text-decoration:none;}#yiv4739736933 dd.yiv4739736933last p a {font-family:Verdana;font-weight:700;}#yiv4739736933 dd.yiv4739736933last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4739736933 dd.yiv4739736933last p span.yiv4739736933yshortcuts {margin-right:0;}#yiv4739736933 div.yiv4739736933attach-table div div a {text-decoration:none;}#yiv4739736933 div.yiv4739736933attach-table {width:400px;}#yiv4739736933 div.yiv4739736933file-title a, #yiv4739736933 div.yiv4739736933file-title a:active, #yiv4739736933 div.yiv4739736933file-title a:hover, #yiv4739736933 div.yiv4739736933file-title a:visited {text-decoration:none;}#yiv4739736933 div.yiv4739736933photo-title a, #yiv4739736933 div.yiv4739736933photo-title a:active, #yiv4739736933 div.yiv4739736933photo-title a:hover, #yiv4739736933 div.yiv4739736933photo-title a:visited {text-decoration:none;}#yiv4739736933 div#yiv4739736933ygrp-mlmsg #yiv4739736933ygrp-msg p a span.yiv4739736933yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4739736933 .yiv4739736933green {color:#628c2a;}#yiv4739736933 .yiv4739736933MsoNormal {margin:0 0 0 0;}#yiv4739736933 o {font-size:0;}#yiv4739736933 #yiv4739736933photos div {float:left;width:72px;}#yiv4739736933 #yiv4739736933photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv4739736933 #yiv4739736933photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4739736933 #yiv4739736933reco-category {font-size:77%;}#yiv4739736933 #yiv4739736933reco-desc {font-size:77%;}#yiv4739736933 .yiv4739736933replbq {margin:4px;}#yiv4739736933 #yiv4739736933ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4739736933 #yiv4739736933ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4739736933 #yiv4739736933ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4739736933 #yiv4739736933ygrp-mlmsg select, #yiv4739736933 input, #yiv4739736933 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4739736933 #yiv4739736933ygrp-mlmsg pre, #yiv4739736933 code {font:115% monospace;}#yiv4739736933 #yiv4739736933ygrp-mlmsg * {line-height:1.22em;}#yiv4739736933 #yiv4739736933ygrp-mlmsg #yiv4739736933logo {padding-bottom:10px;}#yiv4739736933 #yiv4739736933ygrp-msg p a {font-family:Verdana;}#yiv4739736933 #yiv4739736933ygrp-msg p#yiv4739736933attach-count span {color:#1E66AE;font-weight:700;}#yiv4739736933 #yiv4739736933ygrp-reco #yiv4739736933reco-head {color:#ff7900;font-weight:700;}#yiv4739736933 #yiv4739736933ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4739736933 #yiv4739736933ygrp-sponsor #yiv4739736933ov li a {font-size:130%;text-decoration:none;}#yiv4739736933 #yiv4739736933ygrp-sponsor #yiv4739736933ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4739736933 #yiv4739736933ygrp-sponsor #yiv4739736933ov ul {margin:0;padding:0 0 0 8px;}#yiv4739736933 #yiv4739736933ygrp-text {font-family:Georgia;}#yiv4739736933 #yiv4739736933ygrp-text p {margin:0 0 1em 0;}#yiv4739736933 #yiv4739736933ygrp-text tt {font-size:120%;}#yiv4739736933 #yiv4739736933ygrp-vital ul li:last-child {border-right:none !important;}#yiv4739736933
Best Regards, Fajar Fatahillah
On Friday, August 26, 2016 3:25 PM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Fajar,Coba buat/copas Macro (Open File) berikut ini,Option Explicit
Sub BukaFile()
Dim Path As String Dim nm_file As Range Dim nm As Range Path = Range("G1").Value & "\" 'sel G1 berisi (ditulis) Dir dan Sub Dir tempat dimana file2 berada, mis D:\Coba Set nm_file = Range("H1", Range("H1").End(xlDown)) 'Sel H1 dst. berisi nama2 file yang akan dibuka
For Each nm In nm_file On Error GoTo Pesan Workbooks.Open Filename:=Path & nm Next nmPesan: MsgBox "SELESAI", vbCritical, "P E S A N"End Sub
Salam,HK
From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 26 August 2016, 11:42
Subject: [belajar-excel] Looping Vba berdasarkan list tertentu [1 Attachment]
Dear Para Master Excel,saya ingin membuat aktivitas excel yang rutin dikerjakan dan berdasarkan list terttentu yang berubah ubah,beberapa aktivitas tersebut yaitu open file sesuai list di excel td, copy paste , dan save file as sesuai list juga.
terlampir contoh excelnya
Mohon bantuannya ya
Best Regards, Fajar Fatahillah
#yiv4739736933 #yiv4739736933 -- #yiv4739736933ygrp-
Fri Aug 26, 2016 2:53 am (PDT) . Posted by:
"hendrikkarnadi" hendrikkarnadi
Hai Fajar,
Dir/Sub Dir nya di sel G1 dan nama2 file di sel H1 dstnya sdh ditulis dengan benar?
Salam,
HK
Sent from Samsung Mobile.
<div>-------- Original message --------</div><div>From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:08/26/2016 16:29 (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: Re: [belajar-excel] Looping Vba berdasarkan list tertentu </div><div>
</div>sudah saya coba,
tapi filenya kok gak kebuka ya,
hanya muncul message box Pesan Selesai Ok
Best Regards, Fajar Fatahillah
On Friday, August 26, 2016 3:25 PM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Fajar,
Coba buat/copas Macro (Open File) berikut ini,
Option Explicit
Sub BukaFile()
Dim Path As String
Dim nm_file As Range
Dim nm As Range
Path = Range("G1").Value & "\" 'sel G1 berisi (ditulis) Dir dan Sub Dir tempat dimana file2 berada, mis D:\Coba
Set nm_file = Range("H1", Range("H1").End(xlDown)) 'Sel H1 dst. berisi nama2 file yang akan dibuka
For Each nm In nm_file
On Error GoTo Pesan
Workbooks.Open Filename:=Path & nm
Next nm
Pesan:
MsgBox "SELESAI", vbCritical, "P E S A N"
End Sub
Salam,
HK
From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 26 August 2016, 11:42
Subject: [belajar-excel] Looping Vba berdasarkan list tertentu [1 Attachment]
Dear Para Master Excel,
saya ingin membuat aktivitas excel yang rutin dikerjakan dan berdasarkan list terttentu yang berubah ubah,
beberapa aktivitas tersebut yaitu open file sesuai list di excel td, copy paste , dan save file as sesuai list juga.
terlampir contoh excelnya
Mohon bantuannya ya
Best Regards, Fajar Fatahillah
Dir/Sub Dir nya di sel G1 dan nama2 file di sel H1 dstnya sdh ditulis dengan benar?
Salam,
HK
Sent from Samsung Mobile.
<div>-------- Original message --------</div><div>From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:08/26/2016 16:29 (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: Re: [belajar-excel] Looping Vba berdasarkan list tertentu </div><div>
</div>sudah saya coba,
tapi filenya kok gak kebuka ya,
hanya muncul message box Pesan Selesai Ok
Best Regards, Fajar Fatahillah
On Friday, August 26, 2016 3:25 PM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Fajar,
Coba buat/copas Macro (Open File) berikut ini,
Option Explicit
Sub BukaFile()
Dim Path As String
Dim nm_file As Range
Dim nm As Range
Path = Range("G1").Value & "\" 'sel G1 berisi (ditulis) Dir dan Sub Dir tempat dimana file2 berada, mis D:\Coba
Set nm_file = Range("H1", Range("H1").End(xlDown)) 'Sel H1 dst. berisi nama2 file yang akan dibuka
For Each nm In nm_file
On Error GoTo Pesan
Workbooks.Open Filename:=Path & nm
Next nm
Pesan:
MsgBox "SELESAI", vbCritical, "P E S A N"
End Sub
Salam,
HK
From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 26 August 2016, 11:42
Subject: [belajar-excel] Looping Vba berdasarkan list tertentu [1 Attachment]
Dear Para Master Excel,
saya ingin membuat aktivitas excel yang rutin dikerjakan dan berdasarkan list terttentu yang berubah ubah,
beberapa aktivitas tersebut yaitu open file sesuai list di excel td, copy paste , dan save file as sesuai list juga.
terlampir contoh excelnya
Mohon bantuannya ya
Best Regards, Fajar Fatahillah
Fri Aug 26, 2016 6:43 am (PDT) . Posted by:
"Fajar Fatahillah" fajar.fatahillah
sudah pak ,dir sub dirnya folder tempat file tersebut kan?nama filenya harus dengan extensinya gak? misal contoh.csv ditulis di H1nya contoh.csv juga?
Best Regards, Fajar Fatahillah
On Friday, August 26, 2016 4:53 PM, "hendrikkarnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Fajar,Dir/Sub Dir nya di sel G1 dan nama2 file di sel H1 dstnya sdh ditulis dengan benar?
Salam,HK
Sent from Samsung Mobile.
-------- Original message --------From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" Date:08/26/2016 16:29 (GMT+07:00) To: belajar-excel@yahoogroups.com Subject: Re: [belajar-excel] Looping Vba berdasarkan list tertentu
sudah saya coba,tapi filenya kok gak kebuka ya,hanya muncul message box Pesan Selesai Ok
Best Regards, Fajar Fatahillah
On Friday, August 26, 2016 3:25 PM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Fajar,Coba buat/copas Macro (Open File) berikut ini,Option Explicit
Sub BukaFile()
Dim Path As String Dim nm_file As Range Dim nm As Range Path = Range("G1").Value & "\" 'sel G1 berisi (ditulis) Dir dan Sub Dir tempat dimana file2 berada, mis D:\Coba Set nm_file = Range("H1", Range("H1").End(xlDown)) 'Sel H1 dst. berisi nama2 file yang akan dibuka
For Each nm In nm_file On Error GoTo Pesan Workbooks.Open Filename:=Path & nm Next nmPesan: MsgBox "SELESAI", vbCritical, "P E S A N"End Sub
Salam,HK
From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 26 August 2016, 11:42
Subject: [belajar-excel] Looping Vba berdasarkan list tertentu [1 Attachment]
Dear Para Master Excel,saya ingin membuat aktivitas excel yang rutin dikerjakan dan berdasarkan list terttentu yang berubah ubah,beberapa aktivitas tersebut yaitu open file sesuai list di excel td, copy paste , dan save file as sesuai list juga.
terlampir contoh excelnya
Mohon bantuannya ya
Best Regards, Fajar Fatahillah
#yiv4366944055 #yiv4366944055 -- #yiv4366944055ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4366944055 #yiv4366944055ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4366944055 #yiv4366944055ygrp-mkp #yiv4366944055hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4366944055 #yiv4366944055ygrp-mkp #yiv4366944055ads {margin-bottom:10px;}#yiv4366944055 #yiv4366944055ygrp-mkp .yiv4366944055ad {padding:0 0;}#yiv4366944055 #yiv4366944055ygrp-mkp .yiv4366944055ad p {margin:0;}#yiv4366944055 #yiv4366944055ygrp-mkp .yiv4366944055ad a {color:#0000ff;text-decoration:none;}#yiv4366944055 #yiv4366944055ygrp-sponsor #yiv4366944055ygrp-lc {font-family:Arial;}#yiv4366944055 #yiv4366944055ygrp-sponsor #yiv4366944055ygrp-lc #yiv4366944055hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4366944055 #yiv4366944055ygrp-sponsor #yiv4366944055ygrp-lc .yiv4366944055ad {margin-bottom:10px;padding:0 0;}#yiv4366944055 #yiv4366944055actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4366944055 #yiv4366944055activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4366944055 #yiv4366944055activity span {font-weight:700;}#yiv4366944055 #yiv4366944055activity span:first-child {text-transform:uppercase;}#yiv4366944055 #yiv4366944055activity span a {color:#5085b6;text-decoration:none;}#yiv4366944055 #yiv4366944055activity span span {color:#ff7900;}#yiv4366944055 #yiv4366944055activity span .yiv4366944055underline {text-decoration:underline;}#yiv4366944055 .yiv4366944055attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4366944055 .yiv4366944055attach div a {text-decoration:none;}#yiv4366944055 .yiv4366944055attach img {border:none;padding-right:5px;}#yiv4366944055 .yiv4366944055attach label {display:block;margin-bottom:5px;}#yiv4366944055 .yiv4366944055attach label a {text-decoration:none;}#yiv4366944055 blockquote {margin:0 0 0 4px;}#yiv4366944055 .yiv4366944055bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4366944055 .yiv4366944055bold a {text-decoration:none;}#yiv4366944055 dd.yiv4366944055last p a {font-family:Verdana;font-weight:700;}#yiv4366944055 dd.yiv4366944055last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4366944055 dd.yiv4366944055last p span.yiv4366944055yshortcuts {margin-right:0;}#yiv4366944055 div.yiv4366944055attach-table div div a {text-decoration:none;}#yiv4366944055 div.yiv4366944055attach-table {width:400px;}#yiv4366944055 div.yiv4366944055file-title a, #yiv4366944055 div.yiv4366944055file-title a:active, #yiv4366944055 div.yiv4366944055file-title a:hover, #yiv4366944055 div.yiv4366944055file-title a:visited {text-decoration:none;}#yiv4366944055 div.yiv4366944055photo-title a, #yiv4366944055 div.yiv4366944055photo-title a:active, #yiv4366944055 div.yiv4366944055photo-title a:hover, #yiv4366944055 div.yiv4366944055photo-title a:visited {text-decoration:none;}#yiv4366944055 div#yiv4366944055ygrp-mlmsg #yiv4366944055ygrp-msg p a span.yiv4366944055yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4366944055 .yiv4366944055green {color:#628c2a;}#yiv4366944055 .yiv4366944055MsoNormal {margin:0 0 0 0;}#yiv4366944055 o {font-size:0;}#yiv4366944055 #yiv4366944055photos div {float:left;width:72px;}#yiv4366944055 #yiv4366944055photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv4366944055 #yiv4366944055photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4366944055 #yiv4366944055reco-category {font-size:77%;}#yiv4366944055 #yiv4366944055reco-desc {font-size:77%;}#yiv4366944055 .yiv4366944055replbq {margin:4px;}#yiv4366944055 #yiv4366944055ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4366944055 #yiv4366944055ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4366944055 #yiv4366944055ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4366944055 #yiv4366944055ygrp-mlmsg select, #yiv4366944055 input, #yiv4366944055 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4366944055 #yiv4366944055ygrp-mlmsg pre, #yiv4366944055 code {font:115% monospace;}#yiv4366944055 #yiv4366944055ygrp-mlmsg * {line-height:1.22em;}#yiv4366944055 #yiv4366944055ygrp-mlmsg #yiv4366944055logo {padding-bottom:10px;}#yiv4366944055 #yiv4366944055ygrp-msg p a {font-family:Verdana;}#yiv4366944055 #yiv4366944055ygrp-msg p#yiv4366944055attach-count span {color:#1E66AE;font-weight:700;}#yiv4366944055 #yiv4366944055ygrp-reco #yiv4366944055reco-head {color:#ff7900;font-weight:700;}#yiv4366944055 #yiv4366944055ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4366944055 #yiv4366944055ygrp-sponsor #yiv4366944055ov li a {font-size:130%;text-decoration:none;}#yiv4366944055 #yiv4366944055ygrp-sponsor #yiv4366944055ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4366944055 #yiv4366944055ygrp-sponsor #yiv4366944055ov ul {margin:0;padding:0 0 0 8px;}#yiv4366944055 #yiv4366944055ygrp-text {font-family:Georgia;}#yiv4366944055 #yiv4366944055ygrp-text p {margin:0 0 1em 0;}#yiv4366944055 #yiv4366944055ygrp-text tt {font-size:120%;}#yiv4366944055 #yiv4366944055ygrp-vital ul li:last-child {border-right:none !important;}#yiv4366944055
Best Regards, Fajar Fatahillah
On Friday, August 26, 2016 4:53 PM, "hendrikkarnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Fajar,Dir/Sub Dir nya di sel G1 dan nama2 file di sel H1 dstnya sdh ditulis dengan benar?
Salam,HK
Sent from Samsung Mobile.
-------- Original message --------From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" Date:08/26/2016 16:29 (GMT+07:00) To: belajar-excel@yahoogroups.com Subject: Re: [belajar-excel] Looping Vba berdasarkan list tertentu
sudah saya coba,tapi filenya kok gak kebuka ya,hanya muncul message box Pesan Selesai Ok
Best Regards, Fajar Fatahillah
On Friday, August 26, 2016 3:25 PM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Fajar,Coba buat/copas Macro (Open File) berikut ini,Option Explicit
Sub BukaFile()
Dim Path As String Dim nm_file As Range Dim nm As Range Path = Range("G1").Value & "\" 'sel G1 berisi (ditulis) Dir dan Sub Dir tempat dimana file2 berada, mis D:\Coba Set nm_file = Range("H1", Range("H1").End(xlDown)) 'Sel H1 dst. berisi nama2 file yang akan dibuka
For Each nm In nm_file On Error GoTo Pesan Workbooks.Open Filename:=Path & nm Next nmPesan: MsgBox "SELESAI", vbCritical, "P E S A N"End Sub
Salam,HK
From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 26 August 2016, 11:42
Subject: [belajar-excel] Looping Vba berdasarkan list tertentu [1 Attachment]
Dear Para Master Excel,saya ingin membuat aktivitas excel yang rutin dikerjakan dan berdasarkan list terttentu yang berubah ubah,beberapa aktivitas tersebut yaitu open file sesuai list di excel td, copy paste , dan save file as sesuai list juga.
terlampir contoh excelnya
Mohon bantuannya ya
Best Regards, Fajar Fatahillah
#yiv4366944055 #yiv4366944055 -- #yiv4366944055ygrp-
Fri Aug 26, 2016 7:28 am (PDT) . Posted by:
"hendrikkarnadi" hendrikkarnadi
Dlm file saya sih ga pakai file extension.
Coba kirim dummy filenya.
Salam,
HK
Sent from Samsung Mobile.
<div>-------- Original message --------</div><div>From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:08/26/2016 16:58 (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: Re: [belajar-excel] Looping Vba berdasarkan list tertentu </div><div>
</div>sudah pak ,
dir sub dirnya folder tempat file tersebut kan?
nama filenya harus dengan extensinya gak? misal contoh.csv ditulis di H1nya contoh.csv juga?
Best Regards, Fajar Fatahillah
On Friday, August 26, 2016 4:53 PM, "hendrikkarnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Fajar,
Dir/Sub Dir nya di sel G1 dan nama2 file di sel H1 dstnya sdh ditulis dengan benar?
Salam,
HK
Sent from Samsung Mobile.
-------- Original message --------
From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]"
Date:08/26/2016 16:29 (GMT+07:00)
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Looping Vba berdasarkan list tertentu
sudah saya coba,
tapi filenya kok gak kebuka ya,
hanya muncul message box Pesan Selesai Ok
Best Regards, Fajar Fatahillah
On Friday, August 26, 2016 3:25 PM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Fajar,
Coba buat/copas Macro (Open File) berikut ini,
Option Explicit
Sub BukaFile()
Dim Path As String
Dim nm_file As Range
Dim nm As Range
Path = Range("G1").Value & "\" 'sel G1 berisi (ditulis) Dir dan Sub Dir tempat dimana file2 berada, mis D:\Coba
Set nm_file = Range("H1", Range("H1").End(xlDown)) 'Sel H1 dst. berisi nama2 file yang akan dibuka
For Each nm In nm_file
On Error GoTo Pesan
Workbooks.Open Filename:=Path & nm
Next nm
Pesan:
MsgBox "SELESAI", vbCritical, "P E S A N"
End Sub
Salam,
HK
From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 26 August 2016, 11:42
Subject: [belajar-excel] Looping Vba berdasarkan list tertentu [1 Attachment]
Dear Para Master Excel,
saya ingin membuat aktivitas excel yang rutin dikerjakan dan berdasarkan list terttentu yang berubah ubah,
beberapa aktivitas tersebut yaitu open file sesuai list di excel td, copy paste , dan save file as sesuai list juga.
terlampir contoh excelnya
Mohon bantuannya ya
Best Regards, Fajar Fatahillah
Coba kirim dummy filenya.
Salam,
HK
Sent from Samsung Mobile.
<div>-------- Original message --------</div><div>From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:08/26/2016 16:58 (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: Re: [belajar-excel] Looping Vba berdasarkan list tertentu </div><div>
</div>sudah pak ,
dir sub dirnya folder tempat file tersebut kan?
nama filenya harus dengan extensinya gak? misal contoh.csv ditulis di H1nya contoh.csv juga?
Best Regards, Fajar Fatahillah
On Friday, August 26, 2016 4:53 PM, "hendrikkarnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Fajar,
Dir/Sub Dir nya di sel G1 dan nama2 file di sel H1 dstnya sdh ditulis dengan benar?
Salam,
HK
Sent from Samsung Mobile.
-------- Original message --------
From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]"
Date:08/26/2016 16:29 (GMT+07:00)
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Looping Vba berdasarkan list tertentu
sudah saya coba,
tapi filenya kok gak kebuka ya,
hanya muncul message box Pesan Selesai Ok
Best Regards, Fajar Fatahillah
On Friday, August 26, 2016 3:25 PM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Fajar,
Coba buat/copas Macro (Open File) berikut ini,
Option Explicit
Sub BukaFile()
Dim Path As String
Dim nm_file As Range
Dim nm As Range
Path = Range("G1").Value & "\" 'sel G1 berisi (ditulis) Dir dan Sub Dir tempat dimana file2 berada, mis D:\Coba
Set nm_file = Range("H1", Range("H1").End(xlDown)) 'Sel H1 dst. berisi nama2 file yang akan dibuka
For Each nm In nm_file
On Error GoTo Pesan
Workbooks.Open Filename:=Path & nm
Next nm
Pesan:
MsgBox "SELESAI", vbCritical, "P E S A N"
End Sub
Salam,
HK
From: "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 26 August 2016, 11:42
Subject: [belajar-excel] Looping Vba berdasarkan list tertentu [1 Attachment]
Dear Para Master Excel,
saya ingin membuat aktivitas excel yang rutin dikerjakan dan berdasarkan list terttentu yang berubah ubah,
beberapa aktivitas tersebut yaitu open file sesuai list di excel td, copy paste , dan save file as sesuai list juga.
terlampir contoh excelnya
Mohon bantuannya ya
Best Regards, Fajar Fatahillah
============================================================
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
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar