15 New Messages
Digest #1829
Messages
Mon Oct 8, 2012 6:39 pm (PDT) . Posted by:
"aji mumpung"
Pak Jono,
maaf ternyata masih muncul error ya.. letak errornya di tombol simpannya
pak..
awalnya saya tulis kode tersebut di sebuah modul, setelah saya tes dan
tidak ada error lalu kode tersebut saya pindah ke command button..
insya Allah nanti kalo agak senggang saya coba utak-atik lagi kodenya, biar
tombol savenya berfungsi dengan baik.. sementara pakai file yang ini dulu
ya pak..
caranya simpan dengan menekan 3 (tiga) tombol secara bersamaan
[CTRL] [Shift] [A]
wassalam,
-aji mumpung- (lagi angon kambing di luar kota)
Pada 8 Oktober 2012 18:27, jono selaludinanti
<jonoselaludinanti@gmail.com >menulis:
> **
>
>
> Master ,Masih sedikit error .Keteranganya error Debuger
>
> Pada 8 Oktober 2012 18:21, jono selaludinanti <jonoselaludinanti@gmail.com
> > menulis:
>
> Terimakasih Sekali Atas tanggapan Master,,,,,sangat berguna bagi saya
>> Terimakasih.... maaf saya masih NewBie
>>
>> Pada 8 Oktober 2012 13:45, aji mumpung <pupung1986@gmail.com > menulis:
>>
>> **
>>>
>>>
>>> Pak Jono,
>>>
>>> Selamat bergabung di millis Belajar Excel..
>>>
>>> nampaknya thread bapak belum ada yang sempat menanggapi jadi boleh ya
>>> kalo saya jadi penanggap yang pertama, mumpung lagi sempat posting hehehe..
>>>
>>> berikut kode yang ditulis di sebuah Command Botton:
>>>
>>> Option Explicit
>>>
>>> Private Sub cmdSimpan_Click()
>>> ' deklarasikan semua variabel yang dibutuhkan
>>> Dim IdxcKelas As Long
>>> Dim IdxrTgl1, IdxrTgl2, IdxrTgl3 As Long
>>> Dim Idx
>>>
>>> ' pergi ke sheet Hasil
>>> Sheets("HASIL").Select
>>> ' cari nomor kolom kelas
>>> IdxcKelas = Cells.Find(Sheets("INPUT").Range("c3").Value).Column
>>> ' cari nomor baris tanggal pertama & jam-nya
>>> IdxrTgl1 = Application.WorksheetFunction.Index(Range("d:d"), _
>>>
>>> Application.WorksheetFunction.Match(Sheets("INPUT").Range("c8").Value,
>>> Range("d:d"), 0)).Row + Sheets("INPUT").Range("c10").Value
>>> ' cari nomor baris tanggal kedua & jam-nya
>>> IdxrTgl2 = Application.WorksheetFunction.Index(Range("d:d"), _
>>>
>>> Application.WorksheetFunction.Match(Sheets("INPUT").Range("e8").Value,
>>> Range("d:d"), 0)).Row + Sheets("INPUT").Range("e10").Value
>>> ' cari nomor baris tanggal ketiga & jam-nya
>>> IdxrTgl3 = Application.WorksheetFunction.Index(Range("d:d"), _
>>>
>>> Application.WorksheetFunction.Match(Sheets("INPUT").Range("g8").Value,
>>> Range("d:d"), 0)).Row + Sheets("INPUT").Range("g10").Value
>>>
>>> ' input data ke sheet hasil
>>> Sheets("HASIL").Cells(IdxrTgl1, IdxcKelas).Value =
>>> Sheets("INPUT").Range("c12").Value
>>> Sheets("HASIL").Cells(IdxrTgl1, IdxcKelas + 1).Value =
>>> Sheets("INPUT").Range("c14").Value
>>>
>>> Sheets("HASIL").Cells(IdxrTgl2, IdxcKelas).Value =
>>> Sheets("INPUT").Range("e12").Value
>>> Sheets("HASIL").Cells(IdxrTgl2, IdxcKelas + 1).Value =
>>> Sheets("INPUT").Range("e14").Value
>>>
>>> Sheets("HASIL").Cells(IdxrTgl3, IdxcKelas).Value =
>>> Sheets("INPUT").Range("g12").Value
>>> Sheets("HASIL").Cells(IdxrTgl3, IdxcKelas + 1).Value =
>>> Sheets("INPUT").Range("g14").Value
>>> End Sub
>>>
>>> code aslinya bisa di lihat pada sheet Input
>>> cara lihatnya dengan cara menekan tombol F11
>>>
>>> silakan dilihat file lampirannya
>>>
>>> wassalam,
>>>
>>> -aji mumpung-
>>>
>>>
>>>
>>>
>>> Pada 6 Oktober 2012 00:28, jono selaludinanti <
>>> jonoselaludinanti@gmail.com > menulis:
>>>
>>> **
>>>>
>>>>
>>>> para master mohon bantuanya untuk permasalahan yang saya hadapi
>>>> terimakasih
>>>>
>>>
>>>
>>
>
>
maaf ternyata masih muncul error ya.. letak errornya di tombol simpannya
pak..
awalnya saya tulis kode tersebut di sebuah modul, setelah saya tes dan
tidak ada error lalu kode tersebut saya pindah ke command button..
insya Allah nanti kalo agak senggang saya coba utak-atik lagi kodenya, biar
tombol savenya berfungsi dengan baik.. sementara pakai file yang ini dulu
ya pak..
caranya simpan dengan menekan 3 (tiga) tombol secara bersamaan
[CTRL] [Shift] [A]
wassalam,
-aji mumpung- (lagi angon kambing di luar kota)
Pada 8 Oktober 2012 18:27, jono selaludinanti
<jonoselaludinanti@
> **
>
>
> Master ,Masih sedikit error .Keteranganya error Debuger
>
> Pada 8 Oktober 2012 18:21, jono selaludinanti <jonoselaludinanti@
> > menulis:
>
> Terimakasih Sekali Atas tanggapan Master,,,,,sangat berguna bagi saya
>> Terimakasih.
>>
>> Pada 8 Oktober 2012 13:45, aji mumpung <pupung1986@gmail.
>>
>> **
>>>
>>>
>>> Pak Jono,
>>>
>>> Selamat bergabung di millis Belajar Excel..
>>>
>>> nampaknya thread bapak belum ada yang sempat menanggapi jadi boleh ya
>>> kalo saya jadi penanggap yang pertama, mumpung lagi sempat posting hehehe..
>>>
>>> berikut kode yang ditulis di sebuah Command Botton:
>>>
>>> Option Explicit
>>>
>>> Private Sub cmdSimpan_Click(
>>> ' deklarasikan semua variabel yang dibutuhkan
>>> Dim IdxcKelas As Long
>>> Dim IdxrTgl1, IdxrTgl2, IdxrTgl3 As Long
>>> Dim Idx
>>>
>>> ' pergi ke sheet Hasil
>>> Sheets("HASIL"
>>> ' cari nomor kolom kelas
>>> IdxcKelas = Cells.Find(Sheets(
>>> ' cari nomor baris tanggal pertama & jam-nya
>>> IdxrTgl1 = Application.
>>>
>>> Application.
>>> Range("d:d")
>>> ' cari nomor baris tanggal kedua & jam-nya
>>> IdxrTgl2 = Application.
>>>
>>> Application.
>>> Range("d:d")
>>> ' cari nomor baris tanggal ketiga & jam-nya
>>> IdxrTgl3 = Application.
>>>
>>> Application.
>>> Range("d:d")
>>>
>>> ' input data ke sheet hasil
>>> Sheets("HASIL"
>>> Sheets("INPUT"
>>> Sheets("HASIL"
>>> Sheets("INPUT"
>>>
>>> Sheets("HASIL"
>>> Sheets("INPUT"
>>> Sheets("HASIL"
>>> Sheets("INPUT"
>>>
>>> Sheets("HASIL"
>>> Sheets("INPUT"
>>> Sheets("HASIL"
>>> Sheets("INPUT"
>>> End Sub
>>>
>>> code aslinya bisa di lihat pada sheet Input
>>> cara lihatnya dengan cara menekan tombol F11
>>>
>>> silakan dilihat file lampirannya
>>>
>>> wassalam,
>>>
>>> -aji mumpung-
>>>
>>>
>>>
>>>
>>> Pada 6 Oktober 2012 00:28, jono selaludinanti <
>>> jonoselaludinanti@
>>>
>>> **
>>>>
>>>>
>>>> para master mohon bantuanya untuk permasalahan yang saya hadapi
>>>> terimakasih
>>>>
>>>
>>>
>>
>
>
Mon Oct 8, 2012 7:40 pm (PDT) . Posted by:
"aji mumpung"
Pak Jono,
setelah saya berkonsultasi dengan Mr Kid, dan mengulang kembali wejangan
beliau.. maka saya coba memanggil prosedur simpan dari command botton
tersebut..
Sekarang tombol simpannya sudah berfungsi dengan baik.. sementara ini belum
sempat buat ngutak-atik kodenya agar script tersebut bisa langsung ditulis
di tombol Simpan
berikut kode lengkapnya:
====================================================================================================
Bagian 1, ditulis di command button Simpan
Option Explicit
Private Sub cmdSimpan_Click()
Call Simpan
End Sub
=====================================================================================================
=====================================================================================================
Bagian 2, ditulis di sebuah modul dengan nama prosedur Sub Simpan
Option Explicit
Sub Simpan()
' deklarasikan semua variabel yang dibutuhkan
Dim IdxcKelas As Long
Dim IdxrTgl1, IdxrTgl2, IdxrTgl3 As Long
' pergi ke sheet Hasil
Sheets("HASIL").Select
' cari nomor kolom kelas
IdxcKelas = Cells.Find(Sheets("INPUT").Range("c3").Value).Column
' cari nomor baris tanggal pertama & jam-nya
IdxrTgl1 = Application.WorksheetFunction.Index(Range("d:d"), _
Application.WorksheetFunction.Match(Sheets("INPUT").Range("c8").Value,
Range("d:d"), 0)).Row + Sheets("INPUT").Range("c10").Value
' cari nomor baris tanggal kedua & jam-nya
IdxrTgl2 = Application.WorksheetFunction.Index(Range("d:d"), _
Application.WorksheetFunction.Match(Sheets("INPUT").Range("e8").Value,
Range("d:d"), 0)).Row + Sheets("INPUT").Range("e10").Value
' cari nomor baris tanggal ketiga & jam-nya
IdxrTgl3 = Application.WorksheetFunction.Index(Range("d:d"), _
Application.WorksheetFunction.Match(Sheets("INPUT").Range("g8").Value,
Range("d:d"), 0)).Row + Sheets("INPUT").Range("g10").Value
' input data ke sheet hasil
Sheets("HASIL").Cells(IdxrTgl1, IdxcKelas).Value =
Sheets("INPUT").Range("c12").Value
Sheets("HASIL").Cells(IdxrTgl1, IdxcKelas + 1).Value =
Sheets("INPUT").Range("c14").Value
Sheets("HASIL").Cells(IdxrTgl2, IdxcKelas).Value =
Sheets("INPUT").Range("e12").Value
Sheets("HASIL").Cells(IdxrTgl2, IdxcKelas + 1).Value =
Sheets("INPUT").Range("e14").Value
Sheets("HASIL").Cells(IdxrTgl3, IdxcKelas).Value =
Sheets("INPUT").Range("g12").Value
Sheets("HASIL").Cells(IdxrTgl3, IdxcKelas + 1).Value =
Sheets("INPUT").Range("g14").Value
End Sub
===========================================================================================================
terima kasih untuk Mr Kid..
wassalam,
-aji mumpung-
*Tuntutlah ilmu, sesungguhnya menuntut ilmu adalah pendekatan diri kepada
Allah SWT dan mengajarkannya kepada orang yang tidak mengetahuinya adalah
sedekah*
Pada 9 Oktober 2012 08:39, aji mumpung <pupung1986@gmail.com > menulis:
> Pak Jono,
>
> maaf ternyata masih muncul error ya.. letak errornya di tombol simpannya
> pak..
> awalnya saya tulis kode tersebut di sebuah modul, setelah saya tes dan
> tidak ada error lalu kode tersebut saya pindah ke command button..
>
> insya Allah nanti kalo agak senggang saya coba utak-atik lagi kodenya,
> biar tombol savenya berfungsi dengan baik.. sementara pakai file yang ini
> dulu ya pak..
> caranya simpan dengan menekan 3 (tiga) tombol secara bersamaan
>
> [CTRL] [Shift] [A]
>
> wassalam,
>
> -aji mumpung- (lagi angon kambing di luar kota)
>
>
> Pada 8 Oktober 2012 18:27, jono selaludinanti <jonoselaludinanti@gmail.com
> > menulis:
>
> **
>>
>>
>> Master ,Masih sedikit error .Keteranganya error Debuger
>>
>> Pada 8 Oktober 2012 18:21, jono selaludinanti <
>> jonoselaludinanti@gmail.com > menulis:
>>
>> Terimakasih Sekali Atas tanggapan Master,,,,,sangat berguna bagi saya
>>> Terimakasih.... maaf saya masih NewBie
>>>
>>> Pada 8 Oktober 2012 13:45, aji mumpung <pupung1986@gmail.com > menulis:
>>>
>>> **
>>>>
>>>>
>>>> Pak Jono,
>>>>
>>>> Selamat bergabung di millis Belajar Excel..
>>>>
>>>> nampaknya thread bapak belum ada yang sempat menanggapi jadi boleh ya
>>>> kalo saya jadi penanggap yang pertama, mumpung lagi sempat posting hehehe..
>>>>
>>>> berikut kode yang ditulis di sebuah Command Botton:
>>>>
>>>> Option Explicit
>>>>
>>>> Private Sub cmdSimpan_Click()
>>>> ' deklarasikan semua variabel yang dibutuhkan
>>>> Dim IdxcKelas As Long
>>>> Dim IdxrTgl1, IdxrTgl2, IdxrTgl3 As Long
>>>> Dim Idx
>>>>
>>>> ' pergi ke sheet Hasil
>>>> Sheets("HASIL").Select
>>>> ' cari nomor kolom kelas
>>>> IdxcKelas = Cells.Find(Sheets("INPUT").Range("c3").Value).Column
>>>> ' cari nomor baris tanggal pertama & jam-nya
>>>> IdxrTgl1 = Application.WorksheetFunction.Index(Range("d:d"), _
>>>>
>>>> Application.WorksheetFunction.Match(Sheets("INPUT").Range("c8").Value,
>>>> Range("d:d"), 0)).Row + Sheets("INPUT").Range("c10").Value
>>>> ' cari nomor baris tanggal kedua & jam-nya
>>>> IdxrTgl2 = Application.WorksheetFunction.Index(Range("d:d"), _
>>>>
>>>> Application.WorksheetFunction.Match(Sheets("INPUT").Range("e8").Value,
>>>> Range("d:d"), 0)).Row + Sheets("INPUT").Range("e10").Value
>>>> ' cari nomor baris tanggal ketiga & jam-nya
>>>> IdxrTgl3 = Application.WorksheetFunction.Index(Range("d:d"), _
>>>>
>>>> Application.WorksheetFunction.Match(Sheets("INPUT").Range("g8").Value,
>>>> Range("d:d"), 0)).Row + Sheets("INPUT").Range("g10").Value
>>>>
>>>> ' input data ke sheet hasil
>>>> Sheets("HASIL").Cells(IdxrTgl1, IdxcKelas).Value =
>>>> Sheets("INPUT").Range("c12").Value
>>>> Sheets("HASIL").Cells(IdxrTgl1, IdxcKelas + 1).Value =
>>>> Sheets("INPUT").Range("c14").Value
>>>>
>>>> Sheets("HASIL").Cells(IdxrTgl2, IdxcKelas).Value =
>>>> Sheets("INPUT").Range("e12").Value
>>>> Sheets("HASIL").Cells(IdxrTgl2, IdxcKelas + 1).Value =
>>>> Sheets("INPUT").Range("e14").Value
>>>>
>>>> Sheets("HASIL").Cells(IdxrTgl3, IdxcKelas).Value =
>>>> Sheets("INPUT").Range("g12").Value
>>>> Sheets("HASIL").Cells(IdxrTgl3, IdxcKelas + 1).Value =
>>>> Sheets("INPUT").Range("g14").Value
>>>> End Sub
>>>>
>>>> code aslinya bisa di lihat pada sheet Input
>>>> cara lihatnya dengan cara menekan tombol F11
>>>>
>>>> silakan dilihat file lampirannya
>>>>
>>>> wassalam,
>>>>
>>>> -aji mumpung-
>>>>
>>>>
>>>>
>>>>
>>>> Pada 6 Oktober 2012 00:28, jono selaludinanti <
>>>> jonoselaludinanti@gmail.com > menulis:
>>>>
>>>> **
>>>>>
>>>>>
>>>>> para master mohon bantuanya untuk permasalahan yang saya hadapi
>>>>> terimakasih
>>>>>
>>>>
>>>>
>>>
>>
>>
>
>
setelah saya berkonsultasi dengan Mr Kid, dan mengulang kembali wejangan
beliau.. maka saya coba memanggil prosedur simpan dari command botton
tersebut..
Sekarang tombol simpannya sudah berfungsi dengan baik.. sementara ini belum
sempat buat ngutak-atik kodenya agar script tersebut bisa langsung ditulis
di tombol Simpan
berikut kode lengkapnya:
============
Bagian 1, ditulis di command button Simpan
Option Explicit
Private Sub cmdSimpan_Click(
Call Simpan
End Sub
============
============
Bagian 2, ditulis di sebuah modul dengan nama prosedur Sub Simpan
Option Explicit
Sub Simpan()
' deklarasikan semua variabel yang dibutuhkan
Dim IdxcKelas As Long
Dim IdxrTgl1, IdxrTgl2, IdxrTgl3 As Long
' pergi ke sheet Hasil
Sheets("HASIL"
' cari nomor kolom kelas
IdxcKelas = Cells.Find(Sheets(
' cari nomor baris tanggal pertama & jam-nya
IdxrTgl1 = Application.
Application.
Range("d:d")
' cari nomor baris tanggal kedua & jam-nya
IdxrTgl2 = Application.
Application.
Range("d:d")
' cari nomor baris tanggal ketiga & jam-nya
IdxrTgl3 = Application.
Application.
Range("d:d")
' input data ke sheet hasil
Sheets("HASIL"
Sheets("INPUT"
Sheets("HASIL"
Sheets("INPUT"
Sheets("HASIL"
Sheets("INPUT"
Sheets("HASIL"
Sheets("INPUT"
Sheets("HASIL"
Sheets("INPUT"
Sheets("HASIL"
Sheets("INPUT"
End Sub
============
terima kasih untuk Mr Kid..
wassalam,
-aji mumpung-
*Tuntutlah ilmu, sesungguhnya menuntut ilmu adalah pendekatan diri kepada
Allah SWT dan mengajarkannya kepada orang yang tidak mengetahuinya adalah
sedekah*
Pada 9 Oktober 2012 08:39, aji mumpung <pupung1986@gmail.
> Pak Jono,
>
> maaf ternyata masih muncul error ya.. letak errornya di tombol simpannya
> pak..
> awalnya saya tulis kode tersebut di sebuah modul, setelah saya tes dan
> tidak ada error lalu kode tersebut saya pindah ke command button..
>
> insya Allah nanti kalo agak senggang saya coba utak-atik lagi kodenya,
> biar tombol savenya berfungsi dengan baik.. sementara pakai file yang ini
> dulu ya pak..
> caranya simpan dengan menekan 3 (tiga) tombol secara bersamaan
>
> [CTRL] [Shift] [A]
>
> wassalam,
>
> -aji mumpung- (lagi angon kambing di luar kota)
>
>
> Pada 8 Oktober 2012 18:27, jono selaludinanti <jonoselaludinanti@
> > menulis:
>
> **
>>
>>
>> Master ,Masih sedikit error .Keteranganya error Debuger
>>
>> Pada 8 Oktober 2012 18:21, jono selaludinanti <
>> jonoselaludinanti@
>>
>> Terimakasih Sekali Atas tanggapan Master,,,,,sangat berguna bagi saya
>>> Terimakasih.
>>>
>>> Pada 8 Oktober 2012 13:45, aji mumpung <pupung1986@gmail.
>>>
>>> **
>>>>
>>>>
>>>> Pak Jono,
>>>>
>>>> Selamat bergabung di millis Belajar Excel..
>>>>
>>>> nampaknya thread bapak belum ada yang sempat menanggapi jadi boleh ya
>>>> kalo saya jadi penanggap yang pertama, mumpung lagi sempat posting hehehe..
>>>>
>>>> berikut kode yang ditulis di sebuah Command Botton:
>>>>
>>>> Option Explicit
>>>>
>>>> Private Sub cmdSimpan_Click(
>>>> ' deklarasikan semua variabel yang dibutuhkan
>>>> Dim IdxcKelas As Long
>>>> Dim IdxrTgl1, IdxrTgl2, IdxrTgl3 As Long
>>>> Dim Idx
>>>>
>>>> ' pergi ke sheet Hasil
>>>> Sheets("HASIL"
>>>> ' cari nomor kolom kelas
>>>> IdxcKelas = Cells.Find(Sheets(
>>>> ' cari nomor baris tanggal pertama & jam-nya
>>>> IdxrTgl1 = Application.
>>>>
>>>> Application.
>>>> Range("d:d")
>>>> ' cari nomor baris tanggal kedua & jam-nya
>>>> IdxrTgl2 = Application.
>>>>
>>>> Application.
>>>> Range("d:d")
>>>> ' cari nomor baris tanggal ketiga & jam-nya
>>>> IdxrTgl3 = Application.
>>>>
>>>> Application.
>>>> Range("d:d")
>>>>
>>>> ' input data ke sheet hasil
>>>> Sheets("HASIL"
>>>> Sheets("INPUT"
>>>> Sheets("HASIL"
>>>> Sheets("INPUT"
>>>>
>>>> Sheets("HASIL"
>>>> Sheets("INPUT"
>>>> Sheets("HASIL"
>>>> Sheets("INPUT"
>>>>
>>>> Sheets("HASIL"
>>>> Sheets("INPUT"
>>>> Sheets("HASIL"
>>>> Sheets("INPUT"
>>>> End Sub
>>>>
>>>> code aslinya bisa di lihat pada sheet Input
>>>> cara lihatnya dengan cara menekan tombol F11
>>>>
>>>> silakan dilihat file lampirannya
>>>>
>>>> wassalam,
>>>>
>>>> -aji mumpung-
>>>>
>>>>
>>>>
>>>>
>>>> Pada 6 Oktober 2012 00:28, jono selaludinanti <
>>>> jonoselaludinanti@
>>>>
>>>> **
>>>>>
>>>>>
>>>>> para master mohon bantuanya untuk permasalahan yang saya hadapi
>>>>> terimakasih
>>>>>
>>>>
>>>>
>>>
>>
>>
>
>
Tue Oct 9, 2012 2:45 am (PDT) . Posted by:
"jono selaludinanti"
oke agan master,terimakasih saya tunggu kabar selanjutnya
Pada 9 Oktober 2012 09:40, aji mumpung <pupung1986@gmail.com > menulis:
> **
>
>
> Pak Jono,
>
> setelah saya berkonsultasi dengan Mr Kid, dan mengulang kembali wejangan
> beliau.. maka saya coba memanggil prosedur simpan dari command botton
> tersebut..
>
> Sekarang tombol simpannya sudah berfungsi dengan baik.. sementara ini
> belum sempat buat ngutak-atik kodenya agar script tersebut bisa langsung
> ditulis di tombol Simpan
>
> berikut kode lengkapnya:
>
>
> ====================================================================================================
> Bagian 1, ditulis di command button Simpan
>
> Option Explicit
>
> Private Sub cmdSimpan_Click()
> Call Simpan
> End Sub
>
> =====================================================================================================
>
>
>
> =====================================================================================================
> Bagian 2, ditulis di sebuah modul dengan nama prosedur Sub Simpan
>
> Option Explicit
>
> Sub Simpan()
> ' deklarasikan semua variabel yang dibutuhkan
> Dim IdxcKelas As Long
> Dim IdxrTgl1, IdxrTgl2, IdxrTgl3 As Long
>
> ' pergi ke sheet Hasil
> Sheets("HASIL").Select
> ' cari nomor kolom kelas
> IdxcKelas = Cells.Find(Sheets("INPUT").Range("c3").Value).Column
> ' cari nomor baris tanggal pertama & jam-nya
> IdxrTgl1 = Application.WorksheetFunction.Index(Range("d:d"), _
>
> Application.WorksheetFunction.Match(Sheets("INPUT").Range("c8").Value,
> Range("d:d"), 0)).Row + Sheets("INPUT").Range("c10").Value
> ' cari nomor baris tanggal kedua & jam-nya
> IdxrTgl2 = Application.WorksheetFunction.Index(Range("d:d"), _
>
> Application.WorksheetFunction.Match(Sheets("INPUT").Range("e8").Value,
> Range("d:d"), 0)).Row + Sheets("INPUT").Range("e10").Value
> ' cari nomor baris tanggal ketiga & jam-nya
> IdxrTgl3 = Application.WorksheetFunction.Index(Range("d:d"), _
>
> Application.WorksheetFunction.Match(Sheets("INPUT").Range("g8").Value,
> Range("d:d"), 0)).Row + Sheets("INPUT").Range("g10").Value
>
> ' input data ke sheet hasil
> Sheets("HASIL").Cells(IdxrTgl1, IdxcKelas).Value =
> Sheets("INPUT").Range("c12").Value
> Sheets("HASIL").Cells(IdxrTgl1, IdxcKelas + 1).Value =
> Sheets("INPUT").Range("c14").Value
>
> Sheets("HASIL").Cells(IdxrTgl2, IdxcKelas).Value =
> Sheets("INPUT").Range("e12").Value
> Sheets("HASIL").Cells(IdxrTgl2, IdxcKelas + 1).Value =
> Sheets("INPUT").Range("e14").Value
>
> Sheets("HASIL").Cells(IdxrTgl3, IdxcKelas).Value =
> Sheets("INPUT").Range("g12").Value
> Sheets("HASIL").Cells(IdxrTgl3, IdxcKelas + 1).Value =
> Sheets("INPUT").Range("g14").Value
>
> End Sub
>
> ===========================================================================================================
>
> terima kasih untuk Mr Kid..
>
> wassalam,
>
> -aji mumpung-
>
> *Tuntutlah ilmu, sesungguhnya menuntut ilmu adalah pendekatan diri kepada
> Allah SWT dan mengajarkannya kepada orang yang tidak mengetahuinya adalah
> sedekah*
>
>
>
> Pada 9 Oktober 2012 08:39, aji mumpung <pupung1986@gmail.com > menulis:
>
> Pak Jono,
>>
>> maaf ternyata masih muncul error ya.. letak errornya di tombol simpannya
>> pak..
>> awalnya saya tulis kode tersebut di sebuah modul, setelah saya tes dan
>> tidak ada error lalu kode tersebut saya pindah ke command button..
>>
>> insya Allah nanti kalo agak senggang saya coba utak-atik lagi kodenya,
>> biar tombol savenya berfungsi dengan baik.. sementara pakai file yang ini
>> dulu ya pak..
>> caranya simpan dengan menekan 3 (tiga) tombol secara bersamaan
>>
>> [CTRL] [Shift] [A]
>>
>> wassalam,
>>
>> -aji mumpung- (lagi angon kambing di luar kota)
>>
>>
>> Pada 8 Oktober 2012 18:27, jono selaludinanti <
>> jonoselaludinanti@gmail.com > menulis:
>>
>> **
>>>
>>>
>>> Master ,Masih sedikit error .Keteranganya error Debuger
>>>
>>> Pada 8 Oktober 2012 18:21, jono selaludinanti <
>>> jonoselaludinanti@gmail.com > menulis:
>>>
>>> Terimakasih Sekali Atas tanggapan Master,,,,,sangat berguna bagi saya
>>>> Terimakasih.... maaf saya masih NewBie
>>>>
>>>> Pada 8 Oktober 2012 13:45, aji mumpung <pupung1986@gmail.com > menulis:
>>>>
>>>> **
>>>>>
>>>>>
>>>>> Pak Jono,
>>>>>
>>>>> Selamat bergabung di millis Belajar Excel..
>>>>>
>>>>> nampaknya thread bapak belum ada yang sempat menanggapi jadi boleh ya
>>>>> kalo saya jadi penanggap yang pertama, mumpung lagi sempat posting hehehe..
>>>>>
>>>>> berikut kode yang ditulis di sebuah Command Botton:
>>>>>
>>>>> Option Explicit
>>>>>
>>>>> Private Sub cmdSimpan_Click()
>>>>> ' deklarasikan semua variabel yang dibutuhkan
>>>>> Dim IdxcKelas As Long
>>>>> Dim IdxrTgl1, IdxrTgl2, IdxrTgl3 As Long
>>>>> Dim Idx
>>>>>
>>>>> ' pergi ke sheet Hasil
>>>>> Sheets("HASIL").Select
>>>>> ' cari nomor kolom kelas
>>>>> IdxcKelas = Cells.Find(Sheets("INPUT").Range("c3").Value).Column
>>>>> ' cari nomor baris tanggal pertama & jam-nya
>>>>> IdxrTgl1 = Application.WorksheetFunction.Index(Range("d:d"), _
>>>>>
>>>>> Application.WorksheetFunction.Match(Sheets("INPUT").Range("c8").Value,
>>>>> Range("d:d"), 0)).Row + Sheets("INPUT").Range("c10").Value
>>>>> ' cari nomor baris tanggal kedua & jam-nya
>>>>> IdxrTgl2 = Application.WorksheetFunction.Index(Range("d:d"), _
>>>>>
>>>>> Application.WorksheetFunction.Match(Sheets("INPUT").Range("e8").Value,
>>>>> Range("d:d"), 0)).Row + Sheets("INPUT").Range("e10").Value
>>>>> ' cari nomor baris tanggal ketiga & jam-nya
>>>>> IdxrTgl3 = Application.WorksheetFunction.Index(Range("d:d"), _
>>>>>
>>>>> Application.WorksheetFunction.Match(Sheets("INPUT").Range("g8").Value,
>>>>> Range("d:d"), 0)).Row + Sheets("INPUT").Range("g10").Value
>>>>>
>>>>> ' input data ke sheet hasil
>>>>> Sheets("HASIL").Cells(IdxrTgl1, IdxcKelas).Value =
>>>>> Sheets("INPUT").Range("c12").Value
>>>>> Sheets("HASIL").Cells(IdxrTgl1, IdxcKelas + 1).Value =
>>>>> Sheets("INPUT").Range("c14").Value
>>>>>
>>>>> Sheets("HASIL").Cells(IdxrTgl2, IdxcKelas).Value =
>>>>> Sheets("INPUT").Range("e12").Value
>>>>> Sheets("HASIL").Cells(IdxrTgl2, IdxcKelas + 1).Value =
>>>>> Sheets("INPUT").Range("e14").Value
>>>>>
>>>>> Sheets("HASIL").Cells(IdxrTgl3, IdxcKelas).Value =
>>>>> Sheets("INPUT").Range("g12").Value
>>>>> Sheets("HASIL").Cells(IdxrTgl3, IdxcKelas + 1).Value =
>>>>> Sheets("INPUT").Range("g14").Value
>>>>> End Sub
>>>>>
>>>>> code aslinya bisa di lihat pada sheet Input
>>>>> cara lihatnya dengan cara menekan tombol F11
>>>>>
>>>>> silakan dilihat file lampirannya
>>>>>
>>>>> wassalam,
>>>>>
>>>>> -aji mumpung-
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> Pada 6 Oktober 2012 00:28, jono selaludinanti <
>>>>> jonoselaludinanti@gmail.com > menulis:
>>>>>
>>>>> **
>>>>>>
>>>>>>
>>>>>> para master mohon bantuanya untuk permasalahan yang saya hadapi
>>>>>> terimakasih
>>>>>>
>>>>>
>>>>>
>>>>
>>>
>>
>
>
Pada 9 Oktober 2012 09:40, aji mumpung <pupung1986@gmail.
> **
>
>
> Pak Jono,
>
> setelah saya berkonsultasi dengan Mr Kid, dan mengulang kembali wejangan
> beliau.. maka saya coba memanggil prosedur simpan dari command botton
> tersebut..
>
> Sekarang tombol simpannya sudah berfungsi dengan baik.. sementara ini
> belum sempat buat ngutak-atik kodenya agar script tersebut bisa langsung
> ditulis di tombol Simpan
>
> berikut kode lengkapnya:
>
>
> ============
> Bagian 1, ditulis di command button Simpan
>
> Option Explicit
>
> Private Sub cmdSimpan_Click(
> Call Simpan
> End Sub
>
> ============
>
>
>
> ============
> Bagian 2, ditulis di sebuah modul dengan nama prosedur Sub Simpan
>
> Option Explicit
>
> Sub Simpan()
> ' deklarasikan semua variabel yang dibutuhkan
> Dim IdxcKelas As Long
> Dim IdxrTgl1, IdxrTgl2, IdxrTgl3 As Long
>
> ' pergi ke sheet Hasil
> Sheets("HASIL"
> ' cari nomor kolom kelas
> IdxcKelas = Cells.Find(Sheets(
> ' cari nomor baris tanggal pertama & jam-nya
> IdxrTgl1 = Application.
>
> Application.
> Range("d:d")
> ' cari nomor baris tanggal kedua & jam-nya
> IdxrTgl2 = Application.
>
> Application.
> Range("d:d")
> ' cari nomor baris tanggal ketiga & jam-nya
> IdxrTgl3 = Application.
>
> Application.
> Range("d:d")
>
> ' input data ke sheet hasil
> Sheets("HASIL"
> Sheets("INPUT"
> Sheets("HASIL"
> Sheets("INPUT"
>
> Sheets("HASIL"
> Sheets("INPUT"
> Sheets("HASIL"
> Sheets("INPUT"
>
> Sheets("HASIL"
> Sheets("INPUT"
> Sheets("HASIL"
> Sheets("INPUT"
>
> End Sub
>
> ============
>
> terima kasih untuk Mr Kid..
>
> wassalam,
>
> -aji mumpung-
>
> *Tuntutlah ilmu, sesungguhnya menuntut ilmu adalah pendekatan diri kepada
> Allah SWT dan mengajarkannya kepada orang yang tidak mengetahuinya adalah
> sedekah*
>
>
>
> Pada 9 Oktober 2012 08:39, aji mumpung <pupung1986@gmail.
>
> Pak Jono,
>>
>> maaf ternyata masih muncul error ya.. letak errornya di tombol simpannya
>> pak..
>> awalnya saya tulis kode tersebut di sebuah modul, setelah saya tes dan
>> tidak ada error lalu kode tersebut saya pindah ke command button..
>>
>> insya Allah nanti kalo agak senggang saya coba utak-atik lagi kodenya,
>> biar tombol savenya berfungsi dengan baik.. sementara pakai file yang ini
>> dulu ya pak..
>> caranya simpan dengan menekan 3 (tiga) tombol secara bersamaan
>>
>> [CTRL] [Shift] [A]
>>
>> wassalam,
>>
>> -aji mumpung- (lagi angon kambing di luar kota)
>>
>>
>> Pada 8 Oktober 2012 18:27, jono selaludinanti <
>> jonoselaludinanti@
>>
>> **
>>>
>>>
>>> Master ,Masih sedikit error .Keteranganya error Debuger
>>>
>>> Pada 8 Oktober 2012 18:21, jono selaludinanti <
>>> jonoselaludinanti@
>>>
>>> Terimakasih Sekali Atas tanggapan Master,,,,,sangat berguna bagi saya
>>>> Terimakasih.
>>>>
>>>> Pada 8 Oktober 2012 13:45, aji mumpung <pupung1986@gmail.
>>>>
>>>> **
>>>>>
>>>>>
>>>>> Pak Jono,
>>>>>
>>>>> Selamat bergabung di millis Belajar Excel..
>>>>>
>>>>> nampaknya thread bapak belum ada yang sempat menanggapi jadi boleh ya
>>>>> kalo saya jadi penanggap yang pertama, mumpung lagi sempat posting hehehe..
>>>>>
>>>>> berikut kode yang ditulis di sebuah Command Botton:
>>>>>
>>>>> Option Explicit
>>>>>
>>>>> Private Sub cmdSimpan_Click(
>>>>> ' deklarasikan semua variabel yang dibutuhkan
>>>>> Dim IdxcKelas As Long
>>>>> Dim IdxrTgl1, IdxrTgl2, IdxrTgl3 As Long
>>>>> Dim Idx
>>>>>
>>>>> ' pergi ke sheet Hasil
>>>>> Sheets("HASIL"
>>>>> ' cari nomor kolom kelas
>>>>> IdxcKelas = Cells.Find(Sheets(
>>>>> ' cari nomor baris tanggal pertama & jam-nya
>>>>> IdxrTgl1 = Application.
>>>>>
>>>>> Application.
>>>>> Range("d:d")
>>>>> ' cari nomor baris tanggal kedua & jam-nya
>>>>> IdxrTgl2 = Application.
>>>>>
>>>>> Application.
>>>>> Range("d:d")
>>>>> ' cari nomor baris tanggal ketiga & jam-nya
>>>>> IdxrTgl3 = Application.
>>>>>
>>>>> Application.
>>>>> Range("d:d")
>>>>>
>>>>> ' input data ke sheet hasil
>>>>> Sheets("HASIL"
>>>>> Sheets("INPUT"
>>>>> Sheets("HASIL"
>>>>> Sheets("INPUT"
>>>>>
>>>>> Sheets("HASIL"
>>>>> Sheets("INPUT"
>>>>> Sheets("HASIL"
>>>>> Sheets("INPUT"
>>>>>
>>>>> Sheets("HASIL"
>>>>> Sheets("INPUT"
>>>>> Sheets("HASIL"
>>>>> Sheets("INPUT"
>>>>> End Sub
>>>>>
>>>>> code aslinya bisa di lihat pada sheet Input
>>>>> cara lihatnya dengan cara menekan tombol F11
>>>>>
>>>>> silakan dilihat file lampirannya
>>>>>
>>>>> wassalam,
>>>>>
>>>>> -aji mumpung-
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> Pada 6 Oktober 2012 00:28, jono selaludinanti <
>>>>> jonoselaludinanti@
>>>>>
>>>>> **
>>>>>>
>>>>>>
>>>>>> para master mohon bantuanya untuk permasalahan yang saya hadapi
>>>>>> terimakasih
>>>>>>
>>>>>
>>>>>
>>>>
>>>
>>
>
>
Mon Oct 8, 2012 7:50 pm (PDT) . Posted by:
"Azwar Rhosyied" azwar_rhosyied
Dear Master Excel,
1. Bagaimana rumus excel untuk membuat kalendar yang otomatis ngelink ke tanggal komputer/PC?
2. Supaya bekerja jadi mudah, bagaimana supaya kita tahu bahwa tanggal sekian (misal : tanggal 10 Oktober 2012) adalah week ke-II. Karena kita men-set schedule kerja berdasarkan week.
Mohon bantuannya ya..
(Maaf kalo mungkin re-post)
Terima kasih.
1. Bagaimana rumus excel untuk membuat kalendar yang otomatis ngelink ke tanggal komputer/PC?
2. Supaya bekerja jadi mudah, bagaimana supaya kita tahu bahwa tanggal sekian (misal : tanggal 10 Oktober 2012) adalah week ke-II. Karena kita men-set schedule kerja berdasarkan week.
Mohon bantuannya ya..
(Maaf kalo mungkin re-post)
Terima kasih.
Mon Oct 8, 2012 9:18 pm (PDT) . Posted by:
"utthank abe" abe_utthank
mungkin ada member laen yang lebih cantik zoluzinya :)
1. =TODAY()
2.
=IF(DAY(TODAY())<=7;"I";IF(DAY(TODAY())<=14;"II";IF(DAY(TODAY())<=21;"III";IF(DAY(TODAY())>21;"IV"))))
1. =TODAY()
2.
=IF(DAY(TODAY(
Mon Oct 8, 2012 10:20 pm (PDT) . Posted by:
"Azwar Rhosyied" azwar_rhosyied
Terima kasih Pak Abe, sangat membantu sekali
Maaf, ada tambahan, kalo mau tahu hari ini (misal) selasa dari tanggal (09/10/12) tersebut, bagaimana?
Terima kasih.
From: utthank abe <abeutthank@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, October 9, 2012 11:18 AM
Subject: Re: [belajar-excel] Aplikasi Kalendar buat Reminder Pekerjaan
mungkin ada member laen yang lebih cantik zoluzinya :)1. =TODAY()
2. =IF(DAY(TODAY())<=7;"I";IF(DAY(TODAY())<=14;"II";IF(DAY(TODAY())<=21;"III";IF(DAY(TODAY())>21;"IV"))))
Maaf, ada tambahan, kalo mau tahu hari ini (misal) selasa dari tanggal (09/10/12) tersebut, bagaimana?
Terima kasih.
From: utthank abe <abeutthank@gmail.
To: belajar-excel@
Sent: Tuesday, October 9, 2012 11:18 AM
Subject: Re: [belajar-excel] Aplikasi Kalendar buat Reminder Pekerjaan
mungkin ada member laen yang lebih cantik zoluzinya :)1. =TODAY()
2. =IF(DAY(TODAY(
Mon Oct 8, 2012 11:03 pm (PDT) . Posted by:
"Bagus" bagus4bls
Dear Pak Azwar;
Mungkin begini:
=TEXT(TODAY(),"[$-421]dddd")
Bagus
----- Original Message -----
From: Azwar Rhosyied
To: belajar-excel@yahoogroups.com
Sent: Tuesday, October 09, 2012 11:57 AM
Subject: Re: [belajar-excel] Aplikasi Kalendar buat Reminder Pekerjaan
Terima kasih Pak Abe, sangat membantu sekali
Maaf, ada tambahan, kalo mau tahu hari ini (misal) selasa dari tanggal (09/10/12) tersebut, bagaimana?
Terima kasih.
From: utthank abe <abeutthank@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, October 9, 2012 11:18 AM
Subject: Re: [belajar-excel] Aplikasi Kalendar buat Reminder Pekerjaan
mungkin ada member laen yang lebih cantik zoluzinya :)
1. =TODAY()
2. =IF(DAY(TODAY())<=7;"I";IF(DAY(TODAY())<=14;"II";IF(DAY(TODAY())<=21;"III";IF(DAY(TODAY())>21;"IV"))))
Mungkin begini:
=TEXT(TODAY(
Bagus
----- Original Message -----
From: Azwar Rhosyied
To: belajar-excel@
Sent: Tuesday, October 09, 2012 11:57 AM
Subject: Re: [belajar-excel] Aplikasi Kalendar buat Reminder Pekerjaan
Terima kasih Pak Abe, sangat membantu sekali
Maaf, ada tambahan, kalo mau tahu hari ini (misal) selasa dari tanggal (09/10/12) tersebut, bagaimana?
Terima kasih.
From: utthank abe <abeutthank@gmail.
To: belajar-excel@
Sent: Tuesday, October 9, 2012 11:18 AM
Subject: Re: [belajar-excel] Aplikasi Kalendar buat Reminder Pekerjaan
mungkin ada member laen yang lebih cantik zoluzinya :)
1. =TODAY()
2. =IF(DAY(TODAY(
Tue Oct 9, 2012 2:46 am (PDT) . Posted by:
"Azwar Rhosyied" azwar_rhosyied
Terima kasih banyak pak bagus,
sangat membantu sekali!
From: Bagus <bagus@kingjim.co.id >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, October 9, 2012 1:09 PM
Subject: Re: [belajar-excel] Aplikasi Kalendar buat Reminder Pekerjaan

Dear Pak Azwar;
Mungkin begini:
=TEXT(TODAY(),"[$-421]dddd")
Bagus
----- Original Message -----
>From: Azwar Rhosyied
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, October 09, 2012 11:57 AM
>Subject: Re: [belajar-excel] Aplikasi Kalendar buat Reminder Pekerjaan
>
>
>Terima kasih Pak Abe, sangat membantu sekali
>
>Maaf, ada tambahan, kalo mau tahu hari ini (misal) selasa dari tanggal (09/10/12) tersebut, bagaimana?
>
>Terima kasih.
>
>
>From: utthank abe <abeutthank@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, October 9, 2012 11:18 AM
>Subject: Re: [belajar-excel] Aplikasi Kalendar buat Reminder Pekerjaan
>
>
>
>mungkin ada member laen yang lebih cantik zoluzinya :)1. =TODAY()
>2. =IF(DAY(TODAY())<=7;"I";IF(DAY(TODAY())<=14;"II";IF(DAY(TODAY())<=21;"III";IF(DAY(TODAY())>21;"IV"))))
>
>
sangat membantu sekali!
From: Bagus <bagus@kingjim.
To: belajar-excel@
Sent: Tuesday, October 9, 2012 1:09 PM
Subject: Re: [belajar-excel] Aplikasi Kalendar buat Reminder Pekerjaan

Dear Pak Azwar;
Mungkin begini:
=TEXT(TODAY(
Bagus
----- Original Message -----
>From: Azwar Rhosyied
>To: belajar-excel@
>Sent: Tuesday, October 09, 2012 11:57 AM
>Subject: Re: [belajar-excel] Aplikasi Kalendar buat Reminder Pekerjaan
>
>
>Terima kasih Pak Abe, sangat membantu sekali
>
>Maaf, ada tambahan, kalo mau tahu hari ini (misal) selasa dari tanggal (09/10/12) tersebut, bagaimana?
>
>Terima kasih.
>
>
>From: utthank abe <abeutthank@gmail.
>To: belajar-excel@
>Sent: Tuesday, October 9, 2012 11:18 AM
>Subject: Re: [belajar-excel] Aplikasi Kalendar buat Reminder Pekerjaan
>
>
>
>mungkin ada member laen yang lebih cantik zoluzinya :)1. =TODAY()
>2. =IF(DAY(TODAY(
>
>
Mon Oct 8, 2012 8:38 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Untuk Edit dan pindah data, coba file terlampir
Untuk data di workbook lain :
1. setiap buka form, maka buka workbook data tepat sebelum melakukan init
pada memmaster di event initialize
2. setiap tutup form, simpan dan tutup workbook data
3. semua (sekali lagi...) semua rujukan ke workbook data secara langsung
(belum didefinisikan dalam sebuah variabel seperti memaster), harus merujuk
secara lengkap dengan hirarki object-nya.
Untuk workbook, susunannya :
*nama_workbook.nama_sheet.nama_range.kegiatannya
*Jadi kalau mau merujuk ke sheet1 di workbook bernama data.xls pada range
A1 :
workbooks("data.xls").Sheets("sheet1").range("a1")
Wassalam,
Kid.
2012/9/30 Harry <hariansyahptk@yahoo.com >
> **
>
>
> Dear BeExceller
> Mr. Kid
>
> Pertama saya mengucapkan terima kasih atas berkenan informasinya.
> Dari rumus yang Mr. Kid berikan, sudah saya tuangkan ke User Form. Tapi
> masih terdapat beberapa kesalahan dalam proses edit dan pemindahan data
> dari Sheet1 ke Sheet2.
> Adapun beberapa kesalahan dari rumus yang saya tuangkan ke User Form sudah
> saya tuliskan pada Lampiran yang saya sertakan.
>
> Besar harapan kiranya teman-teman BeExceller atau Mr. Kid dapat membantu
> saya akan hal tersebut.
>
> Terima kasih atas bantuannya.
> Wassalam,
>
> Harry
>
> N/B:
> Jawaban / penjelasan dari Mr. Kid yang No 1, 5 & 6 belum bisa saya
> tuangkan ke User Form karena masih bingung.
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Minggu, 30 September 2012 10:21
>
> *Judul:* Re: [belajar-excel] INPUT, EDIT & PINDAH TABEL
>
>
> Ikutan...
>
> 1. Kolom Nama Tidak Bisa Di Revisi
> >> pada setiap form, buat deklarasi pada level form (bukan dalam setiap
> prosedur)
> private lIdx as long
> >> pada event change combobox tambahkan :
> if namacombonya.listindex<>-1 then
> lidx=namacombonya.listindex
> endif
> >> pada event click tombol save di bagian tulis nama, hapus yang lama dan
> ganti dengan :
> if memmaster.resize(1,1).offset(lidx,1).value <>
> namacombonya.list(lidx) then
>
> memmaster.resize(1,1).offset(lidx,1).value=namacombonya.list(lidx)
> endif
>
> 2. Pada Kolom Nama Baris Paling Bawah, Jika Di Revisi Kolom Jurusan
> Otomatis Mengcopy Pada Kolom Petugas Input
> >> perbaiki di event click tombol save pada bagian dibawah ini, yang benar
> siapa yang harus ambil txtJurusan :
> If MemMaster(r, 4) <> txtJURUSAN Then
> Sheets("sheet1").Cells(r, 4).Value = txtJURUSAN.text
> End If
> If MemMaster(r, 7) <> txtPETUGASINPUT Then
> Sheets("sheet1").Cells(r, 7).Value = txtJURUSAN.text
> End If
> biasakan gunkan propertinya seperti txtJURUSAN.text dan bukan hanya
> txtJURUSAN walau defaultnya memang textbox selalu mengambil properti text.
> hal ini akan memudahkan migrasi dari satu bahasa program ke bahasa
> program lainnya.
>
> 3. Hasil Revisi Sering Nyasar Pada Baris Pertama (Pada Kolom Judul)
> >> karena ada pengubahan text pada combobox, maka nilai r =
> Cbonama.ListIndex + 2 tidak merujuk dengan benar. Oleh sebab itu dibutuhkan
> proses penyimpanan nilai listindex disebuah variabel berlevel module atau
> form seperti di nomor 1 di atas.
>
> 4. Tanggal Revisi Tidak Match Dengan Tanggal Hari Ini (Tidak Update)
> >> isi tanggal revisi dengan nilai tanggal hari ini dengan fungsi *Date*
> alamatrangenya.value=*Date*
> jika ingin hasilnya bertipe teks, lakukan format terhadap *Date* dengan
> fungsi format.
>
> 5. Jika Ada Proses Pemindahan, Data Yang Ada Pada Sheet1 Tidak Otomatis
> Dihapus
> >> setelah salin data ke sheet lokasi pindah, lakukan hapus range dengan
> shift up pada sheet1
> sheet1.range(sekian sampai sekian).delete xlshiftup
> 'sesuaikan rujukan range yang bunyisa sekian sampai sekian agar persis
> sesuai kebutuhan
>
> 6. Jika Ada Proses Pemindahan, Pada Sheet2 Kolom Petugas Input Dan Tanggal
> Input Tidak Terdeteksi
> >> sebelum dipindah ke sheet2, di sheet1 tulis dulu nilainya sesuai
> keinginan pada kolom yang bersesuaian dengan nilai yang paling anda anggap
> tepat. Setelah itu baru lakukan proses penyalinan ke sheet2 dilanjutkan
> proses penghapusan dari sheet1 (proses penghapusan seperti nomor 5)
>
> Wassalam,
> Kid.
>
> 2012/9/30 Harry <hariansyahptk@yahoo.com >
>
> **
>
> Dear BeExceller,
> Bp. Aji Mumpung
>
> Terima kasih atas berkenan rumusnya.
> Rumus yang telah diberikan sudah saya tuangkan dalam User Form yang saya
> maksudkan.
> Tapi dari rumus tersebut masih ada beberapa ERROR sebagaimana terlampir
> file-nya.
>
> Mohon berkenan koreksinya.
>
> Terima kasih,
>
>
> Harry
>
> N/B:
> Pada Sheet1 dan Sheet2 tsb bisa atau tidak saya tambahkan proteksi dengan
> cara Unprotect & Protect...???
> ------------------------------
> *Dari:* aji mumpung <pupung1986@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 27 September 2012 13:46
>
> *Judul:* Re: [belajar-excel] INPUT, EDIT & PINDAH TABEL
>
>
> Hai pak Harry,
>
> algoritma pemrograman yang telah disampaikan oleh Mr.Kid ---kalo kata pak
> presiden "Sudah Terang Benderang"---, jadi seYogya-nya (gak ada se-Jakarta
> ya) jika script vba tersebut adalah hasil kreasi anda sendiri.. seharusnya
> dengan mudah anda menuangkannya ke dalam user form.. ^_^
>
> kalo untuk saya yang masih pemula sekali, lebih mudah menulis script dari
> awal dibandingkan menelusuri logika pemrograman yang sudah ada.. ---mungkin
> sama dengan tukang bangunan.. dari pada disuruh ngerombak rumah yang sudah
> jadi mendingan milih ngebangun dari awal--- ini hanya pendapat pribadi ya..
> ^_^
>
> tapi...(ada tapinya nih..) saya coba bantu untuk solusi editnya saja ya..
> ^_^
>
> Dim r As Long
>
> ' cek dahulu, apakah data ada yang kosong atau tidak
> ' jika ada yang kosong maka kasih tau usernya buat ngisi yang masih
> kosong
> If txtALAMAT = "" Or txtJURUSAN = "" Or txtTGLDAFTAR = "" Or txtTGLTES
> = "" Or _
> txtLblUser = "" Or txtTGLINPUT = "" Then
> MsgBox "Input dulu yang kosong ya...", vbOKOnly, "Iseng aja luh..
> ^_^"
> Exit Sub
> End If
>
> ' cek lagi apakah ada perubahan data apa nggak, kalo nggak ada
> ' ya ngapain juga nulis data ke database.. cape-capein aja ^_^
> r = Cbonama.ListIndex + 2
> If MemMaster(r, 3) <> txtALAMAT Then
> Sheets("sheet1").Cells(r, 3).Value = txtALAMAT
> End If
> If MemMaster(r, 4) <> txtJURUSAN Then
> Sheets("sheet1").Cells(r, 4).Value = txtJURUSAN
> End If
> If MemMaster(r, 5) <> txtTGLDAFTAR Then
> Sheets("sheet1").Cells(r, 5).Value = txtTGLDAFTAR
> End If
> If MemMaster(r, 6) <> txtTGLTES Then
> Sheets("sheet1").Cells(r, 6).Value = Format(txtTGLTES,
> "dd-mm-yyyy")
> End If
> If MemMaster(r, 7) <> txtLblUser Then
> Sheets("sheet1").Cells(r, 3).Value = txtLblUser
> End If
> If MemMaster(r, 8) <> txtTGLINPUT Then
> Sheets("sheet1").Cells(r, 8).Value = Format(txtTGLINPUT,
> "dd-mm-yyyy")
> End If
>
> Cbonama.Value = ""
> txtALAMAT.Value = ""
> txtJURUSAN.Value = ""
> txtTGLDAFTAR.Value = ""
> txtTGLTES.Value = ""
> txtLblUser.Value = ""
> txtTGLINPUT.Value = ""
>
> script yang buat pindah datanya mana??? ---nanti ya, masih harus nyari
> rumput buat kasih makan kambing dulu, kalo sempet nanti diposting lagi,
> tapi kalo mau coba ikuti logika pemrograman dari Mr. Kid---
>
> lain kali mbok ya'o kalo kasih nama command button jangan cmdAdd semua..
> bingung jadinya @_@
>
> script tersebut ditulis di salah satu command button yang nama-nya sama
> itu lho..
>
> wassalam,
>
> -aji mumpung- (cah angon seko gunung merbabu)
>
> Pada 26 September 2012 16:38, Harry <hariansyahptk@yahoo.com > menulis:
>
> **
>
> Dear Mr. Kid,
>
> Terima kasih atas berkenan reply-nya. Tapi dr info tersebut, saya
> kesulitan dalam menuangkannya dlm User Form yang saya maksudkan.
>
> Mohon berkenan kirimkan contoh User Form-nya seperti yang pernah saya
> lampirkan.
>
> Terima kasih,
>
> Harry
>
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Selasa, 25 September 2012 22:30
>
> *Judul:* Re: [belajar-excel] INPUT, EDIT & PINDAH TABEL
>
>
> Oke.
>
> 1. Untuk Add data sudah bisa ya.
> 2. Untuk menampilkan data yang akan di edit atau akan di-delete sudah bisa
> juga bukan. Yang jelas, dalam proses itu, Anda bisa mendapatkan posisi
> record.
> *Posisi record itu* yang harus Anda ingat terus, yaitu *listindex
> dari combobox + 1*
> 3. Untuk proses edit data, ketika tombol save ditekan, harus ada proses :
> >> 1. vallidasi terhadap isi setiap control dalam form, apakah pantas
> untuk di save atau tidak.
> >> 2. ketika hasil validasi sudah oke dan pantas disimpan, cek setiap
> isi control dalam form dan bandingkan dengan nilai setiap kolom di baris
> record tersebut
> Jika berbeda dengan isi di tabel pada baris record itu,
> salin nilai kolom di record itu ke kolom poin edit record itu juga
> Jika sama, tidak perlu lakukan apapun
> [proses nomor 2 ini adalah pencatatan histori yang Anda
> inginkan, khusus untuk edit data]
> >> 3. lakukan proses penulisan nilai di setiap control dalam form ke
> masing-masing kolom yang bersesuaian pada record itu juga.
> >> 4. proses selesai.
> 4. Untuk proses pindah data, ketika tombol save ditekan :
> (inti proses adalah salin data record itu ke tabel penampung data yang
> dihapus, kemudian hapus data di tabel utama pada record itu)
> >> 1. beri konfirmasi terakhir pad user apakah proses akan dilanjutkan
> Jika ya, maka lanjutkan, jika tidak, maka batalkan proses
> >> 2. salin data dari tabel utama di record itu ke tabel penampung di
> baris baru
> >> 3. hapus data dari tabel utama pada record itu
> contoh untuk hapus data di record ke-3, mulai kolom B
> sebanyak 1 baris x 10 kolom, dan range di shift ke atas
> range("b4").resize(1,10).delete xlshiftup
> sesuaikan rujukan range("b4").resize(1,10) dengan kebutuhan
> yang telah diketahui nomor recordnya dari combobox list index (sudah
> dibahas di atas sana)
> >> 4. proses selesai.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
Untuk data di workbook lain :
1. setiap buka form, maka buka workbook data tepat sebelum melakukan init
pada memmaster di event initialize
2. setiap tutup form, simpan dan tutup workbook data
3. semua (sekali lagi...) semua rujukan ke workbook data secara langsung
(belum didefinisikan dalam sebuah variabel seperti memaster), harus merujuk
secara lengkap dengan hirarki object-nya.
Untuk workbook, susunannya :
*nama_workbook.
*Jadi kalau mau merujuk ke sheet1 di workbook bernama data.xls pada range
A1 :
workbooks("data.
Wassalam,
Kid.
2012/9/30 Harry <hariansyahptk@
> **
>
>
> Dear BeExceller
> Mr. Kid
>
> Pertama saya mengucapkan terima kasih atas berkenan informasinya.
> Dari rumus yang Mr. Kid berikan, sudah saya tuangkan ke User Form. Tapi
> masih terdapat beberapa kesalahan dalam proses edit dan pemindahan data
> dari Sheet1 ke Sheet2.
> Adapun beberapa kesalahan dari rumus yang saya tuangkan ke User Form sudah
> saya tuliskan pada Lampiran yang saya sertakan.
>
> Besar harapan kiranya teman-teman BeExceller atau Mr. Kid dapat membantu
> saya akan hal tersebut.
>
> Terima kasih atas bantuannya.
> Wassalam,
>
> Harry
>
> N/B:
> Jawaban / penjelasan dari Mr. Kid yang No 1, 5 & 6 belum bisa saya
> tuangkan ke User Form karena masih bingung.
>
> ------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Minggu, 30 September 2012 10:21
>
> *Judul:* Re: [belajar-excel] INPUT, EDIT & PINDAH TABEL
>
>
> Ikutan...
>
> 1. Kolom Nama Tidak Bisa Di Revisi
> >> pada setiap form, buat deklarasi pada level form (bukan dalam setiap
> prosedur)
> private lIdx as long
> >> pada event change combobox tambahkan :
> if namacombonya.
> lidx=namacombonya.
> endif
> >> pada event click tombol save di bagian tulis nama, hapus yang lama dan
> ganti dengan :
> if memmaster.resize(
> namacombonya.
>
> memmaster.resize(
> endif
>
> 2. Pada Kolom Nama Baris Paling Bawah, Jika Di Revisi Kolom Jurusan
> Otomatis Mengcopy Pada Kolom Petugas Input
> >> perbaiki di event click tombol save pada bagian dibawah ini, yang benar
> siapa yang harus ambil txtJurusan :
> If MemMaster(r, 4) <> txtJURUSAN Then
> Sheets("sheet1"
> End If
> If MemMaster(r, 7) <> txtPETUGASINPUT Then
> Sheets("sheet1"
> End If
> biasakan gunkan propertinya seperti txtJURUSAN.text dan bukan hanya
> txtJURUSAN walau defaultnya memang textbox selalu mengambil properti text.
> hal ini akan memudahkan migrasi dari satu bahasa program ke bahasa
> program lainnya.
>
> 3. Hasil Revisi Sering Nyasar Pada Baris Pertama (Pada Kolom Judul)
> >> karena ada pengubahan text pada combobox, maka nilai r =
> Cbonama.ListIndex + 2 tidak merujuk dengan benar. Oleh sebab itu dibutuhkan
> proses penyimpanan nilai listindex disebuah variabel berlevel module atau
> form seperti di nomor 1 di atas.
>
> 4. Tanggal Revisi Tidak Match Dengan Tanggal Hari Ini (Tidak Update)
> >> isi tanggal revisi dengan nilai tanggal hari ini dengan fungsi *Date*
> alamatrangenya.
> jika ingin hasilnya bertipe teks, lakukan format terhadap *Date* dengan
> fungsi format.
>
> 5. Jika Ada Proses Pemindahan, Data Yang Ada Pada Sheet1 Tidak Otomatis
> Dihapus
> >> setelah salin data ke sheet lokasi pindah, lakukan hapus range dengan
> shift up pada sheet1
> sheet1.range(
> 'sesuaikan rujukan range yang bunyisa sekian sampai sekian agar persis
> sesuai kebutuhan
>
> 6. Jika Ada Proses Pemindahan, Pada Sheet2 Kolom Petugas Input Dan Tanggal
> Input Tidak Terdeteksi
> >> sebelum dipindah ke sheet2, di sheet1 tulis dulu nilainya sesuai
> keinginan pada kolom yang bersesuaian dengan nilai yang paling anda anggap
> tepat. Setelah itu baru lakukan proses penyalinan ke sheet2 dilanjutkan
> proses penghapusan dari sheet1 (proses penghapusan seperti nomor 5)
>
> Wassalam,
> Kid.
>
> 2012/9/30 Harry <hariansyahptk@
>
> **
>
> Dear BeExceller,
> Bp. Aji Mumpung
>
> Terima kasih atas berkenan rumusnya.
> Rumus yang telah diberikan sudah saya tuangkan dalam User Form yang saya
> maksudkan.
> Tapi dari rumus tersebut masih ada beberapa ERROR sebagaimana terlampir
> file-nya.
>
> Mohon berkenan koreksinya.
>
> Terima kasih,
>
>
> Harry
>
> N/B:
> Pada Sheet1 dan Sheet2 tsb bisa atau tidak saya tambahkan proteksi dengan
> cara Unprotect & Protect...??
> ------------
> *Dari:* aji mumpung <pupung1986@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 27 September 2012 13:46
>
> *Judul:* Re: [belajar-excel] INPUT, EDIT & PINDAH TABEL
>
>
> Hai pak Harry,
>
> algoritma pemrograman yang telah disampaikan oleh Mr.Kid ---kalo kata pak
> presiden "Sudah Terang Benderang"--
> ya) jika script vba tersebut adalah hasil kreasi anda sendiri.. seharusnya
> dengan mudah anda menuangkannya ke dalam user form.. ^_^
>
> kalo untuk saya yang masih pemula sekali, lebih mudah menulis script dari
> awal dibandingkan menelusuri logika pemrograman yang sudah ada.. ---mungkin
> sama dengan tukang bangunan.. dari pada disuruh ngerombak rumah yang sudah
> jadi mendingan milih ngebangun dari awal--- ini hanya pendapat pribadi ya..
> ^_^
>
> tapi...(ada tapinya nih..) saya coba bantu untuk solusi editnya saja ya..
> ^_^
>
> Dim r As Long
>
> ' cek dahulu, apakah data ada yang kosong atau tidak
> ' jika ada yang kosong maka kasih tau usernya buat ngisi yang masih
> kosong
> If txtALAMAT = "" Or txtJURUSAN = "" Or txtTGLDAFTAR = "" Or txtTGLTES
> = "" Or _
> txtLblUser = "" Or txtTGLINPUT = "" Then
> MsgBox "Input dulu yang kosong ya...", vbOKOnly, "Iseng aja luh..
> ^_^"
> Exit Sub
> End If
>
> ' cek lagi apakah ada perubahan data apa nggak, kalo nggak ada
> ' ya ngapain juga nulis data ke database.. cape-capein aja ^_^
> r = Cbonama.ListIndex + 2
> If MemMaster(r, 3) <> txtALAMAT Then
> Sheets("sheet1"
> End If
> If MemMaster(r, 4) <> txtJURUSAN Then
> Sheets("sheet1"
> End If
> If MemMaster(r, 5) <> txtTGLDAFTAR Then
> Sheets("sheet1"
> End If
> If MemMaster(r, 6) <> txtTGLTES Then
> Sheets("sheet1"
> "dd-mm-yyyy"
> End If
> If MemMaster(r, 7) <> txtLblUser Then
> Sheets("sheet1"
> End If
> If MemMaster(r, 8) <> txtTGLINPUT Then
> Sheets("sheet1"
> "dd-mm-yyyy"
> End If
>
> Cbonama.Value = ""
> txtALAMAT.Value = ""
> txtJURUSAN.Value = ""
> txtTGLDAFTAR.
> txtTGLTES.Value = ""
> txtLblUser.Value = ""
> txtTGLINPUT.
>
> script yang buat pindah datanya mana??? ---nanti ya, masih harus nyari
> rumput buat kasih makan kambing dulu, kalo sempet nanti diposting lagi,
> tapi kalo mau coba ikuti logika pemrograman dari Mr. Kid---
>
> lain kali mbok ya'o kalo kasih nama command button jangan cmdAdd semua..
> bingung jadinya @_@
>
> script tersebut ditulis di salah satu command button yang nama-nya sama
> itu lho..
>
> wassalam,
>
> -aji mumpung- (cah angon seko gunung merbabu)
>
> Pada 26 September 2012 16:38, Harry <hariansyahptk@
>
> **
>
> Dear Mr. Kid,
>
> Terima kasih atas berkenan reply-nya. Tapi dr info tersebut, saya
> kesulitan dalam menuangkannya dlm User Form yang saya maksudkan.
>
> Mohon berkenan kirimkan contoh User Form-nya seperti yang pernah saya
> lampirkan.
>
> Terima kasih,
>
> Harry
>
>
> ------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Selasa, 25 September 2012 22:30
>
> *Judul:* Re: [belajar-excel] INPUT, EDIT & PINDAH TABEL
>
>
> Oke.
>
> 1. Untuk Add data sudah bisa ya.
> 2. Untuk menampilkan data yang akan di edit atau akan di-delete sudah bisa
> juga bukan. Yang jelas, dalam proses itu, Anda bisa mendapatkan posisi
> record.
> *Posisi record itu* yang harus Anda ingat terus, yaitu *listindex
> dari combobox + 1*
> 3. Untuk proses edit data, ketika tombol save ditekan, harus ada proses :
> >> 1. vallidasi terhadap isi setiap control dalam form, apakah pantas
> untuk di save atau tidak.
> >> 2. ketika hasil validasi sudah oke dan pantas disimpan, cek setiap
> isi control dalam form dan bandingkan dengan nilai setiap kolom di baris
> record tersebut
> Jika berbeda dengan isi di tabel pada baris record itu,
> salin nilai kolom di record itu ke kolom poin edit record itu juga
> Jika sama, tidak perlu lakukan apapun
> [proses nomor 2 ini adalah pencatatan histori yang Anda
> inginkan, khusus untuk edit data]
> >> 3. lakukan proses penulisan nilai di setiap control dalam form ke
> masing-masing kolom yang bersesuaian pada record itu juga.
> >> 4. proses selesai.
> 4. Untuk proses pindah data, ketika tombol save ditekan :
> (inti proses adalah salin data record itu ke tabel penampung data yang
> dihapus, kemudian hapus data di tabel utama pada record itu)
> >> 1. beri konfirmasi terakhir pad user apakah proses akan dilanjutkan
> Jika ya, maka lanjutkan, jika tidak, maka batalkan proses
> >> 2. salin data dari tabel utama di record itu ke tabel penampung di
> baris baru
> >> 3. hapus data dari tabel utama pada record itu
> contoh untuk hapus data di record ke-3, mulai kolom B
> sebanyak 1 baris x 10 kolom, dan range di shift ke atas
> range("b4").
> sesuaikan rujukan range("b4").
> yang telah diketahui nomor recordnya dari combobox list index (sudah
> dibahas di atas sana)
> >> 4. proses selesai.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
Mon Oct 8, 2012 8:44 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Sedikit urun saran tapi ndak urun solusi :
1. sebaiknya data dijadikan satu dalam sebuah sheet.
2. pengubahan (perbaikan atau hapus) dilakukan pada sheet tersebut, dengan
membuat historinya pada sebuah sheet lain
3. setiap pengubahan data atau penghapusan data, harus didahului dengan
menyimpan data lama ke sheet historinya, disertai tanggal dan waktu (tipe
datetime) dilakukannya pengubahan
Saran diatas akan merepotkan Anda dalam menyusun ulang data dan script
dalam userformnya. Tapi, bisa jadi kerepotan sekarang tidak akan membuat
puyeng kedepannya.
Wassalam,
Kid.
2012/10/8 Md Switra <mswitra@yahoo.com >
> **
>
>
> Selamat Malam
> Mohon bantuan untuk membuat rumuh vb pada form edit yg telah saya sisipkan
> pada e-mail ini, pada sheet edit data.
>
> Masalah yang saya temukan adalah
> 1. Saya memiliki kumpulan beberapa data yg akan saya edit.
> 2. Rumuh yang saya gunakan dalam pembuatan form edit hanya mengacu pada
> satu sheet. Jika aaya ingin mengedit data sheet lain, berarti saya harus
> merubah lokasi sheet tsb rumus. Kurang efektif.
>
> Yang ingin saya tanyakan, adakah rumus vb-nya untuk berpindah sheet yang
> di edit menggunakan form yang sudah ada tanpa mengulang menulis rumus untuk
> memindahkan alamat sheetnya?
>
> Pada: Private sub userform_initialize()
>
> ....
> set lihatdata = sheets(2009).cells(1).currentregion
> ...
>
> Dikirim dari Yahoo! Mail pada Android
>
>
>
1. sebaiknya data dijadikan satu dalam sebuah sheet.
2. pengubahan (perbaikan atau hapus) dilakukan pada sheet tersebut, dengan
membuat historinya pada sebuah sheet lain
3. setiap pengubahan data atau penghapusan data, harus didahului dengan
menyimpan data lama ke sheet historinya, disertai tanggal dan waktu (tipe
datetime) dilakukannya pengubahan
Saran diatas akan merepotkan Anda dalam menyusun ulang data dan script
dalam userformnya. Tapi, bisa jadi kerepotan sekarang tidak akan membuat
puyeng kedepannya.
Wassalam,
Kid.
2012/10/8 Md Switra <mswitra@yahoo.
> **
>
>
> Selamat Malam
> Mohon bantuan untuk membuat rumuh vb pada form edit yg telah saya sisipkan
> pada e-mail ini, pada sheet edit data.
>
> Masalah yang saya temukan adalah
> 1. Saya memiliki kumpulan beberapa data yg akan saya edit.
> 2. Rumuh yang saya gunakan dalam pembuatan form edit hanya mengacu pada
> satu sheet. Jika aaya ingin mengedit data sheet lain, berarti saya harus
> merubah lokasi sheet tsb rumus. Kurang efektif.
>
> Yang ingin saya tanyakan, adakah rumus vb-nya untuk berpindah sheet yang
> di edit menggunakan form yang sudah ada tanpa mengulang menulis rumus untuk
> memindahkan alamat sheetnya?
>
> Pada: Private sub userform_initialize
>
> ....
> set lihatdata = sheets(2009)
> ...
>
> Dikirim dari Yahoo! Mail pada Android
>
>
>
Mon Oct 8, 2012 10:56 pm (PDT) . Posted by:
"Yudi Dwiyono" yudi_dwiyono
Thanks Mr Kid..
Regards,
Yud
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, October 8, 2012 9:59 PM
Subject: Re: [belajar-excel] Redistribusi antara warehouse
Coba pada sheet Part Order cell G4 :
=IF(LEN(G$3)*LEN($F4),MIN($D4-SUM($E4:F4),MAX(0,SUMPRODUCT((COUNTIF($F4,"*"&'Excess to Redistribute'!$E$4:$E$100&"*")>0)*('Excess to Redistribute'!$A$4:$A$100=G$3)*('Excess to Redistribute'!$B$4:$B$100=$B4)*'Excess to Redistribute'!$D$4:$D$100)-SUMIF($B$3:$B3,$B4,G$3:G3))),0)
Bagian yang di biru yang diubah. Jika ternyata kriterianya lebih dari 1, gunakan SumProduct.
Wassalam,
Kid.
2012/10/8 Yudi Dwiyono <yudi_dwiyono@yahoo.com >
>
>Dear Mr Kid,
>
>Saya sudah coba untuk mengunakan rumus yang di berikan tetapi sebagai sample ada satu stock code yaitu 8898013488 di sheet part to order ada yang membutuhkan dengan kelas FM tetapi tidak terambil dari sheet excess to redistribute padahal di sheet excess to redistribute ada quantity kelas SM sebanyak 3 Pcs.
>Mohon pencerahannya, apakah ada kesalahan?
>
>Thanks.
>
>Regards
>
>
>
>From: Yudi Dwiyono <yudi_dwiyono@yahoo.com >
>To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Sent: Friday, September 21, 2012 11:03 PM
>Subject: Re: [belajar-excel] Tanya rumus Redistribusi antara warehouse
>
>
>Thanks mr kid...
>
>
>Regards,
>yudi
>
>
>From: Kid Mr. <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Friday, September 21, 2012 6:25 PM
>Subject: Re: [belajar-excel] Tanya rumus Redistribusi antara warehouse
>
>
>
>Coba file terlampir.
>
>Wassalam,
>Kid.
>
>
>2012/9/21 Yudi Dwiyono <yudi_dwiyono@yahoo.com >
>
>
>>
>>Dear Mr Kid,
>>
>>Ok...tetapi gimana ya kalau di kondisikan stock code SM yang di supply dari warehouse excess ke stock code yang FM ?
>>Sorry mr kid kalau saya banyak tanya , maklum pemula.
>>Thanks.
>>
>>Regards,
>>Yudi
>>
>>
>>
>>
>>
>>From: Kid Mr. <mr.nmkid@gmail.com >
>>To: belajar-excel@yahoogroups.com
>>Sent: Friday, September 21, 2012 4:38 PM
>>
>>Subject: Re: [belajar-excel] Tanya rumus Redistribusi antara warehouse
>>
>>
>>
>>
>>Bagaimana jika sheet Excess mengambil dari hasil formula di sheet needs saja ?
>>Mestinya kan nanti jumlahnya sama.
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>2012/9/21 Yudi Dwiyono <yudi_dwiyono@yahoo.com >
>>
>>
>>>
>>>
>>>Dear Mr Kid and Others Master Excel
>>>
>>>Thanks sebelum nya
>>>, tetapi mohon maaf sepertinya ada masalash dengan formula yang saya gunakan, sebagai
>>>contoh : untuk stock code 8898013252 dari 062 di distribusikan ke 061 sebanyak
>>>37 Pcs , sementara didistribusikan kembali oleh 054..padahal 061 hanya butuh 37
>>>pcs saja. kira kira bisa ga ya unutk kasus ini di supply dari wh dengan class
>>>SM ( Slow moving saja ). Please help.....
>>>
>>>Thanks.
>>>
>>>Regards,
>>>Yudi
>>>
>>>
>>>----- Forwarded Message -----
>>>From: Yudi Dwiyono <yudi_dwiyono@yahoo.com >
>>>To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>>>Sent: Friday, September 21, 2012 12:17 AM
>>>Subject: Re: [belajar-excel] Tanya rumus Redistribusi antara warehouse
>>>
>>>
>>>
>>>Dear Mr Kid,
>>>
>>>Thanks a lot...ini yang saya maksud.....
>>>
>>>Regards,
>>>Yudi
>>>
>>>________________________________
>>>From: Kid Mr. <mr.nmkid@gmail.com >
>>>To: belajar-excel@yahoogroups.com
>>>Sent: Thursday, September 20, 2012 12:51 PM
>>>Subject: Re: [belajar-excel] Tanya rumus Redistribusi antara warehouse
>>>
>>>
>>>
>>>Pak Yudi,
>>>
>>>Mungkin seperti file terlampir.
>>>
>>>Array formula untuk menyusun unique warehouse ID : (mulai kolom F untuk baris 3 saja) -> copy ke kanan sampai bertemu hasil nullstring ("")
>>>=IFERROR(INDEX(needs!$A$4:$A$28,MATCH(0,COUNTIF($E$3:E$3,needs!$A$4:$A$28),0)),"")
>>>bagi pengguna xl2003, ganti fungsi IFError( dengan IF( IsNumber( MATCH(0,COUNTIF($E$3:E$3,needs!$A$4:$A$28),0) ) ,
>>>
>>>Formula distribusi :
>>>=MIN($D4-SUM($E4:E4),SUMPRODUCT((needs!$E$4:$E$28<>"SM")*(needs!$A$4:$A$28=F$3)*(needs!$B$4:$B$28=$B4)*needs!$D$4:$D$28))
>>>
>>>Penggunaan fungsi Min untuk mengantisipasi ketika jumlah yang dibutuhkan lebih dari yang tersedia di Excess. Dengan demikian, untuk needs yang totalnya sudah melewati jumlah excess yang tersedia, tidak akan kebagian alias 0.
>>>Permasalahan tentang siapa yang harus dapat prioritas, silakan dibuat sebuah kolom untuk menjadi kolom sorting yang berisi tingkat prioritas yang harus dipenuhi.
>>>
>>>Dengan konsep yang sama, juga bisa disusun pada sheet data yang membutuhkan (lihat sheet needs pada file terlampir)
>>>
>>>Wassalam,
>>>Kid.
>>>
>>>2012/9/19 Yudi Dwiyono <yudi_dwiyono@yahoo.com >
>>>
>>>>
>>>>Dear Mr Kid & Others master excel,
>>>>
>>>>Terlampir data yang sudah saya sederhanakan dan ada penjelasanya, Mohon bantuannya untuk menemukan formula yang tepat .
>>>>Atas bantuannya saya ucapkan banyak banyak terima kasih.
>>>>Thank.
>>>>
>>>>Regards,
>>>>Yudi
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>________________________________
>>>> From: Kid Mr. <mr.nmkid@gmail.com >
>>>>To: belajar-excel@yahoogroups.com
>>>>Sent: Wednesday, September 19, 2012 5:08 PM
>>>>Subject: Re: [belajar-excel] Tanya rumus Redistribusi antara warehouse
>>>>
>>>>
>>>>
>>>>
>>>>Coba Bapak sertakan :
>>>>1. Penjelasan masing-masing kolom setiap sheet
>>>>2. Relasi antara sheet pertama dengan sheet kedua
>>>>3. contoh hasil pengerjaan manualnya.
>>>>
>>>>Semoga dengan penjelasan yang lebih baik tentang hal-hal di atas, akan membantu calon penanggap yang ingin menanggapi.
>>>>
>>>>Wassalam,
>>>>Kid.
>>>>
>>>>
>>>>2012/9/19 Yudi Dwiyono <yudi_dwiyono@yahoo.com >
>>>>
>>>>
>>>>>
>>>>>Dear Master excel,
>>>>>
>>>>>Saya mau tanya , bagaimana rumus yang logis jika,
>>>>>
>>>>>Ada 2 data yang berbeda, pertama data recomended order dan yang ke dua data excess stock bagaimana rumusnya nya agar data excess stock dapat di supply pada warehouse tertentu yang membutuhkan stock dari warehouse yang kelebihan stock dengan quantity yang mencukupi atau minimal mendekati atau jika warehouse A membutuhkan 70 Pcs semetara warehouse B kelebihan 50 Pc? Data terlampir...
>>>>>Thanks.
>>>>>
>>>>>Regards,
>>>>>Yudi
>>>>>
>>>>__._,_._
>>>
>>>
>>
>>
>>
>
>
>
>
>
Regards,
Yud
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Monday, October 8, 2012 9:59 PM
Subject: Re: [belajar-excel] Redistribusi antara warehouse
Coba pada sheet Part Order cell G4 :
=IF(LEN(G$3)
Bagian yang di biru yang diubah. Jika ternyata kriterianya lebih dari 1, gunakan SumProduct.
Wassalam,
Kid.
2012/10/8 Yudi Dwiyono <yudi_dwiyono@
>
>Dear Mr Kid,
>
>Saya sudah coba untuk mengunakan rumus yang di berikan tetapi sebagai sample ada satu stock code yaitu 8898013488 di sheet part to order ada yang membutuhkan dengan kelas FM tetapi tidak terambil dari sheet excess to redistribute padahal di sheet excess to redistribute ada quantity kelas SM sebanyak 3 Pcs.
>Mohon pencerahannya
>
>Thanks.
>
>Regards
>
>
>
>From: Yudi Dwiyono <yudi_dwiyono@
>To: "belajar-excel@
>Sent: Friday, September 21, 2012 11:03 PM
>Subject: Re: [belajar-excel] Tanya rumus Redistribusi antara warehouse
>
>
>Thanks mr kid...
>
>
>Regards,
>yudi
>
>
>From: Kid Mr. <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Friday, September 21, 2012 6:25 PM
>Subject: Re: [belajar-excel] Tanya rumus Redistribusi antara warehouse
>
>
>
>Coba file terlampir.
>
>Wassalam,
>Kid.
>
>
>2012/9/21 Yudi Dwiyono <yudi_dwiyono@
>
>
>>
>>Dear Mr Kid,
>>
>>Ok...tetapi gimana ya kalau di kondisikan stock code SM yang di supply dari warehouse excess ke stock code yang FM ?
>>Sorry mr kid kalau saya banyak tanya , maklum pemula.
>>Thanks.
>>
>>Regards,
>>Yudi
>>
>>
>>
>>
>>
>>From: Kid Mr. <mr.nmkid@gmail.
>>To: belajar-excel@
>>Sent: Friday, September 21, 2012 4:38 PM
>>
>>Subject: Re: [belajar-excel] Tanya rumus Redistribusi antara warehouse
>>
>>
>>
>>
>>Bagaimana jika sheet Excess mengambil dari hasil formula di sheet needs saja ?
>>Mestinya kan nanti jumlahnya sama.
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>2012/9/21 Yudi Dwiyono <yudi_dwiyono@
>>
>>
>>>
>>>
>>>Dear Mr Kid and Others Master Excel
>>>
>>>Thanks sebelum nya
>>>, tetapi mohon maaf sepertinya ada masalash dengan formula yang saya gunakan, sebagai
>>>contoh : untuk stock code 8898013252 dari 062 di distribusikan ke 061 sebanyak
>>>37 Pcs , sementara didistribusikan kembali oleh 054..padahal 061 hanya butuh 37
>>>pcs saja. kira kira bisa ga ya unutk kasus ini di supply dari wh dengan class
>>>SM ( Slow moving saja ). Please help.....
>>>
>>>Thanks.
>>>
>>>Regards,
>>>Yudi
>>>
>>>
>>>----- Forwarded Message -----
>>>From: Yudi Dwiyono <yudi_dwiyono@
>>>To: "belajar-excel@
>>>Sent: Friday, September 21, 2012 12:17 AM
>>>Subject: Re: [belajar-excel] Tanya rumus Redistribusi antara warehouse
>>>
>>>
>>>
>>>Dear Mr Kid,
>>>
>>>Thanks a lot...ini yang saya maksud.....
>>>
>>>Regards,
>>>Yudi
>>>
>>>_________
>>>From: Kid Mr. <mr.nmkid@gmail.
>>>To: belajar-excel@
>>>Sent: Thursday, September 20, 2012 12:51 PM
>>>Subject: Re: [belajar-excel] Tanya rumus Redistribusi antara warehouse
>>>
>>>
>>>
>>>Pak Yudi,
>>>
>>>Mungkin seperti file terlampir.
>>>
>>>Array formula untuk menyusun unique warehouse ID : (mulai kolom F untuk baris 3 saja) -> copy ke kanan sampai bertemu hasil nullstring ("")
>>>=IFERROR(
>>>bagi pengguna xl2003, ganti fungsi IFError( dengan IF( IsNumber( MATCH(0,COUNTIF(
>>>
>>>Formula distribusi :
>>>=MIN($D4-
>>>
>>>Penggunaan fungsi Min untuk mengantisipasi ketika jumlah yang dibutuhkan lebih dari yang tersedia di Excess. Dengan demikian, untuk needs yang totalnya sudah melewati jumlah excess yang tersedia, tidak akan kebagian alias 0.
>>>Permasalahan tentang siapa yang harus dapat prioritas, silakan dibuat sebuah kolom untuk menjadi kolom sorting yang berisi tingkat prioritas yang harus dipenuhi.
>>>
>>>Dengan konsep yang sama, juga bisa disusun pada sheet data yang membutuhkan (lihat sheet needs pada file terlampir)
>>>
>>>Wassalam,
>>>Kid.
>>>
>>>2012/9/19 Yudi Dwiyono <yudi_dwiyono@
>>>
>>>>
>>>>Dear Mr Kid & Others master excel,
>>>>
>>>>Terlampir data yang sudah saya sederhanakan dan ada penjelasanya, Mohon bantuannya untuk menemukan formula yang tepat .
>>>>Atas bantuannya saya ucapkan banyak banyak terima kasih.
>>>>Thank.
>>>>
>>>>Regards,
>>>>Yudi
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>________
>>>> From: Kid Mr. <mr.nmkid@gmail.
>>>>To: belajar-excel@
>>>>Sent: Wednesday, September 19, 2012 5:08 PM
>>>>Subject: Re: [belajar-excel] Tanya rumus Redistribusi antara warehouse
>>>>
>>>>
>>>>
>>>>
>>>>Coba Bapak sertakan :
>>>>1. Penjelasan masing-masing kolom setiap sheet
>>>>2. Relasi antara sheet pertama dengan sheet kedua
>>>>3. contoh hasil pengerjaan manualnya.
>>>>
>>>>Semoga dengan penjelasan yang lebih baik tentang hal-hal di atas, akan membantu calon penanggap yang ingin menanggapi.
>>>>
>>>>Wassalam,
>>>>Kid.
>>>>
>>>>
>>>>2012/9/19 Yudi Dwiyono <yudi_dwiyono@
>>>>
>>>>
>>>>>
>>>>>Dear Master excel,
>>>>>
>>>>>Saya mau tanya , bagaimana rumus yang logis jika,
>>>>>
>>>>>Ada 2 data yang berbeda, pertama data recomended order dan yang ke dua data excess stock bagaimana rumusnya nya agar data excess stock dapat di supply pada warehouse tertentu yang membutuhkan stock dari warehouse yang kelebihan stock dengan quantity yang mencukupi atau minimal mendekati atau jika warehouse A membutuhkan 70 Pcs semetara warehouse B kelebihan 50 Pc? Data terlampir...
>>>>>Thanks.
>>>>>
>>>>>Regards,
>>>>>Yudi
>>>>>
>>>>__._,_._
>>>
>>>
>>
>>
>>
>
>
>
>
>
Tue Oct 9, 2012 2:44 am (PDT) . Posted by:
"Toni Kus Indratno" tonny.kuzh@ymail.com
Bagaimana cara mengunci Excel agar tidak bisa diclose menggunakan tanda X dipojok kanan atas,?
Tue Oct 9, 2012 2:45 am (PDT) . Posted by:
"DeLi" deli_enclek
Dear Teman-teman,
Sy baru gabung di grup ini.
Sy mw tny sms temen2 expert excell disini.
Sya bingung judulnya apa n gmn cara nanya nya.
Jadi,
Sya ingin di dalam sebuah kolom itu khan ada beberapa nama. Sy ingin tau ada berapa nama yg beda di kolom tersebut.
Ilustrasi datanya di attacment.
Buah
-----
Pisang
Apel
Mangga
Apel
Apel
Jeruk
--------
Pertanyaan
Ada berapa jenis buah di kolom Buah?
Jawaban
Pisang, Apel, Mangga, Jeruk
Terima kasih temen2.
Sy baru gabung di grup ini.
Sy mw tny sms temen2 expert excell disini.
Sya bingung judulnya apa n gmn cara nanya nya.
Jadi,
Sya ingin di dalam sebuah kolom itu khan ada beberapa nama. Sy ingin tau ada berapa nama yg beda di kolom tersebut.
Ilustrasi datanya di attacment.
Buah
-----
Pisang
Apel
Mangga
Apel
Apel
Jeruk
--------
Pertanyaan
Ada berapa jenis buah di kolom Buah?
Jawaban
Pisang, Apel, Mangga, Jeruk
Terima kasih temen2.
Tue Oct 9, 2012 2:58 am (PDT) . Posted by:
"Yudi Dwiyono" yudi_dwiyono
Dear Master excel,
Mohon bantu rumus if terlampir , keterangan dan data terlampir.
Thanks.
Regards,
Yudi
Mohon bantu rumus if terlampir , keterangan dan data terlampir.
Thanks.
Regards,
Yudi
Tue Oct 9, 2012 2:59 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Coba :
=MAX((Y2-W2)*(R2="Yes"),0)
Wassalam,
Kid.
2012/10/9 Yudi Dwiyono <yudi_dwiyono@yahoo.com >
> **
>
>
> Dear Master excel,
>
> Mohon bantu rumus if terlampir , keterangan dan data terlampir.
> Thanks.
>
> Regards,
> Yudi
>
>
>
>
=MAX((Y2-W2)
Wassalam,
Kid.
2012/10/9 Yudi Dwiyono <yudi_dwiyono@
> **
>
>
> Dear Master excel,
>
> Mohon bantu rumus if terlampir , keterangan dan data terlampir.
> Thanks.
>
> Regards,
> Yudi
>
>
>
>
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar