Kamis, 06 Agustus 2015

[belajar-excel] Digest Number 3529

11 Messages

Digest #3529

Messages

Wed Aug 5, 2015 5:48 am (PDT) . Posted by:

"Fahmi Syaifullah" fahmisyaifullah20

Dear pak aliif.

Alhamdulillah thanks pak Alif. 

Untuk selanjutnya mohon kiranya di confirm ke saya.. 

Bakal Meneganggkan nih :). 

Terimakasih

Fahmi

Dikirim dari Yahoo Mail pada Android

Wed Aug 5, 2015 7:35 am (PDT) . Posted by:

"Yayan Ajah"

Assalamu'alaikum Wr. Wb. 

Rekan-rekan B-Excel, 
Misal file excel saya bernama LaporanPenjualanJuli.xlsm 
Saya mohon bantuan untuk membuat macro save as file excel saya, yang saya inginkan adalah : 

- SaveAs dengan memunculkan kotak dialog SaveAs dan otomatis di file name sudah tertulis "LaporanPenjualan", sehingga saya tinggal menambahkan bulan nya saja. 

- Lokasi penyimpanan file yang di save as ini sama dengan file yang sebelumnya 

Mohon bantuan dari para rekan-rekan dan para master disini. 

Terima kasih 
Wassalamu'alaikum Wr. Wb 
-Yayan- 

Wed Aug 5, 2015 6:23 pm (PDT) . Posted by:

"Nang Agus"

Walaikum salam warahmatullah,

Coba cekkrip ini:

Option Explicit
Sub simpen()
Dim Jeneng As String
Dim Jenenge As Variant
Jeneng = "LaporanPenjualan"
Jenenge = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path
& "\" & Jeneng, fileFilter:="Excel Files (*.xlsm), *.xlsm")
If Jenenge <> False Then
ActiveWorkbook.SaveAs Jenenge
End If
End Sub

waqsalamualaikum warahmatullah

2015-08-05 18:19 GMT+07:00 Yayan Ajah erte_try@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Assalamu'alaikum Wr. Wb.
>
> Rekan-rekan B-Excel,
> Misal file excel saya bernama LaporanPenjualanJuli.xlsm
> Saya mohon bantuan untuk membuat macro save as file excel saya, yang saya
> inginkan adalah :
>
> - SaveAs dengan memunculkan kotak dialog SaveAs dan otomatis di file name
> sudah tertulis "LaporanPenjualan", sehingga saya tinggal menambahkan bulan
> nya saja.
>
> - Lokasi penyimpanan file yang di save as ini sama dengan file yang
> sebelumnya
>
> Mohon bantuan dari para rekan-rekan dan para master disini.
>
> Terima kasih
> Wassalamu'alaikum Wr. Wb
> -Yayan-
>
>
>

Wed Aug 5, 2015 7:41 pm (PDT) . Posted by:

"Yayan Ajah"

Terma kasih Mas Agus, cekrip nya sangat membantu sekali
Wassalam-Yayan-

Pada Kamis, 6 Agustus 2015 8:23, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Walaikum salam warahmatullah,

Coba cekkrip ini:

Option Explicit
Sub simpen()
Dim Jeneng As String
Dim Jenenge As Variant
Jeneng = "LaporanPenjualan"
Jenenge = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path & "\" & Jeneng, fileFilter:="Excel Files (*.xlsm), *.xlsm")
If Jenenge <> False Then
    ActiveWorkbook.SaveAs Jenenge
End If
End Sub

waqsalamualaikum warahmatullah

2015-08-05 18:19 GMT+07:00 Yayan Ajah erte_try@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

  Assalamu'alaikum Wr. Wb. 

Rekan-rekan B-Excel, 
Misal file excel saya bernama LaporanPenjualanJuli.xlsm 
Saya mohon bantuan untuk membuat macro save as file excel saya, yang saya inginkan adalah : 

- SaveAs dengan memunculkan kotak dialog SaveAs dan otomatis di file name sudah tertulis "LaporanPenjualan", sehingga saya tinggal menambahkan bulan nya saja. 

- Lokasi penyimpanan file yang di save as ini sama dengan file yang sebelumnya 

Mohon bantuan dari para rekan-rekan dan para master disini. 

Terima kasih 
Wassalamu'alaikum Wr. Wb 
-Yayan- 


#yiv9281520286 #yiv9281520286 -- #yiv9281520286ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9281520286 #yiv9281520286ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9281520286 #yiv9281520286ygrp-mkp #yiv9281520286hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9281520286 #yiv9281520286ygrp-mkp #yiv9281520286ads {margin-bottom:10px;}#yiv9281520286 #yiv9281520286ygrp-mkp .yiv9281520286ad {padding:0 0;}#yiv9281520286 #yiv9281520286ygrp-mkp .yiv9281520286ad p {margin:0;}#yiv9281520286 #yiv9281520286ygrp-mkp .yiv9281520286ad a {color:#0000ff;text-decoration:none;}#yiv9281520286 #yiv9281520286ygrp-sponsor #yiv9281520286ygrp-lc {font-family:Arial;}#yiv9281520286 #yiv9281520286ygrp-sponsor #yiv9281520286ygrp-lc #yiv9281520286hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9281520286 #yiv9281520286ygrp-sponsor #yiv9281520286ygrp-lc .yiv9281520286ad {margin-bottom:10px;padding:0 0;}#yiv9281520286 #yiv9281520286actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9281520286 #yiv9281520286activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9281520286 #yiv9281520286activity span {font-weight:700;}#yiv9281520286 #yiv9281520286activity span:first-child {text-transform:uppercase;}#yiv9281520286 #yiv9281520286activity span a {color:#5085b6;text-decoration:none;}#yiv9281520286 #yiv9281520286activity span span {color:#ff7900;}#yiv9281520286 #yiv9281520286activity span .yiv9281520286underline {text-decoration:underline;}#yiv9281520286 .yiv9281520286attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9281520286 .yiv9281520286attach div a {text-decoration:none;}#yiv9281520286 .yiv9281520286attach img {border:none;padding-right:5px;}#yiv9281520286 .yiv9281520286attach label {display:block;margin-bottom:5px;}#yiv9281520286 .yiv9281520286attach label a {text-decoration:none;}#yiv9281520286 blockquote {margin:0 0 0 4px;}#yiv9281520286 .yiv9281520286bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9281520286 .yiv9281520286bold a {text-decoration:none;}#yiv9281520286 dd.yiv9281520286last p a {font-family:Verdana;font-weight:700;}#yiv9281520286 dd.yiv9281520286last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9281520286 dd.yiv9281520286last p span.yiv9281520286yshortcuts {margin-right:0;}#yiv9281520286 div.yiv9281520286attach-table div div a {text-decoration:none;}#yiv9281520286 div.yiv9281520286attach-table {width:400px;}#yiv9281520286 div.yiv9281520286file-title a, #yiv9281520286 div.yiv9281520286file-title a:active, #yiv9281520286 div.yiv9281520286file-title a:hover, #yiv9281520286 div.yiv9281520286file-title a:visited {text-decoration:none;}#yiv9281520286 div.yiv9281520286photo-title a, #yiv9281520286 div.yiv9281520286photo-title a:active, #yiv9281520286 div.yiv9281520286photo-title a:hover, #yiv9281520286 div.yiv9281520286photo-title a:visited {text-decoration:none;}#yiv9281520286 div#yiv9281520286ygrp-mlmsg #yiv9281520286ygrp-msg p a span.yiv9281520286yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9281520286 .yiv9281520286green {color:#628c2a;}#yiv9281520286 .yiv9281520286MsoNormal {margin:0 0 0 0;}#yiv9281520286 o {font-size:0;}#yiv9281520286 #yiv9281520286photos div {float:left;width:72px;}#yiv9281520286 #yiv9281520286photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9281520286 #yiv9281520286photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9281520286 #yiv9281520286reco-category {font-size:77%;}#yiv9281520286 #yiv9281520286reco-desc {font-size:77%;}#yiv9281520286 .yiv9281520286replbq {margin:4px;}#yiv9281520286 #yiv9281520286ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9281520286 #yiv9281520286ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9281520286 #yiv9281520286ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9281520286 #yiv9281520286ygrp-mlmsg select, #yiv9281520286 input, #yiv9281520286 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9281520286 #yiv9281520286ygrp-mlmsg pre, #yiv9281520286 code {font:115% monospace;}#yiv9281520286 #yiv9281520286ygrp-mlmsg * {line-height:1.22em;}#yiv9281520286 #yiv9281520286ygrp-mlmsg #yiv9281520286logo {padding-bottom:10px;}#yiv9281520286 #yiv9281520286ygrp-msg p a {font-family:Verdana;}#yiv9281520286 #yiv9281520286ygrp-msg p#yiv9281520286attach-count span {color:#1E66AE;font-weight:700;}#yiv9281520286 #yiv9281520286ygrp-reco #yiv9281520286reco-head {color:#ff7900;font-weight:700;}#yiv9281520286 #yiv9281520286ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9281520286 #yiv9281520286ygrp-sponsor #yiv9281520286ov li a {font-size:130%;text-decoration:none;}#yiv9281520286 #yiv9281520286ygrp-sponsor #yiv9281520286ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9281520286 #yiv9281520286ygrp-sponsor #yiv9281520286ov ul {margin:0;padding:0 0 0 8px;}#yiv9281520286 #yiv9281520286ygrp-text {font-family:Georgia;}#yiv9281520286 #yiv9281520286ygrp-text p {margin:0 0 1em 0;}#yiv9281520286 #yiv9281520286ygrp-text tt {font-size:120%;}#yiv9281520286 #yiv9281520286ygrp-vital ul li:last-child {border-right:none !important;}#yiv9281520286

Wed Aug 5, 2015 5:54 pm (PDT) . Posted by:

"Nang Agus"

Asalamualaikum warahmatullah,

Usul kepada panitia Kopdar,
untuk memilih tempat yang mudah dicapai dengan angkutan umum.
agar peserta dari luar kota dapat mudah mencapai tempatnya dengan angkutan
umum.

Terima kasih.
Wasalam

2015-08-04 16:49 GMT+07:00 Hendrik Karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Tanpa bermaksud mendahului panitia...
> Rencana di Jakarta pak.
>
> Salam,
> HK
>
> Sent from Samsung Mobile
>
>
> -------- Original message --------
> From: "Fahmi Syaifullah fahmisyaifullah20@yahoo.com [belajar-excel]"
> Date:04/08/2015 16:17 (GMT+07:00)
> To: BeExcel
> Subject: [belajar-excel] Kopdar#3
>
>
>
> BeExceller
>
> Mau tanya untuk acara kopdar diadakan di jakarta atau luar jakarta yaa?
>
> Terima kasih
> Fahmi
>
> Dikirim dari Yahoo Mail pada Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>

Wed Aug 5, 2015 9:37 pm (PDT) . Posted by:

"Nang Agus"

Dear Abo,

Bagaimana kalau cekrip menyimpan dibuat seperti ini?

Option Explicit
Sub Kopi()
Dim i As Integer
Dim mak As Integer
Dim baris As Integer
Application.ScreenUpdating = False
mak = Application.CountA(Worksheets("Sheet1").Range("E9:E21"))
baris = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
For i = 0 To mak - 1
Worksheets("Sheet1").Range("H4").Copy
Worksheets("Sheet2").Range("A" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("H5").Copy
Worksheets("Sheet2").Range("B" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("C4").Copy
Worksheets("Sheet2").Range("C" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("C5").Copy
Worksheets("Sheet2").Range("D" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("A" & 9 + i).Copy
Worksheets("Sheet2").Range("E" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("C" & 9 + i).Copy
Worksheets("Sheet2").Range("F" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("D" & 9 + i).Copy
Worksheets("Sheet2").Range("G" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("F" & 9 + i).Copy
Worksheets("Sheet2").Range("H" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("H" & 9 + i).Copy
Worksheets("Sheet2").Range("I" & baris + i).PasteSpecial xlValues

Next i

Application.ScreenUpdating = True
End Sub

sedangkan untuk menghapusnya boleh digunakan cekrip:

Sub hapus()
Sheets("Sheet1").Range("C4:C6").ClearContents
Sheets("Sheet1").Range("H4:C6").ClearContents
Sheets("Sheet1").Range("A9:G21").ClearContents
Sheets("Sheet1").Range("F23:H23").ClearContents
End Sub

sebenarnya untuk belajar macro dapat menggunakan record macro. saya sendiri
masih belajar dengan cara tersebut.

salam
Agus

2015-08-05 15:23 GMT+07:00 Cahaya Hati Abadi cahayahatiabadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear Para Master,
> Mohon bantuan untuk pertanyaan saya sesuai terlampir.
>
> Terima kasih.
>
> Salam hormat,
> Abo
>
>
>

Wed Aug 5, 2015 11:21 pm (PDT) . Posted by:

"Cahaya Hati Abadi" cahayahatiabadi

Dear Pak Agus,
Terima kasih pak, saya sudah coba pakai record macro tapi gagal terus, sehingga saya coba tanya ke milist.
sekali lagi terima kasih atas bantuannya semoga bapak cepat sukses dalam pembellajaran yang sedang dilakukan.
Salam Abo,
Abo



Pada Kamis, 6 Agustus 2015 11:37, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:



 

Dear Abo,

Bagaimana kalau cekrip menyimpan dibuat seperti ini?

Option Explicit
Sub Kopi()
Dim i As Integer
Dim mak As Integer
Dim baris As Integer
Application.ScreenUpdating = False
mak = Application.CountA(Worksheets("Sheet1").Range("E9:E21"))
baris = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
For i = 0 To mak - 1
Worksheets("Sheet1").Range("H4").Copy
Worksheets("Sheet2").Range("A" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("H5").Copy
Worksheets("Sheet2").Range("B" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("C4").Copy
Worksheets("Sheet2").Range("C" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("C5").Copy
Worksheets("Sheet2").Range("D" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("A" & 9 + i).Copy
Worksheets("Sheet2").Range("E" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("C" & 9 + i).Copy
Worksheets("Sheet2").Range("F" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("D" & 9 + i).Copy
Worksheets("Sheet2").Range("G" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("F" & 9 + i).Copy
Worksheets("Sheet2").Range("H" & baris + i).PasteSpecial xlValues
Worksheets("Sheet1").Range("H" & 9 + i).Copy
Worksheets("Sheet2").Range("I" & baris + i).PasteSpecial xlValues

Next i

Application.ScreenUpdating = True
End Sub

sedangkan untuk menghapusnya boleh digunakan cekrip:

Sub hapus()
Sheets("Sheet1").Range("C4:C6").ClearContents
Sheets("Sheet1").Range("H4:C6").ClearContents
Sheets("Sheet1").Range("A9:G21").ClearContents
Sheets("Sheet1").Range("F23:H23").ClearContents
End Sub

sebenarnya untuk belajar macro dapat menggunakan record macro. saya sendiri masih belajar dengan cara tersebut.

salam
Agus

2015-08-05 15:23 GMT+07:00 Cahaya Hati Abadi cahayahatiabadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Dear Para Master,Mohon bantuan untuk pertanyaan saya sesuai terlampir.
Terima kasih.
Salam hormat,Abo

#yiv9082263024 -- #yiv9082263024ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9082263024 #yiv9082263024ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9082263024 #yiv9082263024ygrp-mkp #yiv9082263024hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9082263024 #yiv9082263024ygrp-mkp #yiv9082263024ads {margin-bottom:10px;}#yiv9082263024 #yiv9082263024ygrp-mkp .yiv9082263024ad {padding:0 0;}#yiv9082263024 #yiv9082263024ygrp-mkp .yiv9082263024ad p {margin:0;}#yiv9082263024 #yiv9082263024ygrp-mkp .yiv9082263024ad a {color:#0000ff;text-decoration:none;}#yiv9082263024 #yiv9082263024ygrp-sponsor #yiv9082263024ygrp-lc {font-family:Arial;}#yiv9082263024 #yiv9082263024ygrp-sponsor #yiv9082263024ygrp-lc #yiv9082263024hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9082263024 #yiv9082263024ygrp-sponsor #yiv9082263024ygrp-lc .yiv9082263024ad {margin-bottom:10px;padding:0 0;}#yiv9082263024 #yiv9082263024actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9082263024 #yiv9082263024activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9082263024 #yiv9082263024activity span {font-weight:700;}#yiv9082263024 #yiv9082263024activity span:first-child {text-transform:uppercase;}#yiv9082263024 #yiv9082263024activity span a {color:#5085b6;text-decoration:none;}#yiv9082263024 #yiv9082263024activity span span {color:#ff7900;}#yiv9082263024 #yiv9082263024activity span .yiv9082263024underline {text-decoration:underline;}#yiv9082263024 .yiv9082263024attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9082263024 .yiv9082263024attach div a {text-decoration:none;}#yiv9082263024 .yiv9082263024attach img {border:none;padding-right:5px;}#yiv9082263024 .yiv9082263024attach label {display:block;margin-bottom:5px;}#yiv9082263024 .yiv9082263024attach label a {text-decoration:none;}#yiv9082263024 blockquote {margin:0 0 0 4px;}#yiv9082263024 .yiv9082263024bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9082263024 .yiv9082263024bold a {text-decoration:none;}#yiv9082263024 dd.yiv9082263024last p a {font-family:Verdana;font-weight:700;}#yiv9082263024 dd.yiv9082263024last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9082263024 dd.yiv9082263024last p span.yiv9082263024yshortcuts {margin-right:0;}#yiv9082263024 div.yiv9082263024attach-table div div a {text-decoration:none;}#yiv9082263024 div.yiv9082263024attach-table {width:400px;}#yiv9082263024 div.yiv9082263024file-title a, #yiv9082263024 div.yiv9082263024file-title a:active, #yiv9082263024 div.yiv9082263024file-title a:hover, #yiv9082263024 div.yiv9082263024file-title a:visited {text-decoration:none;}#yiv9082263024 div.yiv9082263024photo-title a, #yiv9082263024 div.yiv9082263024photo-title a:active, #yiv9082263024 div.yiv9082263024photo-title a:hover, #yiv9082263024 div.yiv9082263024photo-title a:visited {text-decoration:none;}#yiv9082263024 div#yiv9082263024ygrp-mlmsg #yiv9082263024ygrp-msg p a span.yiv9082263024yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9082263024 .yiv9082263024green {color:#628c2a;}#yiv9082263024 .yiv9082263024MsoNormal {margin:0 0 0 0;}#yiv9082263024 o {font-size:0;}#yiv9082263024 #yiv9082263024photos div {float:left;width:72px;}#yiv9082263024 #yiv9082263024photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9082263024 #yiv9082263024photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9082263024 #yiv9082263024reco-category {font-size:77%;}#yiv9082263024 #yiv9082263024reco-desc {font-size:77%;}#yiv9082263024 .yiv9082263024replbq {margin:4px;}#yiv9082263024 #yiv9082263024ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9082263024 #yiv9082263024ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9082263024 #yiv9082263024ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9082263024 #yiv9082263024ygrp-mlmsg select, #yiv9082263024 input, #yiv9082263024 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9082263024 #yiv9082263024ygrp-mlmsg pre, #yiv9082263024 code {font:115% monospace;}#yiv9082263024 #yiv9082263024ygrp-mlmsg * {line-height:1.22em;}#yiv9082263024 #yiv9082263024ygrp-mlmsg #yiv9082263024logo {padding-bottom:10px;}#yiv9082263024 #yiv9082263024ygrp-msg p a {font-family:Verdana;}#yiv9082263024 #yiv9082263024ygrp-msg p#yiv9082263024attach-count span {color:#1E66AE;font-weight:700;}#yiv9082263024 #yiv9082263024ygrp-reco #yiv9082263024reco-head {color:#ff7900;font-weight:700;}#yiv9082263024 #yiv9082263024ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9082263024 #yiv9082263024ygrp-sponsor #yiv9082263024ov li a {font-size:130%;text-decoration:none;}#yiv9082263024 #yiv9082263024ygrp-sponsor #yiv9082263024ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9082263024 #yiv9082263024ygrp-sponsor #yiv9082263024ov ul {margin:0;padding:0 0 0 8px;}#yiv9082263024 #yiv9082263024ygrp-text {font-family:Georgia;}#yiv9082263024 #yiv9082263024ygrp-text p {margin:0 0 1em 0;}#yiv9082263024 #yiv9082263024ygrp-text tt {font-size:120%;}#yiv9082263024 #yiv9082263024ygrp-vital ul li:last-child {border-right:none !important;}#yiv9082263024

Wed Aug 5, 2015 10:52 pm (PDT) . Posted by:

"Nang Agus"

Dear DD,

coba di buat kolom bantu, misalnya di S3 ditulis formula =J3
kemudian di S4 ditulis formula:
=IFERROR(INDEX(Outlet[KD_Outlet],MATCH(0,INDEX(COUNTIF($J$3:J4,Outlet[KD_Outlet]),,),0)),0)

kopi formula sampai S4776 (data terakhir)

pada saat formula tercopy akan membutuhkan banyak daya sehingga excel
terasa lemot, namun ini terjadi hanya sekali saat formula tersebut dibuat.
tentunya lebih cepat dibandingkan menggunakan array.
pada cell A3 digunakan formula small lagi.

Silahkan dicoba dahulu, kalau masih lamban berarti maenunggu solusi dari
member lainnya.

hee.. heee heee wong masih nebie kok beraninya ngasih solusi yang sudah
expert... maafkan saya ya mas DD

salam
NangAgus

2015-08-05 12:06 GMT+07:00 'Dede' pmaho_log4@pinusmerahabadi.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> *Dear Master Excel,*
>
>
>
> *Saya punya kasus dimana formula yang saya pakaisepertinya tidak cocok
> dengan report yang sedang saya kerjakan, formula ini bikin ngantuk kalo
> ditungguin....*
>
> *Mohon pencerahannya pada file terlampir.*
>
>
>
> *Salam,*
>
> *DD*
>
>
>

Thu Aug 6, 2015 1:36 am (PDT) . Posted by:

"Dede"

Dear Mr Kenang,

Terima kasih atas masukannya, tapi masih lemot juga.

Kolom “U” itu datanya mencapai 80.000an baris dan bisa terus bertambah.

Mungkin Master yang lain punya solusi, mohon pencerahannya.

Salam,

DD

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 06 Agustus 2015 12:52
To: BExcel
Subject: Re: [belajar-excel] Formula Array Yang Lemot

Dear DD,

coba di buat kolom bantu, misalnya di S3 ditulis formula =J3

kemudian di S4 ditulis formula:
=IFERROR(INDEX(Outlet[KD_Outlet],MATCH(0,INDEX(COUNTIF($J$3:J4,Outlet[KD_Outlet]),,),0)),0)

kopi formula sampai S4776 (data terakhir)

pada saat formula tercopy akan membutuhkan banyak daya sehingga excel terasa lemot, namun ini terjadi hanya sekali saat formula tersebut dibuat. tentunya lebih cepat dibandingkan menggunakan array.

pada cell A3 digunakan formula small lagi.

Silahkan dicoba dahulu, kalau masih lamban berarti maenunggu solusi dari member lainnya.

hee.. heee heee wong masih nebie kok beraninya ngasih solusi yang sudah expert... maafkan saya ya mas DD

salam

NangAgus

2015-08-05 12:06 GMT+07:00 'Dede' pmaho_log4@pinusmerahabadi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear Master Excel,

Saya punya kasus dimana formula yang saya pakaisepertinya tidak cocok dengan report yang sedang saya kerjakan, formula ini bikin ngantuk kalo ditungguin....

Mohon pencerahannya pada file terlampir.

Salam,

DD

Wed Aug 5, 2015 11:29 pm (PDT) . Posted by:

"Fatania Latifa"

Dear para master excel,

Mohon bantuannya ya.. bagaimana caranya untuk merekon data dari 2 tabel
apabila data dari salah satu tabel ada yang identik. Share ide hebatnya ya,
terima kasih sebelumnya

Wed Aug 5, 2015 11:30 pm (PDT) . Posted by:

"It Dpm" it_dpm

Dear Master Excelsekalian,

Mohonbantuan para master sekalian, bagaimanacaranya split (memecah) text
yang panjang menjadi beberapa cell tanpaada kata yang terpenggal seperti contoh terlampir...

terima kasih sebelumnya
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Poskan Komentar