Fw: ]] XL-mania [[ supaya data terproses sendiri

Macro di bawah ini berfungsi untuk menyimpan file pada Dir dan Sub Dir tertentu sesuai dengan nama yang diinginkan (diinput) dan dengan extension tetentu.

Pilih salah satu baris program (xlsm, xls atau xlsb) dan non aktifkan dua baris program yang lain dengan memberi tanda apostropi(') untuk menyimpan file dengan extension tertentu.

Salah satu cara untuk mengkatifkan macronya adalah dengan menggunakan tombol Short Cut seperti yang disebutkan dalam pertanyaan.

Salam,

Hendrik Karnadi

Catatan : Macro yang tertulis di bawah dapat di copy paste ke sheet VBA (module1)

----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Wednesday, 10 October 2012, 16:19
Subject: Fw: ]] XL-mania [[ supaya data terproses sendiri

Untuk pertanyaan pertama coba buat macro ini pada module1:

Sub Tes()

    On Error GoTo Pesan

    Dim a As String

    a = InputBox("Masukkan Dir dan Sub Dir")

    ChDir a

    b = InputBox("Masukkan Nama File, mis. Testing")

    ActiveWorkbook.SaveAs Filename:=a & "\" & b, FileFormat:=xlOpenXMLWorkbookMacroEnabled 'xlsm

    ActiveWorkbook.SaveAs Filename:=a & "\" & b, FileFormat:=xlExcel8 'xls

    ActiveWorkbook.SaveAs Filename:=a & "\" & b, FileFormat:=xlExcel12 'xlsb

    Exit Sub

Pesan:

    MsgBox "Dir atau Sub Dir tidak ada"

End Sub

Salam,

Hendrik Karnadi

----- Forwarded Message -----
From: Erna Kustanti <ErnaKustanti@sbm.shimano.com.sg>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Wednesday, 10 October 2012, 8:05
Subject: RE: ]] XL-mania [[ supaya data terproses sendiri

 

Teman,

 

Saya ada salah satu cara untuk pertanyaan ke dua:

 

Di kolom F masukkan formula:

 

=right(E1,3)

 

Dia akan membaca dikolom E1 3 digit dari kanan jadi yang muncul "JKT"

Dengan catatan jika semua daerah singkatan nya Cuma 3 digit..

 

Semoga membantu.. J

 

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of anga
Sent: Tuesday, October 09, 2012 8:29 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ supaya data terproses sendiri

 

 

malam teman2 semua, Saya mau tanya,
beberapa hari yang lalu saya melihat teman saya menggunakan macro, dan saya sangat tertarik dengan hal tersebut,,

disini ada bebrapa hal yang mau saya tanyakan

1. bagaimana caranya supaya data kita bisa terproses sendiri hanya dengan memasukkan lokasi penyimpanan file "C:\Users\zin\Documents\TT"
waktu itu saya lihat teman saya hanya menekan tombol kombinasi "CTRL+R" maaka keluar window untuk memasukkan adress file

2. Bagaimana caranya jika saya mempunyai tabel A, B, C, D, E
di tabel E1 dan seterusnya berisi perpaduan antara nama orang dan daerah orang seperti :

Kolom E1 : Joni-JKT
Kolom E2 : Budi-BDG
Kolom E3 : Doni-SMR
dan seterusnya

bagaimana caranya supaya muncul kolom F secara otomatis yang isinya hanya mengenai nama daerah saja yang mengacu pada kolom E berdasarkan kode daerah yang terdapat dibelakang nama.

terimakasih, :)