Jumat, 18 Januari 2013

[belajar-excel] Digest Number 2030

15 New Messages

Digest #2030
2a
2b
Re: menambah data denganUseForm by "Mr. Kid" nmkid.family@ymail.com
3a
(tanya) tunggakan spp by "sony nurcahyo" sony_pwt
3b
Re: (tanya) tunggakan spp by "raya hidayat" raya.hidayat
4a
Re: Absensi by "Apriyadi Apri" apriyadi_apry
5a
Fw: [belajar-excel] Absensi by "Apriyadi Apri" apriyadi_apry
5b
Re: Fw: [belajar-excel] Absensi by "Mr. Kid" nmkid.family@ymail.com
6a
Cari data duplikat pada beberapa kolom di excel by "Andre Rahmaidy Teeza" andre_teeza_bn
6b
Re: Cari data duplikat pada beberapa kolom di excel by "M. Ferdiansyah" muh_f3rdi4n5yah
7a
Bls: [belajar-excel] Max panjang karakter di sel Excel by "Agestha Hendra" agesthahendra@ymail.com

Messages

Thu Jan 17, 2013 8:27 pm (PST) . Posted by:

"Nori Z" ordinarynori

Dear Mr. Kid,
Trimakasih solusinya...
Namun saya benar-benar minta maaf.. ternyata banyak perubahan kolom dari tabel nya sendiri.. seperti yang sudah saya reply ke thread yang dibalas oleh Master Zainul...

Tetapi bagaimanapun, saya sungguh berterimakasih untuk kesempatan mendapatkan solusi dari Mr. Kid..

Makasih,
Best,
Nori. 

________________________________
From: Mr. Kid mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, January 17, 2013 7:40 PM
Subject: Re: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .


 
Coba script berikut : (letakkan pada event yang Anda gunakan)
Dim rng As Range    'range yang diproses
Dim vFile As Variant  'nama workbook tujuan
Dim sMsg As String  'wadah pesan ke user
Dim wbkApp As Workbook 'workbook pemanggil
Dim wbk As Workbook 'workbook tujuan
Dim sht As Worksheet  'sheet tujuan
Dim shtNew As Worksheet 'sheet baru
Dim shtMain As Worksheet
Dim lSht As Long 'indeks sheet

Application.ScreenUpdating = False
On Error Resume Next    'trap error agar jalan terus, karena proses akibat error diletakkan setelah baris error
Set rng = Target.Resize(1, 1)  'selalu ambil cell pertama yang diproses
With rng   'pada range yang diproses
   If LenB(.Value) <> 0 Then   'ada isinya
       If .Row > 3 And .Column > 9 And .Column < 12 Then 'dibaris setelah header pada kolom 10 sampai 11
            Set wbkApp = ThisWorkbook
            Set shtMain = ActiveSheet
            vFile = Array("dataanak.xlsx", "datapa.xlsx")   'simpan nama workbook
            Set wbk = Workbooks(sFile)   'set workbook dengan workbook yang bernama sesuai sfile
               If wbk Is Nothing Then      'workbook belum dibuka
                     'buka file tanpa update link dan kondisi readonly
                      Set wbk = Workbooks.Open(ThisWorkbook.Path & "\" & vFile(.Column - 10), False, True)
                      If wbk Is Nothing Then       'gak ada file yang bisa dibuka
                            sMsg = "tidak ada workbook bernama " & vFile(.Column - 10) & _
                                  " di folder bernama " & ThisWorkbook.Path
                            GoTo Keluar      'ke blok keluar dibawah sana
                      End If
               End If
      
               wbk.Activate                                  'aktifkan workbook
               Set sht = wbk.Sheets(.Value)        'set worksheet dalam workbook sesuai isi range yang diproses
               If sht Is Nothing Then               'gak ada sheet dimaksud
                       sMsg = "tidak ada sheet bernama " & .Value & _
                               " dalam workbook bernama " & vFile(.Column - 10)
                       wbk.Close False               'tutup workbook tanpa di save
                       GoTo Keluar                      'ke blok keluar dibawah sana
               End If
           
            'buat worksheet baru di workbook pemanggil
            Set shtNew = wbkApp.Sheets.Add(after:=wbkApp.Sheets(wbkApp.Sheets.Count))
            sht.UsedRange.Copy shtNew.Range("a1")       'copy data tujuan ke pemanggil di a1
            wbk.Close False                             'tutup wbk tujuan
           
            'beri nama sheet baru
            Err.Clear
            lSht = 0
            shtNew.Name = .Value
            Do While Err.Number <> 0
                Err.Clear
                lSht = lSht + 1
                shtNew.Name = .Value & "_" & lSht
            Loop
            shtMain.Activate                            'aktifkan sheet pemanggil
            sMsg = "Done."
       End If
   End If
End With

Keluar:
   Err.Clear
   On Error GoTo 0
    Application.ScreenUpdating = True
   If Len(sMsg) > 5 Then
       MsgBox sMsg, vbCritical
   ElseIf Len(sMsg) = 5 Then
        MsgBox "Done.", vbInformation
   End If

Yang merah untuk menyusun multi file tergantung urutan kolom yang rapat

Wassalam,
Kid.

2013/1/17 Nori Z ordinarynori@yahoo.com>

> 
>Makasih Mr. Kid, 
>Sudah bisa..tapi dia cuma mengakses workbook 'DataPA&#39; .. 
>
>
>Jadi agar bisa ngakses workbook 'DataAnak&#39;...,saya tadi tambahkan ajaa 
>               sFile = "dataanak.xlsx"    'simpan nama workbook
>setelah baris 
>               sFile = "datapa.xlsx"    'simpan nama workbook
> kira-kira tidak ada masalah kah itu Mr. Kid?
>
>
>
>emm,, jika boleh minta bantu lagi dua lagi pertanyaan saya yang belum dapat solusinya agar bisa rename sheet dan copy master tabel gimana dnk Mr. Kid?...
>Makasih banyak-banyak yaaaa.....
>Moga Tuhan balas kebaikannya....
>
>
>Best,
>Nori.
>
>
>
>
>
>
>
>________________________________
> From: Mr. Kid mr.nmkid@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Wednesday, January 16, 2013 11:17 AM
>
>Subject: Re: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
>
>
>
> 
>Oh sorry, ternyata ada yang salah di baris berikut :
>                      set wbk = workbooks( thisworkbook.path & "\" & sfile , false,true )   
>harusnya :
>                      set wbk = workbooks.open( thisworkbook.path & "\" & sfile , false,true )   
>
>Maaf atas kekhilafan yang terjadi.
>Moga-moga perbaikan diatas bisa menyelesaikan masalah error-nya.
>Mohon kabarnya jika masih muncul error (belum sempet dicoba scriptnya)
>
>Wassalam,
>Kid.
>
>
>2013/1/16 Mr. Kid mr.nmkid@gmail.com>
>
>Coba copas dulu dari milis ke notepad dan pastikan notepad tidak di-word wrap.
>>Kemudian copas dari notepad ke dalam prosedur pilihan Anda.
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>2013/1/16 Nori Z ordinarynori@yahoo.com>
>>
>>
>>> 
>>>Dear Mr Kid
>>>Makasih yaa balasannya,,
>>>emm tapi itu dimasukkan dimana? 
>>>saya letakkan di Sheet1(Utama) dengan event selection change
>>>tapi keluar pesan 'Compile Error : Wrong number of arguments or invalid property assignment&#39;
>>>terus dia blok kuning nama prosedurnya  dan blok biru kata 'workbooks&#39; di baris 17..
>>>
>>>
>>>saya salah dimana yaa?
>>>makasih,
>>>
>>>
>>>Best,
>>>Nori.
>>>
>>>
>>>
>>>________________________________
>>> From: Mr. Kid mr.nmkid@gmail.com>
>>>To: belajar-excel@yahoogroups.com
>>>Sent: Tuesday, January 15, 2013 8:32 PM
>>>Subject: Re: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
>>>
>>>
>>>
>>> 
>>>Hai Nori,
>>>
>>>Letakkan script berikut pada event yang anda sukai antara selection change atau before double click
>>>dim rng as range    'range yang diproses
>>>dim sFile as string  'nama workbook tujuan
>>>dim sMsg as string  'wadah pesan ke user
>>>dim wbk as workbook 'workbook tujuan
>>>dim sht as worksheet  'nama sheet tujuan
>>>
>>>on error resume next    'trap error agar jalan terus, karena proses akibat error diletakkan setelah baris error
>>>set rng=target.resize(1,1)     'selalu ambil cell pertama yang diproses
>>>with rng   'pada range yang diproses
>>>   if lenb(.value)<>0 then     'ada isinya
>>>       if .row>3 and .column>9 and .column<12 then   'dibaris setelah header pada kolom 10 sampai 11
>>>               sfile="datapa.xlsx";      'simpan nama workbook
>>>               set wbk=workbooks(sfile)     'set workbook dengan workbook yang bernama sesuai sfile
>>>               if wbk is nothing then      'workbook belum dibuka
>>>                     'buka file tanpa update link dan kondisi readonly
>>>                      set wbk = workbooks( thisworkbook.path & "\" & sfile , false,true )   
>>>                      if wbk is nothing then       'gak ada file yang bisa dibuka
>>>                            smsg="tidak ada workbook bernama " & sfile & _
>>>                                  " di folder bernama " & thisworkbook.path
>>>                            goto keluar      'ke blok keluar dibawah sana
>>>                      endif
>>>               endif
>>>      
>>>               wbk.activate                                  'aktifkan workbook
>>>               set sht=wbk.sheets( .value )        'set worksheet dalam workbook sesuai isi range yang diproses
>>>               if sht is nothing then               'gak ada sheet dimaksud
>>>                       smsg="tidak ada sheet bernama " & .value & " dalam workbook bernama " & sfile
>>>                       wbk.close false               'tutup workbook tanpa di save
>>>                       goto keluar                      'ke blok keluar dibawah sana
>>>               endif
>>>                sht.activate                            'aktifkan worksheet
>>>       endif
>>>   endif
>>>end with
>>>
>>>Keluar:
>>>   err.clear
>>>   on error goto 0
>>>   if lenb(smsg)<>0 then
>>>       msgbox smsg,vbcritical
>>>   endif
>>>
>>>Wassalam,
>>>Kid.
>>>
>>>
>>>2013/1/15 Nori Z ordinarynori@yahoo.com>
>>>
>>>
>>>> 
>>>>Dear all,,
>>>>Please help me.. hikss.. hikss..
>>>>Gimana solusinya ? :(
>>>>
>>>>
>>>>thanks...
>>>>
>>>>
>>>>Best,
>>>>Nori.
>>>>
>>>>
>>>>
>>>>
>>>>________________________________
>>>> From: Nori Z ordinarynori@yahoo.com>
>>>>To: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
>>>>Sent: Monday, January 14, 2013 11:18 AM
>>>>Subject: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
>>>>
>>>>
>>>>
>>>> 
>>>>Dear All, 
>>>>Sebelumnya saya pernah menanyakan topik 'Bagaimana agar bisa akses sel dari sheet yang berbeda dan dengan kode yang bersesuaian?'
>>>>Saat itu saya mendapatkan pencerahan dari  Master zainul_ulum[at]yahoo[dot]com zainul_ulum@yahoo.com> .
>>>>Saya ucapkan banyak terimakasih ..
>>>>
>>>>
>>>>Namun saat ini saya ada sedikit kendala, ternyata permasalahannya agak sedikit kompleks bagi saya (hmm.. karena saya merasa sangat kesulitan menemukan solusinya :( ... )
>>>>
>>>>
>>>>Pada file terlampir,
>>>>Permasalahannya saya ingin merujuk pada workbook yang lain namun harus menuju/merujuk pada sheet yang bersesuaian dengan kode sel yang saya klik dari Tabel Utama. Penjelasan permasalahannya sudah saya lampirkan dalam file excel ini.
>>>>Yang sangat mumet bagi saya karena form ini merupakan form master / awal yang mana nantinya akan dilakukan input data... makanya mesti melakukan perintah pencopyan master tabel dari sheet yang satu ke sheet yang lain (jika sheet tersebut kosong) pada workbook yang dituju dengan memperhatikan kode sel yang diklik sebelumnya... Selanjutnya jika sheet tersebut sudah terisi tabel dan data maka perintah yang dilakukan hanya mengakses/merujuk pada sheet dimaksud tersebut...
>>>> 
>>>>Saya sangat mengharapkan bantuan dari para Master disini...
>>>>Terimakasih,
>>>>
>>>>
>>>>
>>>>
>>>>Best,
>>>>Nori.
>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>
>
>

Thu Jan 17, 2013 8:30 pm (PST) . Posted by:

"Nori Z" ordinarynori

Dear Master Zainul,

Trimakasih untuk sarannya,, 
Saya juga berpikir hal yang mudah seperti itu (tidak harus memisah data anak setiap informan gitu dalam sheet yang berbeda), namun tidak tahu bagaimana caranya... :( 

Mohon maaf sebelumnya,
Tetapi ternyata ada banyak kolom yang mesti ditambahkan diantara kolom J dan K. 

Berikut jadinya kolom input-an-nya, file terlampir.
Sedikit saya improvisasi codingnya,, moga ini uda benar pun heheh...

Disini saya lampirkan hasil entry - nya sebagian..  
Memang setelah melihat hasil kuisioner nya ternyata karakteristik jawabannya di luar yang saya pikirkan, hasilnya banyak informan yang tidak memiliki data anak yang menjadi pekerja atau sedang bekerja...

Jika ada saran yang lebih baik dari Master ,,hal itu sungguh sangat-sangat membantu saya ..Saya benar-benar masih pemula disini terlebih dalam hal database .. :(

tapi tidak ada salahnya jika ada kesempatan belajar bagi saya dan jika ada yang mau berbagi solusi, saya ucapkan banyak terimakasih...

Best,
Nori.

________________________________
From: zainul_ulum[at]yahoo[dot]com zainul_ulum@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, January 17, 2013 8:08 PM
Subject: RE: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .


 
Sebelum menjawab,
 
1.  bisa diberi contoh beberapa record yang isian databasenya sudah terisi semua kolom?
 
sekedar saran dalam penyusunan databasenya:
2. DataAnakInf1, DataAnakInf2 , dst... tidak dipisah masing-masing ke dalam sheet yang berbeda. Cukup satu sheet saja
demikian juga untuk DataPAInf1, DataPAInf2, DataPAInf3...dst
 
jika ada contohnya akan saya jelaskan maksud saya yang nomer #2
 
thanks
-zainul-
 
 
From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Nori Z
Sent: Thursday, January 17, 2013 3:07 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
 
 
Dear Master Zainul
Terimakasih untuk solusinya,
Ini berjalan dengan baik, merujuk ke workbook dan sheet bersesuaian dan juga bisa langsung menyimpan hasil update nya dari file hasil rujukan/akses tersebut .
Thanks yaa..

Tapi, bagaimana solusi untuk re-name sheet yang kosong atau belum ada dan kemudian meng-copy master table nya? (ketika misalnya di sheet Utama didobel klik pada sel DataAnakInf3 , namun sheet dimaksud belum ada pada workbook DataAnak, apakah dengan macro bisa create sheet baru dengan nama sesuai sel yang didobel klik itu? dan kemudian melakukan pencopy-an master table? ) Demikian juga pada kolom 'Informasi tentang status pekerjaan anak' . Apakah memungkinkan jika pake makro? Ataukah mesti manual gitu? Hikss.. kalo manual mah,, mesti create ratusan tabel dan rename sheet :( ....
 
Mohon bantuannya..
Makasih...
 
Best,
Nori.

________________________________

From:zainul_ulum[at]yahoo[dot]com zainul_ulum@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, January 17, 2013 10:45 AM
Subject: RE: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
 
 
Maaf baru bisa menjawab:
Terlampir solusi alternative dari saya.

Letakkan kode ini di sheet utama
'===
Option Explicit
Const DATA_ANAK As String = "DataAnak.xlsx"
Const DATA_PA As String = "DataPA.xlsx"
Const KOLOM_ID As String = "D"
Const KOLOM_DOUBLE_CLICK As String = "J:K"
Dim LokasiFile As String
Dim wbDataAnak As Workbook, wbDataPa As Workbook

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
LokasiFile = ThisWorkbook.Path & "\" 'mengambil lokasi folder, semua files diletakkan di semua folder
Dim sht As Worksheet
If Not Intersect(Target, Columns(KOLOM_DOUBLE_CLICK)) Is Nothing Then
Select Case Target.Column
Case 10 'kolom J: DataAnak
'buka data base
On Error Resume Next
Set wbDataAnak = Workbooks(DATA_ANAK)
If Err.Number Then
Set wbDataAnak = Workbooks.Open(LokasiFile & DATA_ANAK)
Err.Clear
End If

With wbDataAnak
.Activate
Set sht = .Worksheets(Target.Value)
If sht Is Nothing Then
MsgBox "sheet " & Target.Value & "tidak ada"
Else
sht.Activate
End If
End With
Case 11 'kolom K: DataPA

'buka data base
On Error Resume Next
Set wbDataPa = Workbooks(DATA_PA)
If Err.Number Then
Set wbDataPa = Workbooks.Open(LokasiFile & DATA_PA)
Err.Clear
End If

With wbDataPa
.Activate
Set sht = .Worksheets(Target.Value)
If sht Is Nothing Then
MsgBox "sheet " & Target.Value & " tidak ada"
Else
sht.Activate
End If
End With
End Select
End If
End Sub
'===

Thanks
-zainul-

2013/1/15 Nori Z ordinarynori@yahoo.com>

Dear all,,
Please help me.. hikss.. hikss..
Gimana solusinya ? :(

thanks...

Best,
Nori.

________________________________________
From: Nori Z ordinarynori@yahoo.com>
To: "belajar-excel@yahoogroups.combelajar-excel@yahoogroups.com>
Sent: Monday, January 14, 2013 11:18 AM
Subject: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .

Dear All,
Sebelumnya saya pernah menanyakan topik 'Bagaimana agar bisa akses sel dari sheet yang berbeda dan dengan kode yang bersesuaian?'
Saat itu saya mendapatkan pencerahan dari Master zainul_ulum[at]yahoo[dot]com zainul_ulum@yahoo.com> .
Saya ucapkan banyak terimakasih ..

Namun saat ini saya ada sedikit kendala, ternyata permasalahannya agak sedikit kompleks bagi saya (hmm.. karena saya merasa sangat kesulitan menemukan solusinya :( ... )

Pada file terlampir,
Permasalahannya saya ingin merujuk pada workbook yang lain namun harus menuju/merujuk pada sheet yang bersesuaian dengan kode sel yang saya klik dari Tabel Utama. Penjelasan permasalahannya sudah saya lampirkan dalam file excel ini.
Yang sangat mumet bagi saya karena form ini merupakan form master / awal yang mana nantinya akan dilakukan input data... makanya mesti melakukan perintah pencopyan master tabel dari sheet yang satu ke sheet yang lain (jika sheet tersebut kosong) pada workbook yang dituju dengan memperhatikan kode sel yang diklik sebelumnya... Selanjutnya jika sheet tersebut sudah terisi tabel dan data maka perintah yang dilakukan hanya mengakses/merujuk pada sheet dimaksud tersebut...

Saya sangat mengharapkan bantuan dari para Master disini...
Terimakasih,

Best,
Nori.
 

Thu Jan 17, 2013 10:10 pm (PST) . Posted by:

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

Kolom diproses di kolom 11 dan 35

Dim rng As Range 'range yang diproses
Dim vFile As Variant 'nama workbook tujuan
Dim sMsg As String 'wadah pesan ke user
Dim wbkApp As Workbook 'workbook pemanggil
Dim wbk As Workbook 'workbook tujuan
Dim sht As Worksheet 'sheet tujuan
Dim shtNew As Worksheet 'sheet baru
Dim shtMain As Worksheet
Dim lSht As Long 'indeks sheet

Application.ScreenUpdating = False
On Error Resume Next 'trap error agar jalan terus, karena proses akibat
error diletakkan setelah baris error
Set rng = Target.Resize(1, 1) 'selalu ambil cell pertama yang diproses
With rng 'pada range yang diproses
If LenB(.Value) <> 0 Then 'ada isinya
If .Row > 3 Then 'dibaris setelah header pada kolom 10 sampai 11
Select Case .Column
Case 11
lSht = 0
Case 35
lSht = 1
Case Else
GoTo Keluar
End Select

Set wbkApp = ThisWorkbook
Set shtMain = ActiveSheet
vFile = Array("dataanak.xlsx", "datapa.xlsx") 'simpan nama
workbook
Set wbk = Workbooks(sFile) 'set workbook dengan workbook yang
bernama sesuai sfile
If wbk Is Nothing Then 'workbook belum dibuka
'buka file tanpa update link dan kondisi readonly
Set wbk = Workbooks.Open(ThisWorkbook.Path & "\" &
vFile(lSht), False, True)
If wbk Is Nothing Then 'gak ada file yang bisa
dibuka
sMsg = "tidak ada workbook bernama " &
vFile(lSht) & _
" di folder bernama " & ThisWorkbook.Path
GoTo Keluar 'ke blok keluar dibawah sana
End If
End If

wbk.Activate 'aktifkan
workbook
Set sht = wbk.Sheets(.Value) 'set worksheet dalam
workbook sesuai isi range yang diproses
If sht Is Nothing Then 'gak ada sheet dimaksud
sMsg = "tidak ada sheet bernama " & .Value & " dalam
workbook bernama " & vFile(lSht)
wbk.Close False 'tutup workbook tanpa
di save
GoTo Keluar 'ke blok keluar
dibawah sana
End If

'----------------------------------------------------------
'contoh copy worksheet di workbook lain ke workbook tertentu
'----------------------------------------------------------
'buat worksheet baru di workbook pemanggil
Set shtNew =
wbkApp.Sheets.Add(after:=wbkApp.Sheets(wbkApp.Sheets.Count))
sht.UsedRange.Copy shtNew.Range("a1") 'copy data tujuan
ke pemanggil di a1
wbk.Close False 'tutup wbk tujuan

'beri nama sheet baru
Err.Clear
lSht = 0
shtNew.Name = .Value
Do While Err.Number <> 0
Err.Clear
lSht = lSht + 1
shtNew.Name = .Value & "_" & lSht
Loop
shtMain.Activate 'aktifkan sheet
pemanggil
'----------------------------------------------------------
sMsg = "Done."
End If
End If
End With

Keluar:
Err.Clear
On Error GoTo 0
Application.ScreenUpdating = True
If Len(sMsg) > 5 Then
MsgBox sMsg, vbCritical
ElseIf Len(sMsg) = 5 Then
MsgBox "Done.", vbInformation
End If

Bagian yang *merah *adalah contoh copas sheet dari workbook lain ke
workbook tertentu. Non aktifkan jika tidak dibutuhkan.
Bagian yang *hijau *adalah pengatur item array vFile yang harus dibuka
berdasar indeks kolom Excel.
Apapun file yang dibuka, masukkan dalam daftar array, dan tentukan nilai
lsht dalam blok hijau.

Terusterang, saya ndak paham hubungan antara record dalam sheet utama
dengan file yang dibuka.

Wassalam,
Kid.

2013/1/18 Nori Z ordinarynori@yahoo.com>

> **
>
>
> Dear Mr. Kid,
> Trimakasih solusinya...
> Namun saya benar-benar minta maaf.. ternyata banyak perubahan kolom dari
> tabel nya sendiri.. seperti yang sudah saya reply ke thread yang dibalas
> oleh Master Zainul...
>
> Tetapi bagaimanapun, saya sungguh berterimakasih untuk kesempatan
> mendapatkan solusi dari Mr. Kid..
>
> Makasih,
> Best,
> Nori.
>
> ------------------------------
> *From:* Mr. Kid mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, January 17, 2013 7:40 PM
>
> *Subject:* Re: [belajar-excel] Masih tentang bagaimana akses workbook
> yang lain dari sebuah workbook .
>
>
> Coba script berikut : (letakkan pada event yang Anda gunakan)
> Dim rng As Range 'range yang diproses
> Dim vFile As Variant 'nama workbook tujuan
> Dim sMsg As String 'wadah pesan ke user
> Dim wbkApp As Workbook 'workbook pemanggil
> Dim wbk As Workbook 'workbook tujuan
> Dim sht As Worksheet 'sheet tujuan
> Dim shtNew As Worksheet 'sheet baru
> Dim shtMain As Worksheet
> Dim lSht As Long 'indeks sheet
>
> Application.ScreenUpdating = False
> On Error Resume Next 'trap error agar jalan terus, karena proses akibat
> error diletakkan setelah baris error
> Set rng = Target.Resize(1, 1) 'selalu ambil cell pertama yang diproses
> With rng 'pada range yang diproses
> If LenB(.Value) <> 0 Then 'ada isinya
> If .Row > 3 And .Column > 9 And .Column < 12 Then 'dibaris setelah
> header pada kolom 10 sampai 11
> Set wbkApp = ThisWorkbook
> Set shtMain = ActiveSheet
> vFile = Array("dataanak.xlsx", "datapa.xlsx") 'simpan nama
> workbook
> Set wbk = Workbooks(sFile) 'set workbook dengan workbook
> yang bernama sesuai sfile
> If wbk Is Nothing Then 'workbook belum dibuka
> 'buka file tanpa update link dan kondisi readonly
> Set wbk = Workbooks.Open(ThisWorkbook.Path & "\" & vFile(.Column
> - 10), False, True)
> If wbk Is Nothing Then 'gak ada file yang bisa
> dibuka
> sMsg = "tidak ada workbook bernama " & vFile(.Column
> - 10) & _
> " di folder bernama " & ThisWorkbook.Path
> GoTo Keluar 'ke blok keluar dibawah sana
> End If
> End If
>
> wbk.Activate 'aktifkan
> workbook
> Set sht = wbk.Sheets(.Value) 'set worksheet dalam
> workbook sesuai isi range yang diproses
> If sht Is Nothing Then 'gak ada sheet dimaksud
> sMsg = "tidak ada sheet bernama " & .Value & _
> " dalam workbook bernama " & vFile(.Column
> - 10)
> wbk.Close False 'tutup workbook tanpa
> di save
> GoTo Keluar 'ke blok keluar
> dibawah sana
> End If
>
> 'buat worksheet baru di workbook pemanggil
> Set shtNew =
> wbkApp.Sheets.Add(after:=wbkApp.Sheets(wbkApp.Sheets.Count))
> sht.UsedRange.Copy shtNew.Range("a1") 'copy data tujuan
> ke pemanggil di a1
> wbk.Close False 'tutup wbk tujuan
>
> 'beri nama sheet baru
> Err.Clear
> lSht = 0
> shtNew.Name = .Value
> Do While Err.Number <> 0
> Err.Clear
> lSht = lSht + 1
> shtNew.Name = .Value & "_" & lSht
> Loop
> shtMain.Activate 'aktifkan sheet
> pemanggil
> sMsg = "Done."
> End If
> End If
> End With
>
> Keluar:
> Err.Clear
> On Error GoTo 0
> Application.ScreenUpdating = True
> If Len(sMsg) > 5 Then
> MsgBox sMsg, vbCritical
> ElseIf Len(sMsg) = 5 Then
> MsgBox "Done.", vbInformation
> End If
>
> Yang merah untuk menyusun multi file tergantung urutan kolom yang rapat
>
>
> Wassalam,
> Kid.
>
> 2013/1/17 Nori Z ordinarynori@yahoo.com>
>
> **
>
> Makasih Mr. Kid,
> Sudah bisa..tapi dia cuma mengakses workbook 'DataPA&#39; ..
>
> Jadi agar bisa ngakses workbook 'DataAnak&#39;...,saya tadi tambahkan ajaa
> sFile = "dataanak.xlsx" 'simpan nama workbook
> setelah baris
> sFile = "datapa.xlsx" 'simpan nama workbook
> kira-kira tidak ada masalah kah itu Mr. Kid?
>
> emm,, jika boleh minta bantu lagi dua lagi pertanyaan saya yang belum
> dapat solusinya agar bisa rename sheet dan copy master tabel gimana dnk Mr.
> Kid?...
> Makasih banyak-banyak yaaaa.....
> Moga Tuhan balas kebaikannya....
>
> Best,
> Nori.
>
>
>
> ------------------------------
> *From:* Mr. Kid mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, January 16, 2013 11:17 AM
>
> *Subject:* Re: [belajar-excel] Masih tentang bagaimana akses workbook
> yang lain dari sebuah workbook .
>
>
> Oh sorry, ternyata ada yang salah di baris berikut :
> set wbk = workbooks( thisworkbook.path & "\" & sfile
> , false,true )
> harusnya :
> set wbk = workbooks.open( thisworkbook.path & "\" &
> sfile , false,true )
>
> Maaf atas kekhilafan yang terjadi.
> Moga-moga perbaikan diatas bisa menyelesaikan masalah error-nya.
> Mohon kabarnya jika masih muncul error (belum sempet dicoba scriptnya)
>
> Wassalam,
> Kid.
>
> 2013/1/16 Mr. Kid mr.nmkid@gmail.com>
>
> Coba copas dulu dari milis ke notepad dan pastikan notepad tidak di-word
> wrap.
> Kemudian copas dari notepad ke dalam prosedur pilihan Anda.
>
> Wassalam,
> Kid.
>
>
>
> 2013/1/16 Nori Z ordinarynori@yahoo.com>
>
> **
>
> Dear Mr Kid
> Makasih yaa balasannya,,
> emm tapi itu dimasukkan dimana?
> saya letakkan di Sheet1(Utama) dengan event selection change
> tapi keluar pesan 'Compile Error : Wrong number of arguments or invalid
> property assignment&#39;
> terus dia blok kuning nama prosedurnya dan blok biru kata 'workbooks&#39; di
> baris 17..
>
> saya salah dimana yaa?
> makasih,
>
> Best,
> Nori.
>
> ------------------------------
> *From:* Mr. Kid mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, January 15, 2013 8:32 PM
> *Subject:* Re: [belajar-excel] Masih tentang bagaimana akses workbook
> yang lain dari sebuah workbook .
>
>
> Hai Nori,
>
> Letakkan script berikut pada event yang anda sukai antara selection change
> atau before double click
> dim rng as range 'range yang diproses
> dim sFile as string 'nama workbook tujuan
> dim sMsg as string 'wadah pesan ke user
> dim wbk as workbook 'workbook tujuan
> dim sht as worksheet 'nama sheet tujuan
>
> on error resume next 'trap error agar jalan terus, karena proses akibat
> error diletakkan setelah baris error
> set rng=target.resize(1,1) 'selalu ambil cell pertama yang diproses
> with rng 'pada range yang diproses
> if lenb(.value)<>0 then 'ada isinya
> if .row>3 and .column>9 and .column<12 then 'dibaris setelah
> header pada kolom 10 sampai 11
> sfile="datapa.xlsx"; 'simpan nama workbook
> set wbk=workbooks(sfile) 'set workbook dengan workbook
> yang bernama sesuai sfile
> if wbk is nothing then 'workbook belum dibuka
> 'buka file tanpa update link dan kondisi readonly
> set wbk = workbooks( thisworkbook.path & "\" & sfile
> , false,true )
> if wbk is nothing then 'gak ada file yang bisa
> dibuka
> smsg="tidak ada workbook bernama " & sfile & _
> " di folder bernama " & thisworkbook.path
> goto keluar 'ke blok keluar dibawah sana
> endif
> endif
>
> wbk.activate 'aktifkan
> workbook
> set sht=wbk.sheets( .value ) 'set worksheet dalam
> workbook sesuai isi range yang diproses
> if sht is nothing then 'gak ada sheet dimaksud
> smsg="tidak ada sheet bernama " & .value & " dalam
> workbook bernama " & sfile
> wbk.close false 'tutup workbook tanpa
> di save
> goto keluar 'ke blok keluar
> dibawah sana
> endif
> sht.activate 'aktifkan worksheet
> endif
> endif
> end with
>
> Keluar:
> err.clear
> on error goto 0
> if lenb(smsg)<>0 then
> msgbox smsg,vbcritical
> endif
>
> Wassalam,
> Kid.
>
> 2013/1/15 Nori Z ordinarynori@yahoo.com>
>
> **
>
> Dear all,,
> Please help me.. hikss.. hikss..
> Gimana solusinya ? :(
>
> thanks...
>
> Best,
> Nori.
>
> ------------------------------
> *From:* Nori Z ordinarynori@yahoo.com>
> *To:* "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
> *Sent:* Monday, January 14, 2013 11:18 AM
> *Subject:* [belajar-excel] Masih tentang bagaimana akses workbook yang
> lain dari sebuah workbook .
>
>
> Dear All,
> Sebelumnya saya pernah menanyakan topik 'Bagaimana agar bisa akses sel
> dari sheet yang berbeda dan dengan kode yang bersesuaian?'
> Saat itu saya mendapatkan pencerahan dari Master zainul_ulum[at]yahoo[dot]com
> zainul_ulum@yahoo.com> .
> Saya ucapkan banyak terimakasih ..
>
> Namun saat ini saya ada sedikit kendala, ternyata permasalahannya agak
> sedikit kompleks bagi saya (hmm.. karena saya merasa sangat kesulitan
> menemukan solusinya :( ... )
>
> Pada file terlampir,
> Permasalahannya saya ingin merujuk pada workbook yang lain namun harus
> menuju/merujuk pada sheet yang bersesuaian dengan kode sel yang saya klik
> dari Tabel Utama. Penjelasan permasalahannya sudah saya lampirkan dalam
> file excel ini.
> Yang sangat mumet bagi saya karena form ini merupakan form master / awal
> yang mana nantinya akan dilakukan input data... makanya mesti melakukan
> perintah pencopyan master tabel dari sheet yang satu ke sheet yang lain
> (jika sheet tersebut kosong) pada workbook yang dituju dengan memperhatikan
> kode sel yang diklik sebelumnya... Selanjutnya jika sheet tersebut sudah
> terisi tabel dan data maka perintah yang dilakukan hanya mengakses/merujuk
> pada sheet dimaksud tersebut...
>
> Saya sangat mengharapkan bantuan dari para Master disini...
> Terimakasih,
>
>
> Best,
> Nori.
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Fri Jan 18, 2013 12:06 am (PST) . Posted by:

"Nori Z" ordinarynori

Hehehe.. Mr Kid...makasihh banyakk...

Terkait pertanyaan Mr Kid ttg hubungan record dg tabel utama..
Awalnya saya pikir cara ini yang akan membantu untuk memahami datanya.. namun ternyata justru malah membuat ribet... hiksss :(
Jadi maksudnya begini , pada kolom 'Informasi Mengenai anak < 18 tahun' masing2 informan punya tabel data anak2 dalam keluarganya yang umur di bawah 18 tahun, tabel itulah yang ada di workbook 'Data Anak' yang memuat Nama, umur.. dst. 

Awalnya kupikir akan mudah dengan begini , tetapi ternyata malah sangat susah jadinya huhuhu...

Ataukah Mr Kid ada saran gitu..? 
Thanks,

________________________________
From: Mr. Kid mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, January 18, 2013 1:09 PM
Subject: Re: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .


 
Kolom diproses di kolom 11 dan 35

Dim rng As Range    'range yang diproses
Dim vFile As Variant  'nama workbook tujuan
Dim sMsg As String  'wadah pesan ke user
Dim wbkApp As Workbook 'workbook pemanggil
Dim wbk As Workbook 'workbook tujuan
Dim sht As Worksheet  'sheet tujuan
Dim shtNew As Worksheet 'sheet baru
Dim shtMain As Worksheet
Dim lSht As Long 'indeks sheet

Application.ScreenUpdating = False
On Error Resume Next    'trap error agar jalan terus, karena proses akibat error diletakkan setelah baris error
Set rng = Target.Resize(1, 1)  'selalu ambil cell pertama yang diproses
With rng   'pada range yang diproses
   If LenB(.Value) <> 0 Then   'ada isinya
       If .Row > 3 Then  'dibaris setelah header pada kolom 10 sampai 11
        Select Case .Column
        Case 11
            lSht = 0
        Case 35
            lSht = 1
        Case Else
            GoTo Keluar
        End Select
       
            Set wbkApp = ThisWorkbook
            Set shtMain = ActiveSheet
            vFile = Array("dataanak.xlsx", "datapa.xlsx")   'simpan nama workbook
            Set wbk = Workbooks(sFile)   'set workbook dengan workbook yang bernama sesuai sfile
               If wbk Is Nothing Then      'workbook belum dibuka
                     'buka file tanpa update link dan kondisi readonly
                      Set wbk = Workbooks.Open(ThisWorkbook.Path & "\" & vFile(lSht), False, True)
                      If wbk Is Nothing Then       'gak ada file yang bisa dibuka
                            sMsg = "tidak ada workbook bernama " & vFile(lSht) & _
                                  " di folder bernama " & ThisWorkbook.Path
                            GoTo Keluar      'ke blok keluar dibawah sana
                      End If
               End If
      
               wbk.Activate                                  'aktifkan workbook
               Set sht = wbk.Sheets(.Value)        'set worksheet dalam workbook sesuai isi range yang diproses
               If sht Is Nothing Then               'gak ada sheet dimaksud
                       sMsg = "tidak ada sheet bernama " & .Value & " dalam workbook bernama " & vFile(lSht)
                       wbk.Close False               'tutup workbook tanpa di save
                       GoTo Keluar                      'ke blok keluar dibawah sana
               End If
           
            '----------------------------------------------------------
            'contoh copy worksheet di workbook lain ke workbook tertentu
            '----------------------------------------------------------
            'buat worksheet baru di workbook pemanggil
            Set shtNew = wbkApp.Sheets.Add(after:=wbkApp.Sheets(wbkApp.Sheets.Count))
            sht.UsedRange.Copy shtNew.Range("a1")       'copy data tujuan ke pemanggil di a1
            wbk.Close False                             'tutup wbk tujuan
           
            'beri nama sheet baru
            Err.Clear
            lSht = 0
            shtNew.Name = .Value
            Do While Err.Number <> 0
                Err.Clear
                lSht = lSht + 1
                shtNew.Name = .Value & "_" & lSht
            Loop
            shtMain.Activate                            'aktifkan sheet pemanggil
            '----------------------------------------------------------
            sMsg = "Done."
       End If
   End If
End With

Keluar:
   Err.Clear
   On Error GoTo 0
    Application.ScreenUpdating = True
   If Len(sMsg) > 5 Then
       MsgBox sMsg, vbCritical
   ElseIf Len(sMsg) = 5 Then
        MsgBox "Done.", vbInformation
   End If
   

Bagian yang merah adalah contoh copas sheet dari workbook lain ke workbook tertentu. Non aktifkan jika tidak dibutuhkan.
Bagian yang hijau adalah pengatur item array vFile yang harus dibuka berdasar indeks kolom Excel.
Apapun file yang dibuka, masukkan dalam daftar array, dan tentukan nilai lsht dalam blok hijau.

Terusterang, saya ndak paham hubungan antara record dalam sheet utama dengan file yang dibuka.

Wassalam,
Kid.

2013/1/18 Nori Z ordinarynori@yahoo.com>

> 
>Dear Mr. Kid,
>Trimakasih solusinya...
>Namun saya benar-benar minta maaf.. ternyata banyak perubahan kolom dari tabel nya sendiri.. seperti yang sudah saya reply ke thread yang dibalas oleh Master Zainul...
>
>
>Tetapi bagaimanapun, saya sungguh berterimakasih untuk kesempatan mendapatkan solusi dari Mr. Kid..
>
>
>Makasih,
>Best,
>Nori. 
>
>
>
>________________________________
> From: Mr. Kid mr.nmkid@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, January 17, 2013 7:40 PM
>
>Subject: Re: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
>
>
>
> 
>Coba script berikut : (letakkan pada event yang Anda gunakan)
>Dim rng As Range    'range yang diproses
>Dim vFile As Variant  'nama workbook tujuan
>Dim sMsg As String  'wadah pesan ke user
>Dim wbkApp As Workbook 'workbook pemanggil
>Dim wbk As Workbook 'workbook tujuan
>Dim sht As Worksheet  'sheet tujuan
>Dim shtNew As Worksheet 'sheet baru
>Dim shtMain As Worksheet
>Dim lSht As Long 'indeks sheet
>
>Application.ScreenUpdating = False
>On Error Resume Next    'trap error agar jalan terus, karena proses akibat error diletakkan setelah baris error
>Set rng = Target.Resize(1, 1)  'selalu ambil cell pertama yang diproses
>With rng   'pada range yang diproses
>   If LenB(.Value) <> 0 Then   'ada isinya
>       If .Row > 3 And .Column > 9 And .Column < 12 Then 'dibaris setelah header pada kolom 10 sampai 11
>            Set wbkApp = ThisWorkbook
>            Set shtMain = ActiveSheet
>            vFile = Array("dataanak.xlsx", "datapa.xlsx")   'simpan nama workbook
>            Set wbk = Workbooks(sFile)   'set workbook dengan workbook yang bernama sesuai sfile
>               If wbk Is Nothing Then      'workbook belum dibuka
>                     'buka file tanpa update link dan kondisi readonly
>                      Set wbk = Workbooks.Open(ThisWorkbook.Path & "\" & vFile(.Column - 10), False, True)
>                      If wbk Is Nothing Then       'gak ada file yang bisa dibuka
>                            sMsg = "tidak ada workbook bernama " & vFile(.Column - 10) & _
>                                  " di folder bernama " & ThisWorkbook.Path
>                            GoTo Keluar      'ke blok keluar dibawah sana
>                      End If
>               End If
>      
>               wbk.Activate                                  'aktifkan workbook
>               Set sht = wbk.Sheets(.Value)        'set worksheet dalam workbook sesuai isi range yang diproses
>               If sht Is Nothing Then               'gak ada sheet dimaksud
>                       sMsg = "tidak ada sheet bernama " & .Value & _
>                               " dalam workbook bernama " & vFile(.Column - 10)
>                       wbk.Close False               'tutup workbook tanpa di save
>                       GoTo Keluar                      'ke blok keluar dibawah sana
>               End If
>           
>            'buat worksheet baru di workbook pemanggil
>            Set shtNew = wbkApp.Sheets.Add(after:=wbkApp.Sheets(wbkApp.Sheets.Count))
>            sht.UsedRange.Copy shtNew.Range("a1")       'copy data tujuan ke pemanggil di a1
>            wbk.Close False                             'tutup wbk tujuan
>           
>            'beri nama sheet baru
>            Err.Clear
>            lSht = 0
>            shtNew.Name = .Value
>            Do While Err.Number <> 0
>                Err.Clear
>                lSht = lSht + 1
>                shtNew.Name = .Value & "_" & lSht
>            Loop
>            shtMain.Activate                            'aktifkan sheet pemanggil
>            sMsg = "Done."
>       End If
>   End If
>End With
>
>Keluar:
>   Err.Clear
>   On Error GoTo 0
>    Application.ScreenUpdating = True
>   If Len(sMsg) > 5 Then
>       MsgBox sMsg, vbCritical
>   ElseIf Len(sMsg) = 5 Then
>        MsgBox "Done.", vbInformation
>   End If
>
>Yang merah untuk menyusun multi file tergantung urutan kolom yang rapat
>
>
>Wassalam,
>Kid.
>
>
>2013/1/17 Nori Z ordinarynori@yahoo.com>
>
>
>> 
>>Makasih Mr. Kid, 
>>Sudah bisa..tapi dia cuma mengakses workbook 'DataPA&#39; .. 
>>
>>
>>Jadi agar bisa ngakses workbook 'DataAnak&#39;...,saya tadi tambahkan ajaa 
>>               sFile = "dataanak.xlsx"    'simpan nama workbook
>>setelah baris 
>>               sFile = "datapa.xlsx"    'simpan nama workbook
>> kira-kira tidak ada masalah kah itu Mr. Kid?
>>
>>
>>
>>emm,, jika boleh minta bantu lagi dua lagi pertanyaan saya yang belum dapat solusinya agar bisa rename sheet dan copy master tabel gimana dnk Mr. Kid?...
>>Makasih banyak-banyak yaaaa.....
>>Moga Tuhan balas kebaikannya....
>>
>>
>>Best,
>>Nori.
>>
>>
>>
>>
>>
>>
>>
>>________________________________
>> From: Mr. Kid mr.nmkid@gmail.com>
>>To: belajar-excel@yahoogroups.com
>>Sent: Wednesday, January 16, 2013 11:17 AM
>>
>>Subject: Re: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
>>
>>
>>
>> 
>>Oh sorry, ternyata ada yang salah di baris berikut :
>>                      set wbk = workbooks( thisworkbook.path & "\" & sfile , false,true )   
>>harusnya :
>>                      set wbk = workbooks.open( thisworkbook.path & "\" & sfile , false,true )   
>>
>>Maaf atas kekhilafan yang terjadi.
>>Moga-moga perbaikan diatas bisa menyelesaikan masalah error-nya.
>>Mohon kabarnya jika masih muncul error (belum sempet dicoba scriptnya)
>>
>>Wassalam,
>>Kid.
>>
>>
>>2013/1/16 Mr. Kid mr.nmkid@gmail.com>
>>
>>Coba copas dulu dari milis ke notepad dan pastikan notepad tidak di-word wrap.
>>>Kemudian copas dari notepad ke dalam prosedur pilihan Anda.
>>>
>>>Wassalam,
>>>Kid.
>>>
>>>
>>>
>>>
>>>2013/1/16 Nori Z ordinarynori@yahoo.com>
>>>
>>>
>>>> 
>>>>Dear Mr Kid
>>>>Makasih yaa balasannya,,
>>>>emm tapi itu dimasukkan dimana? 
>>>>saya letakkan di Sheet1(Utama) dengan event selection change
>>>>tapi keluar pesan 'Compile Error : Wrong number of arguments or invalid property assignment&#39;
>>>>terus dia blok kuning nama prosedurnya  dan blok biru kata 'workbooks&#39; di baris 17..
>>>>
>>>>
>>>>saya salah dimana yaa?
>>>>makasih,
>>>>
>>>>
>>>>Best,
>>>>Nori.
>>>>
>>>>
>>>>
>>>>________________________________
>>>> From: Mr. Kid mr.nmkid@gmail.com>
>>>>To: belajar-excel@yahoogroups.com
>>>>Sent: Tuesday, January 15, 2013 8:32 PM
>>>>Subject: Re: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
>>>>
>>>>
>>>>
>>>> 
>>>>Hai Nori,
>>>>
>>>>Letakkan script berikut pada event yang anda sukai antara selection change atau before double click
>>>>dim rng as range    'range yang diproses
>>>>dim sFile as string  'nama workbook tujuan
>>>>dim sMsg as string  'wadah pesan ke user
>>>>dim wbk as workbook 'workbook tujuan
>>>>dim sht as worksheet  'nama sheet tujuan
>>>>
>>>>on error resume next    'trap error agar jalan terus, karena proses akibat error diletakkan setelah baris error
>>>>set rng=target.resize(1,1)     'selalu ambil cell pertama yang diproses
>>>>with rng   'pada range yang diproses
>>>>   if lenb(.value)<>0 then     'ada isinya
>>>>       if .row>3 and .column>9 and .column<12 then   'dibaris setelah header pada kolom 10 sampai 11
>>>>               sfile="datapa.xlsx";      'simpan nama workbook
>>>>               set wbk=workbooks(sfile)     'set workbook dengan workbook yang bernama sesuai sfile
>>>>               if wbk is nothing then      'workbook belum dibuka
>>>>                     'buka file tanpa update link dan kondisi readonly
>>>>                      set wbk = workbooks( thisworkbook.path & "\" & sfile , false,true )   
>>>>                      if wbk is nothing then       'gak ada file yang bisa dibuka
>>>>                            smsg="tidak ada workbook bernama " & sfile & _
>>>>                                  " di folder bernama " & thisworkbook.path
>>>>                            goto keluar      'ke blok keluar dibawah sana
>>>>                      endif
>>>>               endif
>>>>      
>>>>               wbk.activate                                  'aktifkan workbook
>>>>               set sht=wbk.sheets( .value )        'set worksheet dalam workbook sesuai isi range yang diproses
>>>>               if sht is nothing then               'gak ada sheet dimaksud
>>>>                       smsg="tidak ada sheet bernama " & .value & " dalam workbook bernama " & sfile
>>>>                       wbk.close false               'tutup workbook tanpa di save
>>>>                       goto keluar                      'ke blok keluar dibawah sana
>>>>               endif
>>>>                sht.activate                            'aktifkan worksheet
>>>>       endif
>>>>   endif
>>>>end with
>>>>
>>>>Keluar:
>>>>   err.clear
>>>>   on error goto 0
>>>>   if lenb(smsg)<>0 then
>>>>       msgbox smsg,vbcritical
>>>>   endif
>>>>
>>>>Wassalam,
>>>>Kid.
>>>>
>>>>
>>>>2013/1/15 Nori Z ordinarynori@yahoo.com>
>>>>
>>>>
>>>>> 
>>>>>Dear all,,
>>>>>Please help me.. hikss.. hikss..
>>>>>Gimana solusinya ? :(
>>>>>
>>>>>
>>>>>thanks...
>>>>>
>>>>>
>>>>>Best,
>>>>>Nori.
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>________________________________
>>>>> From: Nori Z ordinarynori@yahoo.com>
>>>>>To: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
>>>>>Sent: Monday, January 14, 2013 11:18 AM
>>>>>Subject: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
>>>>>
>>>>>
>>>>>
>>>>> 
>>>>>Dear All, 
>>>>>Sebelumnya saya pernah menanyakan topik 'Bagaimana agar bisa akses sel dari sheet yang berbeda dan dengan kode yang bersesuaian?'
>>>>>Saat itu saya mendapatkan pencerahan dari  Master zainul_ulum[at]yahoo[dot]com zainul_ulum@yahoo.com> .
>>>>>Saya ucapkan banyak terimakasih ..
>>>>>
>>>>>
>>>>>Namun saat ini saya ada sedikit kendala, ternyata permasalahannya agak sedikit kompleks bagi saya (hmm.. karena saya merasa sangat kesulitan menemukan solusinya :( ... )
>>>>>
>>>>>
>>>>>Pada file terlampir,
>>>>>Permasalahannya saya ingin merujuk pada workbook yang lain namun harus menuju/merujuk pada sheet yang bersesuaian dengan kode sel yang saya klik dari Tabel Utama. Penjelasan permasalahannya sudah saya lampirkan dalam file excel ini.
>>>>>Yang sangat mumet bagi saya karena form ini merupakan form master / awal yang mana nantinya akan dilakukan input data... makanya mesti melakukan perintah pencopyan master tabel dari sheet yang satu ke sheet yang lain (jika sheet tersebut kosong) pada workbook yang dituju dengan memperhatikan kode sel yang diklik sebelumnya... Selanjutnya jika sheet tersebut sudah terisi tabel dan data maka perintah yang dilakukan hanya mengakses/merujuk pada sheet dimaksud tersebut...
>>>>> 
>>>>>Saya sangat mengharapkan bantuan dari para Master disini...
>>>>>Terimakasih,
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>Best,
>>>>>Nori.
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>>
>>>
>>
>>
>>
>
>
>

Fri Jan 18, 2013 12:08 am (PST) . Posted by:

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

Oh jadi buka workbook lain lalu copy data semua sheet di workbook terbuka
sheet tersebut ke workbook utama gitu ya ?
jadi seperti yang dilakukan script yang ada tersebut.

Jika bukan salin data dari sheet workbook anak ke baris yang diproses ya.
Kalau sekedar lihat saja di workbook utama, sepertinya script terakhir bisa
melakukannya

Wassalam,
Kid.

2013/1/18 Nori Z ordinarynori@yahoo.com>

> **
>
>
> Hehehe.. Mr Kid...makasihh banyakk...
>
> Terkait pertanyaan Mr Kid ttg hubungan record dg tabel utama..
> Awalnya saya pikir cara ini yang akan membantu untuk memahami datanya..
> namun ternyata justru malah membuat ribet... hiksss :(
> Jadi maksudnya begini , pada kolom 'Informasi Mengenai anak < 18 tahun'
> masing2 informan punya tabel data anak2 dalam keluarganya yang umur di
> bawah 18 tahun, tabel itulah yang ada di workbook 'Data Anak' yang memuat
> Nama, umur.. dst.
>
> Awalnya kupikir akan mudah dengan begini , tetapi ternyata malah sangat
> susah jadinya huhuhu...
>
> Ataukah Mr Kid ada saran gitu..?
> Thanks,
>
> ------------------------------
> *From:* Mr. Kid mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, January 18, 2013 1:09 PM
>
> *Subject:* Re: [belajar-excel] Masih tentang bagaimana akses workbook
> yang lain dari sebuah workbook .
>
>
> Kolom diproses di kolom 11 dan 35
>
> Dim rng As Range 'range yang diproses
> Dim vFile As Variant 'nama workbook tujuan
> Dim sMsg As String 'wadah pesan ke user
> Dim wbkApp As Workbook 'workbook pemanggil
> Dim wbk As Workbook 'workbook tujuan
> Dim sht As Worksheet 'sheet tujuan
> Dim shtNew As Worksheet 'sheet baru
> Dim shtMain As Worksheet
> Dim lSht As Long 'indeks sheet
>
> Application.ScreenUpdating = False
> On Error Resume Next 'trap error agar jalan terus, karena proses akibat
> error diletakkan setelah baris error
> Set rng = Target.Resize(1, 1) 'selalu ambil cell pertama yang diproses
> With rng 'pada range yang diproses
> If LenB(.Value) <> 0 Then 'ada isinya
> If .Row > 3 Then 'dibaris setelah header pada kolom 10 sampai 11
> Select Case .Column
> Case 11
> lSht = 0
> Case 35
> lSht = 1
> Case Else
> GoTo Keluar
> End Select
>
> Set wbkApp = ThisWorkbook
> Set shtMain = ActiveSheet
> vFile = Array("dataanak.xlsx", "datapa.xlsx") 'simpan nama
> workbook
> Set wbk = Workbooks(sFile) 'set workbook dengan workbook
> yang bernama sesuai sfile
> If wbk Is Nothing Then 'workbook belum dibuka
> 'buka file tanpa update link dan kondisi readonly
> Set wbk = Workbooks.Open(ThisWorkbook.Path & "\" &
> vFile(lSht), False, True)
> If wbk Is Nothing Then 'gak ada file yang bisa
> dibuka
> sMsg = "tidak ada workbook bernama " &
> vFile(lSht) & _
> " di folder bernama " & ThisWorkbook.Path
> GoTo Keluar 'ke blok keluar dibawah sana
> End If
> End If
>
> wbk.Activate 'aktifkan
> workbook
> Set sht = wbk.Sheets(.Value) 'set worksheet dalam
> workbook sesuai isi range yang diproses
> If sht Is Nothing Then 'gak ada sheet dimaksud
> sMsg = "tidak ada sheet bernama " & .Value & "
> dalam workbook bernama " & vFile(lSht)
> wbk.Close False 'tutup workbook tanpa
> di save
> GoTo Keluar 'ke blok keluar
> dibawah sana
> End If
>
> '----------------------------------------------------------
> 'contoh copy worksheet di workbook lain ke workbook tertentu
> '----------------------------------------------------------
> 'buat worksheet baru di workbook pemanggil
> Set shtNew =
> wbkApp.Sheets.Add(after:=wbkApp.Sheets(wbkApp.Sheets.Count))
> sht.UsedRange.Copy shtNew.Range("a1") 'copy data tujuan
> ke pemanggil di a1
> wbk.Close False 'tutup wbk tujuan
>
> 'beri nama sheet baru
> Err.Clear
> lSht = 0
> shtNew.Name = .Value
> Do While Err.Number <> 0
> Err.Clear
> lSht = lSht + 1
> shtNew.Name = .Value & "_" & lSht
> Loop
> shtMain.Activate 'aktifkan sheet
> pemanggil
> '----------------------------------------------------------
> sMsg = "Done."
> End If
> End If
> End With
>
> Keluar:
> Err.Clear
> On Error GoTo 0
> Application.ScreenUpdating = True
> If Len(sMsg) > 5 Then
> MsgBox sMsg, vbCritical
> ElseIf Len(sMsg) = 5 Then
> MsgBox "Done.", vbInformation
> End If
>
>
> Bagian yang *merah *adalah contoh copas sheet dari workbook lain ke
> workbook tertentu. Non aktifkan jika tidak dibutuhkan.
> Bagian yang *hijau *adalah pengatur item array vFile yang harus dibuka
> berdasar indeks kolom Excel.
> Apapun file yang dibuka, masukkan dalam daftar array, dan tentukan nilai
> lsht dalam blok hijau.
>
> Terusterang, saya ndak paham hubungan antara record dalam sheet utama
> dengan file yang dibuka.
>
> Wassalam,
> Kid.
>
> 2013/1/18 Nori Z ordinarynori@yahoo.com>
>
> **
>
> Dear Mr. Kid,
> Trimakasih solusinya...
> Namun saya benar-benar minta maaf.. ternyata banyak perubahan kolom dari
> tabel nya sendiri.. seperti yang sudah saya reply ke thread yang dibalas
> oleh Master Zainul...
>
> Tetapi bagaimanapun, saya sungguh berterimakasih untuk kesempatan
> mendapatkan solusi dari Mr. Kid..
>
> Makasih,
> Best,
> Nori.
>
> ------------------------------
> *From:* Mr. Kid mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, January 17, 2013 7:40 PM
>
> *Subject:* Re: [belajar-excel] Masih tentang bagaimana akses workbook
> yang lain dari sebuah workbook .
>
>
> Coba script berikut : (letakkan pada event yang Anda gunakan)
> Dim rng As Range 'range yang diproses
> Dim vFile As Variant 'nama workbook tujuan
> Dim sMsg As String 'wadah pesan ke user
> Dim wbkApp As Workbook 'workbook pemanggil
> Dim wbk As Workbook 'workbook tujuan
> Dim sht As Worksheet 'sheet tujuan
> Dim shtNew As Worksheet 'sheet baru
> Dim shtMain As Worksheet
> Dim lSht As Long 'indeks sheet
>
> Application.ScreenUpdating = False
> On Error Resume Next 'trap error agar jalan terus, karena proses akibat
> error diletakkan setelah baris error
> Set rng = Target.Resize(1, 1) 'selalu ambil cell pertama yang diproses
> With rng 'pada range yang diproses
> If LenB(.Value) <> 0 Then 'ada isinya
> If .Row > 3 And .Column > 9 And .Column < 12 Then 'dibaris setelah
> header pada kolom 10 sampai 11
> Set wbkApp = ThisWorkbook
> Set shtMain = ActiveSheet
> vFile = Array("dataanak.xlsx", "datapa.xlsx") 'simpan nama
> workbook
> Set wbk = Workbooks(sFile) 'set workbook dengan workbook
> yang bernama sesuai sfile
> If wbk Is Nothing Then 'workbook belum dibuka
> 'buka file tanpa update link dan kondisi readonly
> Set wbk = Workbooks.Open(ThisWorkbook.Path & "\" & vFile(.Column
> - 10), False, True)
> If wbk Is Nothing Then 'gak ada file yang bisa
> dibuka
> sMsg = "tidak ada workbook bernama " & vFile(.Column
> - 10) & _
> " di folder bernama " & ThisWorkbook.Path
> GoTo Keluar 'ke blok keluar dibawah sana
> End If
> End If
>
> wbk.Activate 'aktifkan
> workbook
> Set sht = wbk.Sheets(.Value) 'set worksheet dalam
> workbook sesuai isi range yang diproses
> If sht Is Nothing Then 'gak ada sheet dimaksud
> sMsg = "tidak ada sheet bernama " & .Value & _
> " dalam workbook bernama " & vFile(.Column
> - 10)
> wbk.Close False 'tutup workbook tanpa
> di save
> GoTo Keluar 'ke blok keluar
> dibawah sana
> End If
>
> 'buat worksheet baru di workbook pemanggil
> Set shtNew =
> wbkApp.Sheets.Add(after:=wbkApp.Sheets(wbkApp.Sheets.Count))
> sht.UsedRange.Copy shtNew.Range("a1") 'copy data tujuan
> ke pemanggil di a1
> wbk.Close False 'tutup wbk tujuan
>
> 'beri nama sheet baru
> Err.Clear
> lSht = 0
> shtNew.Name = .Value
> Do While Err.Number <> 0
> Err.Clear
> lSht = lSht + 1
> shtNew.Name = .Value & "_" & lSht
> Loop
> shtMain.Activate 'aktifkan sheet
> pemanggil
> sMsg = "Done."
> End If
> End If
> End With
>
> Keluar:
> Err.Clear
> On Error GoTo 0
> Application.ScreenUpdating = True
> If Len(sMsg) > 5 Then
> MsgBox sMsg, vbCritical
> ElseIf Len(sMsg) = 5 Then
> MsgBox "Done.", vbInformation
> End If
>
> Yang merah untuk menyusun multi file tergantung urutan kolom yang rapat
>
>
> Wassalam,
> Kid.
>
> 2013/1/17 Nori Z ordinarynori@yahoo.com>
>
> **
>
> Makasih Mr. Kid,
> Sudah bisa..tapi dia cuma mengakses workbook 'DataPA&#39; ..
>
> Jadi agar bisa ngakses workbook 'DataAnak&#39;...,saya tadi tambahkan ajaa
> sFile = "dataanak.xlsx" 'simpan nama workbook
> setelah baris
> sFile = "datapa.xlsx" 'simpan nama workbook
> kira-kira tidak ada masalah kah itu Mr. Kid?
>
> emm,, jika boleh minta bantu lagi dua lagi pertanyaan saya yang belum
> dapat solusinya agar bisa rename sheet dan copy master tabel gimana dnk Mr.
> Kid?...
> Makasih banyak-banyak yaaaa.....
> Moga Tuhan balas kebaikannya....
>
> Best,
> Nori.
>
>
>
> ------------------------------
> *From:* Mr. Kid mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, January 16, 2013 11:17 AM
>
> *Subject:* Re: [belajar-excel] Masih tentang bagaimana akses workbook
> yang lain dari sebuah workbook .
>
>
> Oh sorry, ternyata ada yang salah di baris berikut :
> set wbk = workbooks( thisworkbook.path & "\" & sfile
> , false,true )
> harusnya :
> set wbk = workbooks.open( thisworkbook.path & "\" &
> sfile , false,true )
>
> Maaf atas kekhilafan yang terjadi.
> Moga-moga perbaikan diatas bisa menyelesaikan masalah error-nya.
> Mohon kabarnya jika masih muncul error (belum sempet dicoba scriptnya)
>
> Wassalam,
> Kid.
>
> 2013/1/16 Mr. Kid mr.nmkid@gmail.com>
>
> Coba copas dulu dari milis ke notepad dan pastikan notepad tidak di-word
> wrap.
> Kemudian copas dari notepad ke dalam prosedur pilihan Anda.
>
> Wassalam,
> Kid.
>
>
>
> 2013/1/16 Nori Z ordinarynori@yahoo.com>
>
> **
>
> Dear Mr Kid
> Makasih yaa balasannya,,
> emm tapi itu dimasukkan dimana?
> saya letakkan di Sheet1(Utama) dengan event selection change
> tapi keluar pesan 'Compile Error : Wrong number of arguments or invalid
> property assignment&#39;
> terus dia blok kuning nama prosedurnya dan blok biru kata 'workbooks&#39; di
> baris 17..
>
> saya salah dimana yaa?
> makasih,
>
> Best,
> Nori.
>
> ------------------------------
> *From:* Mr. Kid mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, January 15, 2013 8:32 PM
> *Subject:* Re: [belajar-excel] Masih tentang bagaimana akses workbook
> yang lain dari sebuah workbook .
>
>
> Hai Nori,
>
> Letakkan script berikut pada event yang anda sukai antara selection change
> atau before double click
> dim rng as range 'range yang diproses
> dim sFile as string 'nama workbook tujuan
> dim sMsg as string 'wadah pesan ke user
> dim wbk as workbook 'workbook tujuan
> dim sht as worksheet 'nama sheet tujuan
>
> on error resume next 'trap error agar jalan terus, karena proses akibat
> error diletakkan setelah baris error
> set rng=target.resize(1,1) 'selalu ambil cell pertama yang diproses
> with rng 'pada range yang diproses
> if lenb(.value)<>0 then 'ada isinya
> if .row>3 and .column>9 and .column<12 then 'dibaris setelah
> header pada kolom 10 sampai 11
> sfile="datapa.xlsx"; 'simpan nama workbook
> set wbk=workbooks(sfile) 'set workbook dengan workbook
> yang bernama sesuai sfile
> if wbk is nothing then 'workbook belum dibuka
> 'buka file tanpa update link dan kondisi readonly
> set wbk = workbooks( thisworkbook.path & "\" & sfile
> , false,true )
> if wbk is nothing then 'gak ada file yang bisa
> dibuka
> smsg="tidak ada workbook bernama " & sfile & _
> " di folder bernama " & thisworkbook.path
> goto keluar 'ke blok keluar dibawah sana
> endif
> endif
>
> wbk.activate 'aktifkan
> workbook
> set sht=wbk.sheets( .value ) 'set worksheet dalam
> workbook sesuai isi range yang diproses
> if sht is nothing then 'gak ada sheet dimaksud
> smsg="tidak ada sheet bernama " & .value & " dalam
> workbook bernama " & sfile
> wbk.close false 'tutup workbook tanpa
> di save
> goto keluar 'ke blok keluar
> dibawah sana
> endif
> sht.activate 'aktifkan worksheet
> endif
> endif
> end with
>
> Keluar:
> err.clear
> on error goto 0
> if lenb(smsg)<>0 then
> msgbox smsg,vbcritical
> endif
>
> Wassalam,
> Kid.
>
> 2013/1/15 Nori Z ordinarynori@yahoo.com>
>
> **
>
> Dear all,,
> Please help me.. hikss.. hikss..
> Gimana solusinya ? :(
>
> thanks...
>
> Best,
> Nori.
>
> ------------------------------
> *From:* Nori Z ordinarynori@yahoo.com>
> *To:* "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
> *Sent:* Monday, January 14, 2013 11:18 AM
> *Subject:* [belajar-excel] Masih tentang bagaimana akses workbook yang
> lain dari sebuah workbook .
>
>
> Dear All,
> Sebelumnya saya pernah menanyakan topik 'Bagaimana agar bisa akses sel
> dari sheet yang berbeda dan dengan kode yang bersesuaian?'
> Saat itu saya mendapatkan pencerahan dari Master zainul_ulum[at]yahoo[dot]com
> zainul_ulum@yahoo.com> .
> Saya ucapkan banyak terimakasih ..
>
> Namun saat ini saya ada sedikit kendala, ternyata permasalahannya agak
> sedikit kompleks bagi saya (hmm.. karena saya merasa sangat kesulitan
> menemukan solusinya :( ... )
>
> Pada file terlampir,
> Permasalahannya saya ingin merujuk pada workbook yang lain namun harus
> menuju/merujuk pada sheet yang bersesuaian dengan kode sel yang saya klik
> dari Tabel Utama. Penjelasan permasalahannya sudah saya lampirkan dalam
> file excel ini.
> Yang sangat mumet bagi saya karena form ini merupakan form master / awal
> yang mana nantinya akan dilakukan input data... makanya mesti melakukan
> perintah pencopyan master tabel dari sheet yang satu ke sheet yang lain
> (jika sheet tersebut kosong) pada workbook yang dituju dengan memperhatikan
> kode sel yang diklik sebelumnya... Selanjutnya jika sheet tersebut sudah
> terisi tabel dan data maka perintah yang dilakukan hanya mengakses/merujuk
> pada sheet dimaksud tersebut...
>
> Saya sangat mengharapkan bantuan dari para Master disini...
> Terimakasih,
>
>
> Best,
> Nori.
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Thu Jan 17, 2013 8:30 pm (PST) . Posted by:

"PRAZT" praztmath

Dear Mr.Kid

Untuk penambahan data sudah bisa tapi masih ada permasalahan Mr. :

1. Bagaimana cara menomori otomatis pada No.Urut?

2. Saat saya pilih tanggal lahir prosesnya kok lama, bagaimana
solusinya.?

File lampiran disini
https://www.dropbox.com/s/nzegjmgsvsbkgy1/COBA%20buku%20induk%20-%20SIAP%20
PAKE%20-%20Copy.xlsb>

Code UserForm sbg berikut (saya adopsi dari Master Ctv dan saya kmodivikasi
sesuai kebutuhan)

Private Sub cmdSave_Click()

Dim iRow As Long

Dim ws As Worksheet

Set ws = Worksheets("DB")

'menemukan baris kosong pada database siswa

iRow = ws.Cells(Rows.Count, 3) _

.End(xlUp).Offset(1, 0).Row

'check untuk sebuah nis

If Trim(Me.Txtnamalengkap.Value) = "" Then

Me.Txtnamalengkap.SetFocus

MsgBox "Masukan Nama Lengkap terlebih dahulu"

Exit Sub

End If

'copy data ke database siswa

ws.Cells(iRow, 3).Value = Me.TxtNrUrut.Value

ws.Cells(iRow, 6).Value = Me.Txtnamalengkap.Value

ws.Cells(iRow, 7).Value = Me.Txtnamapanggilan.Value

ws.Cells(iRow, 8).Value = Me.Cboklamin.Value

ws.Cells(iRow, 12).Value = Me.CboAnakke.Value

ws.Cells(iRow, 9).Value = Me.Txttmptlhr.Value

ws.Cells(iRow, 10).Value = Me.LblHari

ws.Cells(iRow, 11).Value = Me.Txtagamanya.Value

ws.Cells(iRow, 13).Value = Me.Cbostatuskeluarga.Value

ws.Cells(iRow, 14).Value = Me.Cbokandug.Value

ws.Cells(iRow, 15).Value = Me.Cbojmlsaudaratiri.Value

ws.Cells(iRow, 17).Value = Me.CboYatim.Value

ws.Cells(iRow, 18).Value = Me.CboBhs.Value

ws.Cells(iRow, 19).Value = Me.Txtalmatanak.Value

ws.Cells(iRow, 20).Value = Me.Txthpanak.Value

ws.Cells(iRow, 21).Value = Me.Txttgldg.Value

ws.Cells(iRow, 22).Value = Me.Txtjarak.Value

ws.Cells(iRow, 23).Value = Me.CboGoldar.Value

ws.Cells(iRow, 24).Value = Me.Txtpnyakit.Value

ws.Cells(iRow, 26).Value = Me.TxtTinggi.Value

ws.Cells(iRow, 30).Value = Me.CboJurusan.Value

ws.Cells(iRow, 31).Value = Me.TxtSekolahasl.Value

ws.Cells(iRow, 32).Value = Me.TxtAlmtskol.Value

ws.Cells(iRow, 33).Value = Me.TxtNoIjazah.Value

ws.Cells(iRow, 34).Value = Me.TxtThIjazah.Value

ws.Cells(iRow, 35).Value = Me.TxtNoSTL.Value

ws.Cells(iRow, 36).Value = Me.TxtThSTL.Value

ws.Cells(iRow, 37).Value = Me.CboLmBlajar.Value

ws.Cells(iRow, 91).Value = Me.TxtNISN.Value

ws.Cells(iRow, 40).Value = Me.TxtNamAyh.Value

ws.Cells(iRow, 41).Value = Me.TxtTTLayh.Value

ws.Cells(iRow, 42).Value = Me.TxtAgmAyh.Value

ws.Cells(iRow, 43).Value = Me.TxtKwrgAyh.Value

ws.Cells(iRow, 44).Value = Me.TxtPnddknayh.Value

ws.Cells(iRow, 45).Value = Me.TxtKerjaayh.Value

ws.Cells(iRow, 46).Value = Me.TxtPhslayh.Value

ws.Cells(iRow, 47).Value = Me.TxtAlmtAyh.Value

ws.Cells(iRow, 48).Value = Me.TxtHPayh.Value

ws.Cells(iRow, 49).Value = Me.CboHidup.Value

ws.Cells(iRow, 50).Value = Me.TxtNamIbu.Value

ws.Cells(iRow, 51).Value = Me.TxtTTLibu.Value

ws.Cells(iRow, 52).Value = Me.TxtAgmIbu.Value

ws.Cells(iRow, 53).Value = Me.TxtWrgIbu.Value

ws.Cells(iRow, 54).Value = Me.TxtPendIbu.Value

ws.Cells(iRow, 55).Value = Me.TxtKrjIbu.Value

ws.Cells(iRow, 56).Value = Me.TxtHslIbu.Value

ws.Cells(iRow, 57).Value = Me.TxtAlmtIbu.Value

ws.Cells(iRow, 58).Value = Me.TxtTlpIbu.Value

ws.Cells(iRow, 59).Value = Me.CboHidupIbu.Value

ws.Cells(iRow, 60).Value = Me.TxtNamWali.Value

ws.Cells(iRow, 61).Value = Me.TxtTTLwali.Value

ws.Cells(iRow, 62).Value = Me.TxtAgmWali.Value

ws.Cells(iRow, 63).Value = Me.TxtKwrgWali.Value

ws.Cells(iRow, 64).Value = Me.TxtPendWali.Value

ws.Cells(iRow, 68).Value = Me.TxtTlpWali.Value

ws.Cells(iRow, 67).Value = Me.TxtAlmtWali.Value

'clear data siswa

Me.TxtNrUrut.Value = ""

Me.Txtnamalengkap.Value = ""

Me.TxtNrUrut.Value = ""

Me.Txtnamalengkap.Value = ""

Me.Txtnamapanggilan.Value = ""

Me.Cboklamin.Value = ""

Me.CboAnakke.Value = ""

Me.Txttmptlhr.Value = ""

Me.LblHari = ""

Me.Txtagamanya.Value = ""

Me.Cbostatuskeluarga.Value = ""

Me.Cbokandug.Value = ""

Me.Cbojmlsaudaratiri.Value = ""

Me.CboYatim.Value = ""

Me.CboBhs.Value = ""

Me.Txtalmatanak.Value = ""

Me.Txthpanak.Value = ""

Me.Txttgldg.Value = ""

Me.Txtjarak.Value = ""

Me.CboGoldar.Value = ""

Me.Txtpnyakit.Value = ""

Me.TxtTinggi.Value = ""

Me.CboJurusan.Value = ""

Me.TxtSekolahasl.Value = ""

Me.TxtAlmtskol.Value = ""

Me.TxtNoIjazah.Value = ""

Me.TxtThIjazah.Value = ""

Me.TxtNoSTL.Value = ""

Me.TxtThSTL.Value = ""

Me.CboLmBlajar.Value = ""

Me.TxtNISN.Value = ""

Me.TxtNamAyh.Value = ""

Me.TxtTTLayh.Value = ""

Me.TxtAgmAyh.Value = ""

Me.TxtKwrgAyh.Value = ""

Me.TxtPnddknayh.Value = ""

Me.TxtKerjaayh.Value = ""

Me.TxtPhslayh.Value = ""

Me.TxtAlmtAyh.Value = ""

Me.TxtHPayh.Value = ""

Me.CboHidup.Value = ""

Me.TxtNamIbu.Value = ""

Me.TxtTTLibu.Value = ""

Me.TxtAgmIbu.Value = ""

Me.TxtWrgIbu.Value = ""

Me.TxtPendIbu.Value = ""

Me.TxtKrjIbu.Value = ""

Me.TxtHslIbu.Value = ""

Me.TxtAlmtIbu.Value = ""

Me.TxtTlpIbu.Value = ""

Me.CboHidupIbu.Value = ""

Me.TxtNamWali.Value = ""

Me.TxtTTLwali.Value = ""

Me.TxtAgmWali.Value = ""

Me.TxtKwrgWali.Value = ""

Me.TxtPendWali.Value = ""

Me.TxtTlpWali.Value = ""

Me.TxtAlmtWali.Value = ""

Me.Txtnamalengkap.SetFocus

End Sub

Private Sub CmdClose_Click()

Unload Me

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _

CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

Cancel = True

MsgBox "Gunakan Tombol TUTUP PROGRAM untuk Keluar"

End If

End Sub

Private Sub UserForm_Initialize()

'-- mengisi List para ComboBox dan persiapan lain

CboAnakke.RowSource = "anakke" ' Nama Range di wokbuk

CboBhs.RowSource = "bhs"

CboGoldar.RowSource = "golDarah";

CboHidup.RowSource = "Hidup"

CboHidupIbu.RowSource = "Hidup"

Cboklamin.RowSource = "jnsklamin&quot;

CboJurusan.RowSource = "jurusan" ' Nama Range di wokbuk

CboLmBlajar.RowSource = "lmBajar"

Cbostatuskeluarga.RowSource = "statuskluarga"

Cbojmlsaudaratiri.RowSource = "anakke"

Cbokandug.RowSource = "jmlsaudarakdg"

CboYatim.RowSource = "yatim"

DTPicker1.Value = Date

LblHari = FormatDateTime(Date, vbLongDate)

Set KolomNr = Sheet40.Range("C:C")

TxtNrUrut.Text = RecNoBaru()

Txtnamalengkap.SetFocus

End Sub

Private Sub DTPicker1_Change()

LblHari = FormatDateTime(DTPicker1.Value, vbLongDate)

Txtnamalengkap.SetFocus

'menentukan NomorBaris (di tabel) yg akan diisi

Dim RowBaru As Long

RowBaru = WorksheetFunction.CountA(KolomNr) + 1

' proses mentransfer data dari Form ke tabel di sheet

For N = 1 To 600

Cells(RowBaru, N) = Na

Next N

' reSet Form

Call CmdBatal_Click

TxtNrUrut.Text = RecNoBaru()

Cells(RowBaru + 1, 1).Select

End Sub

Private Sub CmdBatal_Click()

' mengosongkan control 3 s/d 600

For N = 1 To 600

Na = ""

Next N

End Sub

Private Function RecNoBaru() As String

' UDF mencari Next RecNo.

RecNoBaru = Right("000" & Trim(Str(WorksheetFunction.CountA(KolomNr) -
2)), 3)

End Function

Potongan UserFormnya

PRAZTMATH T

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 17 Januari 2013 20:53
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menambah data denganUseForm

Ganti rujukan saat akan menyimpan nilai baris terakhir (ke iRow) agar
merujuk ke kolom-kolom milik data yang pasti terisi.
Kolom A memiliki Indeks 1. Yang Anda gunakan sekarang masih merujuk ke kolom
ke-1 atau kolom A

Wassalam,
Kid.

2013/1/17 Prazt praztmath@gmail.com>

Assalam...
dear all master, mohon bantuanya; saya membuat form input data menggunakan
use form, tetapi saat diisi datanya hanya bisa masuk pada baris pertama
saja, bagaimana caranya agar data selalu bisa bertambah dengan penomoran
otomatis pada file berikut (
https://www.dropbox.com/s/nzegjmgsvsbkgy1/COBA%20buku%20induk%20-%20SIAP%20P
AKE%20-%20Copy.xlsb )maaf hanya saya lampirkan linknya saja karena file
terlalu besar

Thu Jan 17, 2013 10:32 pm (PST) . Posted by:

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

1. Jika irow adalah nomor baris Excel untuk record baru dan header adalah
sebanyak 1 baris, maka nomor urut adalah irow-1 (bukan begitu ?)
Nomor urut di form berikutnya tentu saja nomor urut yang ditulis ke DB + 1
(baris lebih baru lagi) jadi irow-1+1 sama saja irow (bukan begitu ?)

2. Begitu control pilih tanggal lahir berubah isinya, maka event change
akan diproses.
Perbaiki kegiatan di event change milik si control pemilih tanggal.
Jika kegiatan dalam event change itu ada yang mengubah isi cell tertentu,
bisa jadi formula yang berkaitan dengan cell tersebut akan dikalkulasi.
Pokok ceritanya, perbaiki isi event change dari control pemilih data
tanggal agar tidak terlalu banyak proses yang ndak penting

Wassalam,
Kid.

2013/1/18 PRAZT praztmath@gmail.com>

> **
>
>
> Dear Mr.Kid****
>
> Untuk penambahan data sudah bisa tapi masih ada permasalahan Mr. :****
>
> **1. **Bagaimana cara menomori otomatis pada No.Urut?****
>
> **2. **Saat saya pilih tanggal lahir prosesnya kok lama, bagaimana
> solusinya.?****
>
> File lampiran disinihttps://www.dropbox.com/s/nzegjmgsvsbkgy1/COBA%20buku%20induk%20-%20SIAP%20PAKE%20-%20Copy.xlsb>
> ****
>
> ** **
>
> Code UserForm sbg berikut (saya adopsi dari Master Ctv dan saya
> kmodivikasi sesuai kebutuhan)****
>
> Private Sub cmdSave_Click()****
>
> Dim iRow As Long****
>
> Dim ws As Worksheet****
>
> Set ws = Worksheets("DB")****
>
> ** **
>
> 'menemukan baris kosong pada database siswa****
>
> iRow = ws.Cells(Rows.Count, 3) _****
>
> .End(xlUp).Offset(1, 0).Row****
>
> ** **
>
> 'check untuk sebuah nis****
>
> If Trim(Me.Txtnamalengkap.Value) = "" Then****
>
> Me.Txtnamalengkap.SetFocus****
>
> MsgBox "Masukan Nama Lengkap terlebih dahulu"****
>
> Exit Sub****
>
> End If****
>
> ** **
>
> 'copy data ke database siswa****
>
> ws.Cells(iRow, 3).Value = Me.TxtNrUrut.Value****
>
> 'clear data siswa****
>
> Me.TxtNrUrut.Value = ""
>
>

Thu Jan 17, 2013 8:35 pm (PST) . Posted by:

"sony nurcahyo" sony_pwt

salam,

kami dari lembaga pendidikan (sekolah) ada menemui masalah hal penghitungan tunggakan spp dengan menggunakan formula otomatis seperti pada tabel (terlampir)

mungkin permasalahan ini terlalu mudah utk para pakar excel dan juga sudah pernah diposting sebelumnya, namun untuk mudahnya kami ingin minta masukan (kembali) tentang cara membuat formula tunggakan tsb

terimakasih atas pencerahanya

wassalam

sony_pwt (0281) 7907423

Thu Jan 17, 2013 9:12 pm (PST) . Posted by:

"raya hidayat" raya.hidayat

dear pak sony,

terlampir file yang semoga sesuai dengan yang diinginkan.
mohon diingat :
1. rumus ini dibuat berdasarkan bulan berjalan. dimana saat ini (bulan
januari 2013) maka tunggakan adalah sampai bulan desember 2012.
bila saat bapak buka nanti dibulan februari 2013 maka otomatis
tunggakan adalah sampai bulan januari 2013.

terima kasih

Raya

2013/1/18 sony nurcahyo sony_pwt@yahoo.com>

> **
>
>
> salam,
>
> kami dari lembaga pendidikan (sekolah) ada menemui masalah hal
> penghitungan tunggakan spp dengan menggunakan formula otomatis seperti pada
> tabel (terlampir)
>
> mungkin permasalahan ini terlalu mudah utk para pakar excel dan juga sudah
> pernah diposting sebelumnya, namun untuk mudahnya kami ingin minta masukan
> (kembali) tentang cara membuat formula tunggakan tsb
>
> terimakasih atas pencerahanya
>
> wassalam
>
> sony_pwt (0281) 7907423
>
>
>
>

--
Terima kasih

Raya

Thu Jan 17, 2013 9:47 pm (PST) . Posted by:

"Apriyadi Apri" apriyadi_apry

Dear Master Excel,

Terima kasih atas bantuannya.Ijin pakai ya bos.

Thank

Apriyadi

________________________________
From: Mr. Kid mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, January 17, 2013 10:27 PM
Subject: Re: [belajar-excel] Absensi


 
Hai Apriyadi,

Sepertinya file tersebut buatannya mbake (alm).
Coba ubah sedikit bagian :
      dTabel(NewRow, 1) = NewRow
      dTabel(NewRow, 2) = Date
      dTabel(NewRow, 3) = Range("DafNama").Find(Range("ID")).Offset(0, 1).Value
      dTabel(NewRow, 4) = Time
menjadi :
        If WorksheetFunction.CountIf(dTabel.CurrentRegion.Offset(0, 2).Resize(, 1), Range("ID").Offset(1).Value) = 0 Then
            dTabel(NewRow, 1) = NewRow
            dTabel(NewRow, 2) = Date
            dTabel(NewRow, 3) = Range("DafNama").Find(Range("ID")).Offset(0, 1).Value
            dTabel(NewRow, 4) = Time
        Else
            MsgBox "Sudah pernah absen masuk."
        End If

Untuk absen pulang, bisa juga bagian :
                If dTabel(i, 5) = "" Then
                    dTabel(i, 5) = Time
                    AdaClockIn = True
                    Exit For
                End If
diubah sedikit menjadi :
                If dTabel(i, 5) = "" Then
                    dTabel(i, 5) = Time
                    AdaClockIn = True
                    Exit For
                Else
                    MsgBox "sudah pernah absen pulang"
                    Exit Sub
                End If

Yang biru adalah bagian yang ditambahkan.
jangan lupa untuk menulis nama Anda sebagai keterangan dalam penambahan tersebut.

Jika penggunaannya sebagai shared workbook, sepertinya VBA tidak akan bekerja.
Jika penggunaannya pada sebuah komputer saja, bisa untuk banyak karyawan sesuai daftar karyawan di kolom K pada sheet input tersebut.

Dari script yang ada tidak ada pembatasan waktu. Jadi batas maksimal record yang bisa tercatat dibatasi oleh jumlah baris yang disediakan Excel untuk sebuah sheet.

Wassalam,
Kid.

2013/1/17 Apriyadi Apri apriyadi_apry@yahoo.com>

> 
>Dear Master Excel,
>
>
>
>
>                Saya dapat absensi dengan menggunakan excel dari group para master Excel dan saya rubah sedikit. Ada yang ingin saya tambahkan namun saya tidak mengerti caranya. Mohon bantuan para Master excel agar absennya sesuai dengan apa yang saya inginkan atau dapat lebih baik lagi.
>
>
>Seperti ini.Pada hari ini saya masuk kerja dengan meng-klik absen hadir dan data nya akan masuk ke sheet absen.namun saat saya klik hadir lagi pada hari yang sama maka datanya akan masuk lagi.Yang saya mengharapkan jika absen hadir yang ke 2 atau absen pulang ke 2 pada hari yang sama tidak tersimpan di sheet absen dan muncul peringatan bahwa telah melakukan absen sebelumnya sehingga tidak terdapat data yang double.
>
>
>Oh iya kerena ini buka buatan saya.Jadi saya tidak mengetahui apakah absen ini bisa untuk banyak orang sekitar 50 orang dan bisa sampai menyimpan data absen selama 2 atau 3 bulan.
>
>
>Mohon bantuan dan pencerahannya.Atas perhatian dan bantuannya saya ucapkan terima kasih
>
>
>Thank
>
>
>Apriyadi
>

Fri Jan 18, 2013 12:13 am (PST) . Posted by:

"Apriyadi Apri" apriyadi_apry



Dear Master Excel,

Oh iya saya sudah ganti rumus tersebut sudah bisa.Namun saya iseng ganti tanggal jadi manual.

Misalnya sekarang tanggal 18 saya klik hadir lalu saya ganti tanggal di absen jadi tgl 19 pas saya klik hadir  muncul tulisan sudah pernah absen masuk dan disheet tidak masuk datanya.Klo seperti itu apa absen nya hanya bisa digunakan untuk 1 hari atau berturut turut.

Untuk data tanggalnya mengacu kepada tanggal yang ada input absen atau gimana ya?

mohon pencerahann lagi.Terima kasih

Thank

Apriyadi

----- Forwarded Message -----
From: Mr. Kid mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, January 17, 2013 10:27 PM
Subject: Re: [belajar-excel] Absensi


 
Hai Apriyadi,

Sepertinya file tersebut buatannya mbake (alm).
Coba ubah sedikit bagian :
      dTabel(NewRow, 1) = NewRow
      dTabel(NewRow, 2) = Date
      dTabel(NewRow, 3) = Range("DafNama").Find(Range("ID")).Offset(0, 1).Value
      dTabel(NewRow, 4) = Time
menjadi :
        If WorksheetFunction.CountIf(dTabel.CurrentRegion.Offset(0, 2).Resize(, 1), Range("ID").Offset(1).Value) = 0 Then
            dTabel(NewRow, 1) = NewRow
            dTabel(NewRow, 2) = Date
            dTabel(NewRow, 3) = Range("DafNama").Find(Range("ID")).Offset(0, 1).Value
            dTabel(NewRow, 4) = Time
        Else
            MsgBox "Sudah pernah absen masuk."
        End If

Untuk absen pulang, bisa juga bagian :
                If dTabel(i, 5) = "" Then
                    dTabel(i, 5) = Time
                    AdaClockIn = True
                    Exit For
                End If
diubah sedikit menjadi :
                If dTabel(i, 5) = "" Then
                    dTabel(i, 5) = Time
                    AdaClockIn = True
                    Exit For
                Else
                    MsgBox "sudah pernah absen pulang"
                    Exit Sub
                End If

Yang biru adalah bagian yang ditambahkan.
jangan lupa untuk menulis nama Anda sebagai keterangan dalam penambahan tersebut.

Jika penggunaannya sebagai shared workbook, sepertinya VBA tidak akan bekerja.
Jika penggunaannya pada sebuah komputer saja, bisa untuk banyak karyawan sesuai daftar karyawan di kolom K pada sheet input tersebut.

Dari script yang ada tidak ada pembatasan waktu. Jadi batas maksimal record yang bisa tercatat dibatasi oleh jumlah baris yang disediakan Excel untuk sebuah sheet.

Wassalam,
Kid.

2013/1/17 Apriyadi Apri apriyadi_apry@yahoo.com>

> 
>Dear Master Excel,
>
>
>
>
>                Saya dapat absensi dengan menggunakan excel dari group para master Excel dan saya rubah sedikit. Ada yang ingin saya tambahkan namun saya tidak mengerti caranya. Mohon bantuan para Master excel agar absennya sesuai dengan apa yang saya inginkan atau dapat lebih baik lagi.
>
>
>Seperti ini.Pada hari ini saya masuk kerja dengan meng-klik absen hadir dan data nya akan masuk ke sheet absen.namun saat saya klik hadir lagi pada hari yang sama maka datanya akan masuk lagi.Yang saya mengharapkan jika absen hadir yang ke 2 atau absen pulang ke 2 pada hari yang sama tidak tersimpan di sheet absen dan muncul peringatan bahwa telah melakukan absen sebelumnya sehingga tidak terdapat data yang double.
>
>
>Oh iya kerena ini buka buatan saya.Jadi saya tidak mengetahui apakah absen ini bisa untuk banyak orang sekitar 50 orang dan bisa sampai menyimpan data absen selama 2 atau 3 bulan.
>
>
>Mohon bantuan dan pencerahannya.Atas perhatian dan bantuannya saya ucapkan terima kasih
>
>
>Thank
>
>
>Apriyadi
>

Fri Jan 18, 2013 12:42 am (PST) . Posted by:

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

Penulisan data ke dalam db tergantung jam komputer, bukan isian dalam sheet
input.
Jadi, walau isian cell input diganti, tidak bisa isi ulang jika menurut jam
komputer sudah ada absen tanggal tersebut.

Tapi script yang lalu memang kurang. Coba ubah isi prosedur event menjadi :
'ubah : Kid 2013-01-18
Dim NewRow As Long
Dim dTabel As Range
Dim lState As Long 'var status record

MsgBox "Selamat Berkerja" & vbCrLf & _
"Awali kerja Anda dengan Doa", _
vbOKOnly + vbInformation, "Absen"

Set dTabel = Sheets("Absen").Range("B5")
NewRow = dTabel(0, 1).CurrentRegion.Rows.Count
If WorksheetFunction.CountIf(Range("DafNama&quot;), Range("ID")) = 1 Then
dTabel.CurrentRegion.Name = "_myData_" 'set nama range tabel
data
'nilai status user
ThisWorkbook.Names.Add "_myExist_", _

"=SUMPRODUCT((INDEX(_myData_,0,2)=TODAY())*(INDEX(_myData_,0,3)='input
absensi'!$H$8))"
lState = Evaluate("=_myExist_") 'ambil nilai status user
If lState = 0 Then 'user belum pernah absen
hari ini
dTabel(NewRow, 1) = NewRow
dTabel(NewRow, 2) = Date
dTabel(NewRow, 3) =
Range("DafNama").Find(Range("ID")).Offset(0, 1).Value
dTabel(NewRow, 4) = Time
Else 'user pernah absen
MsgBox "Sudah pernah absen masuk." 'pesan sudah pernah
End If 'akhir blok
Else
MsgBox "ID Anda belum terdaftar"
Exit Sub
End If

Wassalam,
Kid.

2013/1/18 Apriyadi Apri apriyadi_apry@yahoo.com>

> **
>
>
>
> Dear Master Excel,
>
>
> Oh iya saya sudah ganti rumus tersebut sudah bisa.Namun saya iseng ganti
> tanggal jadi manual.
>
> Misalnya sekarang tanggal 18 saya klik hadir lalu saya ganti tanggal di
> absen jadi tgl 19 pas saya klik hadir muncul tulisan sudah pernah absen
> masuk dan disheet tidak masuk datanya.Klo seperti itu apa absen nya hanya
> bisa digunakan untuk 1 hari atau berturut turut.
>
> Untuk data tanggalnya mengacu kepada tanggal yang ada input absen atau
> gimana ya?
>
>
> mohon pencerahann lagi.Terima kasih
>
>
> Thank
>
>
> Apriyadi
>
> ----- Forwarded Message -----
> *From:* Mr. Kid mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, January 17, 2013 10:27 PM
> *Subject:* Re: [belajar-excel] Absensi
>
>
> Hai Apriyadi,
>
> Sepertinya file tersebut buatannya mbake (alm).
> Coba ubah sedikit bagian :
> dTabel(NewRow, 1) = NewRow
> dTabel(NewRow, 2) = Date
> dTabel(NewRow, 3) = Range("DafNama").Find(Range("ID")).Offset(0,
> 1).Value
> dTabel(NewRow, 4) = Time
> menjadi :
> *If WorksheetFunction.CountIf(dTabel.CurrentRegion.Offset(0,
> 2).Resize(, 1), Range("ID").Offset(1).Value) = 0 Then*
> dTabel(NewRow, 1) = NewRow
> dTabel(NewRow, 2) = Date
> dTabel(NewRow, 3) =
> Range("DafNama").Find(Range("ID")).Offset(0, 1).Value
> dTabel(NewRow, 4) = Time
> *Else
> MsgBox "Sudah pernah absen masuk."
> End If*
>
> Untuk absen pulang, bisa juga bagian :
> If dTabel(i, 5) = "" Then
> dTabel(i, 5) = Time
> AdaClockIn = True
> Exit For
> End If
> diubah sedikit menjadi :
> If dTabel(i, 5) = "" Then
> dTabel(i, 5) = Time
> AdaClockIn = True
> Exit For
> *Else
> MsgBox "sudah pernah absen pulang"
> Exit Sub*
> End If
>
> Yang biru adalah bagian yang ditambahkan.
> jangan lupa untuk menulis nama Anda sebagai keterangan dalam penambahan
> tersebut.
>
> Jika penggunaannya sebagai shared workbook, sepertinya VBA tidak akan
> bekerja.
> Jika penggunaannya pada sebuah komputer saja, bisa untuk banyak karyawan
> sesuai daftar karyawan di kolom K pada sheet input tersebut.
>
> Dari script yang ada tidak ada pembatasan waktu. Jadi batas maksimal
> record yang bisa tercatat dibatasi oleh jumlah baris yang disediakan Excel
> untuk sebuah sheet.
>
> Wassalam,
> Kid.
>
> 2013/1/17 Apriyadi Apri apriyadi_apry@yahoo.com>
>
> **
>
> Dear Master Excel,
>
>
> Saya dapat absensi dengan menggunakan excel dari group
> para master Excel dan saya rubah sedikit. Ada yang ingin saya tambahkan
> namun saya tidak mengerti caranya. Mohon bantuan para Master excel agar
> absennya sesuai dengan apa yang saya inginkan atau dapat lebih baik lagi.
>
> Seperti ini.Pada hari ini saya masuk kerja dengan meng-klik absen hadir
> dan data nya akan masuk ke sheet absen.namun saat saya klik hadir lagi pada
> hari yang sama maka datanya akan masuk lagi.Yang saya mengharapkan jika
> absen hadir yang ke 2 atau absen pulang ke 2 pada hari yang sama tidak
> tersimpan di sheet absen dan muncul peringatan bahwa telah melakukan absen
> sebelumnya sehingga tidak terdapat data yang double.
>
> Oh iya kerena ini buka buatan saya.Jadi saya tidak mengetahui apakah absen
> ini bisa untuk banyak orang sekitar 50 orang dan bisa sampai menyimpan data
> absen selama 2 atau 3 bulan.
>
> Mohon bantuan dan pencerahannya.Atas perhatian dan bantuannya saya ucapkan
> terima kasih
>
>
> Thank
>
>
> Apriyadi
>
>
>
>
>
>

Fri Jan 18, 2013 4:29 am (PST) . Posted by:

"Andre Rahmaidy Teeza" andre_teeza_bn

Dear Pakar Excell

saya mau tanya gimana formulanya ketika kita mau mencari data yang sama tapi rumus yang dijalankan mereferensi ke beberapa kolom di excel.(file terlampir)
contohnya kolom a,b,c,d ada beberapa data yang sama kalau pakai rumus countif cuma bisa menunjuk satu kolom dan tidak bisa lebih dari satu kolom.. mohon petunjuknya 

Fri Jan 18, 2013 8:14 am (PST) . Posted by:

"M. Ferdiansyah" muh_f3rdi4n5yah

Dear Pak Andre.

Bisa dengan rumus Countifs..
=Countifs(criteria_range1,criteria1,criteria_range2,criteria2,.......)

atau contoh rumusnya :
=COUNTIFS($A$2:A2,A2,$B$2:B2,B2,$C$2:C2,C2,$D$2:D2,D2)
Copy ke bawah..

regard,
ferdy

> Dear Pakar Excell
>
> saya mau tanya gimana formulanya ketika kita mau mencari data yang sama
> tapi rumus yang dijalankan mereferensi ke beberapa kolom di excel.(file
> terlampir)
> contohnya kolom a,b,c,d ada beberapa data yang sama kalau pakai rumus
> countif cuma bisa menunjuk satu kolom dan tidak bisa lebih dari satu
> kolom.. mohon petunjuknya 

____________ _________ _________ _________ _________ _________ _________
Notice : This e-mail (and any attachment) is strictly confidential and
is intended only for the addressee(s)above. Is strictly prohibited to
forward, print, copy, or otherwise reproduce this message that would
allow it to be viewed by any individual not originally listed as
a recipient(s). If you have received this e-mail in error, please
immediately notify the sender and delete this message. The opinions
expressed in this e-mail (and any attachment) are those of the individual
sender and may not necessarily reflect the views of PT Pusri.
____________ _________ _________ _________ _________ _________ _________

Fri Jan 18, 2013 5:06 am (PST) . Posted by:

"Agestha Hendra" agesthahendra@ymail.com

Trima kasih penjelasannya Mr. Kid dan buat seting Add ins nya juga, ...

Regards
Hendra Agestha

________________________________
Dari: Mr. Kid mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 17 Januari 2013 20:17
Judul: Re: [belajar-excel] Max panjang karakter di sel Excel


 
Hai Hendra,

Excel 2003 menampilkan jumlah karakter dalam cell sebanyak 1024 karakter pertama.
Formula bar menampilkan 32ribuan karakter walau object menyimpan seluruh data.
Column width maks adalah 255 karakter.

Datatype memo di access ketika di-export ke format excel 5 hanya terambil 255 karakter.
Jika saat export ke excel di pilih excel 97 ke atas atau malah xlsx, bisa jadi akan tampil 1024 karakter dalam cell dan 32ribuan dalam formula bar.

Bisa juga dengan memecah field dengan datatype memo menjadi banyak kolom yang masing-masing kolomnya adalah sebanyak 255 karakter saat melakukan query.
Hal ini bisa dilakukan dengan fungsi Mid( field_memonya , start_karakter_ke , 255 )
Start_karakter_ke diisi 1 untuk kolom ke-1, 256 untuk kolom ke-2, dst

Wassalam,
Kid.

2013/1/16 agesthahendra@ymail.com agesthahendra@ymail.com>

> 
>Dear Be-Exceller..
>
>Saya ada mentranfer sebuah tabel di Access ke excel (2003/xls), salah satu field di tabel Access itu ada yg bertype "Memo", hasil transfer utk field Memo tsb sepertinya terpotong, apakah memang ada limit untuk panjang karakter di sebuah sel Excel..? Mohon bimbingannya...terima kasih
>
>Regards
>Hendra Agestha
>
>
>_
>

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

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)