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
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-
Rekan-rekan B-Excel,
Misal file excel saya bernama LaporanPenjualanJul
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 "LaporanPenjua
- 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'
-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-
>
>
>
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'
>
> Rekan-rekan B-Excel,
> Misal file excel saya bernama LaporanPenjualanJul
> 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 "LaporanPenjua
> 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'
> -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
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'
Rekan-rekan B-Excel,
Misal file excel saya bernama LaporanPenjualanJul
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 "LaporanPenjua
- 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'
-Yayan-
#yiv9281520286 #yiv9281520286 -- #yiv9281520286ygrp-
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>
>
>
>
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
>
>
>
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
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-
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*
>
>
>
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
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
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
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
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar