Jumat, 02 November 2012

[belajar-excel] Digest Number 1883

3 New Messages

Digest #1883

Messages

Fri Nov 2, 2012 8:56 am (PDT) . Posted by:

"HaDi SyaH" face_call15



alhamdulilah berjalan dengan lancar, sekali lagi sy ucapkan ribuan terima kasi buat mr.kid

________________________________
From: HaDi <face_call15@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, November 2, 2012 11:35 PM
Subject: [belajar-excel] Re: merubah baris menjadi kolom


 
Alhamdulilah akhirnya terjawab
trimakasih banyak Mr.Kid, di coba dulu ke tkp

--- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@...> wrote:
>
> Coba pada file terlampir jalankan prosedur Ubah.
>
> 1. buka file
> 2. Enable Macro
> 3. tekan ALT F8
> 4. pilih Ubah dan tekan Run
>
> Wassalam,
> Kid.
>
>
> 2012/11/2 HaDi SyaH <face_call15@...>
>
> > **
> >
> >
> > dear para master ada yg ingin sy tanyakan lagi mas pada file yg saya
> > lampirkan bagaimana cara mengubah tabel pada sheets 1 menjadi tabel seperti
> > pada sheets 2, kalau harus di rubah satu2 datanya ribuan, mohon
> > pencerahannya, apakah mengunakan formula, macro atau vba, trimakasih
> >
> >
> >
>

Fri Nov 2, 2012 9:54 am (PDT) . Posted by:

"Harry" hariansyahptk

Dear BeExceller,

Mencari ilmu pengetahuan tidak pernah ada batas akhirnya.
Kali ini saya ingin menanyakan kepada rekan-rekan BeExceller sekalian (para pakar) mengenai cara input data menggunakan UserForm yang hasil inputannya masuk ke file database yang tersimpan di PC Server tanpa adanya prose buka-tutup database.

Yang saya tahu selama ini, untuk dapat menginput data melalui UserForm yang dapat dilakukan oleh lebih dari 1 PC adalah dengan cara buka-tutup file database sebagaima rumus berikut:
Private Sub UserForm_Initialize()
    'deklarasi
variabel workbook
    Dim wbkPROGRAM As
Workbook, wbkDATABASE As Workbook
  
    'init
workbooknya
    Set wbkPROGRAM =
ThisWorkbook
   
    '--- WBK READ
ONLY ??? ---' >> START
    Dim lTry As
Long, lJeda As Long
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
CobaBuka:
    For lTry = 1 To
20
        Set
wbkDATABASE= Workbooks.Open(wbkPROGRAM.Path & "\DATABASE.xls")
If wbkDATABASE.ReadOnly Then
            wbkDATABASE.Close
False
            If lTry
= 20 Then
                If
MsgBox("Sudah dicoba membuka " & lTry & _
                        " kali, dan masih digunakan oleh instansi Excel yang lain"
& vbCrLf & _
                        "Coba lagi ?", vbExclamation + vbYesNo, "Akses ke
DATABASE") = vbYes Then
                    GoTo CobaBuka
                Else
                    Application.ScreenUpdating = False
                    Exit Sub
                End
If
            End If
        Else
            wbkPROGRAM.Activate
            Exit
For
        End If
        For lJeda =
1 To 100000000
        Next lJeda
    Next lTry
    Application.ScreenUpdating = True
    '--- WBK READ
ONLY ??? ---' >> END
End Sub

Dengan  rumus tersebut diatas, berarti untuk melakukan proses input, masing-masing PC harus bergantian untuk melakukan penginputan karena adanya proses buka-tutup file database.
Jika file database aktif (standby) di PC1 berarti PC lainnya tidak bisa melakuakn proses input. Dan jika file database selalu aktif atau tidak dilakukannya proses tutup file database oleh salah satu PC, berarti PC yang lain selamanya tidak dapat melakukan proses penginputan data.

Berdasarkan studi kasus tersebut, saya berfikir bisakah file database tersebut diatas disimpan pada salah satu PC server dimana file database tersebut selalu aktif (standby) dan siap menerima proses penginputan dari banyak PC sekaligus.

Saya mendapat informasi dari teman bahwa selain Jaringan Internet ada yang dinamakan Jaringan Intranet. Jaringan Intranet hanya dapat diakses oleh PC yang sudah saling mengenal IP Address atau tidak sembarang PC dapat mengakses Jaringan Intranet.

Saya kotak-katik komputer ditempat saya bekerja, saya melihat adanya Jaringan My Network Places sebagai berikut :

-          My Network Places
-                      -    Entire Network
-          Microsoft Windows Network
-          Kampus1
+     Lenovo-fe419482
 Server
-          Workgroup
+     Database
+     Lenovo-579c5dcd
+     Sa1
 
Address Type         : Manually Configured
Ip Address              : 192.168.0.130
Subnet mask          : 255.255.255.0
Dafault Gateway    :
 
Physical Adress    : 1C-6F-65-07-E7-ED

Dengan adanya Jaringan My Network Places pada komputer di tempat daya bekerja, dapat disimpulkan bahwa Jaringan Intranet juga dapat dilakukan.

Pertanyaan saya adalah:
Mengacu pada rumus buka-tutup file database tertulis diatas dan Jaringan My Network Places, bagaimana caranya atau apa yang harus ditambahkan atau diganti atau trik apa yang bisa dilakukan jika kita ingin dapat menginput database ke PC Server yang dapat diakses oleh banyak PC secara bersamaan tanpa adanya proses buka-tutup database dan tanpa adanya bentrok penginputan apakah itu proses Input, Edit atau Hapus database...???

Besar harapan saya kiranya hal tersebut dapat terealisasi atas bantuan dan masukan dari rekan-rekan BeExceller sekalian.

Sebelum dan sesudahnya saya mengucapkan banyak terima kasih.
Wassalam,

Harry

Fri Nov 2, 2012 9:56 am (PDT) . Posted by:

"Johan hung" joeh2_007

Dear Master Excel,

Mohon bantuan rekan-rekan, adakah cara untuk untuk memperbanyak worksheet /
workbook berdasarkan validation list secara otomatis.

Data contoh terlampir

thanks

Johan

--- Mods ---
Mohon tidak menyertakan cc atau bcc
------------
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 10.10

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)