[belajar-excel] Macro Gabung Sheet

classic Classic list List threaded Threaded
19 messages Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] Macro Gabung Sheet

Milis Belajar Excel mailing list
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 | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Macro Gabung Sheet

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

Sent from Yahoo Mail on Android
 
  On Wed, Mar 22, 2017 at 14:37, [hidden email] [belajar-excel]<[hidden email]> wrote:      


Yth. Pakar Excel




Mohon bantuannya ,




Saya dapat barisan code macro berikut (dari milis ini juga) :




Sub Gabung()

    Dim rngGabung As Range

    Dim sh As Worksheet

    Dim rngsh As Range

    Dim brs As Long

    Set rngGabung = Sheets("Gabung").Range("A2").CurrentRegion

    Set rngGabung = rngGabung.Offset(1, 0).Resize(rngGabung.Rows.Count - 1)

    Application.ScreenUpdating = False

    

    rngGabung.ClearContents

    

    For Each sh In Worksheets

        If sh.Name <> "Gabung" Then

            If sh.Name <> "nim_nama" Then

                If sh.Name <> "a2" Then

                    If sh.Name <> "pivot_table" Then

                        Set rngsh = sh.Range("A2").CurrentRegion

                        Set rngsh = rngsh.Offset(1, 0).Resize(rngsh.Rows.Count - 1)

                        brs = WorksheetFunction.CountA(Sheets("Gabung").Columns("A:A"))

                        rngsh.Copy Sheets("Gabung").Range("A" & brs + 1)

                    End If

                End If

            End If

        End If

    Next sh

    

    Application.CutCopyMode = False

    Application.ScreenUpdating = True

End Sub




Barisan code macro tersebut jika diterapkan hasilnya "copy paste" .. 

keinginan saya bagaimana biar hasilnya "copy VALUE" saja, mohon bantuannya merevisi barisan code macro tersebut ..




Terima kasih




ari 




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

Re: [belajar-excel] Macro Gabung Sheet

Milis Belajar Excel mailing list
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 [hidden email]
[belajar-excel] <[hidden email]> 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 | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Macro Gabung Sheet [1 Attachment]

Milis Belajar Excel mailing list
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 [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:


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


Sent from Yahoo Mail on Android


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






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



re_gabung_data__Sheet_tertentu (1).xls (95K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Macro Gabung Sheet

Milis Belajar Excel mailing list
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 [hidden email] [belajar-excel]" <[hidden email]>
 To: [hidden email]
 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 [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:

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

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

   
   

 

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

   
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Macro Gabung Sheet

Milis Belajar Excel mailing list
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 [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel]" <[hidden email]>
 To: [hidden email]
 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 [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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 | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Macro Gabung Sheet

Milis Belajar Excel mailing list
Yang ini sudah dilakukan >> Pada Sheet Gabung sel K1 tulis formula ini =COUNTA(A:A) ?

Salam,HK
      From: "Eira I Arie [hidden email] [belajar-excel]" <[hidden email]>
 To: [hidden email]
 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 [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel]" <[hidden email]>
 To: [hidden email]
 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 [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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 | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Macro Gabung Sheet

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
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 [hidden email]
[belajar-excel] <[hidden email]> 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 [hidden email]
> [belajar-excel]" <[hidden email]> 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 [hidden email]
> [belajar-excel] <[hidden email]> 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 | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Macro Gabung Sheet

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
Yth. Pak HK 
formula counta di sell K1 sudah dilakukan


    On Friday, March 24, 2017 10:07 AM, "hendrik karnadi [hidden email] [belajar-excel]" <[hidden email]> wrote:



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


Salam,HK
      From: "Eira I Arie [hidden email] [belajar-excel]" <[hidden email]>
 To: [hidden email]
 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 [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel]" <[hidden email]>
 To: [hidden email]
 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 [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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 | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Macro Gabung Sheet [1 Attachment]

Milis Belajar Excel mailing list
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 [hidden email] [belajar-excel]" <[hidden email]>
 To: [hidden email]
 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 [hidden email] [belajar-excel]" <[hidden email]> wrote:
 

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

Salam,HK
      From: "Eira I Arie [hidden email] [belajar-excel]" <[hidden email]>
 To: [hidden email]
 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 [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel]" <[hidden email]>
 To: [hidden email]
 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 [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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

   

re_gabung_data__Sheet_tertentu.xls (98K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] Code vba membuat visible false untuk beberapa textbox dan label

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
Salam Be Exceller
Misal di userform ada beberapa textbox dan label yang tag nya dikasih nilai "xx" dan beberapa textbox dan beberapa label tidak dikasih nilai tag.
Bagaimana sintax dari code for each next untuk membuat visible false ketika tombol di klik pada beberapa textbox dan label yg tagnya bernilai "xx'"?
Terima kasih atas bantuannya.
SalamTio
 
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Code vba membuat visible false untuk beberapa textbox dan label

Milis Belajar Excel mailing list
Hai Tio,

Langkah 1 :
> Properti bernama '(Name)' dari setiap textbox yang akan di-loop diberi
nama dengan prefix tertentu, seperti txtXX01, txtXX02, dst
> Jadi, ada identifier setiap textbox control di 5 karakter pertama
properti '(Name)' berbunyi sesuatu yang khas menurut kelompoknya.

Langkah 2 :
> pada event Click milik sebuah commandbutton control diisi dengan proses
loop terhadap seluruh controls, seperti ini :
        dim oCtl as object
        for each octl in me.controls
              if typename(lcase(octl.name))="textbox" then
                    if left(lcase(octl.name),5)="txtxx" then
                        octl.visible=false
                    endif
              endif
        next octl

Regards,
Kid






2017-03-26 15:56 GMT+07:00 Tio Ali [hidden email] [belajar-excel] <
[hidden email]>:

>
>
> Salam Be Exceller
>
> Misal di userform ada beberapa textbox dan label yang tag nya dikasih
> nilai "xx" dan beberapa textbox dan beberapa label tidak dikasih nilai tag.
>
> Bagaimana sintax dari code for each next untuk membuat visible false
> ketika tombol di klik pada beberapa textbox dan label yg tagnya bernilai
> "xx'"?
>
> Terima kasih atas bantuannya.
>
> Salam
> Tio
>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

RE: [belajar-excel] Code vba membuat visible false untuk beberapa textbox dan label [1 Attachment]

Milis Belajar Excel mailing list
Salam Mr.Kid dan teman-teman,
Saya sudah mencoba dengan membuat contoh seperti code vba yang Mr. Kid berikan, tapi belum ada reaksi. Apakah ada yang kurang dari code vba saya ya ?
Saya hanya merubah txtxx menjadi temp.

Contoh terlampir.

Regards,
Tio

From: [hidden email] [mailto:[hidden email]]
Sent: Sunday, March 26, 2017 9:10 PM
To: BeExcel
Subject: Re: [belajar-excel] Code vba membuat visible false untuk beberapa textbox dan label


Hai Tio,
Langkah 1 :
> Properti bernama '(Name)' dari setiap textbox yang akan di-loop diberi nama dengan prefix tertentu, seperti txtXX01, txtXX02, dst
> Jadi, ada identifier setiap textbox control di 5 karakter pertama properti '(Name)' berbunyi sesuatu yang khas menurut kelompoknya.
Langkah 2 :
> pada event Click milik sebuah commandbutton control diisi dengan proses loop terhadap seluruh controls, seperti ini :
        dim oCtl as object
        for each octl in me.controls
              if typename(lcase(octl.name<http://octl.name>))="textbox" then
                    if left(lcase(octl.name<http://octl.name>),5)="txtxx" then
                        octl.visible=false
                    endif
              endif
        next octl

Regards,
Kid





2017-03-26 15:56 GMT+07:00 Tio Ali [hidden email]<mailto:[hidden email]> [belajar-excel] <[hidden email]<mailto:[hidden email]>>:

Salam Be Exceller

Misal di userform ada beberapa textbox dan label yang tag nya dikasih nilai "xx" dan beberapa textbox dan beberapa label tidak dikasih nilai tag.

Bagaimana sintax dari code for each next untuk membuat visible false ketika tombol di klik pada beberapa textbox dan label yg tagnya bernilai "xx'"?

Terima kasih atas bantuannya.

Salam
Tio



image001.jpg (582 bytes) Download Attachment
image002.jpg (496 bytes) Download Attachment
image003.jpg (458 bytes) Download Attachment
contoh.xlsm (228K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Code vba membuat visible false untuk beberapa textbox dan label

Milis Belajar Excel mailing list
Oh sorry, ada yang keliru :
               if typename(lcase(octl.name))="textbox" then

harusnya :
               if lcase(typename(octl <http://octl.name>))="textbox" then

2017-03-27 15:10 GMT+07:00 Tio Adi Bayu Adjie [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Salam Mr.Kid dan teman-teman,
>
> Saya sudah mencoba dengan membuat contoh seperti code vba yang Mr. Kid
> berikan, tapi belum ada reaksi. Apakah ada yang kurang dari code vba saya
> ya ?
>
> Saya hanya merubah txtxx menjadi temp.
>
>
>
> Contoh terlampir.
>
>
>
> Regards,
>
> Tio
>
>
>
> *From:* [hidden email] [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* Sunday, March 26, 2017 9:10 PM
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Code vba membuat visible false untuk
> beberapa textbox dan label
>
>
>
>
>
> Hai Tio,
>
> Langkah 1 :
>
> > Properti bernama '(Name)' dari setiap textbox yang akan di-loop diberi
> nama dengan prefix tertentu, seperti txtXX01, txtXX02, dst
>
> > Jadi, ada identifier setiap textbox control di 5 karakter pertama
> properti '(Name)' berbunyi sesuatu yang khas menurut kelompoknya.
>
> Langkah 2 :
>
> > pada event Click milik sebuah commandbutton control diisi dengan proses
> loop terhadap seluruh controls, seperti ini :
>
>         dim oCtl as object
>
>         for each octl in me.controls
>
>               if typename(lcase(octl.name))="textbox" then
>
>                     if left(lcase(octl.name),5)="txtxx" then
>
>                         octl.visible=false
>
>                     endif
>
>               endif
>         next octl
>
>
>
> Regards,
>
> Kid
>
>
>
>
>
>
>
> 2017-03-26 15:56 GMT+07:00 Tio Ali [hidden email] [belajar-excel]
> <[hidden email]>:
>
>
>
> Salam Be Exceller
>
>
>
> Misal di userform ada beberapa textbox dan label yang tag nya dikasih
> nilai "xx" dan beberapa textbox dan beberapa label tidak dikasih nilai tag.
>
>
>
> Bagaimana sintax dari code for each next untuk membuat visible false
> ketika tombol di klik pada beberapa textbox dan label yg tagnya bernilai
> "xx'"?
>
>
>
> Terima kasih atas bantuannya.
>
>
>
> Salam
>
> Tio
>
>
>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

RE: [belajar-excel] Code vba membuat visible false untuk beberapa textbox dan label

Milis Belajar Excel mailing list
Berhasil Mr. Kid.
Terima kasih Mr. Kid, semoga Tuhan membalas kebaikan Mr.Kid dengan pahala yang lebih baik. Amiin…

Regards,
Tio

From: [hidden email] [mailto:[hidden email]]
Sent: Tuesday, March 28, 2017 7:12 PM
To: BeExcel
Subject: Re: [belajar-excel] Code vba membuat visible false untuk beberapa textbox dan label


Oh sorry, ada yang keliru :
               if typename(lcase(octl.name<http://octl.name>))="textbox" then
harusnya :
               if lcase(typename(octl<http://octl.name>))="textbox" then

2017-03-27 15:10 GMT+07:00 Tio Adi Bayu Adjie [hidden email]<mailto:[hidden email]> [belajar-excel] <[hidden email]<mailto:[hidden email]>>:

Salam Mr.Kid dan teman-teman,
Saya sudah mencoba dengan membuat contoh seperti code vba yang Mr. Kid berikan, tapi belum ada reaksi. Apakah ada yang kurang dari code vba saya ya ?
Saya hanya merubah txtxx menjadi temp.

Contoh terlampir.

Regards,
Tio

From: [hidden email]<mailto:[hidden email]> [mailto:[hidden email]<mailto:[hidden email]>]
Sent: Sunday, March 26, 2017 9:10 PM
To: BeExcel
Subject: Re: [belajar-excel] Code vba membuat visible false untuk beberapa textbox dan label


Hai Tio,
Langkah 1 :
> Properti bernama '(Name)' dari setiap textbox yang akan di-loop diberi nama dengan prefix tertentu, seperti txtXX01, txtXX02, dst
> Jadi, ada identifier setiap textbox control di 5 karakter pertama properti '(Name)' berbunyi sesuatu yang khas menurut kelompoknya.
Langkah 2 :
> pada event Click milik sebuah commandbutton control diisi dengan proses loop terhadap seluruh controls, seperti ini :
        dim oCtl as object
        for each octl in me.controls
              if typename(lcase(octl.name<http://octl.name>))="textbox" then
                    if left(lcase(octl.name<http://octl.name>),5)="txtxx" then
                        octl.visible=false
                    endif
              endif
        next octl

Regards,
Kid




2017-03-26 15:56 GMT+07:00 Tio Ali [hidden email]<mailto:[hidden email]> [belajar-excel] <[hidden email]<mailto:[hidden email]>>:

Salam Be Exceller

Misal di userform ada beberapa textbox dan label yang tag nya dikasih nilai "xx" dan beberapa textbox dan beberapa label tidak dikasih nilai tag.

Bagaimana sintax dari code for each next untuk membuat visible false ketika tombol di klik pada beberapa textbox dan label yg tagnya bernilai "xx'"?

Terima kasih atas bantuannya.

Salam
Tio




image001.jpg (582 bytes) Download Attachment
image002.jpg (496 bytes) Download Attachment
image003.jpg (458 bytes) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Macro Gabung Sheet

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
Yth. Mr. Kid
Langkah arahan Mr. Kid sudah saya lakukan :
   - Langkah 1 = sudah dilakukan
   - Langkah 2 = baris record semua sudah di hapus tetapi menyisakan baris record kosong excel table (selain header)
   - Langkah 3 = sudah dilakukan
   - Langkah 4 = sudah dilakukan dengan macro copasvalues contoh 2
   - Langkah 5 = sudah dilakukan


Problemnya :
   - Saat proses gabung, baris record hasil gabung mulai muncul di A3 (setelah sisa satu baris record kosong excel table yang dihapus pada langkah 2) - Jadi, hasil gabung tidak menempati excel table ..
   - Saat proses hapus, terjadi debug .. tetapi jika record hasil gabung saya tempatkan manual di excel table (mulai A2 atau setelah header excel table) maka, proses hapus berjalan sukses ..


Sekian Mr. Kid, mohon solusinya.Terima kasih


    On Friday, March 24, 2017 10:18 AM, "'Mr. Kid' [hidden email] [belajar-excel]" <[hidden email]> wrote:



     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 [hidden email] [belajar-excel] <[hidden email]> 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 :
   - 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 [hidden email] [belajar-excel]" <[hidden email] > 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 [hidden email] [belajar-excel] <[hidden email] > 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 












  #yiv8975666513 #yiv8975666513 -- #yiv8975666513ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8975666513 #yiv8975666513ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8975666513 #yiv8975666513ygrp-mkp #yiv8975666513hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8975666513 #yiv8975666513ygrp-mkp #yiv8975666513ads {margin-bottom:10px;}#yiv8975666513 #yiv8975666513ygrp-mkp .yiv8975666513ad {padding:0 0;}#yiv8975666513 #yiv8975666513ygrp-mkp .yiv8975666513ad p {margin:0;}#yiv8975666513 #yiv8975666513ygrp-mkp .yiv8975666513ad a {color:#0000ff;text-decoration:none;}#yiv8975666513 #yiv8975666513ygrp-sponsor #yiv8975666513ygrp-lc {font-family:Arial;}#yiv8975666513 #yiv8975666513ygrp-sponsor #yiv8975666513ygrp-lc #yiv8975666513hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8975666513 #yiv8975666513ygrp-sponsor #yiv8975666513ygrp-lc .yiv8975666513ad {margin-bottom:10px;padding:0 0;}#yiv8975666513 #yiv8975666513actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8975666513 #yiv8975666513activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8975666513 #yiv8975666513activity span {font-weight:700;}#yiv8975666513 #yiv8975666513activity span:first-child {text-transform:uppercase;}#yiv8975666513 #yiv8975666513activity span a {color:#5085b6;text-decoration:none;}#yiv8975666513 #yiv8975666513activity span span {color:#ff7900;}#yiv8975666513 #yiv8975666513activity span .yiv8975666513underline {text-decoration:underline;}#yiv8975666513 .yiv8975666513attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8975666513 .yiv8975666513attach div a {text-decoration:none;}#yiv8975666513 .yiv8975666513attach img {border:none;padding-right:5px;}#yiv8975666513 .yiv8975666513attach label {display:block;margin-bottom:5px;}#yiv8975666513 .yiv8975666513attach label a {text-decoration:none;}#yiv8975666513 blockquote {margin:0 0 0 4px;}#yiv8975666513 .yiv8975666513bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8975666513 .yiv8975666513bold a {text-decoration:none;}#yiv8975666513 dd.yiv8975666513last p a {font-family:Verdana;font-weight:700;}#yiv8975666513 dd.yiv8975666513last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8975666513 dd.yiv8975666513last p span.yiv8975666513yshortcuts {margin-right:0;}#yiv8975666513 div.yiv8975666513attach-table div div a {text-decoration:none;}#yiv8975666513 div.yiv8975666513attach-table {width:400px;}#yiv8975666513 div.yiv8975666513file-title a, #yiv8975666513 div.yiv8975666513file-title a:active, #yiv8975666513 div.yiv8975666513file-title a:hover, #yiv8975666513 div.yiv8975666513file-title a:visited {text-decoration:none;}#yiv8975666513 div.yiv8975666513photo-title a, #yiv8975666513 div.yiv8975666513photo-title a:active, #yiv8975666513 div.yiv8975666513photo-title a:hover, #yiv8975666513 div.yiv8975666513photo-title a:visited {text-decoration:none;}#yiv8975666513 div#yiv8975666513ygrp-mlmsg #yiv8975666513ygrp-msg p a span.yiv8975666513yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8975666513 .yiv8975666513green {color:#628c2a;}#yiv8975666513 .yiv8975666513MsoNormal {margin:0 0 0 0;}#yiv8975666513 o {font-size:0;}#yiv8975666513 #yiv8975666513photos div {float:left;width:72px;}#yiv8975666513 #yiv8975666513photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv8975666513 #yiv8975666513photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8975666513 #yiv8975666513reco-category {font-size:77%;}#yiv8975666513 #yiv8975666513reco-desc {font-size:77%;}#yiv8975666513 .yiv8975666513replbq {margin:4px;}#yiv8975666513 #yiv8975666513ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8975666513 #yiv8975666513ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8975666513 #yiv8975666513ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8975666513 #yiv8975666513ygrp-mlmsg select, #yiv8975666513 input, #yiv8975666513 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8975666513 #yiv8975666513ygrp-mlmsg pre, #yiv8975666513 code {font:115% monospace;}#yiv8975666513 #yiv8975666513ygrp-mlmsg * {line-height:1.22em;}#yiv8975666513 #yiv8975666513ygrp-mlmsg #yiv8975666513logo {padding-bottom:10px;}#yiv8975666513 #yiv8975666513ygrp-msg p a {font-family:Verdana;}#yiv8975666513 #yiv8975666513ygrp-msg p#yiv8975666513attach-count span {color:#1E66AE;font-weight:700;}#yiv8975666513 #yiv8975666513ygrp-reco #yiv8975666513reco-head {color:#ff7900;font-weight:700;}#yiv8975666513 #yiv8975666513ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8975666513 #yiv8975666513ygrp-sponsor #yiv8975666513ov li a {font-size:130%;text-decoration:none;}#yiv8975666513 #yiv8975666513ygrp-sponsor #yiv8975666513ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8975666513 #yiv8975666513ygrp-sponsor #yiv8975666513ov ul {margin:0;padding:0 0 0 8px;}#yiv8975666513 #yiv8975666513ygrp-text {font-family:Georgia;}#yiv8975666513 #yiv8975666513ygrp-text p {margin:0 0 1em 0;}#yiv8975666513 #yiv8975666513ygrp-text tt {font-size:120%;}#yiv8975666513 #yiv8975666513ygrp-vital ul li:last-child {border-right:none !important;}#yiv8975666513


Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Macro Gabung Sheet

Milis Belajar Excel mailing list
Hai Arie,
Kalo ga salah saya juga ada kirim email (file revisi) tgl 24 Maret.Sdh dicoba ?
Salam,HK

      From: "Eira I Arie [hidden email] [belajar-excel]" <[hidden email]>
 To: [hidden email]
 Sent: Friday, 31 March 2017, 15:10
 Subject: Re: [belajar-excel] Macro Gabung Sheet
   
    Yth. Mr. Kid
Langkah arahan Mr. Kid sudah saya lakukan :  
   - Langkah 1 = sudah dilakukan
   - Langkah 2 = baris record semua sudah di hapus tetapi menyisakan baris record kosong excel table (selain header)
   - Langkah 3 = sudah dilakukan
   - Langkah 4 = sudah dilakukan dengan macro copasvalues contoh 2
   - Langkah 5 = sudah dilakukan

Problemnya :  
   - Saat proses gabung, baris record hasil gabung mulai muncul di A3 (setelah sisa satu baris record kosong excel table yang dihapus pada langkah 2) - Jadi, hasil gabung tidak menempati excel table ..
   - Saat proses hapus, terjadi debug .. tetapi jika record hasil gabung saya tempatkan manual di excel table (mulai A2 atau setelah header excel table) maka, proses hapus berjalan sukses ..

Sekian Mr. Kid, mohon solusinya.Terima kasih

    On Friday, March 24, 2017 10:18 AM, "'Mr. Kid' [hidden email] [belajar-excel]" <[hidden email]> wrote:
 

     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 [hidden email] [belajar-excel] <[hidden email]> 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 :  
   - 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 [hidden email] [belajar-excel]" <[hidden email] > 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 [hidden email] [belajar-excel] <[hidden email] > 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 

   
   

 

     

 

     #yiv9192554840 #yiv9192554840 -- #yiv9192554840ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9192554840 #yiv9192554840ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9192554840 #yiv9192554840ygrp-mkp #yiv9192554840hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9192554840 #yiv9192554840ygrp-mkp #yiv9192554840ads {margin-bottom:10px;}#yiv9192554840 #yiv9192554840ygrp-mkp .yiv9192554840ad {padding:0 0;}#yiv9192554840 #yiv9192554840ygrp-mkp .yiv9192554840ad p {margin:0;}#yiv9192554840 #yiv9192554840ygrp-mkp .yiv9192554840ad a {color:#0000ff;text-decoration:none;}#yiv9192554840 #yiv9192554840ygrp-sponsor #yiv9192554840ygrp-lc {font-family:Arial;}#yiv9192554840 #yiv9192554840ygrp-sponsor #yiv9192554840ygrp-lc #yiv9192554840hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9192554840 #yiv9192554840ygrp-sponsor #yiv9192554840ygrp-lc .yiv9192554840ad {margin-bottom:10px;padding:0 0;}#yiv9192554840 #yiv9192554840actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9192554840 #yiv9192554840activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9192554840 #yiv9192554840activity span {font-weight:700;}#yiv9192554840 #yiv9192554840activity span:first-child {text-transform:uppercase;}#yiv9192554840 #yiv9192554840activity span a {color:#5085b6;text-decoration:none;}#yiv9192554840 #yiv9192554840activity span span {color:#ff7900;}#yiv9192554840 #yiv9192554840activity span .yiv9192554840underline {text-decoration:underline;}#yiv9192554840 .yiv9192554840attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9192554840 .yiv9192554840attach div a {text-decoration:none;}#yiv9192554840 .yiv9192554840attach img {border:none;padding-right:5px;}#yiv9192554840 .yiv9192554840attach label {display:block;margin-bottom:5px;}#yiv9192554840 .yiv9192554840attach label a {text-decoration:none;}#yiv9192554840 blockquote {margin:0 0 0 4px;}#yiv9192554840 .yiv9192554840bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9192554840 .yiv9192554840bold a {text-decoration:none;}#yiv9192554840 dd.yiv9192554840last p a {font-family:Verdana;font-weight:700;}#yiv9192554840 dd.yiv9192554840last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9192554840 dd.yiv9192554840last p span.yiv9192554840yshortcuts {margin-right:0;}#yiv9192554840 div.yiv9192554840attach-table div div a {text-decoration:none;}#yiv9192554840 div.yiv9192554840attach-table {width:400px;}#yiv9192554840 div.yiv9192554840file-title a, #yiv9192554840 div.yiv9192554840file-title a:active, #yiv9192554840 div.yiv9192554840file-title a:hover, #yiv9192554840 div.yiv9192554840file-title a:visited {text-decoration:none;}#yiv9192554840 div.yiv9192554840photo-title a, #yiv9192554840 div.yiv9192554840photo-title a:active, #yiv9192554840 div.yiv9192554840photo-title a:hover, #yiv9192554840 div.yiv9192554840photo-title a:visited {text-decoration:none;}#yiv9192554840 div#yiv9192554840ygrp-mlmsg #yiv9192554840ygrp-msg p a span.yiv9192554840yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9192554840 .yiv9192554840green {color:#628c2a;}#yiv9192554840 .yiv9192554840MsoNormal {margin:0 0 0 0;}#yiv9192554840 o {font-size:0;}#yiv9192554840 #yiv9192554840photos div {float:left;width:72px;}#yiv9192554840 #yiv9192554840photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9192554840 #yiv9192554840photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9192554840 #yiv9192554840reco-category {font-size:77%;}#yiv9192554840 #yiv9192554840reco-desc {font-size:77%;}#yiv9192554840 .yiv9192554840replbq {margin:4px;}#yiv9192554840 #yiv9192554840ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9192554840 #yiv9192554840ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9192554840 #yiv9192554840ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9192554840 #yiv9192554840ygrp-mlmsg select, #yiv9192554840 input, #yiv9192554840 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9192554840 #yiv9192554840ygrp-mlmsg pre, #yiv9192554840 code {font:115% monospace;}#yiv9192554840 #yiv9192554840ygrp-mlmsg * {line-height:1.22em;}#yiv9192554840 #yiv9192554840ygrp-mlmsg #yiv9192554840logo {padding-bottom:10px;}#yiv9192554840 #yiv9192554840ygrp-msg p a {font-family:Verdana;}#yiv9192554840 #yiv9192554840ygrp-msg p#yiv9192554840attach-count span {color:#1E66AE;font-weight:700;}#yiv9192554840 #yiv9192554840ygrp-reco #yiv9192554840reco-head {color:#ff7900;font-weight:700;}#yiv9192554840 #yiv9192554840ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9192554840 #yiv9192554840ygrp-sponsor #yiv9192554840ov li a {font-size:130%;text-decoration:none;}#yiv9192554840 #yiv9192554840ygrp-sponsor #yiv9192554840ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9192554840 #yiv9192554840ygrp-sponsor #yiv9192554840ov ul {margin:0;padding:0 0 0 8px;}#yiv9192554840 #yiv9192554840ygrp-text {font-family:Georgia;}#yiv9192554840 #yiv9192554840ygrp-text p {margin:0 0 1em 0;}#yiv9192554840 #yiv9192554840ygrp-text tt {font-size:120%;}#yiv9192554840 #yiv9192554840ygrp-vital ul li:last-child {border-right:none !important;}#yiv9192554840

   
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Macro Gabung Sheet

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
Berarti tinggal kondisi ketika Excel table masih kosong bukan ?

1. Tepat dibawah baris dim, sisipi dengan baris kode berikut :
dim lAdaIsi as long
lAdaIsi=abs( len( sheets("nama sheet gabung").range("a2").value ) <> 0 )

2. Sebelum masukkan proses delete (baris kode delete) ke dalam blok if
berikut :
if ladaisi<>0 then
     'letakkan baris delete disini
endif

3. pada baris kode paste values, bunyi :
     .end(xlup).offset(1).blabla
diubah menjadi :
     .end(xlup).offset( lAdaIsi  ).blabla

Regards,
Kid


2017-03-31 15:01 GMT+07:00 Eira I Arie [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Yth. Mr. Kid
>
> Langkah arahan Mr. Kid sudah saya lakukan :
>
>    1. Langkah 1 = sudah dilakukan
>    2. Langkah 2 = baris record semua sudah di hapus tetapi menyisakan
>    baris record kosong excel table (selain header)
>    3. Langkah 3 = sudah dilakukan
>    4. Langkah 4 = sudah dilakukan dengan macro copasvalues contoh 2
>    5. Langkah 5 = sudah dilakukan
>
>
> Problemnya :
>
>    1. Saat proses gabung, baris record hasil gabung mulai muncul di A3
>    (setelah sisa satu baris record kosong excel table yang dihapus pada
>    langkah 2) - Jadi, hasil gabung tidak menempati excel table ..
>    2. Saat proses hapus, terjadi debug .. tetapi jika record hasil gabung
>    saya tempatkan manual di excel table (mulai A2 atau setelah header excel
>    table) maka, proses hapus berjalan sukses ..
>
>
> Sekian Mr. Kid, mohon solusinya.
> Terima kasih
>
>
> On Friday, March 24, 2017 10:18 AM, "'Mr. Kid' [hidden email]
> [belajar-excel]" <[hidden email]> wrote:
>
>
>
> 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 [hidden email]
> [belajar-excel] <[hidden email]> 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 [hidden email]
> [belajar-excel]" <[hidden email] > 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 [hidden email]
> [belajar-excel] <[hidden email] > 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 | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Macro Gabung Sheet

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
Yth. Pak HK .. sudah saya coba file dari bapak .. berhasil .. terima kasihYth. Mr. Kid .. terima kasih , akan dicoba


    On Friday, March 31, 2017 4:03 PM, "hendrik karnadi [hidden email] [belajar-excel]" <[hidden email]> wrote:



     Hai Arie,
Kalo ga salah saya juga ada kirim email (file revisi) tgl 24 Maret.Sdh dicoba ?
Salam,HK


      From: "Eira I Arie [hidden email] [belajar-excel]" <[hidden email]>
 To: [hidden email]
 Sent: Friday, 31 March 2017, 15:10
 Subject: Re: [belajar-excel] Macro Gabung Sheet

    Yth. Mr. Kid
Langkah arahan Mr. Kid sudah saya lakukan :
   - Langkah 1 = sudah dilakukan
   - Langkah 2 = baris record semua sudah di hapus tetapi menyisakan baris record kosong excel table (selain header)
   - Langkah 3 = sudah dilakukan
   - Langkah 4 = sudah dilakukan dengan macro copasvalues contoh 2
   - Langkah 5 = sudah dilakukan


Problemnya :
   - Saat proses gabung, baris record hasil gabung mulai muncul di A3 (setelah sisa satu baris record kosong excel table yang dihapus pada langkah 2) - Jadi, hasil gabung tidak menempati excel table ..
   - Saat proses hapus, terjadi debug .. tetapi jika record hasil gabung saya tempatkan manual di excel table (mulai A2 atau setelah header excel table) maka, proses hapus berjalan sukses ..


Sekian Mr. Kid, mohon solusinya.Terima kasih


    On Friday, March 24, 2017 10:18 AM, "'Mr. Kid' [hidden email] [belajar-excel]" <[hidden email]> wrote:



     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 [hidden email] [belajar-excel] <[hidden email]> 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 :
   - 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 [hidden email] [belajar-excel]" <[hidden email] > 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 [hidden email] [belajar-excel] <[hidden email] > 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 


















     #yiv5235546321 #yiv5235546321 -- #yiv5235546321ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5235546321 #yiv5235546321ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5235546321 #yiv5235546321ygrp-mkp #yiv5235546321hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5235546321 #yiv5235546321ygrp-mkp #yiv5235546321ads {margin-bottom:10px;}#yiv5235546321 #yiv5235546321ygrp-mkp .yiv5235546321ad {padding:0 0;}#yiv5235546321 #yiv5235546321ygrp-mkp .yiv5235546321ad p {margin:0;}#yiv5235546321 #yiv5235546321ygrp-mkp .yiv5235546321ad a {color:#0000ff;text-decoration:none;}#yiv5235546321 #yiv5235546321ygrp-sponsor #yiv5235546321ygrp-lc {font-family:Arial;}#yiv5235546321 #yiv5235546321ygrp-sponsor #yiv5235546321ygrp-lc #yiv5235546321hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5235546321 #yiv5235546321ygrp-sponsor #yiv5235546321ygrp-lc .yiv5235546321ad {margin-bottom:10px;padding:0 0;}#yiv5235546321 #yiv5235546321actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5235546321 #yiv5235546321activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5235546321 #yiv5235546321activity span {font-weight:700;}#yiv5235546321 #yiv5235546321activity span:first-child {text-transform:uppercase;}#yiv5235546321 #yiv5235546321activity span a {color:#5085b6;text-decoration:none;}#yiv5235546321 #yiv5235546321activity span span {color:#ff7900;}#yiv5235546321 #yiv5235546321activity span .yiv5235546321underline {text-decoration:underline;}#yiv5235546321 .yiv5235546321attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5235546321 .yiv5235546321attach div a {text-decoration:none;}#yiv5235546321 .yiv5235546321attach img {border:none;padding-right:5px;}#yiv5235546321 .yiv5235546321attach label {display:block;margin-bottom:5px;}#yiv5235546321 .yiv5235546321attach label a {text-decoration:none;}#yiv5235546321 blockquote {margin:0 0 0 4px;}#yiv5235546321 .yiv5235546321bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5235546321 .yiv5235546321bold a {text-decoration:none;}#yiv5235546321 dd.yiv5235546321last p a {font-family:Verdana;font-weight:700;}#yiv5235546321 dd.yiv5235546321last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5235546321 dd.yiv5235546321last p span.yiv5235546321yshortcuts {margin-right:0;}#yiv5235546321 div.yiv5235546321attach-table div div a {text-decoration:none;}#yiv5235546321 div.yiv5235546321attach-table {width:400px;}#yiv5235546321 div.yiv5235546321file-title a, #yiv5235546321 div.yiv5235546321file-title a:active, #yiv5235546321 div.yiv5235546321file-title a:hover, #yiv5235546321 div.yiv5235546321file-title a:visited {text-decoration:none;}#yiv5235546321 div.yiv5235546321photo-title a, #yiv5235546321 div.yiv5235546321photo-title a:active, #yiv5235546321 div.yiv5235546321photo-title a:hover, #yiv5235546321 div.yiv5235546321photo-title a:visited {text-decoration:none;}#yiv5235546321 div#yiv5235546321ygrp-mlmsg #yiv5235546321ygrp-msg p a span.yiv5235546321yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5235546321 .yiv5235546321green {color:#628c2a;}#yiv5235546321 .yiv5235546321MsoNormal {margin:0 0 0 0;}#yiv5235546321 o {font-size:0;}#yiv5235546321 #yiv5235546321photos div {float:left;width:72px;}#yiv5235546321 #yiv5235546321photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv5235546321 #yiv5235546321photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5235546321 #yiv5235546321reco-category {font-size:77%;}#yiv5235546321 #yiv5235546321reco-desc {font-size:77%;}#yiv5235546321 .yiv5235546321replbq {margin:4px;}#yiv5235546321 #yiv5235546321ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5235546321 #yiv5235546321ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5235546321 #yiv5235546321ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5235546321 #yiv5235546321ygrp-mlmsg select, #yiv5235546321 input, #yiv5235546321 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5235546321 #yiv5235546321ygrp-mlmsg pre, #yiv5235546321 code {font:115% monospace;}#yiv5235546321 #yiv5235546321ygrp-mlmsg * {line-height:1.22em;}#yiv5235546321 #yiv5235546321ygrp-mlmsg #yiv5235546321logo {padding-bottom:10px;}#yiv5235546321 #yiv5235546321ygrp-msg p a {font-family:Verdana;}#yiv5235546321 #yiv5235546321ygrp-msg p#yiv5235546321attach-count span {color:#1E66AE;font-weight:700;}#yiv5235546321 #yiv5235546321ygrp-reco #yiv5235546321reco-head {color:#ff7900;font-weight:700;}#yiv5235546321 #yiv5235546321ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5235546321 #yiv5235546321ygrp-sponsor #yiv5235546321ov li a {font-size:130%;text-decoration:none;}#yiv5235546321 #yiv5235546321ygrp-sponsor #yiv5235546321ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5235546321 #yiv5235546321ygrp-sponsor #yiv5235546321ov ul {margin:0;padding:0 0 0 8px;}#yiv5235546321 #yiv5235546321ygrp-text {font-family:Georgia;}#yiv5235546321 #yiv5235546321ygrp-text p {margin:0 0 1em 0;}#yiv5235546321 #yiv5235546321ygrp-text tt {font-size:120%;}#yiv5235546321 #yiv5235546321ygrp-vital ul li:last-child {border-right:none !important;}#yiv5235546321


Loading...