[belajar-excel] Digest Number 4135

Milis Belajar Microsoft Excel Group

11 Messages

Digest #4135

1a

Re: Macro Gabung Sheet by "Eira I Arie" cheivory_bridge

1b

Re: Macro Gabung Sheet by "hendrik karnadi" hendrikkarnadi

1c

Re: Macro Gabung Sheet by "Eira I Arie" cheivory_bridge

1d

Re: Macro Gabung Sheet by "hendrik karnadi" hendrikkarnadi

2a

Re: VBA Code to Export Group of Object to Image File by "Fano The Miner"

3a

Re: Macro Gabung Sheet [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

4a

apakah bisa atau tidak???? by shenly_excelmania

4b

Re: apakah bisa atau tidak???? by "lkm jktind" lkmjkt

4c

Re: apakah bisa atau tidak???? by shenly_excelmania

4d

Re: apakah bisa atau tidak???? by "Mr. Kid" nmkid.family@ymail.com

5a

Re: File Excel besar by "kiki tanjung" kieki_e

Messages

1a

Re: Macro Gabung Sheet

Thu Mar 23, 2017 7:31 pm (PDT) . Posted by:

"Eira I Arie" cheivory_bridge

Yth. Pak HK
Sudah saya coba tetapi ada debug di barisan berikut :
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$I$" & Range("K1")), , xlYes).Name = _        "Tableku"
note : penamaan excel table sudah saya sesuaikan "Tableku" ... kalau barisan yang debug itu saya hapus maka, format excel tabel akan hilang saat setelah proses gabung
Terima kasih

On Thursday, March 23, 2017 2:11 PM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


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

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

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

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

Terima kasih
Ari

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


  Pak cheivory_bridge.

tolog lampirkan contoh file nya . 
yang lengkap ya.

Salam

Lukman.

NB : Ada waktu luang dikit .
      

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

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

Sent from Yahoo Mail on Android

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

#yiv1000321751 #yiv1000321751 -- #yiv1000321751ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1000321751 #yiv1000321751ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1000321751 #yiv1000321751ygrp-mkp #yiv1000321751hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1000321751 #yiv1000321751ygrp-mkp #yiv1000321751ads {margin-bottom:10px;}#yiv1000321751 #yiv1000321751ygrp-mkp .yiv1000321751ad {padding:0 0;}#yiv1000321751 #yiv1000321751ygrp-mkp .yiv1000321751ad p {margin:0;}#yiv1000321751 #yiv1000321751ygrp-mkp .yiv1000321751ad a {color:#0000ff;text-decoration:none;}#yiv1000321751 #yiv1000321751ygrp-sponsor #yiv1000321751ygrp-lc {font-family:Arial;}#yiv1000321751 #yiv1000321751ygrp-sponsor #yiv1000321751ygrp-lc #yiv1000321751hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1000321751 #yiv1000321751ygrp-sponsor #yiv1000321751ygrp-lc .yiv1000321751ad {margin-bottom:10px;padding:0 0;}#yiv1000321751 #yiv1000321751actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1000321751 #yiv1000321751activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1000321751 #yiv1000321751activity span {font-weight:700;}#yiv1000321751 #yiv1000321751activity span:first-child {text-transform:uppercase;}#yiv1000321751 #yiv1000321751activity span a {color:#5085b6;text-decoration:none;}#yiv1000321751 #yiv1000321751activity span span {color:#ff7900;}#yiv1000321751 #yiv1000321751activity span .yiv1000321751underline {text-decoration:underline;}#yiv1000321751 .yiv1000321751attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1000321751 .yiv1000321751attach div a {text-decoration:none;}#yiv1000321751 .yiv1000321751attach img {border:none;padding-right:5px;}#yiv1000321751 .yiv1000321751attach label {display:block;margin-bottom:5px;}#yiv1000321751 .yiv1000321751attach label a {text-decoration:none;}#yiv1000321751 blockquote {margin:0 0 0 4px;}#yiv1000321751 .yiv1000321751bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1000321751 .yiv1000321751bold a {text-decoration:none;}#yiv1000321751 dd.yiv1000321751last p a {font-family:Verdana;font-weight:700;}#yiv1000321751 dd.yiv1000321751last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1000321751 dd.yiv1000321751last p span.yiv1000321751yshortcuts {margin-right:0;}#yiv1000321751 div.yiv1000321751attach-table div div a {text-decoration:none;}#yiv1000321751 div.yiv1000321751attach-table {width:400px;}#yiv1000321751 div.yiv1000321751file-title a, #yiv1000321751 div.yiv1000321751file-title a:active, #yiv1000321751 div.yiv1000321751file-title a:hover, #yiv1000321751 div.yiv1000321751file-title a:visited {text-decoration:none;}#yiv1000321751 div.yiv1000321751photo-title a, #yiv1000321751 div.yiv1000321751photo-title a:active, #yiv1000321751 div.yiv1000321751photo-title a:hover, #yiv1000321751 div.yiv1000321751photo-title a:visited {text-decoration:none;}#yiv1000321751 div#yiv1000321751ygrp-mlmsg #yiv1000321751ygrp-msg p a span.yiv1000321751yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1000321751 .yiv1000321751green {color:#628c2a;}#yiv1000321751 .yiv1000321751MsoNormal {margin:0 0 0 0;}#yiv1000321751 o {font-size:0;}#yiv1000321751 #yiv1000321751photos div {float:left;width:72px;}#yiv1000321751 #yiv1000321751photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv1000321751 #yiv1000321751photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1000321751 #yiv1000321751reco-category {font-size:77%;}#yiv1000321751 #yiv1000321751reco-desc {font-size:77%;}#yiv1000321751 .yiv1000321751replbq {margin:4px;}#yiv1000321751 #yiv1000321751ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1000321751 #yiv1000321751ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1000321751 #yiv1000321751ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1000321751 #yiv1000321751ygrp-mlmsg select, #yiv1000321751 input, #yiv1000321751 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1000321751 #yiv1000321751ygrp-mlmsg pre, #yiv1000321751 code {font:115% monospace;}#yiv1000321751 #yiv1000321751ygrp-mlmsg * {line-height:1.22em;}#yiv1000321751 #yiv1000321751ygrp-mlmsg #yiv1000321751logo {padding-bottom:10px;}#yiv1000321751 #yiv1000321751ygrp-msg p a {font-family:Verdana;}#yiv1000321751 #yiv1000321751ygrp-msg p#yiv1000321751attach-count span {color:#1E66AE;font-weight:700;}#yiv1000321751 #yiv1000321751ygrp-reco #yiv1000321751reco-head {color:#ff7900;font-weight:700;}#yiv1000321751 #yiv1000321751ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1000321751 #yiv1000321751ygrp-sponsor #yiv1000321751ov li a {font-size:130%;text-decoration:none;}#yiv1000321751 #yiv1000321751ygrp-sponsor #yiv1000321751ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1000321751 #yiv1000321751ygrp-sponsor #yiv1000321751ov ul {margin:0;padding:0 0 0 8px;}#yiv1000321751 #yiv1000321751ygrp-text {font-family:Georgia;}#yiv1000321751 #yiv1000321751ygrp-text p {margin:0 0 1em 0;}#yiv1000321751 #yiv1000321751ygrp-text tt {font-size:120%;}#yiv1000321751 #yiv1000321751ygrp-vital ul li:last-child {border-right:none !important;}#yiv1000321751

Reply to sender . Reply to group . Reply via Web Post . All Messages (10) . Top ^

1b

Re: Macro Gabung Sheet

Thu Mar 23, 2017 8:07 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Yang ini sudah dilakukan >> Pada Sheet Gabung sel K1 tulis formula ini =COUNTA(A:A) ?

Salam,HK
From: "Eira I Arie cheivory_bridge@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 24 March 2017, 9:31
Subject: Re: [belajar-excel] Macro Gabung Sheet

  Yth. Pak HK
Sudah saya coba tetapi ada debug di barisan berikut :
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$I$" & Range("K1")), , xlYes).Name = _        "Tableku"
note : penamaan excel table sudah saya sesuaikan "Tableku" ... kalau barisan yang debug itu saya hapus maka, format excel tabel akan hilang saat setelah proses gabung
Terima kasih

On Thursday, March 23, 2017 2:11 PM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


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

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

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

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

Terima kasih
Ari

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


  Pak cheivory_bridge.

tolog lampirkan contoh file nya . 
yang lengkap ya.

Salam

Lukman.

NB : Ada waktu luang dikit .
      

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

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

Sent from Yahoo Mail on Android

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

#yiv8310650647 #yiv8310650647 -- #yiv8310650647ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8310650647 #yiv8310650647ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8310650647 #yiv8310650647ygrp-mkp #yiv8310650647hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8310650647 #yiv8310650647ygrp-mkp #yiv8310650647ads {margin-bottom:10px;}#yiv8310650647 #yiv8310650647ygrp-mkp .yiv8310650647ad {padding:0 0;}#yiv8310650647 #yiv8310650647ygrp-mkp .yiv8310650647ad p {margin:0;}#yiv8310650647 #yiv8310650647ygrp-mkp .yiv8310650647ad a {color:#0000ff;text-decoration:none;}#yiv8310650647 #yiv8310650647ygrp-sponsor #yiv8310650647ygrp-lc {font-family:Arial;}#yiv8310650647 #yiv8310650647ygrp-sponsor #yiv8310650647ygrp-lc #yiv8310650647hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8310650647 #yiv8310650647ygrp-sponsor #yiv8310650647ygrp-lc .yiv8310650647ad {margin-bottom:10px;padding:0 0;}#yiv8310650647 #yiv8310650647actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8310650647 #yiv8310650647activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8310650647 #yiv8310650647activity span {font-weight:700;}#yiv8310650647 #yiv8310650647activity span:first-child {text-transform:uppercase;}#yiv8310650647 #yiv8310650647activity span a {color:#5085b6;text-decoration:none;}#yiv8310650647 #yiv8310650647activity span span {color:#ff7900;}#yiv8310650647 #yiv8310650647activity span .yiv8310650647underline {text-decoration:underline;}#yiv8310650647 .yiv8310650647attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8310650647 .yiv8310650647attach div a {text-decoration:none;}#yiv8310650647 .yiv8310650647attach img {border:none;padding-right:5px;}#yiv8310650647 .yiv8310650647attach label {display:block;margin-bottom:5px;}#yiv8310650647 .yiv8310650647attach label a {text-decoration:none;}#yiv8310650647 blockquote {margin:0 0 0 4px;}#yiv8310650647 .yiv8310650647bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8310650647 .yiv8310650647bold a {text-decoration:none;}#yiv8310650647 dd.yiv8310650647last p a {font-family:Verdana;font-weight:700;}#yiv8310650647 dd.yiv8310650647last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8310650647 dd.yiv8310650647last p span.yiv8310650647yshortcuts {margin-right:0;}#yiv8310650647 div.yiv8310650647attach-table div div a {text-decoration:none;}#yiv8310650647 div.yiv8310650647attach-table {width:400px;}#yiv8310650647 div.yiv8310650647file-title a, #yiv8310650647 div.yiv8310650647file-title a:active, #yiv8310650647 div.yiv8310650647file-title a:hover, #yiv8310650647 div.yiv8310650647file-title a:visited {text-decoration:none;}#yiv8310650647 div.yiv8310650647photo-title a, #yiv8310650647 div.yiv8310650647photo-title a:active, #yiv8310650647 div.yiv8310650647photo-title a:hover, #yiv8310650647 div.yiv8310650647photo-title a:visited {text-decoration:none;}#yiv8310650647 div#yiv8310650647ygrp-mlmsg #yiv8310650647ygrp-msg p a span.yiv8310650647yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8310650647 .yiv8310650647green {color:#628c2a;}#yiv8310650647 .yiv8310650647MsoNormal {margin:0 0 0 0;}#yiv8310650647 o {font-size:0;}#yiv8310650647 #yiv8310650647photos div {float:left;width:72px;}#yiv8310650647 #yiv8310650647photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv8310650647 #yiv8310650647photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8310650647 #yiv8310650647reco-category {font-size:77%;}#yiv8310650647 #yiv8310650647reco-desc {font-size:77%;}#yiv8310650647 .yiv8310650647replbq {margin:4px;}#yiv8310650647 #yiv8310650647ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8310650647 #yiv8310650647ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8310650647 #yiv8310650647ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8310650647 #yiv8310650647ygrp-mlmsg select, #yiv8310650647 input, #yiv8310650647 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8310650647 #yiv8310650647ygrp-mlmsg pre, #yiv8310650647 code {font:115% monospace;}#yiv8310650647 #yiv8310650647ygrp-mlmsg * {line-height:1.22em;}#yiv8310650647 #yiv8310650647ygrp-mlmsg #yiv8310650647logo {padding-bottom:10px;}#yiv8310650647 #yiv8310650647ygrp-msg p a {font-family:Verdana;}#yiv8310650647 #yiv8310650647ygrp-msg p#yiv8310650647attach-count span {color:#1E66AE;font-weight:700;}#yiv8310650647 #yiv8310650647ygrp-reco #yiv8310650647reco-head {color:#ff7900;font-weight:700;}#yiv8310650647 #yiv8310650647ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8310650647 #yiv8310650647ygrp-sponsor #yiv8310650647ov li a {font-size:130%;text-decoration:none;}#yiv8310650647 #yiv8310650647ygrp-sponsor #yiv8310650647ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8310650647 #yiv8310650647ygrp-sponsor #yiv8310650647ov ul {margin:0;padding:0 0 0 8px;}#yiv8310650647 #yiv8310650647ygrp-text {font-family:Georgia;}#yiv8310650647 #yiv8310650647ygrp-text p {margin:0 0 1em 0;}#yiv8310650647 #yiv8310650647ygrp-text tt {font-size:120%;}#yiv8310650647 #yiv8310650647ygrp-vital ul li:last-child {border-right:none !important;}#yiv8310650647

Reply to sender . Reply to group . Reply via Web Post . All Messages (10) . Top ^

1c

Re: Macro Gabung Sheet

Thu Mar 23, 2017 11:34 pm (PDT) . Posted by:

"Eira I Arie" cheivory_bridge

Yth. Pak HK 
formula counta di sell K1 sudah dilakukan

On Friday, March 24, 2017 10:07 AM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Yang ini sudah dilakukan >> Pada Sheet Gabung sel K1 tulis formula ini =COUNTA(A:A) ?

Salam,HK
From: "Eira I Arie cheivory_bridge@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 24 March 2017, 9:31
Subject: Re: [belajar-excel] Macro Gabung Sheet

  Yth. Pak HK
Sudah saya coba tetapi ada debug di barisan berikut :
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$I$" & Range("K1")), , xlYes).Name = _        "Tableku"
note : penamaan excel table sudah saya sesuaikan "Tableku" ... kalau barisan yang debug itu saya hapus maka, format excel tabel akan hilang saat setelah proses gabung
Terima kasih

On Thursday, March 23, 2017 2:11 PM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


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

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

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

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

Terima kasih
Ari

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


  Pak cheivory_bridge.

tolog lampirkan contoh file nya . 
yang lengkap ya.

Salam

Lukman.

NB : Ada waktu luang dikit .
      

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

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

Sent from Yahoo Mail on Android

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

#yiv7789957230 #yiv7789957230 -- #yiv7789957230ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7789957230 #yiv7789957230ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7789957230 #yiv7789957230ygrp-mkp #yiv7789957230hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7789957230 #yiv7789957230ygrp-mkp #yiv7789957230ads {margin-bottom:10px;}#yiv7789957230 #yiv7789957230ygrp-mkp .yiv7789957230ad {padding:0 0;}#yiv7789957230 #yiv7789957230ygrp-mkp .yiv7789957230ad p {margin:0;}#yiv7789957230 #yiv7789957230ygrp-mkp .yiv7789957230ad a {color:#0000ff;text-decoration:none;}#yiv7789957230 #yiv7789957230ygrp-sponsor #yiv7789957230ygrp-lc {font-family:Arial;}#yiv7789957230 #yiv7789957230ygrp-sponsor #yiv7789957230ygrp-lc #yiv7789957230hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7789957230 #yiv7789957230ygrp-sponsor #yiv7789957230ygrp-lc .yiv7789957230ad {margin-bottom:10px;padding:0 0;}#yiv7789957230 #yiv7789957230actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7789957230 #yiv7789957230activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7789957230 #yiv7789957230activity span {font-weight:700;}#yiv7789957230 #yiv7789957230activity span:first-child {text-transform:uppercase;}#yiv7789957230 #yiv7789957230activity span a {color:#5085b6;text-decoration:none;}#yiv7789957230 #yiv7789957230activity span span {color:#ff7900;}#yiv7789957230 #yiv7789957230activity span .yiv7789957230underline {text-decoration:underline;}#yiv7789957230 .yiv7789957230attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7789957230 .yiv7789957230attach div a {text-decoration:none;}#yiv7789957230 .yiv7789957230attach img {border:none;padding-right:5px;}#yiv7789957230 .yiv7789957230attach label {display:block;margin-bottom:5px;}#yiv7789957230 .yiv7789957230attach label a {text-decoration:none;}#yiv7789957230 blockquote {margin:0 0 0 4px;}#yiv7789957230 .yiv7789957230bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7789957230 .yiv7789957230bold a {text-decoration:none;}#yiv7789957230 dd.yiv7789957230last p a {font-family:Verdana;font-weight:700;}#yiv7789957230 dd.yiv7789957230last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7789957230 dd.yiv7789957230last p span.yiv7789957230yshortcuts {margin-right:0;}#yiv7789957230 div.yiv7789957230attach-table div div a {text-decoration:none;}#yiv7789957230 div.yiv7789957230attach-table {width:400px;}#yiv7789957230 div.yiv7789957230file-title a, #yiv7789957230 div.yiv7789957230file-title a:active, #yiv7789957230 div.yiv7789957230file-title a:hover, #yiv7789957230 div.yiv7789957230file-title a:visited {text-decoration:none;}#yiv7789957230 div.yiv7789957230photo-title a, #yiv7789957230 div.yiv7789957230photo-title a:active, #yiv7789957230 div.yiv7789957230photo-title a:hover, #yiv7789957230 div.yiv7789957230photo-title a:visited {text-decoration:none;}#yiv7789957230 div#yiv7789957230ygrp-mlmsg #yiv7789957230ygrp-msg p a span.yiv7789957230yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7789957230 .yiv7789957230green {color:#628c2a;}#yiv7789957230 .yiv7789957230MsoNormal {margin:0 0 0 0;}#yiv7789957230 o {font-size:0;}#yiv7789957230 #yiv7789957230photos div {float:left;width:72px;}#yiv7789957230 #yiv7789957230photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7789957230 #yiv7789957230photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7789957230 #yiv7789957230reco-category {font-size:77%;}#yiv7789957230 #yiv7789957230reco-desc {font-size:77%;}#yiv7789957230 .yiv7789957230replbq {margin:4px;}#yiv7789957230 #yiv7789957230ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7789957230 #yiv7789957230ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7789957230 #yiv7789957230ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7789957230 #yiv7789957230ygrp-mlmsg select, #yiv7789957230 input, #yiv7789957230 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7789957230 #yiv7789957230ygrp-mlmsg pre, #yiv7789957230 code {font:115% monospace;}#yiv7789957230 #yiv7789957230ygrp-mlmsg * {line-height:1.22em;}#yiv7789957230 #yiv7789957230ygrp-mlmsg #yiv7789957230logo {padding-bottom:10px;}#yiv7789957230 #yiv7789957230ygrp-msg p a {font-family:Verdana;}#yiv7789957230 #yiv7789957230ygrp-msg p#yiv7789957230attach-count span {color:#1E66AE;font-weight:700;}#yiv7789957230 #yiv7789957230ygrp-reco #yiv7789957230reco-head {color:#ff7900;font-weight:700;}#yiv7789957230 #yiv7789957230ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7789957230 #yiv7789957230ygrp-sponsor #yiv7789957230ov li a {font-size:130%;text-decoration:none;}#yiv7789957230 #yiv7789957230ygrp-sponsor #yiv7789957230ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7789957230 #yiv7789957230ygrp-sponsor #yiv7789957230ov ul {margin:0;padding:0 0 0 8px;}#yiv7789957230 #yiv7789957230ygrp-text {font-family:Georgia;}#yiv7789957230 #yiv7789957230ygrp-text p {margin:0 0 1em 0;}#yiv7789957230 #yiv7789957230ygrp-text tt {font-size:120%;}#yiv7789957230 #yiv7789957230ygrp-vital ul li:last-child {border-right:none !important;}#yiv7789957230

Reply to sender . Reply to group . Reply via Web Post . All Messages (10) . Top ^

1d

Re: Macro Gabung Sheet

Fri Mar 24, 2017 2:32 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Ari,
Setelah saya cek.....Jika baris data dikurangi maka Range "Tabelku" menjadi overlap dengan "Tabelku" sebelumnya yang mempunyai jumlah baris yang lebih banyak,Namun jika jumlah baris "Tabelku" yang terakhir lebih banyak dari sebelumnya maka tidak ada masalah.
Untuk mengatasi hal ini perlu sedikit trik, yaitu dengan terlebih dahulu menghapus jumlah baris "Tabelku" sebelumnya dengan perintah rngGabung.EntireRow.Delete.Untuk mencegah Error jika tombol Delete ditekan lagi maka perintah di atas didahului dengan perintahOn Error Resume Next
Note: Untuk mencegah Overlap nama tabel "Tabelku" maka sebelum menekan tombol Gabung, tekan tombol Delete terlebih dahulu untuk menghapus jumlah baris "Tabelku" sebelumnya.
Supaya tombol Gabung dan Delete tidak terhapus maka tombolnya saya letakkan di baris pertama (file terlampir).
Salam,HK
From: "Eira I Arie cheivory_bridge@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 24 March 2017, 13:35
Subject: Re: [belajar-excel] Macro Gabung Sheet

  Yth. Pak HK 
formula counta di sell K1 sudah dilakukan

On Friday, March 24, 2017 10:07 AM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Yang ini sudah dilakukan >> Pada Sheet Gabung sel K1 tulis formula ini =COUNTA(A:A) ?

Salam,HK
From: "Eira I Arie cheivory_bridge@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 24 March 2017, 9:31
Subject: Re: [belajar-excel] Macro Gabung Sheet

  Yth. Pak HK
Sudah saya coba tetapi ada debug di barisan berikut :
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$I$" & Range("K1")), , xlYes).Name = _        "Tableku"
note : penamaan excel table sudah saya sesuaikan "Tableku" ... kalau barisan yang debug itu saya hapus maka, format excel tabel akan hilang saat setelah proses gabung
Terima kasih

On Thursday, March 23, 2017 2:11 PM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


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

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

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

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

Terima kasih
Ari

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


  Pak cheivory_bridge.

tolog lampirkan contoh file nya . 
yang lengkap ya.

Salam

Lukman.

NB : Ada waktu luang dikit .
      

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

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

Sent from Yahoo Mail on Android

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

#yiv3800723364 #yiv3800723364 -- #yiv3800723364ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3800723364 #yiv3800723364ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3800723364 #yiv3800723364ygrp-mkp #yiv3800723364hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3800723364 #yiv3800723364ygrp-mkp #yiv3800723364ads {margin-bottom:10px;}#yiv3800723364 #yiv3800723364ygrp-mkp .yiv3800723364ad {padding:0 0;}#yiv3800723364 #yiv3800723364ygrp-mkp .yiv3800723364ad p {margin:0;}#yiv3800723364 #yiv3800723364ygrp-mkp .yiv3800723364ad a {color:#0000ff;text-decoration:none;}#yiv3800723364 #yiv3800723364ygrp-sponsor #yiv3800723364ygrp-lc {font-family:Arial;}#yiv3800723364 #yiv3800723364ygrp-sponsor #yiv3800723364ygrp-lc #yiv3800723364hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3800723364 #yiv3800723364ygrp-sponsor #yiv3800723364ygrp-lc .yiv3800723364ad {margin-bottom:10px;padding:0 0;}#yiv3800723364 #yiv3800723364actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3800723364 #yiv3800723364activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3800723364 #yiv3800723364activity span {font-weight:700;}#yiv3800723364 #yiv3800723364activity span:first-child {text-transform:uppercase;}#yiv3800723364 #yiv3800723364activity span a {color:#5085b6;text-decoration:none;}#yiv3800723364 #yiv3800723364activity span span {color:#ff7900;}#yiv3800723364 #yiv3800723364activity span .yiv3800723364underline {text-decoration:underline;}#yiv3800723364 .yiv3800723364attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3800723364 .yiv3800723364attach div a {text-decoration:none;}#yiv3800723364 .yiv3800723364attach img {border:none;padding-right:5px;}#yiv3800723364 .yiv3800723364attach label {display:block;margin-bottom:5px;}#yiv3800723364 .yiv3800723364attach label a {text-decoration:none;}#yiv3800723364 blockquote {margin:0 0 0 4px;}#yiv3800723364 .yiv3800723364bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3800723364 .yiv3800723364bold a {text-decoration:none;}#yiv3800723364 dd.yiv3800723364last p a {font-family:Verdana;font-weight:700;}#yiv3800723364 dd.yiv3800723364last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3800723364 dd.yiv3800723364last p span.yiv3800723364yshortcuts {margin-right:0;}#yiv3800723364 div.yiv3800723364attach-table div div a {text-decoration:none;}#yiv3800723364 div.yiv3800723364attach-table {width:400px;}#yiv3800723364 div.yiv3800723364file-title a, #yiv3800723364 div.yiv3800723364file-title a:active, #yiv3800723364 div.yiv3800723364file-title a:hover, #yiv3800723364 div.yiv3800723364file-title a:visited {text-decoration:none;}#yiv3800723364 div.yiv3800723364photo-title a, #yiv3800723364 div.yiv3800723364photo-title a:active, #yiv3800723364 div.yiv3800723364photo-title a:hover, #yiv3800723364 div.yiv3800723364photo-title a:visited {text-decoration:none;}#yiv3800723364 div#yiv3800723364ygrp-mlmsg #yiv3800723364ygrp-msg p a span.yiv3800723364yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3800723364 .yiv3800723364green {color:#628c2a;}#yiv3800723364 .yiv3800723364MsoNormal {margin:0 0 0 0;}#yiv3800723364 o {font-size:0;}#yiv3800723364 #yiv3800723364photos div {float:left;width:72px;}#yiv3800723364 #yiv3800723364photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv3800723364 #yiv3800723364photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3800723364 #yiv3800723364reco-category {font-size:77%;}#yiv3800723364 #yiv3800723364reco-desc {font-size:77%;}#yiv3800723364 .yiv3800723364replbq {margin:4px;}#yiv3800723364 #yiv3800723364ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3800723364 #yiv3800723364ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3800723364 #yiv3800723364ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3800723364 #yiv3800723364ygrp-mlmsg select, #yiv3800723364 input, #yiv3800723364 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3800723364 #yiv3800723364ygrp-mlmsg pre, #yiv3800723364 code {font:115% monospace;}#yiv3800723364 #yiv3800723364ygrp-mlmsg * {line-height:1.22em;}#yiv3800723364 #yiv3800723364ygrp-mlmsg #yiv3800723364logo {padding-bottom:10px;}#yiv3800723364 #yiv3800723364ygrp-msg p a {font-family:Verdana;}#yiv3800723364 #yiv3800723364ygrp-msg p#yiv3800723364attach-count span {color:#1E66AE;font-weight:700;}#yiv3800723364 #yiv3800723364ygrp-reco #yiv3800723364reco-head {color:#ff7900;font-weight:700;}#yiv3800723364 #yiv3800723364ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3800723364 #yiv3800723364ygrp-sponsor #yiv3800723364ov li a {font-size:130%;text-decoration:none;}#yiv3800723364 #yiv3800723364ygrp-sponsor #yiv3800723364ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3800723364 #yiv3800723364ygrp-sponsor #yiv3800723364ov ul {margin:0;padding:0 0 0 8px;}#yiv3800723364 #yiv3800723364ygrp-text {font-family:Georgia;}#yiv3800723364 #yiv3800723364ygrp-text p {margin:0 0 1em 0;}#yiv3800723364 #yiv3800723364ygrp-text tt {font-size:120%;}#yiv3800723364 #yiv3800723364ygrp-vital ul li:last-child {border-right:none !important;}#yiv3800723364

Reply to sender . Reply to group . Reply via Web Post . All Messages (10) . Top ^

2a

Re: VBA Code to Export Group of Object to Image File

Thu Mar 23, 2017 7:44 pm (PDT) . Posted by:

"Fano The Miner"

Dear Mr. Kid,

Terima kasih informasi dan datanya.

Akan saya coba sesuai code pada workbook-nya.

Salam,

Fano

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, 23 March 2017 9:25 PM
To: BeExcel <belajar-excel@yahoogroups.com>
Subject: Re: [belajar-excel] VBA Code to Export Group of Object to Image File

Hai Fano,

Pindahkan chart yang sudah lengkap (berisi seluruh elemen yang dibutuhkan) menjadi sebuah chart sheet. Lalu save chart sheet sebagai image.

Contohnya ada di file yang ada disini <https://app.box.com/s/xt9m126qfn7c6znmjrv5> pada prosedur CreatePicFileFromShape.

Regards,

Kid

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

Dear Excel Masters..

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

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

Terma kasih sebelumnya atas bantuannya.

Salam,

Fano

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

3a

Re: Macro Gabung Sheet [1 Attachment]

Thu Mar 23, 2017 8:18 pm (PDT) . Posted by:

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

Hai Ari,

Coba begini :
1. blok seluruh cells di sheet gabung -> atur agar fill color adalah No
Fill -> hapus seluruh conditional formatting yang ada di sheet gabung
2. blok baris records dari Excel table di sheet gabung (tanpa header di
seluruh kolom Excel table) -> lakukan delete table rows
3. save workbook

4. Cara copy paste values :
sheets("nama sheet yang mau
dicopy").range("a1").currentregion.offset(1).copy
with sheets("nama sheet gabung")
.cells( .rows.count , 1 ).end(xlup).offset(1).pastespecial
xlpastevalues
end with

5. Cara hapus seluruh records dalam Excel table (misal Excel table di sheet
gabung yang header-nya mulai dari A1)
with sheets("nama sheet gabung").range("a1").currentregion
.offset(1).resize( .rows.count -1 ).delete xlshiftup
end with

*** Setelah 5 langkah di atas dikerjakan, barulah memikirkan perbaikan
proses copy yang di paste values beserta proses delete excel table rows

>> Jika hanya sheet tertentu saja yang akan di-copy lalu di-paste values ke
sheet gabung, maka perlu menentukan pola penamaan sheet-nya.
Contoh 1 : sheet yang digabung hanya yang berawalah kata 'sheet'
dim sht as worksheet
with sheets("nama sheet gabung")
for each sht in thisworkbook.worksheets
if lcase(left(sht.name,5))="sheet" then
sht.range("a1").currentregion.offset(1).copy
.cells( .rows.count , 1
).end(xlup).offset(1).pastespecial xlpastevalues
endif
next sht
end with

Contoh 2 : sheet yang digabung adalah selain yang bernama
'Gabung','a1','a2','a3','kid'
dim sht as worksheet, sShtName as string
sshtname="\gabung\a1\a2\a3\kid\"
with sheets("nama sheet gabung")
for each sht in thisworkbook.worksheets
if instr(sshtname,"\" & lcase(sht.name) & "\")=0 then
sht.range("a1").currentregion.offset(1).copy
.cells( .rows.count , 1
).end(xlup).offset(1).pastespecial xlpastevalues
endif
next sht
end with

Regards,
Kid

On Thu, Mar 23, 2017 at 10:32 AM, Eira I Arie cheivory_bridge@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Yth. Pak HK dan Pak Lukman
>
> file terlampir dari milis ini juga (sudah ditambahkan baris code
> "copypastevalue" arahan Pak HK) ..
>
> Problemnya begini , Jika misalnya :
>
> 1. pada sheet 1 , di kolom A diberi Conditional Formatting
> 2. pada sheet 2 , di kolom C diberi warna sell kuning di beberapa data
> 3. pada sheet gabung , dibuat excel table untuk wadah
>
>
> setelah diproses gabung , dalam sheet gabung terdapat Conditional
> Formatting (sesuai di sheet 1) dan warna sell (sesuai sheet 2).
> keinginannya hanya "copy value" . ternyata hasilnya masih terdapat CF dan
> warna sell seperti contoh terlampir ..
>
> terkadang , setelah proses tombol hapus, lalu proses gabung lagi maka,
> pada sheet gabung, format excel table menjadi hilang (jadinya range) ..
>
> mohon solusi atas permasalahan di atas ..
>
>
> Terima kasih
>
> Ari
>
>
> On Wednesday, March 22, 2017 7:46 PM, "lkm jktind lkmjktind@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Pak cheivory_bridge.
>
> tolog lampirkan contoh file nya .
> yang lengkap ya.
>
>
>
> Salam
>
>
>
> Lukman.
>
>
>
> NB : Ada waktu luang dikit .
>
>
>
>
> On Wed, Mar 22, 2017 at 3:26 PM, hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Coba tambahkan 2 perintah berikut ini:
>
> Set rngGabung = Sheets("Gabung").Range("A2"). CurrentRegion
>
> rngGabung.Value = rngGabung.value
>
> seblm Application.CutCopyMode = False
>
> Salam,
> HK
>
>
> Sent from Yahoo Mail on Android
> <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
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (10) . Top ^

4a

apakah bisa atau tidak????

Fri Mar 24, 2017 12:00 am (PDT) . Posted by:

shenly_excelmania

haloo master, iseng aja mau tanya, apakah macro yang sudah di protek bisa di jebol? jika bisa, bagaimanakan cara agar macro tidak bisa di jebol, atw setidaknya susah untuk di jebol,


terima kasih

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

4b

Re: apakah bisa atau tidak????

Fri Mar 24, 2017 1:38 am (PDT) . Posted by:

"lkm jktind" lkmjkt

Jawabannya juga iseng saja.

apakah macro yang sudah di protek bisa di jebo
Bisa tergantung kelas hackernya. (apakah data nya sangat bernilai?)

jika bisa, bagaimanakan cara agar macro tidak bisa di jebol,
mungkin mesti cari programer yg profesional.

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

>
>
> haloo master, iseng aja mau tanya, apakah macro yang sudah di protek bisa
> di jebol? jika bisa, bagaimanakan cara agar macro tidak bisa di jebol, atw
> setidaknya susah untuk di jebol,
>
>
> terima kasih
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

4c

Re: apakah bisa atau tidak????

Fri Mar 24, 2017 1:50 am (PDT) . Posted by:

shenly_excelmania

ooowh begitu ya pak dek, berarti intinya bisa di hack ya? soalnya sya cari di google byk juga aplikasi2, yang dikasih judul "menjebol macro excel" , kirain sya ada cara lain selain protek macro, untuk menghalangi hack supaya tidak bisa membobol macro

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

4d

Re: apakah bisa atau tidak????

Fri Mar 24, 2017 5:29 pm (PDT) . Posted by:

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

Hai Shenly,

Tentang :
1. apakah macro yang sudah di protek bisa di jebol?
> Bisa dan mudah bagi siapa saja yang mempelajari caranya. Tidak perlu
menjadi hacker untuk bisa membuka proteksi workbook, worksheets, dan VBA.
Artinya, selama bukan file nya yang diproteksi (misal saat save as di set
password pada opsi save nya).

2. bagaimanakan cara agar macro tidak bisa di jebol ?
> Tidak bisa dan tidak ada cara untuk memproteksi VBA yang tidak bisa
dibuka paksa.

3. atw setidaknya susah untuk di jebol,
> Tidak ada caranya, meskipun menggunakan tools pihak ketiga yang mengubah
workbook menjadi exe file sekalipun.

Proteksi terbaik untuk Excel file adalah dengan memproteksi file saat akan
save as. Jadi, user selalu diminta memasukkan password setiap kali akan
membuka Excel file tersebut. Artinya, proteksi diberlakukan pada file. Jika
password tidak sesuai, maka workbook tidak akan dibuka, apalagi VBA nya.

Regards,
Kid

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

>
>
> haloo master, iseng aja mau tanya, apakah macro yang sudah di protek bisa
> di jebol? jika bisa, bagaimanakan cara agar macro tidak bisa di jebol, atw
> setidaknya susah untuk di jebol,
>
>
> terima kasih
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

5a

Re: File Excel besar

Fri Mar 24, 2017 4:48 am (PDT) . Posted by:

"kiki tanjung" kieki_e

mau banget ikut..


mohon di share info nya kalau jadi ya..



On Thursday, March 16, 2017 10:34 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" wrote:




hmmm...


Bagaimana kalau BeExceller yang memang membutuhkan atau yang akan mempelajari tentang kolaborasi MS Excel dan MS SQL Server berkumpul bersama dan merencanakan suatu workshop ?









2017-03-15 19:44 GMT+07:00 Sony Ario sony.ario1@gmail.com mailto:sony.ario1@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com>:

matur suwun Mr. Kid.


Maksud saya memang seperti point no. 1 B dan 2 B itu. Dengan VBA metode ADO :). Kalau saja para sepuh dimilis ini mau ngadakan workshop pasti banyak yang minat lho. Jadi bukan kopdar formatnya.


btw, sekali lagi matur suwun penjelasan nya.


Wassalam
Sony


gnl-excelinfo.blogspot.co.id http://gnl-excelinfo.blogspot.co.id/



2017-03-15 18:30 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com mailto:mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com >:

hehehe....


1.A. Dari Excel ke MS SQL Server -> SQL Server meng-impor data dari Excel => kegiatan dilakukan oleh MS SQL Server, bagusnya dibahas di milis MS SQL Server ya...


1.B. Dari Excel ke MS SQL Server -> Excel meng-ekspor data ke MS SQL Server => kegiatan dilakukan oleh Excel, ini area pembahasan Excel. Biasanya pakai VBA.

VBA-nya bisa berupa execute query Insert Into (mau per record [baris data di Excel] atau per dataset) atau dengan mengeksekusi prosedur pengambil data dari luar SQL Server yang sudah dibuat di MS SQL Server.



2.A. Dari MS SQL Server ke Excel -> SQL Server meng-ekspor data ke Excel => kegiatan dilakukan oleh MS SQL Server, bagusnya dibahas di milis MS SQL Server ya...


2.B. Dari MS SQL Server ke Excel -> Excel meng-import data dari MS SQL Server, ini area pembahasan Excel. Paling mudah adalah dengan fitur Get External Data.
VBA bisa digunakan untuk mengotomasi proses Get External Data.

VBA juga bisa digunakan bersama ADO untuk mengambil data dari MS SQL Server.


Jadi,

Kalau mau detilnya kegiatan Export-Import data oleh MS SQL Server, bisa coba dicari di milis MS SQL Server ya...


btw, sederhananya, langkahnya secara umum adalah sama untuk kegiatan Export - Import oleh MS SQL Server.

0. Cari file bernama DTSWizard.exe (bagi yang meng-install MS SQL Server Express with advanced tools blabla) dan jalankan.

> biasanya di folder ms sql server di drive C pada sub folder xx.0 (xx adalah versi MS SQL Server) \ dts \ binn

Bagi yang menggunakan MS SQL Server edisi standard atau Enterprise, bisa dari SSMS dengan cara klik kanan sebuah database -> pilih Task -> pilih Import Data


1. ikuti langkah yang disajikan wizard yang mucul.

Garis besarnya :

step1 : pilih provider sumber data -> nama db atau nama file dan versi yang dibutuhkan

> jika sumbernya adalah Excel file, pilih providernya Microsoft Excel, pilih filenya, pilih versinya.

> pada MS SQL Server 2005, pilih providernya Microsoft Office ACE OLE DB blabla untuk xl2007 ke atas dan pilih Microsoft Excel untuk xl2003 ke bawah

step2 : pilih provider lokasi tujuan -> nama db atau nama file dan versi yang dibutuhkan
> jika tujuannya adalah Excel file, pilih providernya Microsoft Excel, pilih filenya, pilih versinya.

> pada MS SQL Server 2005, pilih providernya Microsoft Office ACE OLE DB blabla untuk xl2007 ke atas dan pilih Microsoft Excel untuk xl2003 ke bawah


step3 : pilih tabel atau dataset yang akan di Export ataupun Import -> bila perlu edit mapping tipe data dan cara penulisan ke tujuan (append atau buang data lama)

step4 : ikuti alur wizard sampai finish


*** Proses import dan export hanya berbeda di step1 dan step2.
*** Import dari Excel, maka step1 pilih provider Excel, step2 pilih provider tujuan.
*** Export ke Excel, maka step1 pilih provider sumbernya, step2 pilih provider Excel.



Begitu kan ya...


Regards,

Kid










2017-03-15 16:59 GMT+07:00 Sony Ario sony.ario1@gmail.com mailto:sony.ario1@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com >:

Mr Kid,
Wah ini bagus sekali kalau bisa di bahas lebih untuk eksport - import dari Excel ke MSSQL dari dasar..

On Mar 15, 2017 1:47 PM, "'Mr. Kid' mr.nmkid@gmail.com mailto:mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com > wrote:

hmmm....

teknologi lama tanpa interface yang memudahkan user.


Mumpung sedang luang dan bisa buka Excel...



Semoga gambaran database berikut ini bisa membantu mengubah paradigma tentang database beserta system database.

Hal yang perlu dipahami :

1. komputer tempat si sistem database akan di-install.

Contoh :


​

2. system database (DBMS) yang di-install ke komputer tersebut (misal MS SQL Server)


​


*** Sampai disini, sudah ada sistem database MS SQL Server 2012 di dalam komputer MrKid10

*** Anda tidak bisa berjumpa dengan si DBMS karena DBMS tersebut sebuah sistem

*** Agar bisa bekerja di dalam sistem tersebut (DBMS tersebut), maka dibutuhkan aplikasi (program atau tools).
*** MS SQL Server telah menyediakannya dan bisa di-install. Namanya SQL Server Management Studio (SSMS) yang bisa di-unduh dan di-install free juga.


3. tools interface untuk dapat bekerja di dalam DBMS yang telah di-install. (Misal SSMS 2012)

>> Tools ini biasanya digunakan untuk membuat db, tables, views (query pengolah data), procedures (otomasi query pengolah data), input data, lihat isi data, dsb

>> Pada umumnya, aplikasi interface untuk user (misal aplikasi input data PT A, bisa dibuat dengan Excel juga, yang terkoneksi atau terotomasi mengirim dan mengambil data ke DBMS tersebut pada database yang dibutuhkan.



​

4. contoh tampilan SSMS yang telah connect ke DBMS nomor 2 tadi, sehingga bisa tahu bahwa ada banyak database yang bisa saling bekerja sama bila diperlukan, di dalam DBMS tersebut


​

5. Setiap DB akan berisi wadah data real (disebut Tables), kalimat perintah pengolahan data tertentu (salah satunya disebut Views), prosedur otomasi, dsb

> Contoh : database bernama BURSA (pinjem data OHLC Anda, kemudian di-create contoh data series banyak records)

​


6. Contoh tampilan input data

> bisa entri field per field maupun copas banyak records n columns dari Excel, text file, dsb

> TIDAK BUAT FORM SENDIRI,
> cukup buka tabel untuk kegiatan input data

> bisa lihat banyak baris yang sudah ada di tabel tersebut

> record baru di-input di area yang ada sign >*


​

7. Contoh lihat data
> TIDAK BUAT FORM SENDIRI,
> bisa di filter, di sort sesuai kebutuhan, tapi jangan dijadikan lihat data di SSMS ini menjadi kegiatan rutin

> lihat datanya di Excel saja kalau terbiasa bekerja di Excel



*** 5.6 juta records buth waktu 44 detik untuk menampilkan

*** waktu untuk memproses kalimat perintah (query SELECT) sampai didapat recordset nya sih sebentar, mungkin gak sampai 1 detik.​




8. Contoh lihat hasil pengolahan data
> TIDAK BUAT FORM SENDIRI,
> summary harian dari 5.6 juta records

> bisa di sort, di filter, diambil kolom tertentu, diubah susunan kolomnya, dsb

> tapi jangan dibiasakan melihat hasil pengolahan datanya di disini, lihatnya di Excel saja kalau biasanya bekerja di Excel



​*** Nilainya sama karena data yang sama digandakan menjadi data tanggal-tanggal lainnya (total series 40 tahun)


*** untuk mengkalkulasi summary tersebut dan menampilkannya, total butuh 1 detik (dari 5.6juta records menjadi summary 10ribu records).
*** Menampilkan hasilnya hanya butuh waktu singkat dari 1 detik itu, karena hasilnya hanya 10ribu records

*** proses komputasi summary nya yang butuh waktu lebih banyak dibanding menampilkan.


9. Excel koneksi ke DBMS di database BURSA untuk ambil hasil pengolahan data summary tersebut :

> TIDAK BUAT FORM SENDIRI,

-> tapi malah bisa membuat berbagai bentuk output lainnya dengan caranya Excel

> waktu refresh data masih kurang dari 3 detik

> karena Excel hanya fokus mengambil 10ribu records hasil pengolahan data, sedangkan data dikomputasi DBMS dalam waktu kurang dari 1 detik.

> proses pengambilan data menggunakan fitur Get External Data

> data yang sudah diambil bisa dipilih akan ditampilkan sebagai Excel Table atau sebagai Pivot Table

*** Contoh kalau dipilih jadi pivot table


​



So,

A. Proses input data yang manual (tidak terotomasi) bisa dilakukan dengan cara :

1. user entri data ke Excel (misal input 200ribu records), lakukan cek dengan baik dan teliti

2. copy area range yang sudah di-input, blok semua records (records loh ya) -> ke SSMS -> buka ruang input tabel -> paste

3. tutup SSMS



B. Proses output dengan Excel file yang sudah dibuatkan koneksi data menggunakan fitur Get External Data

1. buka file Excel yang sudah dibuatkan koneksi data (ingat, koneksi data hanya dibuat 1 kali saja sudah cukup)

2. lakukan refresh (ribbon Data -> Refresh All)

3. [bila perlu] save workbook (SSMS tidak perlu dibuka, alias di windows task bar hanya ada 1 bijik taskbar yaitu si Excel doang pun juga bisa)



Nah...

bagian :
Yg kurang ku sukai -----> karena sering merubah tampilan . (kebiasaan burukku)

> Kid :: ini kan bisa dilakukan di Excel sesuka hati


1. Mesti di buat kan form. ---> untuk input data.

> Kid :: ini juga bisa dilakukan di Excel sesuka hati lalu copas atau pakai otomasi kirim data ke DBMS


2. Mesti di buatkan form ----> untuk laporan data

> Kid :: ini kan bisa dilakukan di Excel sesuka hati. Cukup tugaskan Excel untuk ambil data hasil pengolahan oleh DBMS dan berkreasilah menyusun laporan di Excel.


3. Saat input data ---> nga bisa lihat data input sebelumnya . (karena pakai form)

> Kid :: tidak harus pakai form kan.... Bisa di-Excel pula... Dan semuanya bisa lihat records yang sudah di-input sebelumnya tuh


4. Kalau mau loop -----> data nya nga bisa di sort dulu ---> biar saat sort sekali jalan saja.

> Kid :: Yang mau di-loop dari data yang tersimpan di DB yang ada di DBMS itu apa ? dan buat apa ?
> Kid :: Proses filter cukup dengan frase WHERE, untuk sort dengan frase ORDER BY, lalu mau loop apa ?
> Kid :: Kalau mau loop, di Excel sajah...
> Kid :: Tugaskan Excel ambil data yang dibutuhkan (terfilter dan tersort sekalipun), lalu tampilkan sebagai Excel Table, lalu loop lah sesukanya di Excel Table tersebut.


----> kadang kadang bila aku ragu : maka di hitung kembali pakai formula di excel >< hasil dari Macronya --> apakah ada kesalahan.

> Kid :: kalau ragu akan hasil otomasi, berarti kan bukan di DBMS nya

> Kid :: otomasi pakai Macro (VBA) yang lap lup an itu kan di Excel.
> Kid :: Berarti petanin aja hasil pengambilan data dari DBMS yang kemudian di lap lup itu ya.. kayanya sih bisa gitu yak...



:)

Mari kita manfaatkan teknologi untuk mempermudah hidup.



Regards,

Kid







2017-03-15 7:58 GMT+07:00 lkm jktind lkmjktind@gmail.com mailto:lkmjktind@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com >:

Pak Kid.

Jangan-jangan ada pemikiran bahwa database pantasnya buat dipakai berbanyak ya...

hmmm...

Andai benar, ada baiknya hal ini bisa diubah.


Dulu aku pernah pakai dbase5, (masih under dos) .


Yg kurang ku sukai -----> karena sering merubah tampilan . (kebiasaan burukku)

1. Mesti di buat kan form. ---> untuk input data.

2. Mesti di buatkan form ----> untuk laporan data

3. Saat input data ---> nga bisa lihat data input sebelumnya . (karena pakai form)

4. Kalau mau loop -----> data nya nga bisa di sort dulu ---> biar saat sort sekali jalan saja.

----> kadang kadang bila aku ragu : maka di hitung kembali pakai formula di excel >< hasil dari Macronya --> apakah ada kesalahan.




Kelebihan yg aku ketahui, bisa simpan banyakkkk data. (record)

Formula lebih permanen. ( pakai link, link an)

misalnya :

ada file Khusus : data pelanggang. ---> ini biasanya aku gabung dengan data supplyer.

: data pembelian.

: data penjualan .
: data cash ------> data penerimaan , data pembayaran , data pengeluaran


Pada umumnya : pakai database (untuk data semakin banyak) maka akan semakin cepat -- waktu prosesnya di bandingkan excel.


hanya sebatas itu yg ku ketahui.


Salam




Lukman.


NB : kebiasaan buruk ku --- sering merobah, robah --- karena dibikin sendiri (jadi cape sendiri)










































2017-03-15 1:12 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com mailto:mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com >:

Sama-sama Pak.


Agak tergelitik dengan bagian ini :
Karena di pakai untuk diri sendiri, maka pilihan beralih ke data dase --- aku abaikan .


Jangan-jangan ada pemikiran bahwa database pantasnya buat dipakai berbanyak ya...

hmmm...

Andai benar, ada baiknya hal ini bisa diubah.


System database (DBMS) seperti MS Access atau MS SQL Server (yang express saja yang free) bisa dimanfaatkan untuk kebutuhan sendiri, dipakai layaknya menggunakan Excel saja. Sekedar wadah menyimpan data dan pengolah data dengan banyak records. Dengan demikian, seluruh pekerjaan yang dibebankan kepada diri sendiri bisa dikerjakan dengan cepat. Jadi punya waktu luang untuk kegiatan pribadi. Bekerja secara smart dan efisien. Gak lembur dan bisa kumpul bersama dengan keluarga lebih banyak.


but, it's just my two-cents.


;)


Regards,

Kid







2017-03-14 18:18 GMT+07:00 lkm jktind lkmjktind@gmail.com mailto:lkmjktind@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com >:

Pak Kid .


Terima kasih pak .



Uraian / penjelasan dari bapak sangat lengkap .


Yg aku butuhan : data per tanggal, per Ticker(saham) , harga ---> data harga yg akan di ambil .


Karena di pakai untuk diri sendiri, maka pilihan beralih ke data dase --- aku abaikan .


jadi tinggal 2 pilihan : 1 dibagi beberapa sheet, satu sheet untuk data per tahun.

2. di bagi beberapa file, satu file per tahun
mungkin pilihan ku , lebih cenderung pakai :

1 file ---> di bagi beberapa sheet, yang isi dari satu sheet adalah data per tahun

Dilengkapi di sheet awal : sebagai sheet bantu.

misalnya : mencari data th berapa ---> ada nya di sheet 3. misalnya

mencari data tgl berapa ---> ada nya di row berapa sampai berapa.


Untuk mempercepat waktu proses, saat datanya mau di ambil .


2 ---> dibagi beberapa file ---> yg aku pertimbangkan waktu buka dan tutup dari file tersebut.

ada kemungkinan lebih lambat -- untuk buka dan tutup file.


saat ini saja . sekali buka file -- ada kali sekitar 4 ~ 6 file .


Tetap pakai excel --- karena bikin Excel sendiri -- ada masalah -- bisa di atasi sendiri.


dan tampilannya mudah di ubah ubah .



entah pendapat dari bapak .



Salam




Lukman.











































2017-03-13 15:32 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com mailto:mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com >:

Hai Lukman,


Untuk data series, patut dipertimbangkan pula seberapa lebar rentang waktu dan tingkat kedetilan informasi yang digunakan dalam kegiatan sehari-hari.


Contoh :

Sebuah perusahaan yang menjual 3 produk sepanjang masa memiliki sekitar 200 orang sales yang tersebar di seluruh Indonesia. Seluruh sales person tersebut setiap hari melaporkan total penjualan setiap produk yang telah dilakukannya.

Maka setiap hari akan ada data sebanyak 200 orang * 3 produk * 1 record/hari = 600 records/hari.
Andaikan setahun ada 350 hari kerja sales person, maka dalam setahun ada 350 hari/tahun * 600 records/hari = 210000 records/tahun.


Dalam perusahaan tersebut, kegiatan terhadap data sales dilakukan :

Kasus A : tanpa memperhatikan siapa sales personnya. Artinya, tidak ada kebutuhan untuk membuat laporan per sales person atau menganalisa sales per sales person. Rentang waktu yang dibutuhkan adalah series 10 tahun.
> pada kasus ini, maka data yang disimpan bisa tanpa sales person, tetapi cukup summary total penjualan per produk per hari.

> artinya, jumlah record yang perlu disimpan per harinya adalah 3 produk * 1 record/hari = 3 records/hari.

> Per tahun berarti hanya ada 350 hari/tahun * 3 records/hari = 1050 records/tahun

> Untuk kebutuhan series 10 tahun, maka perlu menyimpan 1050 records/tahun * 10 tahun = 10500 records.

> Excel versi berapapun masih mampu menyimpannya

> Data asli yang juga menyimpan informasi sales person bisa dibuang atau disimpan sebagai file dokumen berupa text file


Kasus B : memperhatikan siapa sales personnya dengan rentang waktu yang dibutuhkan adalah series 5 tahun.
> pada kasus ini, maka data yang disimpan adalah lengkap.

> artinya, jumlah record yang perlu disimpan per tahunnya adalah 210000 records/tahun.

> Untuk kebutuhan series 5 tahun, maka perlu menyimpan 210000 records/tahun * 5 tahun = 1050000 records (satu juta lima puluh ribu records)

> Excel versi 2007 ke atas masih bisa menyimpannya



Kasus C : memperhatikan siapa sales personnya dengan rentang waktu yang dibutuhkan adalah series 10 tahun
> pada kasus ini, maka data yang disimpan adalah lengkap.

> artinya, jumlah record yang perlu disimpan per tahunnya adalah 210000 records/tahun.

> Untuk kebutuhan series 5 tahun, maka perlu menyimpan 210000 records/tahun * 10 tahun = 2100000 records (dua juta seratus ribu records)

> Excel 2007 ke atas bisa menyimpannya dalam 2 sheet, tetapi akan cukup sulit mengolahnya

> Fitur Get External Data bisa mempermudah proses terhadap 2 sheet dalam 1 file Excel atau 2 file Exel berisi masing-masing 1 sheet, tetapi masih kurang efisien.

> Opsi lainnya adalah menyimpan data pada 1 (satu) file text (text file), kemudian diolah memanfaatkan fitur Get External Data oleh Excel.


Hal tersebut di atas adalah pembahasan dengan fokus utama adalah Excel



Padahal,

Semestinya yang menjadi fokus utama adalah data dan pengolahan data.


Artinya, pertanyaan berikut :
Mana yg lebih cepat.
dengan pilihan dibawah ini :


A . di bagi beberap sheet ( data pertahun )

B dibeagi beberapa file (data per tahun)


adalah meletakkan Excel sebagai fokus utama, sehingga bagian :
C. apakah ada solusi lain nya .

> seperti yang dibiru di atas

akan cenderung berharap tetap menjadikan Excel sebagai fokus utama.



??? Seperti apa sih kalau fokus pada data dan pengolahan data ???
1. Data membutuhkan wadah yang bisa menampung seluruh data

2. Pengolahan data yang ada dalam wadah tersebut bisa mudah, cepat, dan tepat sesuai proses bisnis yang dibutuhkan



2 (dua) kondisi agar fokus pada data dan pengolahan data tersebut bisa disederhanakan menjadi :

1. wadah data sering disebut database

2. pengolah data yang mampu mewujudkannya sering disebut sistem manajemen database (database management system [disingkat DBMS])



Bahasa pengolah data yang digunakan oleh DBMS dalam mengolah data disebut SQL.

Jadi, bisa juga dikatakan bahwa bahasa umum pengolahan data adalah SQL seperti bahasa Inggris sebagai bahasa percakapan umum manusia saat ini.


--- Sampai disini, biasanya sudah mulai banyak yang ogah karena sudah mulai menyentuh database ---

Payahnya, kata database apalagi database system sudah terlalu umum dikenal rumit.
[teknologi kok memperumit... yang bermasalah adalah teknologinya atau pengguna teknologinya ya ? ]
* jadi bingung nih dengan yang memiliki stigma database atau database system itu rumit.
------------------------------ ------------------------------ ------------------------------ ------------------------------ ---------------------


Jadi,

to the point nya adalah :

1. Jika ada data, simpanlah di wadah data yang bernama database.

2. Ketika memilih database, pilihlah yang mampu memanajemen database

[Excel tidak termasuk dong...]

* iya, Excel tidak termasuk...
so what ?
trus gak mau pakai Excel ?
trus pake Excel gak bisa efisien ?

plis deh...


Kembali ke kasus data yang banyak sekali ya....

1. simpan data di sebuah database (bagusnya disebut yang lebih tepat ya, yaitu DBMS). Misal, disimpan di dalam MS Access, MS SQL Server, Oracle, MySQL, dsb.

> MS SQL Server punya versi yang free bernama MS SQL Server Express dengan makasimal size per db file adalag 10GB (bisa berpuluh juta records nih per file).

> Mengolah data dengan DBMS antar database (db file sekalipun) jauh lebih cepat dibanding antar kolom dalam sebuah sheet pada workbook yang sama di Excel.

2. susun proses pengolahan data di DBMS tersebut, setidaknya sampai pada kondisi didapatkannya suatu recordset (sebut dulu tabel deh) yang sudah bisa diolah Excel

3. minta Excel untuk mengambil recordset hasil nomor 2 tadi. -> fitur Get External Data yang bekerja

4. olah di Excel dengan segala kemampuan yang ada

5. [bila perlu] buat sebuah proses otomasi dari pengambilan data sampai ujung terkahirnya (report, summary, printout, dsb) di Excel.



*** Yup, nomor 3,4,5 menunjukkan bahwa Excel sekedar tools. Kalau lingkungannya bukan Excel, maka nomor 3,4,5 disesuaikan dengan lingkungan tersebut ***



Artinya :

a. Excel gak usah repot-repot ngloop sana sini, nyusun formula begini begitu untuk mengolah data yang begitu banyak, karena gak akan bisa cepat.

> DBMS mengolah data 5juta record dalam waktu 60 detik itu sudah perlu perbaikan atau mengoptimasi proses, alias sudah mulai gak wajar dialamnya.
Artinya si user DBMS yang perlu belajar lagi.

waktu kurang dari 5 detik. Kalau gak percaya, coba saja, lah wong ini cuma dugaan kok. Malah mestinya sekitar 1 detik sekian micro detik.

b. Penyimpanan dan pengolahan data awalnya diserahkan pada ahlinya, yaitu DBMS.

> Kalau untuk data seperti contoh di atas (si perusahaan tadi), kalau kasus C butuh rentang 40 tahun atau sekitar 8juta records, DBMS biasanya bisa mengolahnya dalam c. Manfaatkan hasil kerja si ahli pada lingkungan kerja yang dikenal dan dipahami, dalam milis ini berarti pakai Excel.

> Nah ini, ketika sudah kembali ke Excel, untuk ambil data hasil kerja DBMS yang total records nya mencapai 5juta records misalnya, bisa jadi butuh waktu sekitar 1 menit atau lebih.

> Tapi, kalau record hasil kerja ahlinya (si DBMS) cuma 1 atau 2 juta records, paling Excel butuh 5 sampai 10 detik juga kelar.



*** membuat/membangun gedung kantor bertingkat butuh ahli pembuat kaca untuk menghasilkan kaca jendela bukan ?

*** tukang bangunan dan arsiteknya cuma tinggal milih kaca mana yang pas untuk gedung itu, lalu dipasang deh dengan segala teknik pertukangan supaya si kaca gedung tidak lepas atau jatuh.




Demikian kira-kiranya...



Regards,

Kid







2017-03-12 16:10 GMT+07:00 lkm jktind lkmjktind@gmail.com mailto:lkmjktind@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com >:

File excelku : saat ini 880511 baris (row) sekitar 88 Mb


excel : versi 2010 : 64 bit


sepengetahuan ku --- jumlah row mak : 1 juta .


antisipasi untuk masa mendatang .


Mana yg lebih cepat.
dengan pilihan dibawah ini :


A . di bagi beberap sheet ( data pertahun )

B dibeagi beberapa file (data per tahun)


C. apakah ada solusi lain nya .



Salam



Lukman

Reply to sender . Reply to group . Reply via Web Post . All Messages (17) . Top ^

============================================================
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
---------------------------------------------------------------------

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use