Sabtu, 01 Maret 2014

[belajar-excel] Digest Number 2808

7 Messages

Digest #2808

Messages

Fri Feb 28, 2014 5:18 am (PST) . Posted by:

"WIRAnata Kemala 鄧又銘" kwiranata

newbie coba bantu, pake VBA (yang super berantakan :)
maap kalo kurang berkenan :)

'for belajar-excel
'28 feb 2014

Sub gabung()

Dim lastrowGab As Long
Dim lastrowGab2 As Long

Worksheets("DATA1").Activate
Range("A4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'ActiveSheet.Previous.Select

Worksheets("GAB").Activate
Range("a7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

lastrowGab = Worksheets("GAB").Range("A65536").End(xlUp).Row + 1

Worksheets("DATA2").Activate
Range("A4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Worksheets("GAB").Activate
Range("A" & lastrowGab).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

lastrowGab2 = Worksheets("GAB").Range("A65536").End(xlUp).Row + 1
Range("A" & lastrowGab2).Select

End Sub

2014-02-28 16:33 GMT+07:00 Eko Noviyanto <eko_ny77@yahoo.co.id>:

>
>
> Dear Master XL,
>
> Mohon bantuannya untuk file terlampir, dimana yang menjadi pertanyaan
> adalah menggabungkan data dari 2 sheet menjadi 1 sheet.
>
> Teriimakasih atas bantuannya.
>
> Salam,
> Nopenk
>
>
>

--
regards, Wira 鄧又銘
on desktop FireFox

Fri Feb 28, 2014 2:01 pm (PST) . Posted by:

"Ratri Risyanto" risyanto12



From: Ratri Risyanto mailto:risyanto12@yahoo.com
Sent: Friday, February 28, 2014 1:31 PM
To: EXCEL GROUP mailto:belajar-excel@yahoogroups.com
Subject: SIMPAN DATA LISTVIEW KE EXCEL?




Yth: All Masters Excel

Bagaimana caranya menyimpan data listview ke excel? file terlampir...
Mohon bantuannya...
Terima kasih.

Hk,

Ratri Risyanto







Fri Feb 28, 2014 10:07 pm (PST) . Posted by:

summonery

Dear eko, Numpang solusi bila menggunakan add-in Power Query,
Setelah data source di set as table dan table query-nya terbentuk.
Pada bagian advanced editor, tulis script berikut ini:


let
Source = Table.Combine({Table1,Table2}),
RemovedColumns = Table.RemoveColumns(Source,{"NO."})
in
RemovedColumns



semoga bermanfaat


Fri Feb 28, 2014 10:34 pm (PST) . Posted by:

"Jan Raisin"

Dear Be-Exceller,

bagaimana cara install NPgSql untuk bisa menjalankan PQ di Excel ? Jan
sudah download dari http://pgfoundry.org/frs/?group_id=1000140 tetapi
bingung mau pasangnya.

Wassalam,

-Miss Jan Raisin-

Fri Feb 28, 2014 11:28 pm (PST) . Posted by:

summonery

Dear miss Jan, Mungkin petunjuk yang ada di link berikut ini bisa membantu:
http://office.microsoft.com/en-001/excel-help/connect-to-a-postgresql-database-HA104028095.aspx http://office.microsoft.com/en-001/excel-help/connect-to-a-postgresql-database-HA104028095.aspx



>semoga bermanfaat


---In belajar-excel@yahoogroups.com, <miss.jan.raisin@gmail.com> wrote:

Dear Be-Exceller,


bagaimana cara install NPgSql untuk bisa menjalankan PQ di Excel ? Jan sudah download dari http://pgfoundry.org/frs/?group_id=1000140 http://pgfoundry.org/frs/?group_id=1000140 tetapi bingung mau pasangnya.


Wassalam,


-Miss Jan Raisin-



Sat Mar 1, 2014 12:06 am (PST) . Posted by:

"Jan Raisin"

terima kasih atas responnya pak Anton,

a
kan Jan coba dulu

Wassalam,

-Miss Jan Raisin-

Pada 1 Maret 2014 14.28, <summonery@yahoo.com> menulis:

>
>
> Dear miss Jan,
> Mungkin petunjuk yang ada di link berikut ini bisa membantu:
>
> http://office.microsoft.com/en-001/excel-help/connect-to-a-postgresql-database-HA104028095.aspx
>
> >semoga bermanfaat
>
>
> ---In belajar-excel@yahoogroups.com, <miss.jan.raisin@gmail.com> wrote:
>
> Dear Be-Exceller,
>
> bagaimana cara install NPgSql untuk bisa menjalankan PQ di Excel ? Jan
> sudah download dari http://pgfoundry.org/frs/?group_id=1000140 tetapi
> bingung mau pasangnya.
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
> <https://groups.yahoo.com/group/belajar-excel/post;_ylc=X3oDMTJyN2c3dHBlBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAMzMDY0OQRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzEzOTM2NTg4OTk-?act=reply&messageNum=30649>
>
>
>
>
>

Fri Feb 28, 2014 11:29 pm (PST) . Posted by:

"Haris Rifai" haris.rifai

Mis. Jan Raisin.

Terimakasih Mis. Jan
Maaf kalo saya kurang jeli sama yang dimaksud Mr. Kid.

Saya sudah coba dengan membuat prosedur dalam userform, hasilnya memang file yang saya tuju bisa terbuka, tapi sheet tidak aktive alias tidak bisa di akses cuma bisa diliat tok. Yang masih aktiv adalah userform tempat command Button wat manggil/mengbuka file berada . Saya coba non aktikan userform dengan perintah "anload me" , hasilnya userform tertutup tapi file yang dibuka ga kliat.

Bagaimana cranya agar file yang saya panggil melalui useform bisa terbuka dan aktiv setelah userformnya tertutup.
Mohon maaf kalo saya ga faham-faham dan bolak balik tanya hal yang sama.

Pada Jumat, 28 Februari 2014 15:59, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

 
pak Haris,

coba dibaca kembali email balasan dari mr Kid sebelumnya, ini saya kutipkan secara lengkap:

<Quote>
hehehe...

kira-kira bunyi script yang Anda gunakan seperti apa ?

Misal ada file bernama Contoh1.xlsx di drive D pada folder bernama Belajar (pastikan ada file excel bernama contoh1.xlsx dulu ya)

Lalu buat file excel baru, dan bisa di-save misal dengan nama Filenya dengan type Excel Macro Enabled workbook (.xlsm)
Kemudian dibuat sebuah prosedur sub bernama BukaFile pada sebuah general module (code module)
Prosedur tersebut diisi dengan script :

dim wbkApp as workbook, wbkTarget as workbook
set wbkapp=thisworkbook
set wbktarget=workbooks.open( "d:\belajar&#92;contoh1.xlsx",2)
wbkapp.activate

sehingga bunyi prosedur sub bernama BukaFile menjadi :

public sub BukaFile()

   dim wbkApp as workbook, wbkTarget as workbook
   set wbkapp=thisworkbook
   set wbktarget=workbooks.open( "d:\belajar&#92;contoh1.xlsx",2)
   wbkapp.activate

end sub

Demikian contoh filenya.

Wassalam,

Kid.
</Quote>

petunjuknya ada di tulisan yang dimerahin ^_^

jika memakai tombol yang terletak di suatu form atau sheet, maka script yang di dalam tombol tersebut isinya adalah perintah memanggil prosedur yang tadi ditulis di modul
kira2 bunyinya seperti ini

Call nama_prosedurnya

Wassalam,

-Miss Jan Raisin-

Pada 28 Februari 2014 14.33, Haris Rifai <haris.rifai@yahoo.co.id> menulis:

> 
>Dear Mis. Jan Raisin.
>
>
>Sudah saya coba arahan dari Mis. Jan, tapi hasilnya masih sama yaitu file yang saya buka hanya nongol di taskbar tidak terbuka langsung, saya coba klik pada taskbar tetep aza ga kebuka.
>ini script yang saya buat pada commond button "DATABASE";
>
>
>Private Sub DataBase_Click() 
>          Dim wbkApp As Workbook, wbktarget As Workbook
>          Set wbkApp = ThisWorkbook
>          Set wbktarget = Workbooks.Open("J:&#92;Belajar VBA\Coba1.xlsx",2) 
>  ActiveWorkbook.Sheet("DATABASE").Activate
>        End Sub
>
>
>
>terimakasih.
>haris
>
>
>
>
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 04.48

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)