Salam semua pakar XL, khususnya mbak siti

sorry file ini aku pertanyakan sekarang, soalnya baru aja aku gabungin file master pesanan dengan file yang mbak siti kirim.

mengenai sistem tagihan harian ( file terlampir kembali, dengan tambahan kolom sedikit ) maunya kolom tambahan tersebut akan aku sisipkan kekolom setelah kolom alamat, tapi tentunya hasil yg didapatkan dari refresh ( tombol generate report ) akan mempengaruhi kolom tersebut, dan hasil clear report nya tidak sampai melebihi baris ke-20. aku coba buka VBA nya tapi terpassword( kalau boleh kasih tahu dong password nya, agar bisa dimodifikasi, soalnya akan saya gabungkan dengan yang lainnya)

oh ya menurut anda apakah file master(pesanan) dengan file tagihan dan file stok barang lebih baik digabung dalam satu file atau dipisah aja 

sebelumnya saya ucapkan terima kasih atas waktunya

salam belajar Excel yang makin hari makin beraneka pertanyaannya dan makin ok jawabannya

yudha

From: siti Vi <setiyowati.devi@...>
Subject: Re: [belajar-excel] Cara ubah kata secara otomatis
To: belajar-excel@yahoogroups.com
Date: Friday, November 13, 2009, 11:13 AM

 



membuat "variable" baru di sheet "master" ?

tinggal mengetikkan di salah satu cell

misal di F3 ditulis "SEP-DES"

 

lalu di para "sheet SDN"  di cell tertentu yg dikehendaki muncul "SEP-DES"

tinggal ditulis rumus / rujukan  =Master!F3

 

itu karena cell F3 tidak diberi NAMA

(memang tidak harus diberi nama kok)

 

Misalnya mau di beri nama

- select F3 (di sheet master)

- di NAME BOX (yaitu kotak sejajar dengan formula bar, dan berada di atas header kolom A)

yg semula muncul F3 kita tulis NAMA Range nya, misal "Periode" (tanpa tanda kutip)

 

dengan diberi nama maka rumus di sheet lain tidak perlu =Masater!F3 tetapi cukup =Periode.

 

 

 

 

----- Original Message -----
From: guru muda
To: belajar-excel@ yahoogroups. com
Sent: Friday, November 13, 2009 5:17 PM
Subject: Re: [belajar-excel] Cara ubah kata secara otomatis

Terima kasih atas bantuan Ibu Siti. File dari Ibu sangat bermanfaat.

Saya mau tanya lagi; gimana caranya menambah variabel. hal ini saya

anggap penting karena saya mau mengubah juga kolom F,

JUMLAH/PERUNTUKAN BULAN.

Yang sekarang MEI-AGUSTUS mau saya ubah SEPTEMBER-DESEMBER

atau saya singkat aja ya jadi SEPT-DES.

Terima kasih


--- On Fri, 11/13/09, siti Vi <setiyowati.devi@ gmail.com> wrote:

From: siti Vi <setiyowati.devi@ gmail.com>
Subject: Re: [belajar-excel] Cara ubah kata secara otomatis
To: belajar-excel@ yahoogroups. com
Date: Friday, November 13, 2009, 12:21 AM
 
Kalau tanpa membuka FIle bisa mengubah data.. ya sulit to pak guru..

Walaupun pakai makro, pengubahan data dlm suatu file,  juga tetap
dengan membuka file, mengubah data didalamnya, lalu menutup kembali file tsb
(tanpa sepenglihatan user)

alternatif 1 (jangan pakai makro dulu)
dengan syarat :  jika file tidak harus terpisah

a. buatlah semua sheet di dalam 1 workbook saja
b. buat satu sheet tambahan berinama misalnya master
c. didalam master ini dibuat data variable (yg mau diubah tiap bulan
misal tahun, bulan awalperiode dan bulan akhirperiode
(lihat sheet master dlm workbook contoh)
ketiga variable itu dapat anda ubah manual

d
agar variable yg ada di sheet master MENULAR ke sheet SDN-SDN
yg ada di workbook tsb
setiap sheet workbook perlu diubah sedikit
e
di dalam setiap sheet SDN
ada 3 cell yg dulunya berisi konstanta teks sekarang diubah menjadi rumus / formula
(lihat  di sheet contoh SDN 3 cell yg diberi warna bekgron biru muda

dgn cara ini sekali ubah di sheet master semua sheet SD dlm workbook tsb menjadi
updated.

Kalau ternyata tiap sheet itu harus dikirim ke pihak tertentu, kita dapat mengcopy
sheet tsb ke workbook baru, lalu
(klik kanan tab sheet > Move & copy.. dst)
range di sheet sdn dlm workbook hasil copy sebelum dikirim di COPY lalu
di paste special > value ke range itu sendiri
(mengubah rumus  menjadi konstanta (data teks biasa.)

Jika usulan ini ternyata masih belum memenuhi keinginan otomatisnya,
tentu masih ada alternatif ke 2 pengubahan dengan makro (akan ditulis jika diminta)

titip salam  buat para murids di Tanah Asri, Tanah Datar ya pak
(di propinsi mana sih?)
"dengan ucapan" : rajin-rajinlah belajar

From: siti Vi <setiyowati.devi@...>
Subject: Re: [belajar-excel] Cara ubah kata secara otomatis
To: belajar-excel@yahoogroups.com
Date: Friday, November 13, 2009, 12:21 AM

 

Kalau tanpa membuka FIle bisa mengubah data.. ya sulit to pak guru..

 

Walaupun pakai makro, pengubahan data dlm suatu file,  juga tetap

dengan membuka file, mengubah data didalamnya, lalu menutup kembali file tsb

(tanpa sepenglihatan user)

 

 

alternatif 1 (jangan pakai makro dulu)

dengan syarat :  jika file tidak harus terpisah

 

a. buatlah semua sheet di dalam 1 workbook saja

b. buat satu sheet tambahan berinama misalnya master

c. didalam master ini dibuat data variable (yg mau diubah tiap bulan

misal tahun, bulan awalperiode dan bulan akhirperiode

(lihat sheet master dlm workbook contoh)

ketiga variable itu dapat anda ubah manual

 

d

agar variable yg ada di sheet master MENULAR ke sheet SDN-SDN

yg ada di workbook tsb

setiap sheet workbook perlu diubah sedikit

e

di dalam setiap sheet SDN

ada 3 cell yg dulunya berisi konstanta teks sekarang diubah menjadi rumus / formula

(lihat  di sheet contoh SDN 3 cell yg diberi warna bekgron biru muda

 

dgn cara ini sekali ubah di sheet master semua sheet SD dlm workbook tsb menjadi

updated.

 

Kalau ternyata tiap sheet itu harus dikirim ke pihak tertentu, kita dapat mengcopy

sheet tsb ke workbook baru, lalu

(klik kanan tab sheet > Move & copy.. dst)

range di sheet sdn dlm workbook hasil copy sebelum dikirim di COPY lalu

di paste special > value ke range itu sendiri

(mengubah rumus  menjadi konstanta (data teks biasa.)

 

Jika usulan ini ternyata masih belum memenuhi keinginan otomatisnya,

tentu masih ada alternatif ke 2 pengubahan dengan makro (akan ditulis jika diminta)

 

titip salam  buat para murids di Tanah Asri, Tanah Datar ya pak

(di propinsi mana sih?)

"dengan ucapan" : rajin-rajinlah belajar

 

 

 

----- Original Message -----

From: guru muda

To: belajar-excel@ yahoogroups. com

Sent: Thursday, November 12, 2009 6:47 PM

Subject: [belajar-excel] Cara ubah kata secara otomatis

Kami setiap 4 bulan sekali mengajukan tambahan penghasilan ke Pemkab. Masing-masing SD dijadikan file tersendiri. Persoalan yang kami hadapi adalah apabila kami ingin mengubah kata-kata tertentu misalnya nama bulan, tahun, dan lain-lain harus mengubahnya secara manual. Dan tentu saja kami harus membuka satu per satu file excel tersebut. Ini tentu saja memakan waktu cukup lama karena jumlah filenya ada 21 (ada 21 SDN). Oleh karena itu kami mohon bantuan para pakar excel agar ditunjukkan cara agar kami bisa ubah kata-kata tertentu yang ada pada file-file itu secara otomatis (tanpa perlu buka file satu per satu). Sebagai contoh: Jika kami ingin mengubah nama bulan Mei menjadi September, kami tidak perlu buka satu demi satu file kami. Selengkapnya lihat lampiran Terima kasih.

From: siti Vi <setiyowati.devi@...>
Subject: Re: [belajar-excel] menghindari program berhenti...
To: belajar-excel@yahoogroups.com
Date: Wednesday, November 11, 2009, 4:31 PM

 



nah kalo gini kan jadi JLAZZ adanya...
tarengkyu mas Mr. kid...  (lagi sibuk ya...)

oiya, penulisan OnError duwa kali itu menuruti kabar dari pak wahyu

(yg di excel 2003 KU ternyata masih ELLOL-ELLOL zuga....)

habisnya pak wahyu tidak menyertakan code yg dicoba.. (agar bisa

siti coba juga di pc KU)

-------

btw

menurutku (masih ngeyel nih..)

khusus pemilihan fungsi (keadaan mengharuskanspt itu)

jika sudah ada fungsi di VBA, kita sebaiknya gunakan dulu sebelum pinjam

fungsi dari workshet

seperti kasus pinjam FIND / padahal VBA sudah punya InStr

 

 

 

 

----- Original Message -----
From: Mr. Kid
To: belajar-excel@ yahoogroups. com
Sent: Thursday, November 12, 2009 3:43 AM
Subject: Re: [belajar-excel] menghindari program berhenti...

@Mr. Zam,
daripada berurusan dengan error message yang memang harus hati-hati, selama bisa menggunakan fungsi yang jarang menghasilkan error message.

jadi baris kode untuk hal itu, menjadi 2 baris saja :

strCurrent = OrderTable(EdRecNo, 17)
strCurrent = trim$(mid$(strCurre nt, instr(1, strCurrent, ";") +1 , len(strCurrent ) +1))

tapi, jika strCurrent (yang jadi strRemark -- hasil proses) akan ditulis ke cell, tetap gunakan
OrderTable(EdRecNo, 17)=strcurrent

jangan langsung :
OrderTable(EdRecNo, 17) = trim$(mid$(strCurre nt, instr(1, strCurrent, ";") +1 , len(strCurrent ) +1))



@mbak Siti
di xl2007, dengan 1 baris On Error Resume Next bisa (tidak perlu 2).
dari sifat trap error dengan on error, maka baris
                i = WorksheetFunction. Find("ada" , "di jakarta")
akan dilewati jika menghasilkan error (i tidak akan diperbarui nilainya).

jadi, jika dalam sebuah loop, i akan bernilai hasil proses loop terakhir yang tidak menghasilkan error.


biasanya, kalau hasil i yang sangat dibutuhkan untuk proses selanjutnya pada loop tersebut juga, disertai baris pengisi nilai default yang dipakai :


i = WorksheetFunction. Find("ada" , "di jakarta")
if err.number<>0 then
      i=2009       'misal jika i hasilnya error, set jadi nilai default, yaitu butuhnya 2009
      err.clear
end if
msgbox i

Tapi ndak tahu dengan xl2003 dan sebelumnya.
Kid.


2009/11/12 siti Vi <setiyowati.devi@ gmail.com>

kalau bisa (menghilangkan timbulnya error message)
terus fungsi itu menghasilkan data apa ?

misal  (mohon dicoba di pc pak wahyu)

Sub coba1()
Dim i As Integer
On Error Resume Next
On Error Resume Next
i = WorksheetFunction. Find("ada" , "di jakarta")
MsgBox i
End Sub

Sub coba2()
Dim i As Integer
' On Error Resume Next
i = WorksheetFunction. Find("ada" , "berada di jakarta")
MsgBox i
End Sub

pada sat sub coba1 dijalankan
msgbox menghasilkan apa ??

(sayangnya apa yg dikatakan "BISA mbak" itu codingnya seperti apa
kok ndak di tulis kemaree..)


----- Original Message -----
From: wahyu abdi
To: belajar-excel@ yahoogroups. com
Sent: Wednesday, November 11, 2009 7:01 PM
Subject: Re: [belajar-excel] menghindari program berhenti...

Bisa Mbak, saya pakai Excel 2007, dengan cara yang agak aneh "on error resume next" nya

saya ketik dua baris (mulanya iseng doang, tapi berhasil tuh), tadinya satu baris masih error mulu, kenapa ya?

From: siti Vi <setiyowati.devi@...>
Subject: Re: [belajar-excel] menghindari program berhenti...
To: belajar-excel@yahoogroups.com
Date: Wednesday, November 11, 2009, 6:22 AM

 



oh bisa to ?

(apa sudah di praktekkan ??)

kalau di pc ku, dari dulu  worksheetfunction. find jika diaplikasikan di vba,

kalau tidak menemukan substring yg dicari tentu menimbulkan error message
walaupun sudah didahului instruksi :
On Error Resume Next

atau mungkin pc / excel saya yg tidak standar ya...

----- Original Message -----
From: Puthut Wibowo
To: belajar-excel@ yahoogroups. com
Sent: Wednesday, November 11, 2009 5:18 PM
Subject: Re: [belajar-excel] menghindari program berhenti...


Tambahin :

On Error Resume Next
strCurrent = OrderTable(EdRecNo, 17)
        i = Application. WorksheetFunctio n.Find("; ", strCurrent)
        strReplaced =
Application. WorksheetFunctio n.Replace( Arg1:=strCurrent , Arg2:=1,
Arg3:=i, Arg4:="")
        TxtRemark = Application. WorksheetFunctio n.Trim(strReplac ed)

 ............


--- On Wed, 11/11/09, Ahmad Zamroni <ahzam05@gmail. com> wrote:

From: Ahmad Zamroni <ahzam05@gmail. com>
Subject: [belajar-excel] menghindari program berhenti...
To: "belajar-excel" <belajar-excel@ yahoogroups. com>
Date: Wednesday, November 11, 2009, 2:40 PM

Dear pakar macro,

Gimana caranya menkondisikan baris perintah berikut agar tidak timbul
error jika dari cell yang aktif tidak ditemukan yang dimaui, baik itu
karena cell kosong atau tidak ada karakter “;”?

        strCurrent = OrderTable(EdRecNo, 17)
        i = Application. WorksheetFunctio n.Find("; ", strCurrent)
        strReplaced =
Application. WorksheetFunctio n.Replace( Arg1:=strCurrent , Arg2:=1,
Arg3:=i, Arg4:="")
        TxtRemark = Application. WorksheetFunctio n.Trim(strReplac ed)


-zam-

From: Ahmad Zamroni <ahzam05@...>
Subject: [belajar-excel] menghindari program berhenti...
To: "belajar-excel" <belajar-excel@yahoogroups.com>
Date: Wednesday, November 11, 2009, 2:40 PM

Dear pakar macro,

Gimana caranya menkondisikan baris perintah berikut agar tidak timbul
error jika dari cell yang aktif tidak ditemukan yang dimaui, baik itu
karena cell kosong atau tidak ada karakter “;”?

        strCurrent = OrderTable(EdRecNo, 17)
        i = Application.WorksheetFunction.Find(";", strCurrent)
        strReplaced =
Application.WorksheetFunction.Replace(Arg1:=strCurrent, Arg2:=1,
Arg3:=i, Arg4:="")
        TxtRemark = Application.WorksheetFunction.Trim(strReplaced)


-zam-


------------------------------------

bergabung ke milis (subscribe)
kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com

posting ke milis
kirim kan ke: belajar-excel@yahoogroups.com

berkunjung ke web milis:
http://groups.yahoo.com/group/belajar-excel/

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/

menhubungi moderators & owners:
belajar-excel-owner@yahoogroups.com

keluar dari milis (unsubscribe)
kirim mail kosong ke: belajar-excel-unsubscribe@yahoogroups.com   

ExcelWeb <http://opi.110mb.com/>Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/belajar-excel/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http://groups.yahoo.com/group/belajar-excel/join
    (Yahoo! ID required)

<*> To change settings via email:
    belajar-excel-digest@yahoogroups.com
    belajar-excel-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
    belajar-excel-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/

From: wahyu abdi <wahyu71@...>
Subject: Re: [belajar-excel] on error goto
To: belajar-excel@yahoogroups.com
Date: Sunday, November 1, 2009, 8:12 PM

 

Thanks Mr. Kid dan Mbak Vi, sama sekali nggak kepikiran kalau angka bisa di paksa jadi string   Salam Kompak Wahyu --- On Sun, 11/1/09, kid <nmkid.family@ gmail.com> wrote: From: kid <nmkid.family@ gmail.com> Subject: Re: [belajar-excel] on error goto To: belajar-excel@ yahoogroups. com Date: Sunday, November 1, 2009, 6:41 AM   Lalu bapaknya mau pakai InputBox yang mana ? hehehe... Mau input apa sih ? Semua data asli dganti jadi dummy ga apa kok.., kadang kala kalau gak tahu persis duduk perkaranya, malah membuat sesuatu yang mudah jadi ruwet lho.. Kalau mau membuat InputBox dalam loop, kira-kiranya begini aja deh. Dim sTemp as String on error resume next do       stemp=inputbox( "masukkan angka 1")       if stemp="1" then            msgbox "gitu dong, nurut sama komputer ya..."             exit do       endif loop until stemp=vbnullstring Bisa dicoba.. tapi, dimana pakainya ya... entahlah bisa dimana saja... fungsi inputbox baris :       stemp=inputbox( "masukkan angka 1") bisa diganti dengan method milik aplikasi menjadi :   stemp=application. InputBox("", ,,,,,,2) Baca help untuk lebih jelasnya. Kid. 2009/11/1 siti Vi <setiyowati.devi@ gmail.com>   maaf koreksi: 1 FUNGSI  Inputbox 2. METHOD InputBox (tidak ada property InputBox)         ----- Original Message ----- From: siti Vi To: belajar-excel@ yahoogroups. com Sent: Sunday, November 01, 2009 03:08PM Subject: Re: [belajar-excel] on error goto saya sudah menduga pertanyaan ini akan muncul. tetapi dari mula kan anda belum meyebutkan INPUT itu mau di masukkan dengan CARA apa ? (pak wahyu ini selalu menanyakan hal yg BELUM dibuat SPESIFIK !) agaknya beliau tidak suka mengajukan contoh kasus dlm bentuk workbook   Gini lho ya... Di Excel & VBA ada 2 macam inputbox 1. Property Inputbox 2. Method InputBox member dari Application   1 = Property InputBox : hanya mampu menghasilkan STRING Apapun yg dimasukkan ke inputbox seperti yg dibuat pak wahyu itu walaupun berupa karakter angka atau karakter yg dibentuk seperti DATE akan diterima sbg data string.   2 = Aplication.InputBox : dapat menerima berbagai macam type data / object asal di dalam penggunaannya kita menentuan TYPE nya   sekedar penjelasan (asal-asalan) ada di sini http://tech. groups.yahoo. com/group/ XL-mania/ message/8242             ----- Original Message ----- From: wahyu abdi To: belajar-excel@ yahoogroups. com Sent: Sunday, November 01, 2009 11:39AM Subject: Re: [belajar-excel] on error goto   Dear Mbak, Setelah dicoba dengan sedikit modifikasi hasilnya lain lo mbak, bisa copy paste contoh di bawah.   Sub whateverusaylah( )    Dim variableku As Variant variableku = InputBox(" masukkan angka 1 ") ''''variableku = 1 MsgBox TypeName(variableku ) variableku = "KAMU" MsgBox TypeName(variableku ) Set variableku = Sheets(1).Range( "A10:B15" ) MsgBox TypeName(variableku ) End Sub   salam wahyu --- On Fri, 10/30/09, siti Vi <setiyowati.devi@ gmail.com> wrote: From: siti Vi <setiyowati.devi@ gmail.com> Subject: Re: [belajar-excel] on error goto To: belajar-excel@ yahoogroups. com Date: Friday, October 30, 2009, 6:37 AM   ketika user menginput suatu data, lazimnya kita menampung data tsb ke dalam sebuah ariable. sebuah variable dapat diketahui tyedatanya: antara lain dengan memanfaatkan fungsi TypeName Jadi kalau type data tidak sesuai yg dikehendaki, kita langsung dapat mengantisipasi kesalahan input tsb. If TypeName(VariableMu ) = "String" Then '-------bla bla bla Else '------blli bli bli End If TypeName Function Returns a String that provides information about a variable. Syntax: TypeName(varname) The required varname argument is a Variant containing any variable except a variable of a user-defined type. Remarks The string returned by TypeName can be any one of the following: dst..... cobalah menjalankan prosedur ini, dan lihat apa yg terjadi.. Sub AntiSpesifikYa( ) Dim variableku As Variant variableku = 1 MsgBox TypeName(variableku ) variableku = "KAMU" MsgBox TypeName(variableku ) Set variableku = Sheets(1).Range( "A10:B15" ) MsgBox TypeName(variableku ) End Sub 2009/10/30 wahyu71 <wahyu71@yahoo. com>   Dear Milis, Saya mengalami kesulitan untuk perangkap error kesalahan input, contoh bila yang diminta input string yang diinput malah angka atau sebaliknya, saya coba pakai on error goto -----> looping ,hanya bisa untuk satu kali looping, sementara kesalahan input kan bisa berkali - kali. Bagaimana caranya ya untuk mengatasi masalah ini? Thanks sebelumnya. salam wahyu

From: siti Vi <setiyowati.devi@...>
Subject: Re: [belajar-excel] how to unhide worksheet
To: belajar-excel@yahoogroups.com
Date: Tuesday, November 10, 2009, 9:44 PM

 

bisa dengan vba, (maksudnya dgn pemrograman)

tetapi juga bisa secara manual

 

manual:

 

buka VBE (alt +F11)

di Project-Explorer, kllik ikon object sheet ybs.

bila belum tampak PropertiesBox, tekan F4

pada property box untuk sheet tsb cari property bernama Visible

ubah nilainya = -1

 

note:

Interface VBE (nama² bagian, menus, sub-menus, toolbars, ikon, dsb)

sebaiknya diakrabi oleh seorang penggemar vba ..

semuanya menjdi jelas bila kita pegang "peta dan kompas"nya.. ..

 

 

 

----- Original Message -----

From: "wahyu71" <wahyu71@yahoo. com>

To: <belajar-excel@ yahoogroups. com>

Sent: Wednesday, November 11, 2009 9:20 AM

Subject: [belajar-excel] how to unhide worksheet

> Dear Milis,
> Saya kesulitan setelah melakukan veryhide sheet lewat property,

> ketika akan dimunculkan kembali bagaimana caranya ya?
> Apa mesti pakai VBA?
> thanks