- Untuk pertanyaan pertama, sepengetahuan saya yang masih terbatas, kita tidak dapat menulis (Stock After) ke suatu Worksheet dalam Workbook lain yang dalam keadaan tertutup, jadi mungkin harus dibuka dulu baru ditutup lagi (nah ini yang perlu keahlian tingkat tinggi selevel Mr. Kid dan almarhum "Siti Vi")
- Untuk mengambil (Stock Before) kayaknya bisa dengan Thisworkbook.Path ....."
- Untuk pertanyaan ketiga, coba gunakan advance filter dengan output kolom tertentu saja

Salam,
Hendrik Karnadi

usul : cari barang dan cari kode bisa merefer ke tbldatabarang (mungkin terpaksa dibuka dulu)

________________________________
From: sapicumi <sapicumi@rocketmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 3 October 2012, 18:30
Subject: Re: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON

Selamat malaam, saya ucapkan terimakasih kpd mr kid dan pak karnadi atas
pencerahan yg telah di berikan kepada saya sehingga saya dapat menyusun
program berbasis vba excel sbb file terlampir:
kl masih banyak kekurangan mohon maklum saran dan kritik sangat diharapkan
agar saya dapat lebih memahami lagi VBA excel ini trimakasih
-pass VBA "ko"
ada yg sedikit mau saya tanyakan
-bagaimana algoritma penulisan stok di sheet "tbldatabarang" >setelah input
dari sheet"frmbrngmasuk" atau sheet"frmbrngkeluar"
-setiap mengakses sheet"frmbrngmasuk"/frmbrngkeluar" setelah di search
berdasarkan nama barang ato kode barang ikut juga stock akhir saat itu
mengambil data dari sheet"tbldatabarang"
-sheet"tbldatabarang" nntnya setiap bulan akan di jadikan form/print Laporan
di sheet "Laporan"
penyusunanya :- nama barang
- Letak barang
- stok akhir (saat di cetak)
http://www.mediafire.com/?6x88w48hukfhwam(Contoh.Xlsm 492kb)

--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/LOGIN-FORM-EMBED-COMMANBUTTON-tp5712135p5712267.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.

Reply to sender . Reply to group . Reply via Web Post . All Messages (22) . Top ^

2b

Re: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON

Fri Oct 5, 2012 10:53 pm (PDT) . Posted by:

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

File myApp.xls dalam file terlampir bisa berusaha untuk ambil dan tambah
data ke sebuah file excel yang didedikasikan hanya untuk wadah data tanpa
embel-embel apapun (seperti file myDB.xls dalam file terlampir).

Untuk proses ubah data juga memungkinkan, dengan mengembangkan sedikit saja
dari file terlampir.
Yang belum dicoba secara menyeluruh adalah ketika file myDB.xls terbuka.
Biasanya, jika file myDB.xls sedang dibuka user, malah sering error. Tapi
ada baiknya untuk dicoba juga.

Wassalam,
Kid.

2012/10/6 hendrik karnadi <hendrikkarnadi@yahoo.com>

> **
>
>
> - Untuk pertanyaan pertama, sepengetahuan saya yang masih terbatas, kita
> tidak dapat menulis (Stock After) ke suatu Worksheet dalam Workbook lain
> yang dalam keadaan tertutup, jadi mungkin harus dibuka dulu baru ditutup
> lagi (nah ini yang perlu keahlian tingkat tinggi selevel Mr. Kid dan
> almarhum "Siti Vi")
> - Untuk mengambil (Stock Before) kayaknya bisa dengan Thisworkbook.Path
> ....."
> - Untuk pertanyaan ketiga, coba gunakan advance filter dengan output kolom
> tertentu saja
>
> Salam,
> Hendrik Karnadi
>
> usul : cari barang dan cari kode bisa merefer ke tbldatabarang (mungkin
> terpaksa dibuka dulu)
>
> ------------------------------
> *From:* sapicumi <sapicumi@rocketmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, 3 October 2012, 18:30
> *Subject:* Re: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
> Selamat malaam, saya ucapkan terimakasih kpd mr kid dan pak karnadi atas
> pencerahan yg telah di berikan kepada saya sehingga saya dapat menyusun
> program berbasis vba excel sbb file terlampir:
> kl masih banyak kekurangan mohon maklum saran dan kritik sangat diharapkan
> agar saya dapat lebih memahami lagi VBA excel ini trimakasih
> -pass VBA "ko"
> ada yg sedikit mau saya tanyakan
> -bagaimana algoritma penulisan stok di sheet "tbldatabarang" >setelah input
> dari sheet"frmbrngmasuk" atau sheet"frmbrngkeluar"
> -setiap mengakses sheet"frmbrngmasuk"/frmbrngkeluar" setelah di search
> berdasarkan nama barang ato kode barang ikut juga stock akhir saat itu
> mengambil data dari sheet"tbldatabarang"
> -sheet"tbldatabarang" nntnya setiap bulan akan di jadikan form/print
> Laporan
> di sheet "Laporan"
> penyusunanya :- nama barang
> - Letak barang
> - stok akhir (saat di cetak)
> http://www.mediafire.com/?6x88w48hukfhwam(Contoh.Xlsm 492kb)
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/LOGIN-FORM-EMBED-COMMANBUTTON-tp5712135p5712267.html
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (22) . Top ^

3a

bahasakan rumus

Fri Oct 5, 2012 11:45 pm (PDT) . Posted by:

"utthank abe" abe_utthank

azw
mau nanya bagaimana membahasakan (maksud) dari rumus pada formula array

*COUNTIF*(*range*,*criteria*)
=COUNTIF(B11:B20;"<"&B11:B20)

countif --> Hitung jika
range --> B11:B20 --> batazannya adalah mulai dari cell B11 sampai cell B20
criteria --> "<"&B11:B20 --> ini maksudnya bagaimana?

*ROW*(reference)
=ROW(1:10)
Row --> bariz
reference --> 1:10 --> makzudnya angka terzebut? zebab hazil yang di
berikan zelalu 1

tq

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

3b

Re: bahasakan rumus

Sat Oct 6, 2012 5:14 am (PDT) . Posted by:

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

Waalaikumussalam Wr. Wb.

Pak Abe,

>> array formula =COUNTIF(*B11:B20*;*"<"&B11:B20*)
Bahasa manusianya :
"hitung jumlah cacah bersyarat [CountIF], semua data [*B11:B20*] yang *kurang
dari setiap nilai *dalam suatu area [*"<"&B11:B20*]"

Formula diatas berjenis array formula, karena kriteria adalah berupa array
yang tersusun dari beberapa cells

Untuk fungsi CountIF,
1. Excel mengerjakannya berdasar tipe datanya.
- Jika *kriteria* (selain operator perbandingan) bertipe teks, maka
akan dicari pada *range data* yang bertipe teks juga
- Begitu juga dengan kriteria bertipe numerik
2. Kriteria bertipe teks bisa menggunakan wildcard character sebarang
karakter (*) atau sebuah karakter (?)
3. Penggunaan operator perbandingan ( = < > <= >= <> ) pada kriteria
bertipe teks akan dimembandingkan *byte teks (a < B)* secara *case
insensitive* *(A=a)*

>> formula =ROW(*1:10*)
Bahasa manusianya :
"Ambilkan data nomor baris Excel pada suatu *area*"

Hasilnya adalah nomor baris Excel, mulai dari 1 sampai sekian tergantung
jumlah item dalam area. Pada formula di atas, areanya berbentuk baris (area
baris)
Area bisa berupa sebuah cell juga.

Karena areanya terdiri dari banyak cells, maka jenis formula adalah array
formula (diEnter dengan CTRL SHIFT ENTER). Jika tidak diEnter sebagai array
formula, maka item pertama hasil yang diambil. Pada formula di atas, akan
setara dengan formula berbunyi =Row(1:1)

Wassalam,
Kid.

2012/10/6 utthank abe <abeutthank@gmail.com>

> **
>
>
> azw
> mau nanya bagaimana membahasakan (maksud) dari rumus pada formula array
>
> *COUNTIF*(*range*,*criteria*)
> =COUNTIF(B11:B20;"<"&B11:B20)
>
> countif --> Hitung jika
> range --> B11:B20 --> batazannya adalah mulai dari cell B11 sampai cell B20
> criteria --> "<"&B11:B20 --> ini maksudnya bagaimana?
>
>
> *ROW*(reference)
> =ROW(1:10)
> Row --> bariz
> reference --> 1:10 --> makzudnya angka terzebut? zebab hazil yang di
> berikan zelalu 1
>
> tq
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

4 Aplikasi Stok gudang

Fri Oct 5, 2012 11:59 pm (PDT) . Posted by:

"Ujang Haryanto" uharyanto@ymail.com

Dear BE

Mohon bantuan rekan - rekan belajar excel bagi yang mempunyai
aplikasi dari excel untuk perhitungan stok gudang, meliputi
barang masuk, barang keluar, peruntukan, laporan posisi
stok barang sudilah kiranya dapat berbagi.

Demikian, terimakasih.

Salam,
-uhr-

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

5a

Bls: [belajar-excel] INPUT, EDIT & PINDAH TABEL

Sat Oct 6, 2012 5:05 am (PDT) . Posted by:

"Harry" hariansyahptk

Dear BeExceller,

Terima kasih atas jawaban dan penjelasannya.
Lebih jauh mengenai Studi kasus ini, bagai mana caranya
jika Sheet1 & Sheet2 kita pisahkan menjadi file yang berbeda dengan nama
file "DATABASE.xls".
Berarti dalam Studi kasus ini ada 2 file yaitu File "INPUT,
EDIT & PINDAH TABEL (REVISI).xls" (isinya USER FORM) & File "DATABASE"
(isinya Sheet1 & Sheet2 sebagai database).

Saya sudah mencoba menggunakan rumus sebagaimana tertulis
dibawah, tetapi hal tersebut hanya bisa digunakan untuk penginputan data.
Sedangkan untuk Pengeditan dan Perpindahan data sebagaimana penjelasan yang
telah Bp. Aji Mumpung & Mr. Kid berikan. Tetapi tidak mudah buat saya untuk
mengkotak-katiknya untuk mendapatkan yang saya inginkan.

Mohon solusi dan penjelasannya.
Terima kasih

Regards,

Harry

N/B: Rumus yang telah digunakan :

Private
Sub UserForm_Initialize()
    'deklarasi variabel workbook
    Dim wbkA As Workbook, wbkAKTIF As Workbook

    'init workbooknya
    Set wbkA = ThisWorkbook

    '--- WBK READ ONLY ??? ---' >> START
    Dim lTry As Long, lJeda As Long
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
CobaBuka:
    For lTry = 1 To 20
        Set wbkAKTIF = Workbooks.Open(wbkA.Path
& "\DATABASE.xls")
   Dim I As Long, TbHeigh As Long, TbWidth
   Set MemMaster =
Sheets("Sheet1").Cells(1).CurrentRegion
   TbHeigh = MemMaster.Rows.Count - 1
   TbWidth = MemMaster.Columns.Count - 1
   Set MemMaster = MemMaster.Offset(4,
0).Resize(TbHeigh, TbWidth)

   Application.EnableEvents = False
   With Cbonama
      .ColumnCount = 2
      .BoundColumn = 1
      For I = 1 To TbHeigh
         .AddItem
         .List(I - 1, 0) = MemMaster(I, 2)
      Next I
   End With
   Application.EnableEvents = True
        If wbkAKTIF.ReadOnly Then
            wbkAKTIF.Close False
            If lTry = 20 Then
                If MsgBox("Sudah dicoba
membuka " & lTry & _
                        " kali, dan masih
digunakan oleh instansi Excel yang lain" & vbCrLf & _
                        "Coba lagi
?", vbExclamation + vbYesNo, "Akses ke DATABASE") = vbYes Then
                    GoTo CobaBuka
                Else
                    Application.ScreenUpdating
= False
                    Exit Sub
                End If
            End If
        Else
            wbkA.Activate
            Exit For
        End If
        For lJeda = 1 To 100000000
        Next lJeda
    Next lTry
    Application.ScreenUpdating = True
    '--- WBK READ ONLY ??? ---' >> END

End
Sub

   Dim iRow As Long, Reg As Range, oCtrl As
Control
   Dim wbkA As Workbook, wbkAKTIF As Workbook

   On Error Resume Next
Set
wbkA = ThisWorkbook
If
Workbooks("DATABASE.xls") Is Nothing Then
     Set wbkAKTIF = Workbooks.Open(wbkA.Path
& "\DATABASE.xls")
Else
    Set wbkAKTIF =
Workbooks("DATABASE.xls")
End
If
wbkA.Activate

   Set Reg = wbkAKTIF.Worksheets("Sheet1").Cells(1)

   'find second empty row in database

   iRow = Reg(Rows.Count,
2).End(xlUp).Offset(1, 0).Row

…………….. ……………. ……………
…………….. ……………. ……………

…………….. ……………. ……………

End Sub

________________________________
Dari: aji mumpung <pupung1986@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 3 Oktober 2012 22:46
Judul: Re: [belajar-excel] INPUT, EDIT & PINDAH TABEL

coba cek link berikut

http://tech.dir.groups.yahoo.com/group/belajar-excel/message/19518

Pada 3 Oktober 2012 21:06, Harry <hariansyahptk@yahoo.com> menulis:

>
>Judul postingnya apa ya...???
>
>
>
>________________________________
> Dari: aji mumpung <pupung1986@gmail.com>
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Rabu, 3 Oktober 2012 6:16
>
>Judul: Re: [belajar-excel] INPUT, EDIT & PINDAH TABEL
>
>
>
>
>sudah kah membaca postingan saya nun jauh di bawah sana?
>
>
>wassalam,
>
>
>-aji mumpung-
>
>
>Pada 3 Oktober 2012 04:30, Harry <hariansyahptk@yahoo.com> menulis:
>
>
>>
>>Dear BeExceller,
>>
>>Terima kasih atas jawabannya.
>>Untuk jawaban: .Offset(0, 1).Value = 1saya rasa tidak match dengna pertanyaan saya yang ada 3 poin atau mungkin saya yang masih bingung posisi menempatkan rumus tsb.
>>
>>Mohon berkenan kirimkan bantuannya langsung ke Contoh Kasus (User Form) terlampir (kmrn) agar jawabannya lebih tepat sasaran sprt yang saya maksudkan.
>>Terima kasih.
>>
>>
>>Harry
>>
>>
>>
>>
>>________________________________
>> Dari: aji mumpung <pupung1986@gmail.com>
>>Kepada: belajar-excel@yahoogroups.com
>>Dikirim: Senin, 1 Oktober 2012 16:47
>>
>>Judul: Re: [belajar-excel] INPUT, EDIT & PINDAH TABEL
>>
>>
>>
>>maksud awalnya offset(0,-1) buat kasih nomor di sebelah kiri nama pada saat baris pertama kosong
>>kurang tanda minusnya hehehe ^_^
>>
>>
>>terus saya keluarin dari blok If di atasnya (biar lebih singkat dan tidak diulang di blok Else-nya) tapi kodenya lupa dihapus hehehe.. ^_^
>>
>>
>>makasih atas koreksinya ^_^
>>
>>
>>-aji mumpung-
>>
>>
>>Pada 1 Oktober 2012 16:38, Kid Mr. <mr.nmkid@gmail.com> menulis:
>>
>>
>>>
>>>Mungkin baris :
>>>.Offset(0, 1).Value = 1
>>>
>>>adalah Offset(0,0) untuk jadi nomor, supaya alamat tidak berganti jadi nilai 1.
>>>atau, bagaimana jika nomornya ndak usah saja. toh gak guna-guna amat.
>>>
>>>Wassalam,
>>>Kid.
>>>
>>>
>>>
>>>2012/10/1 aji mumpung <pupung1986@gmail.com>
>>>
>>>.Offset(0, 1).Value = 1
>>>
>>
>>
>>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (19) . Top ^

5b

Bls: [belajar-excel] INPUT, EDIT & PINDAH TABEL

Sat Oct 6, 2012 5:07 am (PDT) . Posted by:

"Harry" hariansyahptk

Reply to sender . Reply to group . Reply via Web Post . All Messages (19) . Top ^

Visit Your Group

View All Topics

Create New Topic

15 New Members

We are making changes based on your feedback, Thank you !

Submit Feedback

The Yahoo! Groups Product Blog

Check it out!

GROUP FOOTER MESSAGE

---------------------------------------------------------------------
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
---------------------------------------------------------------------

CHANGE SETTINGS

UNSUBSCRIBE

Sabtu, 06 Oktober 2012

8 New Messages

Messages

1

Fri Oct 5, 2012 12:54 pm (PDT) . Posted by:

2a

Fri Oct 5, 2012 6:55 pm (PDT) . Posted by:

2b

Fri Oct 5, 2012 10:53 pm (PDT) . Posted by:

3a

Fri Oct 5, 2012 11:45 pm (PDT) . Posted by:

3b

Sat Oct 6, 2012 5:14 am (PDT) . Posted by:

4

Fri Oct 5, 2012 11:59 pm (PDT) . Posted by:

5a

Sat Oct 6, 2012 5:05 am (PDT) . Posted by:

5b

Sat Oct 6, 2012 5:07 am (PDT) . Posted by:

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me