Dear BeExceller,
Terima kasih atas jawaban dan penjelasannya.
Lebih jauh mengenai Studi kasus ini, bagai mana caranya
jika Sheet1 & Sheet2 kita pisahkan menjadi file yang berbeda dengan nama
file “DATABASE.xls”.
Berarti dalam Studi kasus ini ada 2 file yaitu File “INPUT,
EDIT & PINDAH TABEL (REVISI).xls” (isinya USER FORM) & File “DATABASE”
(isinya Sheet1 & Sheet2 sebagai database).
Saya sudah mencoba menggunakan rumus sebagaimana tertulis
dibawah, tetapi hal tersebut hanya bisa digunakan untuk penginputan data.
Sedangkan untuk Pengeditan dan Perpindahan data sebagaimana penjelasan yang
telah Bp. Aji Mumpung & Mr. Kid berikan. Tetapi tidak mudah buat saya untuk
mengkotak-katiknya untuk mendapatkan yang saya inginkan.
Mohon solusi dan penjelasannya.
Terima kasih
Regards,
Harry
N/B: Rumus yang telah digunakan :
Private
Sub UserForm_Initialize()
'deklarasi variabel workbook
Dim wbkA As Workbook, wbkAKTIF As Workbook
'init workbooknya
Set wbkA = ThisWorkbook
'--- WBK READ ONLY ??? ---' >> START
Dim lTry As Long, lJeda As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
CobaBuka:
For lTry = 1 To 20
Set wbkAKTIF = Workbooks.Open(wbkA.Path
& "\DATABASE.xls")
Dim I As Long, TbHeigh As Long, TbWidth
Set MemMaster =
Sheets("Sheet1").Cells(1).CurrentRegion
TbHeigh = MemMaster.Rows.Count - 1
TbWidth = MemMaster.Columns.Count - 1
Set MemMaster = MemMaster.Offset(4,
0).Resize(TbHeigh, TbWidth)
Application.EnableEvents = False
With Cbonama
.ColumnCount = 2
.BoundColumn = 1
For I = 1 To TbHeigh
.AddItem
.List(I - 1, 0) = MemMaster(I, 2)
Next I
End With
Application.EnableEvents = True
If wbkAKTIF.ReadOnly Then
wbkAKTIF.Close False
If lTry = 20 Then
If MsgBox("Sudah dicoba
membuka " & lTry & _
" kali, dan masih
digunakan oleh instansi Excel yang lain" & vbCrLf & _
"Coba lagi
?", vbExclamation + vbYesNo, "Akses ke DATABASE") = vbYes Then
GoTo CobaBuka
Else
Application.ScreenUpdating
= False
Exit Sub
End If
End If
Else
wbkA.Activate
Exit For
End If
For lJeda = 1 To 100000000
Next lJeda
Next lTry
Application.ScreenUpdating = True
'--- WBK READ ONLY ??? ---' >> END
End
Sub
Dim iRow As Long, Reg As Range, oCtrl As
Control
Dim wbkA As Workbook, wbkAKTIF As Workbook
On Error Resume Next
Set
wbkA = ThisWorkbook
If
Workbooks("DATABASE.xls") Is Nothing Then
Set wbkAKTIF = Workbooks.Open(wbkA.Path
& "\DATABASE.xls")
Else
Set wbkAKTIF =
Workbooks("DATABASE.xls")
End
If
wbkA.Activate
Set Reg = wbkAKTIF.Worksheets("Sheet1").Cells(1)
'find second empty row in database
iRow = Reg(Rows.Count,
2).End(xlUp).Offset(1, 0).Row
…………….. ……………. ……………
…………….. ……………. ……………
…………….. ……………. ……………
End Sub
________________________________
Dari: aji mumpung <[email protected]>
Kepada: [email protected]
Dikirim: Rabu, 3 Oktober 2012 22:46
Judul: Re: [belajar-excel] INPUT, EDIT & PINDAH TABEL
coba cek link berikut
http://tech.dir.groups.yahoo.com/group/belajar-excel/message/19518
Pada 3 Oktober 2012 21:06, Harry <[email protected]> menulis:
>
>Judul postingnya apa ya...???
>
>
>
>________________________________
> Dari: aji mumpung <[email protected]>
>Kepada: [email protected]
>Dikirim: Rabu, 3 Oktober 2012 6:16
>
>Judul: Re: [belajar-excel] INPUT, EDIT & PINDAH TABEL
>
>
>
>
>sudah kah membaca postingan saya nun jauh di bawah sana?
>
>
>wassalam,
>
>
>-aji mumpung-
>
>
>Pada 3 Oktober 2012 04:30, Harry <[email protected]> menulis:
>
>
>>
>>Dear BeExceller,
>>
>>Terima kasih atas jawabannya.
>>Untuk jawaban: .Offset(0, 1).Value = 1saya rasa tidak match dengna pertanyaan
>>saya yang ada 3 poin atau mungkin saya yang masih bingung posisi menempatkan
>>rumus tsb.
>>
>>Mohon berkenan kirimkan bantuannya langsung ke Contoh Kasus (User Form)
>>terlampir (kmrn) agar jawabannya lebih tepat sasaran sprt yang saya maksudkan.
>>Terima kasih.
>>
>>
>>Harry
>>
>>
>>
>>
>>________________________________
>> Dari: aji mumpung <[email protected]>
>>Kepada: [email protected]
>>Dikirim: Senin, 1 Oktober 2012 16:47
>>
>>Judul: Re: [belajar-excel] INPUT, EDIT & PINDAH TABEL
>>
>>
>>
>>maksud awalnya offset(0,-1) buat kasih nomor di sebelah kiri nama pada saat
>>baris pertama kosong
>>kurang tanda minusnya hehehe ^_^
>>
>>
>>terus saya keluarin dari blok If di atasnya (biar lebih singkat dan tidak
>>diulang di blok Else-nya) tapi kodenya lupa dihapus hehehe.. ^_^
>>
>>
>>makasih atas koreksinya ^_^
>>
>>
>>-aji mumpung-
>>
>>
>>Pada 1 Oktober 2012 16:38, Kid Mr. <[email protected]> menulis:
>>
>>
>>>
>>>Mungkin baris :
>>>.Offset(0, 1).Value = 1
>>>
>>>adalah Offset(0,0) untuk jadi nomor, supaya alamat tidak berganti jadi nilai
>>>1.
>>>atau, bagaimana jika nomornya ndak usah saja. toh gak guna-guna amat.
>>>
>>>Wassalam,
>>>Kid.
>>>
>>>
>>>
>>>2012/10/1 aji mumpung <[email protected]>
>>>
>>>.Offset(0, 1).Value = 1
>>>
>>
>>
>>
>
>
>
