Minggu, 31 Agustus 2014

[belajar-excel] Digest Number 3060

7 Messages

Digest #3060

Messages

Sat Aug 30, 2014 4:53 am (PDT) . Posted by:

"Rismayanti Darwis" rismayanti3102

Assalamualaikum,,
Salam kenal saya new bie di sini ,,mohon bantuannya bagaimana caranya ya agar data yang saya inginkan adalah di temukan,,sesuai yang ada di kolom nama,,he,,he,,
Mohon banget bantuannya ,,,thanks


Salam,Risma


Sat Aug 30, 2014 5:16 am (PDT) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

mbak Risma,

Fungsi CountIF bisa membantu untuk menemukan jumlah baris dalam daftar yang
kolom nama-nya sama dengan nilai nama yang dicari (atau ingin dicari ada
atau ndaknya).
Kalau hasil CountIF adalah 0, berarti ndak ada. Kalau 1 berarti cuma ada 1
baris yang namanya sama. Kalau lebih dari 1, berarti ya ada segitu itu
jumlah baris data yang namanya sama.

:)
Wora Wari deket Macanan, disertakan lampiran.

Wassalamu'alaikum Wr. Wb.
Kid.

2014-08-30 21:37 GMT+10:00 'Rismayanti Darwis' rismayanti3102@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Assalamualaikum,,
>
> Salam kenal saya new bie di sini ,,mohon bantuannya bagaimana caranya ya
> agar data yang saya inginkan adalah di temukan,,sesuai yang ada di kolom
> nama,,he,,he,,
>
> Mohon banget bantuannya ,,,thanks
>
> Salam,Risma
>
>
>

Sat Aug 30, 2014 6:44 am (PDT) . Posted by:

"Rismayanti Darwis" rismayanti3102

Assalamualaikum
Mr.Kid
Mohon Maaf hasil yang saya inginkan sudah saya dapatkan,,tadi ada kesalahan
pada saat menulis rumus formulanya,,he,he,,baru belajar,,thanks

Wassalam Risma

Pada 30 Agustus 2014 21.24, Rismayanti Darwis <rismayanti3102@gmail.com>
menulis:

> maaf sebelumnya,Mr Kid saya menggunakan COUNTIF,,kok belum bisa ya malah
> hasilnya VALUE,,gini saya mau mencari nama ERIC di kolom NAMA dengan rumus
> yang saya buat di sel F6,,malah hasilnya tidak di temukan,,saya coba
> lampirkan lagi ya,,,maaf nih new bie,,thanks
>
> Wassalam,,Risma
>
>
> Pada 30 Agustus 2014 20.16, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com> menulis:
>
>
>>
>> Wa'alaikumussalam Wr. Wb.
>>
>> mbak Risma,
>>
>> Fungsi CountIF bisa membantu untuk menemukan jumlah baris dalam daftar
>> yang kolom nama-nya sama dengan nilai nama yang dicari (atau ingin dicari
>> ada atau ndaknya).
>> Kalau hasil CountIF adalah 0, berarti ndak ada. Kalau 1 berarti cuma ada
>> 1 baris yang namanya sama. Kalau lebih dari 1, berarti ya ada segitu itu
>> jumlah baris data yang namanya sama.
>>
>> :)
>> Wora Wari deket Macanan, disertakan lampiran.
>>
>> Wassalamu'alaikum Wr. Wb.
>> Kid.
>>
>>
>>
>> 2014-08-30 21:37 GMT+10:00 'Rismayanti Darwis' rismayanti3102@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>>
>>> Assalamualaikum,,
>>>
>>> Salam kenal saya new bie di sini ,,mohon bantuannya bagaimana caranya ya
>>> agar data yang saya inginkan adalah di temukan,,sesuai yang ada di kolom
>>> nama,,he,,he,,
>>>
>>> Mohon banget bantuannya ,,,thanks
>>>
>>> Salam,Risma
>>>
>>>
>>
>
>

Sat Aug 30, 2014 6:44 am (PDT) . Posted by:

"Rismayanti Darwis" rismayanti3102

maaf sebelumnya,Mr Kid saya menggunakan COUNTIF,,kok belum bisa ya malah
hasilnya VALUE,,gini saya mau mencari nama ERIC di kolom NAMA dengan rumus
yang saya buat di sel F6,,malah hasilnya tidak di temukan,,saya coba
lampirkan lagi ya,,,maaf nih new bie,,thanks

Wassalam,,Risma

Pada 30 Agustus 2014 20.16, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:

>
>
> Wa'alaikumussalam Wr. Wb.
>
> mbak Risma,
>
> Fungsi CountIF bisa membantu untuk menemukan jumlah baris dalam daftar
> yang kolom nama-nya sama dengan nilai nama yang dicari (atau ingin dicari
> ada atau ndaknya).
> Kalau hasil CountIF adalah 0, berarti ndak ada. Kalau 1 berarti cuma ada 1
> baris yang namanya sama. Kalau lebih dari 1, berarti ya ada segitu itu
> jumlah baris data yang namanya sama.
>
> :)
> Wora Wari deket Macanan, disertakan lampiran.
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
> 2014-08-30 21:37 GMT+10:00 'Rismayanti Darwis' rismayanti3102@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>>
>> Assalamualaikum,,
>>
>> Salam kenal saya new bie di sini ,,mohon bantuannya bagaimana caranya ya
>> agar data yang saya inginkan adalah di temukan,,sesuai yang ada di kolom
>> nama,,he,,he,,
>>
>> Mohon banget bantuannya ,,,thanks
>>
>> Salam,Risma
>>
>>
>

Sat Aug 30, 2014 8:27 pm (PDT) . Posted by:

"Nang Agus"

Mbak, Risma

Asalamualaikum warahmatullah

Rumus yang anda buat adalah rumus array, cara memasukkan rumus tersebut
menggunakan jurus pamungkas CSE bukan hanya di cange selection saja.
Coba klik kembali di formulabar, sehingga kursor berkedip di formula bar
tekan tombol CSE (Ctrl + Shift + Enter) secara bersama, jreng..... Eric
jadi ditemukan.

Wasalam

NangAgus

2014-08-30 20:24 GMT+07:00 Rismayanti Darwis rismayanti3102@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> maaf sebelumnya,Mr Kid saya menggunakan COUNTIF,,kok belum bisa ya malah
> hasilnya VALUE,,gini saya mau mencari nama ERIC di kolom NAMA dengan rumus
> yang saya buat di sel F6,,malah hasilnya tidak di temukan,,saya coba
> lampirkan lagi ya,,,maaf nih new bie,,thanks
>
> Wassalam,,Risma
>
>
> Pada 30 Agustus 2014 20.16, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com> menulis:
>
>
>>
>> Wa'alaikumussalam Wr. Wb.
>>
>> mbak Risma,
>>
>> Fungsi CountIF bisa membantu untuk menemukan jumlah baris dalam daftar
>> yang kolom nama-nya sama dengan nilai nama yang dicari (atau ingin dicari
>> ada atau ndaknya).
>> Kalau hasil CountIF adalah 0, berarti ndak ada. Kalau 1 berarti cuma ada
>> 1 baris yang namanya sama. Kalau lebih dari 1, berarti ya ada segitu itu
>> jumlah baris data yang namanya sama.
>>
>> :)
>> Wora Wari deket Macanan, disertakan lampiran.
>>
>> Wassalamu'alaikum Wr. Wb.
>> Kid.
>>
>>
>>
>> 2014-08-30 21:37 GMT+10:00 'Rismayanti Darwis' rismayanti3102@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>>
>>> Assalamualaikum,,
>>>
>>> Salam kenal saya new bie di sini ,,mohon bantuannya bagaimana caranya ya
>>> agar data yang saya inginkan adalah di temukan,,sesuai yang ada di kolom
>>> nama,,he,,he,,
>>>
>>> Mohon banget bantuannya ,,,thanks
>>>
>>> Salam,Risma
>>>
>>>
>
>

Sat Aug 30, 2014 5:25 am (PDT) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

mas Rizki,

Coba jalan-jalan ke website milis di folder files (butuh login dengan akun
Yahoo) disini <https://groups.yahoo.com/neo/groups/belajar-excel/files>.
Nanti akan ada banyak file tentang terbilang disana, seperti :
1. Terbilang Tanpa Makro (zainul ulum).zip

<https://xa.yimg.com/df/belajar-excel/Terbilang+Tanpa+Makro+%28zainul+ulum%29.zip?token=0dARjx6WiL8Jr6xcXiU2WZhhPUlXhcYiOgRePXnPk3futN8tO-UQbJ27uhPxzP5lMoztbdfudov1JARrIgMnO_ygOKHolcsfUibu0Qn-IE_1cqv7pbCX83UsXP_9Aj_4SqNNdLMnitaSmEAo06vwyNxh&type=download>
2. TerbilangTanpaMakro_1.zip
<https://xa.yimg.com/df/belajar-excel/TerbilangTanpaMakro_1.zip?token=NAipkuP9Pf8IC__PfbFwepMOHxPCauvb4rM3W-xxNOdQafqxUuqqiGtjOj2iwYvnzyuJAsZEw5xImGnYI-d9_B1OkMBlIbIS08M6PbgfyebDOlF8wb2Fbg&type=download>
3. ctv_Terbilang baru.xlsm
<https://xa.yimg.com/df/belajar-excel/ctv_Terbilang+baru.xlsm?token=ecUwiJlPFALJHG6USN3wnCvcfw-ag7ChMnrrCG0WqxIxmU0bs7OMTgoqtVJ27zMsbqdZk4WMFRrVnuENqyTcjzn31QOuRuQIMd0Tr1yHh-rOfoEfsY6OBw&type=download>
4. Terbilang - Excel.zip
<https://xa.yimg.com/df/belajar-excel/Terbilang+-+Excel.zip?token=N1R6foZ-n-RuaTJr4NnrxPVnYadguPcKCsdaialuUlvYPKpQA0lZYU_5yTEHfoEk4hIzv3E436UWRoWD-AQ1qJv0qCN5V9f7zuvDY3W760zqFV5Ha4uoiQ&type=download>

Silakan diunduh dan dicoba. No 3 membutuhkan VBA (Macro).

Wassalamu'alaikum Wr. Wb.
Kid.

2014-08-29 12:46 GMT+10:00 Rizki Agung rizki_fisthein@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Assalamualaikum.....salam dan selamat pagi buat teman-teman
> semuanya,,,saya disini ada kendala dalam program excel terkait dg pengisian
> rapot. pertanyaan saya ada dalam lampiran excel. sebelumnya terima kasih
> atas bantuan dari teman semua.
>
>

Sat Aug 30, 2014 6:21 am (PDT) . Posted by:

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

Hai Boni,

hmmm... misal pivot table sudah di-copy ke file A.
coba buka file sumber datanya dengan cara masuk Excel -> File -> Open
(jangan double click nama file melalui windows explorer), lalu refresh
pivot table yang ada di file A.

Mungkin ada baiknya, untuk data yang disimpan di file A, langsung buat
pivot tablenya di file B memanfaatkan fitur Get External Data
<http://excel-mr-kid.blogspot.com.au/2011/04/get-external-data-01-introduction.html>
.
Untuk koneksi ke Excel 2013 (office pakai 2013), membutuhkan
ter-install-nya data provider bernama MS Office 15.0 Access Database Engine
OLEDB, yang pada Extended properties-nya diisi bunyi Excel 15.0

Cara dengan koneksi data melalui fitur ini, akan membuat pivot table bisa
di-refresh tanpa perlu membuka file sumbernya. Jadi, file sumber bisa
berada dikomputer lain selama masih bisa dikoneksi melalui jaringan yang
ada.

Wassalam,
Kid.

2014-08-29 17:45 GMT+10:00 Boni Vasius bonivasius@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com>:

>
>
> selamat siang semua.
> selama ini saya pakai excel xp,saya sering copy pivot ke file yg
> baru.maksudnya di file pivot yang baru hanya ada sheet pivot saja sementara
> datanya ada di file yg lain.
> saat ini saya selalu gagal dalam mengcopy pivot ke file yg baru
> menggunakan excel 2013.di excel 2013 saya menggunkan display pivot classic.
> mohon arahannya atas kasus saya ini.terima kasih.
>
>
>
=====================================================================
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
---------------------------------------------------------------------
READ MORE....
Diposting oleh EXCEL FEED LEARNING di 02.33 0 komentar

[smf_addin] Digest Number 3165

1 Message

Digest #3165
1a
Re: MSN Earnings Growth Rates by "David Rossien" drrossien

Message

Sat Aug 30, 2014 1:19 pm (PDT) . Posted by:

"David Rossien" drrossien

I agree with Tom, a) you need to diversify to help protect from
unsystematic risk (imo at least a dozen stocks) and b) when you choose each
stock you should decide a price at which you will consider the stock a
loser and sell even if it means taking a loss (if you've diversified
presumably you can use to offset gains). Even Buffet sometimes gets losers.
For the Add-in, Documentation, Templates, Tips and FAQs, visit http://ogres-crypt.com/SMF
READ MORE....
Diposting oleh EXCEL FEED LEARNING di 01.54 0 komentar

Sabtu, 30 Agustus 2014

[belajar-excel] Digest Number 3059

6 Messages

Digest #3059

Messages

Fri Aug 29, 2014 2:35 am (PDT) . Posted by:

"Liem Suliem" liemsuliem

dear master
dari yang sudah solved kemarin saya berusaha mengedit agar bisa browse file jadwalnya, jadi tidak ketik nama file
mohon bantuan lagi, saya sudah coba seperti dibawah.. perpaduan hasil gogling dan dari milis tapi ya memang bisanya cuma edit2 ya ujung2 nya mentok.

Private Sub CommandButton3_Click()
Dim pileku As String
Dim celladd As String
pileku = InputBox(Prompt:="Ketikkan Nama file", _
Title:="Masukkan Nama File", Default:="Jadwal HO Tanggal.xlsx")
pileku = Application.GetOpenFilename()
Windows(pileku).Activate
Sheets("Rincian").Range("C10").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 15).Address(False, False)
Sheets("Rincian").Range("C10:" & celladd).Copy
Windows("Monitoring Jadwal.xlsm").Activate
Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Windows(pileku).Activate
Sheets("Rincian").Range("C55").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 15).Address(False, False)
Sheets("Rincian").Range("C55:" & celladd).Copy
Windows("Monitoring Jadwal.xlsm").Activate
Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End Sub

salam
liem

Pada Kamis, 28 Agustus 2014 17:05, "lkm jktind lkmjktind@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


Bu,

File nya nga ada ?

(nga bisa di download)
Thu, Aug 28, 2014 at 2:02 PM

Tapi untuk email : Wed, Aug 27, 2014 at 11:02 AM
Filenya tersedia.

Salam.

Lukman

2014-08-28 14:02 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

>
>pak agus.. alhamdulilah
>
>sukses pak maksih pak, dan semua teman2..yang berkenan membantu..
>berikut saya sertakan file yang sudah solved
>
>
>liem
>
>
>
>Pada Kamis, 28 Agustus 2014 13:12, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>Pak Liem,
>
>Dicoba cekrip begini pak.
>
>Private Sub CommandButton2_Click()
>Dim pileku As String
>Dim celladd As String
>pileku = InputBox(Prompt:="Ketikkan Nama file", _
> Title:="Masukkan Nama File", Default:="A.xlsx")
> Windows(pileku).Activate
> Sheets("sheet1").Range("b2").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 12).Address(False, False)
> Sheets("sheet1").Range("B3:" & celladd).Copy
>Windows("B.xlsm").Activate
>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> Windows(pileku).Activate
> Sheets("sheet1").Range("B34:N47").Copy

>Windows("B.xlsm").Activate
>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>End Sub
>
>Untuk cell N47 belum saya buat, coba diganti.
>Salam
>
>NangAgus
>
>
>
>
>2014-08-27 14:51 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>>
>>sudah saya coba beginii tapi yang tercopi hanya data B yang paling bawah
>>
>>
>>Private Sub CommandButton2_Click()
>>Dim pileku As String
>>pileku = InputBox(Prompt:="Ketikkan Nama file", _
>>Title:="Masukkan Nama
File", Default:="A.xlsx")
>>Windows(pileku).Activate
>>Sheets("sheet1").Range("B3:N3").End(xlDown).Copy
>>
>>Windows("B.xlsm").Activate
>>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>Windows(pileku).Activate
>>Sheets("sheet1").Range("B34:N34").End(xlDown).Copy
>>
>>Windows("B.xlsm").Activate
>>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>
>>End Sub
>>
>>salam
>>liem
>>
>>
>>
>>
>>Pada Rabu, 27 Agustus 2014 14:10, "Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>>
>>
>>makasih pak agus.. sesuai yang dimaksud.. tapi ada kendala sedikit
>>untuk bunyi yang ini
>>
>>Sheets("sheet1").Range("B3:N16").Copy
>>kan data tidak selalu sampai N16 atau bahkan lebih dari N16 bisa nggak kalo yang di copy itu
>>B3:N3 lalu di xldown baru di kopy.
>>
>>
>>untuk yang dari pak kid belum saya coba
>>
>>
>>
>>salam
>>liem
>>
>>
>>
>>
>>Pada Rabu, 27 Agustus 2014 12:19, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>>
>>Dear Pak Liem!
>>Coba Macronya dicoba dahulu seperti ini:
>>
>>Private Sub CommandButton2_Click()
>>Dim pileku As String
>>pileku = InputBox(Prompt:="Ketikkan Nama file", _
>>Title:="Masukkan Nama File", Default:="A.xlsx")
>>Windows(pileku).Activate
>>Sheets("sheet1").Range("B3:N16").Copy
>>Windows("B.xlsm").Activate
>>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>Windows(pileku).Activate
>>Sheets("sheet1").Range("B34:N47").Copy
>>Windows("B.xlsm").Activate
>>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>
>>End Sub
>>
>>
>>Salam
>>NangAgus
>>
>>On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
>><belajar-excel@yahoogroups.com> wrote:
>>> ini saya coba lampirkan file yang sudah saya dumi kan.
>>>
>>>
>>>
>>>
>>>
>>>
>>> Pada Rabu, 27 Agustus 2014 10:11, "Nang Agus nangagus@gmail.com
>>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>>
>>>
>>>
>>>
>>>
>>>
>>> Dear Pak Liem.
>>>
>>>
>>> Bagaimana apabila perintah copynya masih di VBA tapi perintah tempat
>>> ngopinya yang manual.
>>> Misalnya Range yang akan dikopi diketik pada workbook A Sheet1 Range
>>> A1. atau dapat pula diketikkan di userform yang kita buat. Range
>>> tersebut kita gunakan untuk acuan Kopi.
>>> Kira-kira begini cekripnya:
>>> Range(sheet1.range(A1).value).copy
>>>
>>>
>>> Wasalam
>>> NangAgus
>>>
>>>
>>> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
>>> <belajar-excel@yahoogroups.com> wrote:
>>>> pak agus..
>>>> nah itu pak agus masalahnya..
>>>> gambaran manualnya begini pak
>>>>
>>>>
>>>> saya buka 2 workbok A dan B.
>>>> saya kopi B2:B10 yang ada di worbok A(ini memang yang saya ingin manual)
>>>> lalu saya pindah ke wrkbook B saya pilih cell F3 saya tekan
>>>> ctrl+shift+tanda
>>>> panah bawah...lalu saya pilih satu cell dibawahnya
>>>> lalu saya paste spesial.
>>>>
>>>>
>>>> nah yang ingin saya wakilkan ke makro adalah proses
>>>> pilih cell F3 saya tekan ctrl+shift+tanda panah bawah...lalu saya pilih
>>>> satu
>>>> cell dibawahnya
>>>> lalu saya paste spesial value.
>>>>
>>>>
>>>> tapi sepertinya waktu jalankan sekrip, proses kopi di workbok A sudah
>>>> tidah
>>>> aktip.
>>>>
>>>>
>>>> Pada Rabu, 27 Agustus 2014 9:35, "Nang Agus nangagus@gmail.com
>>>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> Dear Pak Liem,
>>>>
>>>>
>>>> Cekrip yang dibuat sudah betul pak, tapi si Excel bingung, disuruh
>>>> mem-Paste special dengan masakan yang paling enak, tetapi bahan yang
>>>> untuk masak belum ada. belikan dulu dong pak!
>>>> Tambahkan cekrip Kopi di atasnya baru si excel bis kerja.
>>>>
>>>>
>>>> Saya pernah dipesen sama Mr. Kid, sebaiknya cekrip tersebut disingkat
>>>> menjadi:
>>>> Range("F3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>>>
>>>>
>>>> Salam
>>>> NangAgus
>>>>
>>>>
>>>> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
>>>> <belajar-excel@yahoogroups.com> wrote:
>>>>> pak hk dan mr.kid
>>>>
>>>>>
>>>>>
>>>>> Sub Macro4()
>>>>> Range("f3").End(xlDown).Offset(1).Select
>>>>> Selection.PasteSpecial Paste:=xlPasteValues
>>>>> End Sub
>>>>>
>>>>>
>>>>> memilih cell akir +1 setelah data sudah bisa, akan tetapi ketika mau
>>>>> menambahkan sekrip paste spesial masih debug.
>>>>> (karena keterbatasan pengetahuan saya)

>>>>>
>>>>>
>>>>> jadi ceritanya begini saya punya 2 worbook A dan B lha isi workbook A
>>>>> itu
>>>>> datanya per tanggal
>>>>> misal A1 berisi 28 agt 2014 B2:K10 berisi data
>>>>> A12 berisi 29 agt 2014 B14:K30 berisi data
>>>>>
>>>>>
>>>>> nah maksud saya ingin copi data B2:B10 secara manual dan saya pastekan
>>>>> ke
>>>>> workbook B dengan bantuan si makro tersebut.
>>>>> begitu juga seterusnya saya ingin lagi mengulang kopi B14:B30 secara
>>>>> manual
>>>
>>>>> lalu saya pastekan lagi di workbok B dibawahnya data yang sudah ada.
>>>>> (kedua
>>>>> workbook dalam keadaan terbuka)
>>>>>
>>>>>
>>>>> (maksudnya biar workbook B bisa berkaidah data yang baik)
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> salam
>>>>> liem
>>>>>
>>>>>
>>>>>
>>>>>
>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> Pada Rabu, 27 Agustus 2014 6:39, "'Mr. Kid' mr.nmkid@gmail.com
>>>>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> Hai Liem,
>>>>>
>>>>>
>>>>> Misal F3 adalah range awal. Data kontinyu sampai F10. Ingin cell aktif
>>>>> di
>>>>> F11 (1 cell dibawah cell terakhir data kontinyu)
>>>>> Range("f3").end(xldown).offset(1).activate
>>>>> *** ganti activate dengan copy (jika ingin copy cell), pastespecial
>>>>> xlpastevalues (jika ingin paste special values), dsb
>>>>>
>>>>>
>>>>> Bagaimana kalau coba jalan-jalan lihat-lihat tentang range mulai dari
>>>>> sini.
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> Wassalam,
>>>>> Kid.
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> 2014-08-26 19:58 GMT+10:00 Liem Suliem liemsuliem@yahoo.co.id
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>
>>>>>
>>>>>>
>>>>>>dh dear master saya coba rekam makro dengan bunyi seperti dibawah..
>>>>>>yang ingisaya tanyakan bagaimana bunyi sekrip untuk memilih atau select
>>>>>> 1
>>>>>> cel dibawahnya setelah dilakukan xldown
>>>>>>misal saya lakukan xldown F3:F10 tapi setelah saya lakukan xldown saya
>>>>>> ingin cell terplih adalah 1 cell dibawahnya yaitu F11
>>>>>>mohon arahan skripnya seperti apa..
>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>Sub Macro4()
>>>>>> Range("F3").Select
>>>>>> Range(Selection, Selection.End(xlDown)).Select
>>>>>>End Sub
>>>>>>
>>>>>>
>>>>>>salam
>>>>>>
>>>>>
>>>>>>
>>>>
>>>>>>liem
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>>
>>
>>
>
>
>

Fri Aug 29, 2014 8:35 pm (PDT) . Posted by:

"Nang Agus"

Dear Pak Liem,

Coba ganti cekript
pileku = Application.GetOpenFilename()
menjadi :
pileku = Application.GetOpenFilename()
Workbooks.Open pileku

Tanpa cekrip yang kedua, hanya akan mengambil path file secara lengkap,
tetapi belum membuka file.
Jangan lupa fileku adalah path lengkap, harus dipotong dahulu menjadi file
name untuk membuka antar workbook. untuk mengambil nama workbook saja bisa
digunakan split.

Kira-kira cekripttc nya adalah sebagai berikut:
Private Sub CommandButton2_Click()
Dim pileku As String
Dim celladd As String
Dim splitlist As Variant
pileku = Application.GetOpenFilename(Title:="Tulung Bikak Setunggal File
Mawon", _
FileFilter:="Excel Files *.xls* (*.xls*),")
splitlist = VBA.Split(pileku, "\")
aduhh = splitlist(UBound(splitlist, 1))
Workbooks.Open pileku
Sheets("sheet1").Range("b2").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 12).Address(False, False)
Sheets("sheet1").Range("B3:" & celladd).Copy
Windows("B.xlsm").Activate
Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
Windows(aduhh).Activate
Sheets("sheet1").Range("b33").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 12).Address(False, False)
Sheets("sheet1").Range("B34:" & celladd).Copy
Windows("B.xlsm").Activate
Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
End Sub

Semoga tidak ada kesalahan.

Salam

NangAgus

2014-08-29 16:34 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> dear master
> dari yang sudah solved kemarin saya berusaha mengedit agar bisa browse
> file jadwalnya, jadi tidak ketik nama file
> mohon bantuan lagi, saya sudah coba seperti dibawah.. perpaduan hasil
> gogling dan dari milis tapi ya memang bisanya cuma edit2 ya ujung2 nya
> mentok.
>
> Private Sub CommandButton3_Click()
>
> Dim pileku As String
> Dim celladd As String
> pileku = InputBox(Prompt:="Ketikkan Nama file", _
> Title:="Masukkan Nama File", Default:="Jadwal HO Tanggal.xlsx")
> pileku = Application.GetOpenFilename()
> Windows(pileku).Activate
> Sheets("Rincian").Range("C10").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 15).Address(False, False)
> Sheets("Rincian").Range("C10:" & celladd).Copy
> Windows("Monitoring Jadwal.xlsm").Activate
> Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
> Paste:=xlPasteValues
> Windows(pileku).Activate
> Sheets("Rincian").Range("C55").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 15).Address(False, False)
> Sheets("Rincian").Range("C55:" & celladd).Copy
> Windows("Monitoring Jadwal.xlsm").Activate
> Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
> Paste:=xlPasteValues
> End Sub
>
> salam
> liem
>
>
> Pada Kamis, 28 Agustus 2014 17:05, "lkm jktind lkmjktind@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Bu,
>
> File nya nga ada ?
>
> (nga bisa di download)
> Thu, Aug 28, 2014 at 2:02 PM
>
>
> Tapi untuk email : Wed, Aug 27, 2014 at 11:02 AM
> Filenya tersedia.
>
> Salam.
>
> Lukman
>
>
>
>
> 2014-08-28 14:02 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> pak agus.. alhamdulilah
> sukses pak maksih pak, dan semua teman2..yang berkenan membantu..
> berikut saya sertakan file yang sudah solved
>
> liem
>
>
> Pada Kamis, 28 Agustus 2014 13:12, "Nang Agus nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Pak Liem,
>
> Dicoba cekrip begini pak.
>
> Private Sub CommandButton2_Click()
> Dim pileku As String
> Dim celladd As String
> pileku = InputBox(Prompt:="Ketikkan Nama file", _
> Title:="Masukkan Nama File", Default:="A.xlsx")
> Windows(pileku).Activate
> Sheets("sheet1").Range("b2").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 12).Address(False, False)
> Sheets("sheet1").Range("B3:" & celladd).Copy
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> Windows(pileku).Activate
> Sheets("sheet1").Range("B34:N47").Copy
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> End Sub
>
> Untuk cell N47 belum saya buat, coba diganti.
> Salam
>
> NangAgus
>
>
> 2014-08-27 14:51 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> sudah saya coba beginii tapi yang tercopi hanya data B yang paling bawah
>
> Private Sub CommandButton2_Click()
> Dim pileku As String
> pileku = InputBox(Prompt:="Ketikkan Nama file", _
> Title:="Masukkan Nama File", Default:="A.xlsx")
> Windows(pileku).Activate
> Sheets("sheet1").Range("B3:N3").End(xlDown).Copy
>
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> Windows(pileku).Activate
> Sheets("sheet1").Range("B34:N34").End(xlDown).Copy
>
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>
> End Sub
> salam
> liem
>
>
> Pada Rabu, 27 Agustus 2014 14:10, "Liem Suliem liemsuliem@yahoo.co.id
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> makasih pak agus.. sesuai yang dimaksud.. tapi ada kendala sedikit
> untuk bunyi yang ini
>
> Sheets("sheet1").Range("B3:N16").Copy
> kan data tidak selalu sampai N16 atau bahkan lebih dari N16 bisa nggak
> kalo yang di copy itu
> B3:N3 lalu di xldown baru di kopy.
>
> untuk yang dari pak kid belum saya coba
>
> salam
> liem
>
>
> Pada Rabu, 27 Agustus 2014 12:19, "Nang Agus nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Dear Pak Liem!
> Coba Macronya dicoba dahulu seperti ini:
>
> Private Sub CommandButton2_Click()
> Dim pileku As String
> pileku = InputBox(Prompt:="Ketikkan Nama file", _
> Title:="Masukkan Nama File", Default:="A.xlsx")
> Windows(pileku).Activate
> Sheets("sheet1").Range("B3:N16").Copy
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> Windows(pileku).Activate
> Sheets("sheet1").Range("B34:N47").Copy
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>
> End Sub
>
>
> Salam
> NangAgus
>
> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
> > ini saya coba lampirkan file yang sudah saya dumi kan.
> >
> >
> >
> >
> >
> >
> > Pada Rabu, 27 Agustus 2014 10:11, "Nang Agus nangagus@gmail.com
> > [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
> >
> >
> >
> >
> >
> >
> > Dear Pak Liem.
> >
> >
> > Bagaimana apabila perintah copynya masih di VBA tapi perintah tempat
> > ngopinya yang manual.
> > Misalnya Range yang akan dikopi diketik pada workbook A Sheet1 Range
> > A1. atau dapat pula diketikkan di userform yang kita buat. Range
> > tersebut kita gunakan untuk acuan Kopi.
> > Kira-kira begini cekripnya:
> > Range(sheet1.range(A1).value).copy
> >
> >
> > Wasalam
> > NangAgus
> >
> >
> > On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
> > <belajar-excel@yahoogroups.com> wrote:
> >> pak agus..
> >> nah itu pak agus masalahnya..
> >> gambaran manualnya begini pak
> >>
> >>
> >> saya buka 2 workbok A dan B.
> >> saya kopi B2:B10 yang ada di worbok A(ini memang yang saya ingin manual)
> >> lalu saya pindah ke wrkbook B saya pilih cell F3 saya tekan
> >> ctrl+shift+tanda
> >> panah bawah...lalu saya pilih satu cell dibawahnya
> >> lalu saya paste spesial.
> >>
> >>
> >> nah yang ingin saya wakilkan ke makro adalah proses
> >> pilih cell F3 saya tekan ctrl+shift+tanda panah bawah...lalu saya pilih
> >> satu
> >> cell dibawahnya
> >> lalu saya paste spesial value.
> >>
> >>
> >> tapi sepertinya waktu jalankan sekrip, proses kopi di workbok A sudah
> >> tidah
> >> aktip.
> >>
> >>
> >> Pada Rabu, 27 Agustus 2014 9:35, "Nang Agus nangagus@gmail.com
> >> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
> >>
> >>
> >>
> >>
> >>
> >>
> >> Dear Pak Liem,
> >>
> >>
> >> Cekrip yang dibuat sudah betul pak, tapi si Excel bingung, disuruh
> >> mem-Paste special dengan masakan yang paling enak, tetapi bahan yang
> >> untuk masak belum ada. belikan dulu dong pak!
> >> Tambahkan cekrip Kopi di atasnya baru si excel bis kerja.
> >>
> >>
> >> Saya pernah dipesen sama Mr. Kid, sebaiknya cekrip tersebut disingkat
> >> menjadi:
> >> Range("F3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> >>
> >>
> >> Salam
> >> NangAgus
> >>
> >>
> >> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
> >> <belajar-excel@yahoogroups.com> wrote:
> >>> pak hk dan mr.kid
> >>
> >>>
> >>>
> >>> Sub Macro4()
> >>> Range("f3").End(xlDown).Offset(1).Select
> >>> Selection.PasteSpecial Paste:=xlPasteValues
> >>> End Sub
> >>>
> >>>
> >>> memilih cell akir +1 setelah data sudah bisa, akan tetapi ketika mau
> >>> menambahkan sekrip paste spesial masih debug.
> >>> (karena keterbatasan pengetahuan saya)
> >>>
> >>>
> >>> jadi ceritanya begini saya punya 2 worbook A dan B lha isi workbook A
> >>> itu
> >>> datanya per tanggal
> >>> misal A1 berisi 28 agt 2014 B2:K10 berisi data
> >>> A12 berisi 29 agt 2014 B14:K30 berisi data
> >>>
> >>>
> >>> nah maksud saya ingin copi data B2:B10 secara manual dan saya pastekan
> >>> ke
> >>> workbook B dengan bantuan si makro tersebut.
> >>> begitu juga seterusnya saya ingin lagi mengulang kopi B14:B30 secara
> >>> manual
> >
> >>> lalu saya pastekan lagi di workbok B dibawahnya data yang sudah ada.
> >>> (kedua
> >>> workbook dalam keadaan terbuka)
> >>>
> >>>
> >>> (maksudnya biar workbook B bisa berkaidah data yang baik)
> >>>
> >>>
> >>>
> >>>
> >>> salam
> >>> liem
> >>>
> >>>
> >>>
> >>>
> >
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>> Pada Rabu, 27 Agustus 2014 6:39, "'Mr. Kid' mr.nmkid@gmail.com
> >>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>> Hai Liem,
> >>>
> >>>
> >>> Misal F3 adalah range awal. Data kontinyu sampai F10. Ingin cell aktif
> >>> di
> >>> F11 (1 cell dibawah cell terakhir data kontinyu)
> >>> Range("f3").end(xldown).offset(1).activate
> >>> *** ganti activate dengan copy (jika ingin copy cell), pastespecial
> >>> xlpastevalues (jika ingin paste special values), dsb
> >>>
> >>>
> >>> Bagaimana kalau coba jalan-jalan lihat-lihat tentang range mulai dari
> >>> sini.
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>> Wassalam,
> >>> Kid.
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>> 2014-08-26 19:58 GMT+10:00 Liem Suliem liemsuliem@yahoo.co.id
> >>> [belajar-excel] <belajar-excel@yahoogroups.com>:
> >>>
> >>>
> >>>
> >>>>
> >>>>dh dear master saya coba rekam makro dengan bunyi seperti dibawah..
> >>>>yang ingisaya tanyakan bagaimana bunyi sekrip untuk memilih atau select
> >>>> 1
> >>>> cel dibawahnya setelah dilakukan xldown
> >>>>misal saya lakukan xldown F3:F10 tapi setelah saya lakukan xldown saya
> >>>> ingin cell terplih adalah 1 cell dibawahnya yaitu F11
> >>>>mohon arahan skripnya seperti apa..
> >>>
> >>>>
> >>>>
> >>>>
> >>>>Sub Macro4()
> >>>> Range("F3").Select
> >>>> Range(Selection, Selection.End(xlDown)).Select
> >>>>End Sub
> >>>>
> >>>>
> >>>>salam
> >>>>
> >>>
> >>>>
> >>
> >>>>liem
> >>>>
> >>>
> >>>
> >>>
> >>
> >>
> >>
> >
> >
> >
>
>
>
>
>
>
>
>
>
>
>
>

Fri Aug 29, 2014 8:40 pm (PDT) . Posted by:

"Nang Agus"

Dear Pak Liem,

Cekripttt yang baru saja saya kirimkan ada beberapa kekurangan, tolong
dilengkapi. antara lain:
1. belum didefinisikan variabel untuk aduhh dengan tipe string.
2. belum ada trap untuk cancel open file. (jika cancel open file akan error)

Wasalam
NangAgus

2014-08-30 10:35 GMT+07:00 Nang Agus <nangagus@gmail.com>:

> Dear Pak Liem,
>
> Coba ganti cekript
> pileku = Application.GetOpenFilename()
> menjadi :
> pileku = Application.GetOpenFilename()
> Workbooks.Open pileku
>
> Tanpa cekrip yang kedua, hanya akan mengambil path file secara lengkap,
> tetapi belum membuka file.
> Jangan lupa fileku adalah path lengkap, harus dipotong dahulu menjadi file
> name untuk membuka antar workbook. untuk mengambil nama workbook saja bisa
> digunakan split.
>
> Kira-kira cekripttc nya adalah sebagai berikut:
>
> Private Sub CommandButton2_Click()
> Dim pileku As String
> Dim celladd As String
> Dim splitlist As Variant
> pileku = Application.GetOpenFilename(Title:="Tulung Bikak Setunggal File
> Mawon", _
> FileFilter:="Excel Files *.xls* (*.xls*),")
> splitlist = VBA.Split(pileku, "\")
> aduhh = splitlist(UBound(splitlist, 1))
> Workbooks.Open pileku
>
> Sheets("sheet1").Range("b2").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 12).Address(False, False)
> Sheets("sheet1").Range("B3:" & celladd).Copy
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> Windows(aduhh).Activate
> Sheets("sheet1").Range("b33").End(xlDown).Offset(1).Select
>
> celladd = ActiveCell.Offset(-1, 12).Address(False, False)
> Sheets("sheet1").Range("B34:" & celladd).Copy
>
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> End Sub
>
> Semoga tidak ada kesalahan.
>
> Salam
>
> NangAgus
>
>
>
> 2014-08-29 16:34 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>>
>> dear master
>> dari yang sudah solved kemarin saya berusaha mengedit agar bisa browse
>> file jadwalnya, jadi tidak ketik nama file
>> mohon bantuan lagi, saya sudah coba seperti dibawah.. perpaduan hasil
>> gogling dan dari milis tapi ya memang bisanya cuma edit2 ya ujung2 nya
>> mentok.
>>
>> Private Sub CommandButton3_Click()
>>
>> Dim pileku As String
>> Dim celladd As String
>> pileku = InputBox(Prompt:="Ketikkan Nama file", _
>> Title:="Masukkan Nama File", Default:="Jadwal HO Tanggal.xlsx")
>> pileku = Application.GetOpenFilename()
>> Windows(pileku).Activate
>> Sheets("Rincian").Range("C10").End(xlDown).Offset(1).Select
>> celladd = ActiveCell.Offset(-1, 15).Address(False, False)
>> Sheets("Rincian").Range("C10:" & celladd).Copy
>> Windows("Monitoring Jadwal.xlsm").Activate
>> Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
>> Paste:=xlPasteValues
>> Windows(pileku).Activate
>> Sheets("Rincian").Range("C55").End(xlDown).Offset(1).Select
>> celladd = ActiveCell.Offset(-1, 15).Address(False, False)
>> Sheets("Rincian").Range("C55:" & celladd).Copy
>> Windows("Monitoring Jadwal.xlsm").Activate
>> Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
>> Paste:=xlPasteValues
>> End Sub
>>
>> salam
>> liem
>>
>>
>> Pada Kamis, 28 Agustus 2014 17:05, "lkm jktind lkmjktind@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>> Bu,
>>
>> File nya nga ada ?
>>
>> (nga bisa di download)
>> Thu, Aug 28, 2014 at 2:02 PM
>>
>>
>> Tapi untuk email : Wed, Aug 27, 2014 at 11:02 AM
>> Filenya tersedia.
>>
>> Salam.
>>
>> Lukman
>>
>>
>>
>>
>> 2014-08-28 14:02 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>> pak agus.. alhamdulilah
>> sukses pak maksih pak, dan semua teman2..yang berkenan membantu..
>> berikut saya sertakan file yang sudah solved
>>
>> liem
>>
>>
>> Pada Kamis, 28 Agustus 2014 13:12, "Nang Agus nangagus@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>> Pak Liem,
>>
>> Dicoba cekrip begini pak.
>>
>> Private Sub CommandButton2_Click()
>> Dim pileku As String
>> Dim celladd As String
>> pileku = InputBox(Prompt:="Ketikkan Nama file", _
>> Title:="Masukkan Nama File", Default:="A.xlsx")
>> Windows(pileku).Activate
>> Sheets("sheet1").Range("b2").End(xlDown).Offset(1).Select
>> celladd = ActiveCell.Offset(-1, 12).Address(False, False)
>> Sheets("sheet1").Range("B3:" & celladd).Copy
>> Windows("B.xlsm").Activate
>> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>> Windows(pileku).Activate
>> Sheets("sheet1").Range("B34:N47").Copy
>> Windows("B.xlsm").Activate
>> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>> End Sub
>>
>> Untuk cell N47 belum saya buat, coba diganti.
>> Salam
>>
>> NangAgus
>>
>>
>> 2014-08-27 14:51 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>> sudah saya coba beginii tapi yang tercopi hanya data B yang paling bawah
>>
>> Private Sub CommandButton2_Click()
>> Dim pileku As String
>> pileku = InputBox(Prompt:="Ketikkan Nama file", _
>> Title:="Masukkan Nama File", Default:="A.xlsx")
>> Windows(pileku).Activate
>> Sheets("sheet1").Range("B3:N3").End(xlDown).Copy
>>
>> Windows("B.xlsm").Activate
>> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>> Windows(pileku).Activate
>> Sheets("sheet1").Range("B34:N34").End(xlDown).Copy
>>
>> Windows("B.xlsm").Activate
>> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>
>> End Sub
>> salam
>> liem
>>
>>
>> Pada Rabu, 27 Agustus 2014 14:10, "Liem Suliem liemsuliem@yahoo.co.id
>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>> makasih pak agus.. sesuai yang dimaksud.. tapi ada kendala sedikit
>> untuk bunyi yang ini
>>
>> Sheets("sheet1").Range("B3:N16").Copy
>> kan data tidak selalu sampai N16 atau bahkan lebih dari N16 bisa nggak
>> kalo yang di copy itu
>> B3:N3 lalu di xldown baru di kopy.
>>
>> untuk yang dari pak kid belum saya coba
>>
>> salam
>> liem
>>
>>
>> Pada Rabu, 27 Agustus 2014 12:19, "Nang Agus nangagus@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>> Dear Pak Liem!
>> Coba Macronya dicoba dahulu seperti ini:
>>
>> Private Sub CommandButton2_Click()
>> Dim pileku As String
>> pileku = InputBox(Prompt:="Ketikkan Nama file", _
>> Title:="Masukkan Nama File", Default:="A.xlsx")
>> Windows(pileku).Activate
>> Sheets("sheet1").Range("B3:N16").Copy
>> Windows("B.xlsm").Activate
>> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>> Windows(pileku).Activate
>> Sheets("sheet1").Range("B34:N47").Copy
>> Windows("B.xlsm").Activate
>> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>
>> End Sub
>>
>>
>> Salam
>> NangAgus
>>
>> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
>> <belajar-excel@yahoogroups.com> wrote:
>> > ini saya coba lampirkan file yang sudah saya dumi kan.
>> >
>> >
>> >
>> >
>> >
>> >
>> > Pada Rabu, 27 Agustus 2014 10:11, "Nang Agus nangagus@gmail.com
>> > [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>> >
>> >
>> >
>> >
>> >
>> >
>> > Dear Pak Liem.
>> >
>> >
>> > Bagaimana apabila perintah copynya masih di VBA tapi perintah tempat
>> > ngopinya yang manual.
>> > Misalnya Range yang akan dikopi diketik pada workbook A Sheet1 Range
>> > A1. atau dapat pula diketikkan di userform yang kita buat. Range
>> > tersebut kita gunakan untuk acuan Kopi.
>> > Kira-kira begini cekripnya:
>> > Range(sheet1.range(A1).value).copy
>> >
>> >
>> > Wasalam
>> > NangAgus
>> >
>> >
>> > On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
>> > <belajar-excel@yahoogroups.com> wrote:
>> >> pak agus..
>> >> nah itu pak agus masalahnya..
>> >> gambaran manualnya begini pak
>> >>
>> >>
>> >> saya buka 2 workbok A dan B.
>> >> saya kopi B2:B10 yang ada di worbok A(ini memang yang saya ingin
>> manual)
>> >> lalu saya pindah ke wrkbook B saya pilih cell F3 saya tekan
>> >> ctrl+shift+tanda
>> >> panah bawah...lalu saya pilih satu cell dibawahnya
>> >> lalu saya paste spesial.
>> >>
>> >>
>> >> nah yang ingin saya wakilkan ke makro adalah proses
>> >> pilih cell F3 saya tekan ctrl+shift+tanda panah bawah...lalu saya pilih
>> >> satu
>> >> cell dibawahnya
>> >> lalu saya paste spesial value.
>> >>
>> >>
>> >> tapi sepertinya waktu jalankan sekrip, proses kopi di workbok A sudah
>> >> tidah
>> >> aktip.
>> >>
>> >>
>> >> Pada Rabu, 27 Agustus 2014 9:35, "Nang Agus nangagus@gmail.com
>> >> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>> >>
>> >>
>> >>
>> >>
>> >>
>> >>
>> >> Dear Pak Liem,
>> >>
>> >>
>> >> Cekrip yang dibuat sudah betul pak, tapi si Excel bingung, disuruh
>> >> mem-Paste special dengan masakan yang paling enak, tetapi bahan yang
>> >> untuk masak belum ada. belikan dulu dong pak!
>> >> Tambahkan cekrip Kopi di atasnya baru si excel bis kerja.
>> >>
>> >>
>> >> Saya pernah dipesen sama Mr. Kid, sebaiknya cekrip tersebut disingkat
>> >> menjadi:
>> >> Range("F3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>> >>
>> >>
>> >> Salam
>> >> NangAgus
>> >>
>> >>
>> >> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
>> >> <belajar-excel@yahoogroups.com> wrote:
>> >>> pak hk dan mr.kid
>> >>
>> >>>
>> >>>
>> >>> Sub Macro4()
>> >>> Range("f3").End(xlDown).Offset(1).Select
>> >>> Selection.PasteSpecial Paste:=xlPasteValues
>> >>> End Sub
>> >>>
>> >>>
>> >>> memilih cell akir +1 setelah data sudah bisa, akan tetapi ketika mau
>> >>> menambahkan sekrip paste spesial masih debug.
>> >>> (karena keterbatasan pengetahuan saya)
>> >>>
>> >>>
>> >>> jadi ceritanya begini saya punya 2 worbook A dan B lha isi workbook A
>> >>> itu
>> >>> datanya per tanggal
>> >>> misal A1 berisi 28 agt 2014 B2:K10 berisi data
>> >>> A12 berisi 29 agt 2014 B14:K30 berisi data
>> >>>
>> >>>
>> >>> nah maksud saya ingin copi data B2:B10 secara manual dan saya pastekan
>> >>> ke
>> >>> workbook B dengan bantuan si makro tersebut.
>> >>> begitu juga seterusnya saya ingin lagi mengulang kopi B14:B30 secara
>> >>> manual
>> >
>> >>> lalu saya pastekan lagi di workbok B dibawahnya data yang sudah ada.
>> >>> (kedua
>> >>> workbook dalam keadaan terbuka)
>> >>>
>> >>>
>> >>> (maksudnya biar workbook B bisa berkaidah data yang baik)
>> >>>
>> >>>
>> >>>
>> >>>
>> >>> salam
>> >>> liem
>> >>>
>> >>>
>> >>>
>> >>>
>> >
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>> Pada Rabu, 27 Agustus 2014 6:39, "'Mr. Kid' mr.nmkid@gmail.com
>> >>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>> Hai Liem,
>> >>>
>> >>>
>> >>> Misal F3 adalah range awal. Data kontinyu sampai F10. Ingin cell aktif
>> >>> di
>> >>> F11 (1 cell dibawah cell terakhir data kontinyu)
>> >>> Range("f3").end(xldown).offset(1).activate
>> >>> *** ganti activate dengan copy (jika ingin copy cell), pastespecial
>> >>> xlpastevalues (jika ingin paste special values), dsb
>> >>>
>> >>>
>> >>> Bagaimana kalau coba jalan-jalan lihat-lihat tentang range mulai dari
>> >>> sini.
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>> Wassalam,
>> >>> Kid.
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>> 2014-08-26 19:58 GMT+10:00 Liem Suliem liemsuliem@yahoo.co.id
>> >>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>> >>>
>> >>>
>> >>>
>> >>>>
>> >>>>dh dear master saya coba rekam makro dengan bunyi seperti dibawah..
>> >>>>yang ingisaya tanyakan bagaimana bunyi sekrip untuk memilih atau
>> select
>> >>>> 1
>> >>>> cel dibawahnya setelah dilakukan xldown
>> >>>>misal saya lakukan xldown F3:F10 tapi setelah saya lakukan xldown saya
>> >>>> ingin cell terplih adalah 1 cell dibawahnya yaitu F11
>> >>>>mohon arahan skripnya seperti apa..
>> >>>
>> >>>>
>> >>>>
>> >>>>
>> >>>>Sub Macro4()
>> >>>> Range("F3").Select
>> >>>> Range(Selection, Selection.End(xlDown)).Select
>> >>>>End Sub
>> >>>>
>> >>>>
>> >>>>salam
>> >>>>
>> >>>
>> >>>>
>> >>
>> >>>>liem
>> >>>>
>> >>>
>> >>>
>> >>>
>> >>
>> >>
>> >>
>> >
>> >
>> >
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>

Fri Aug 29, 2014 9:34 pm (PDT) . Posted by:

"Liem Suliem" liemsuliem

niki pak agus sing pun kulo edit.. dan berjalan sesuai yang dinginkan


tapi sing niki maksute pripun
1. belum didefinisikan variabel untuk aduhh dengan tipe string.


saya tambahai dim aduhh as string seprtinya sama..



Private Sub CommandButton3_Click()
Dim pileku As String
Dim celladd As String
Dim splitlist As Variant
Dim aduhh As String 'tambah ini atau tidak sekrip jalan

On Error GoTo Err
pileku = Application.GetOpenFilename(Title:="Tulung Bikak Setunggal File Mawon", _
FileFilter:="Excel Files *.xls* (*.xls*),")
splitlist = VBA.Split(pileku, "\")
aduhh = splitlist(UBound(splitlist, 1))
Workbooks.Open pileku
Sheets("Rincian").Range("C10").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 15).Address(False, False)
Sheets("Rincian").Range("C10:" & celladd).Copy
Windows("Monitoring Jadwal.xlsm").Activate
Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Workbooks.Open pileku
Sheets("Rincian").Range("C55").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 15).Address(False, False)
Sheets("Rincian").Range("C55:" & celladd).Copy
Windows("Monitoring Jadwal.xlsm").Activate
Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

Exit Sub
Err:
MsgBox "Mboten Tamtu Mbikak", vbExclamation, "Error"
End Sub


salam
liem




Pada Sabtu, 30 Agustus 2014 10:41, "Nang Agus nangagus@gmail.com [belajar-excel]" menulis:



Dear Pak Liem,


Cekripttt yang baru saja saya kirimkan ada beberapa kekurangan, tolong dilengkapi. antara lain:

1. belum didefinisikan variabel untuk aduhh dengan tipe string.

2. belum ada trap untuk cancel open file. (jika cancel open file akan error)


Wasalam

NangAgus















Fri Aug 29, 2014 9:45 pm (PDT) . Posted by:

"Nang Agus"

Der PaK Liem,

Mohon maaf ternyata saya salah tentang variabel aduhh,
silahkan variabel aduhh beserta formulanyua dapat dibuang.
jadi cekrip panjenengan dapat dipersingkat menjadi:

Private Sub CommandButton3_Click()
Dim pileku As String
Dim celladd As String
On Error GoTo Err

pileku = Application.GetOpenFilename(Title:="Tulung Bikak Setunggal File
Mawon", _
FileFilter:="Excel Files *.xls* (*.xls*),")
Workbooks.Open pileku
Sheets("Rincian").Range("C10").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 15).Address(False, False)
Sheets("Rincian").Range("C10:" celladd).Copy
Windows("Monitoring Jadwal.xlsm").Activate
Range("F" Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Workbooks.Open pileku

Sheets("Rincian").Range("C55").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 15).Address(False, False)
Sheets("Rincian").Range("C55:" celladd).Copy
Windows("Monitoring Jadwal.xlsm").Activate
Range("F" Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

Exit Sub
Err:
MsgBox "Mboten Tamtu Mbikak", vbExclamation, "Error"
End Sub

Dicobi rumiyin,

Salam

Nang Agus

2014-08-30 11:13 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> niki pak agus sing pun kulo edit.. dan berjalan sesuai yang dinginkan
>
> tapi sing niki maksute pripun
>
> 1. belum didefinisikan variabel untuk aduhh dengan tipe string.
>
> saya tambahai dim aduhh as string seprtinya sama..
>
> Private Sub CommandButton3_Click()
> Dim pileku As String
> Dim celladd As String
> Dim splitlist As Variant
> Dim aduhh As String 'tambah ini atau tidak sekrip jalan
> On Error GoTo Err
>
> pileku = Application.GetOpenFilename(Title:="Tulung Bikak Setunggal File
> Mawon", _
> FileFilter:="Excel Files *.xls* (*.xls*),")
> splitlist = VBA.Split(pileku, "\")
> aduhh = splitlist(UBound(splitlist, 1))
> Workbooks.Open pileku
> Sheets("Rincian").Range("C10").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 15).Address(False, False)
> Sheets("Rincian").Range("C10:" celladd).Copy
> Windows("Monitoring Jadwal.xlsm").Activate
> Range("F" Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
> Workbooks.Open pileku
>
> Sheets("Rincian").Range("C55").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 15).Address(False, False)
> Sheets("Rincian").Range("C55:" celladd).Copy
> Windows("Monitoring Jadwal.xlsm").Activate
> Range("F" Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
>
> Exit Sub
> Err:
> MsgBox "Mboten Tamtu Mbikak", vbExclamation, "Error"
> End Sub
>
> salam
> liem
>
>
> Pada Sabtu, 30 Agustus 2014 10:41, "Nang Agus nangagus@gmail.com
> [belajar-excel]" menulis:
>
>
>
> Dear Pak Liem,
>
> Cekripttt yang baru saja saya kirimkan ada beberapa kekurangan, tolong
> dilengkapi. antara lain:
> 1. belum didefinisikan variabel untuk aduhh dengan tipe string.
> 2. belum ada trap untuk cancel open file. (jika cancel open file akan
> error)
>
> Wasalam
> NangAgus
>
>
>
>

Fri Aug 29, 2014 10:16 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Ada 2 tahapan yang diperlukan:
1. Mencari Unique Values (pake User Defined Function (UDF) "LOUV" nya mbak Siti, array formula ada #N/A) --> Kolom di Group (bisa disembunyikan)
2. Menggabungkan Unique Values tsb dgn separator "," (koma)...bukan array formula (#N/A tidak disorot)
Semoga membantu.

Salam,
HK

On Friday, 29 August 2014, 16:44, "ris ha har1sn.excel@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


Assalamu'alaikum. Maaf tanya lagi...,

Bagaimana caranya mentransfer data Column menjadi satu Row dan data yang sama pada Column tidak ditampilkan kembali pada Row. File terlampir.

Terima Kasih Banyak dan sukses selalu pada para master excel
=====================================================================
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
---------------------------------------------------------------------
READ MORE....
Diposting oleh EXCEL FEED LEARNING di 02.13 0 komentar
Langganan: Postingan (Atom)