Selasa, 20 Mei 2014

[belajar-excel] Digest Number 2934

12 Messages

Digest #2934
3a
Re: TODAY() BINUNG [1 Attachment] by "Ferdinan Imers" dinanfu
3b
Re: TODAY() BINUNG [1 Attachment] by "Ferdinan Imers" dinanfu
4
Fungsi dot dalam blok with by "hendrik karnadi" hendrikkarnadi

Messages

Mon May 19, 2014 4:29 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Pak Agunk,
Kali ini saya lakukan percobaan sbb:
INPUT
- Jika data sdh pernah diinput maka tidak bisa diinput lagi, hanya bisa diedit atau dihapus
- Jika data yang diinput belum lengkap maka akan ada message (data belum lengkap)

EDIT
- Jika data blm pernah diinput maka akan ada message (No Order dan Code blm ada)
- Data yang mau dieedit berasal dari data input
- Jika Order dan Codenya saja yang dimasukkan lalu diklik tombol EDIT maka akan ada message (data belum lengkap)

Selamat mencoba, tolong dishare lagi hasil percobaannya.

Salam,
HK

On Monday, 19 May 2014, 16:51, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


 
Pak Agunk,
Setelah saya coba lagi, kayaknya masih ada kekeliruan teknis.
Sedang saya perbaiki, semoga bisa selesai secepatnya.

Salam,
HK

On Monday, 19 May 2014, 13:43, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


 
Pak Agunk,
Excel bekerja di dalam sheet yang peka terhadap perubahan range (baris dan kolom).
Input melompat dua baris karena ada kolom A (kolom bantu) yang "kelebihan" 2 baris.
HistoTbl "Time" dan "action taken" juga kelebihan 2 baris karena kelebihan kolomnya (tcol).

Range("F7") dan ("H7") merupakan satu kesatuan yang membentuk "ID" sehingga Range("F7") pun harus dihapus pada waktu Form1 dihapus.

Setelah ikut pusing tujuh keliling, akhirnya bisa selesai juga (modal nekat + niat + uji coba).

File terlampir.

Salam, 

HK

On Saturday, 17 May 2014, 17:21, "agungdotcom13@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


 
Pak Hendrik..
Ini saya lampirkan Keterangan ada disheet database dan HistoTbl

Thanks,B'Regards
   -Agunk-

Mon May 19, 2014 5:28 am (PDT) . Posted by:

agung_tzt

Pak Hendrik maaf blm bisa nyoba, besok baru bisa nyoba,, Sya mau menambahkan untuk data yg diINPUT dgn catatan bahwa ORDER boleh sama tapi code harus beda. Mis : input data pertama order 814021NU code 50, kemudian input data lagi order 814021NU code 70. dst soalnya 1 order ada banyak code pak Thanks -Agunk-

Mon May 19, 2014 5:56 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Bisa Pak.

Salam,
HK

On Monday, 19 May 2014, 19:17, "agungtrisaksono@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


 
Pak Hendrik maaf blm bisa nyoba, besok baru bisa nyoba,,
Sya mau menambahkan untuk data yg diINPUT dgn catatan bahwa ORDER boleh sama tapi code harus beda.
Mis : input data pertama order 814021NU code 50, kemudian input data lagi order 814021NU code 70.
dst soalnya 1 order ada banyak code pak Thanks -Agunk-

Mon May 19, 2014 7:52 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Pak Agunk,
Kalau mau otomatis ditampilkan datanya ketika mengetik Code pada sel H7 maka bisa ditambahkan Event Worksheet_Change ini sebagai trigger,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$H$7" Then
        If IsEmpty(Target) Then Exit Sub
        RefreshTabels
        Set RgFind = Sheets("Database").Range("A4").CurrentRegion.Offset(0, 1).Resize(, 1).Find(Range("F3"))
        If Not RgFind Is Nothing Then
             n = Range("F3").Value + 1
             IndTBL(n, 3).Resize(1, tCol - 2).Copy
             Range("F7").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True
             Application.CutCopyMode = False
        Else
            MsgBox "Sorry Boss, No ORDER dan CODE BLM ADA"
            Range("F8:F22").ClearContents
            Target.Select
        End If
    End If
End Sub

Salam,
HK

On Monday, 19 May 2014, 19:56, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


 
Bisa Pak.

Salam,
HK

On Monday, 19 May 2014, 19:17, "agungtrisaksono@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


 
Pak Hendrik maaf blm bisa nyoba, besok baru bisa nyoba,,
Sya mau menambahkan untuk data yg diINPUT dgn catatan bahwa ORDER boleh sama tapi code harus beda.
Mis : input data pertama order 814021NU code 50, kemudian input data lagi order 814021NU code 70.
dst soalnya 1 order ada banyak code pak Thanks -Agunk-

Tue May 20, 2014 2:47 am (PDT) . Posted by:

agunk_full

Pak Hendrik... Ini Pak yg sudah jadi saya share lagi...Kayaknya sudah bener smua pak...
tapi maksud script ini gimana ya pak
IndTBL(newRow, 1).FormulaR1C1 = "=RC[2]&""|""&RC[7]"

Maksud dari FormulaR1C1
Oiya...Sekalian mau tanya untuk pencarian data pada sheet PENCARIAN
dibuatkan List View kayak diVB NET kalo yg saya pakai kan ListBox Tampilannya Kurang menarik...












Thanks,B'Regards
-Agunk-


Tue May 20, 2014 3:07 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Dalam Excel, yang biasa kita pakai adalah judul kolom A, B, C, D, dst.nya dan judul baris 1, 2, 3, 4, dst.nya.

Notasi R1C1 artinya baik kolom maupun baris dimulai dengan 1 (tidak ada huruf) dan untuk membedakan baris dan kolom dipakailah R(Row) untuk baris dan C(Column) untuk kolom, jadi R1C1 = A1.

Untuk Trial, coba klik Excel Option, Formulas, Working with formulas kemudian centang R1C1 style, klik OK maka judul kolom dan baris akan dimulai dengan 1. Jangan lupa kembalikan ke defaultnya (cabut centang R1C1 style).

List View di VB NET saya malah belum kenal dengan VB NET, mungkin rekan lain dapat menjawabnya.

Ada sedikit pertanyaan:
Mengapa 2 baris data terakhir di HistoTbl berbeda dengan data di atasnya? 

Salam,
HK

Mon May 19, 2014 4:36 am (PDT) . Posted by:

agung_tzt

Pak hendrik, , ,sya tdi jga smpt nyoba soale hbis meeting jdi buru2, , ,kyake pada saat mau edit data tpi ditolak terus sama prosedur pemanggil datane hilang, , , sya jga blm smpt cek smua pak. . . Thanks -Agunk-

Mon May 19, 2014 5:48 am (PDT) . Posted by:

"Ferdinan Imers" dinanfu

trims kasih PAk SUYONO DAN MR KID SOLVED AND WORK PERFECT

Mon May 19, 2014 6:16 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Sekedar share....(khusus untuk pemula).

Mengapa dalam blok perintah With harus repot pake dot (baca titik)?
Karena kalau ga ngedot (pake titik) code akan dilaksanakan pada Sheet Active.
Jadi "."(titik tanpa spasi) merupakan "sub" dari object yang disebut dalam With.
Coba copas macro di bawah ini pada VBE Sheet dan lihat hasilnya,

Option Explicit
'Sheet Active = Sheet1
Sub Tes()
    With Sheet2
        Range("A1").Value = 1234 'tertulis pada sheet1
    End With
End Sub

'Sheet Active = Sheet1
Sub Coba()
    With Sheet2
        .Range("A1").Value = 5678 'tertulis pada sheet2
    End With
End Sub

Salam,
HK

Mon May 19, 2014 6:52 pm (PDT) . Posted by:

dayatshogun46

Dear all

Selamat pagi, salam semua

Hari ini saya mencoba untuk mengolah data suatu aplikasi yang berhubungan dengan titik koordinat y,x,z dimana titik-titik tersebut akan saya tarik dari luarnya saja dan berdasarkan ketentuan jarak referensi yang saya tentukan ( misal saya butuh menghubungkan titik terluar dengan referensi per 5 meter jarak titik terdekat secara berurutan ).
Kira-kira seperti itu ceritanya, dan yang saya butuhkan sekarang bagai mana membuat garis tersebut secara otomatis menggunakan excel.

Salam
Dayat
Powered by Telkomsel BlackBerry®

--- Mods ---
File lampiran yang lebih dari 250KB dilepas dari email. Silakan penanya mengirim ulang file lampiran yang sesuai peraturan milis (max 250KB) dengan cara me-reply email ini.
----------------

Mon May 19, 2014 7:50 pm (PDT) . Posted by:

dayatshogun46

Dear all

Selamat pagi, salam semua

Mohon dibantu, Hari ini saya mencoba untuk mengolah data suatu aplikasi yang berhubungan dengan titik koordinat y,x,z dimana titik-titik tersebut akan saya tarik dari luarnya saja dan berdasarkan ketentuan jarak referensi yang saya tentukan ( misal saya butuh menghubungkan titik terluar dengan referensi per 5 meter jarak titik terdekat secara berurutan ).
Kira-kira seperti itu ceritanya, dan yang saya butuhkan sekarang bagaimana membuat garis tersebut secara otomatis menggunakan excel.

Salam
Dayat
Powered by Telkomsel BlackBerry®
=====================================================================
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.03

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)