11 New Messages
Digest #1854
Messages
Thu Oct 18, 2012 1:29 am (PDT) . Posted by:
"M.Ade Alfarid" aderyo
Dear,
Untuk menghilangkan angka 0 pada list index,
tambah rumus apa?
Ade
On Mon, 15 Oct 2012 16:30:55 +0700, Mr. Kid <mr.nmkid@gmail.com > wrote:
> Coba file terlampir.
> Ada yang dibantu oleh sebuah kolom untuk menyusun data multi kolommenjadi
> data sekolom.
>
> Wassalam,
> Kid
>
>
> 2012/10/15 M.Ade Alfarid <QA@kkmi.co.id>
>
>> **
>>
>>
>> BeExceller,
>>
>> Bagaimana untuk mengurut banyak data beberapa kolom,
>> data dobel dihitung sekali saja?
>> Terimakasih
>> --
>> ade
Untuk menghilangkan angka 0 pada list index,
tambah rumus apa?
Ade
On Mon, 15 Oct 2012 16:30:55 +0700, Mr. Kid <mr.nmkid@gmail.
> Coba file terlampir.
> Ada yang dibantu oleh sebuah kolom untuk menyusun data multi kolommenjadi
> data sekolom.
>
> Wassalam,
> Kid
>
>
> 2012/10/15 M.Ade Alfarid <QA@kkmi.co.id>
>
>> **
>>
>>
>> BeExceller,
>>
>> Bagaimana untuk mengurut banyak data beberapa kolom,
>> data dobel dihitung sekali saja?
>> Terimakasih
>> --
>> ade
Thu Oct 18, 2012 1:42 am (PDT) . Posted by:
"Heru Safrudin" superheruu
Dear Mr. Master
Ada 2 pertanyaan :
1. Saya pingin mendeteksi keystroke di lembar kerja, bisakah, bagaimana caranya ?
Misalkan kalo saya tekan Enter maka prosedur tertentu akan dieksekusi
2. Bagaimana mencari teks di database Ms. Access dari lembar kerja excel
dalam misal mencari teks "I/KP/11/00002" di field NO_GR
Terima kasih
Heru Safrudin
Ada 2 pertanyaan :
1. Saya pingin mendeteksi keystroke di lembar kerja, bisakah, bagaimana caranya ?
Misalkan kalo saya tekan Enter maka prosedur tertentu akan dieksekusi
2. Bagaimana mencari teks di database Ms. Access dari lembar kerja excel
dalam misal mencari teks "I/KP/11/00002" di field NO_GR
Terima kasih
Heru Safrudin
Thu Oct 18, 2012 2:13 am (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
langsung lihat di attachment
wassalam
Ghozi Alkatiri
________________________________
Dari: tuti andrayani <andrayani_lee@yahoo.co.id >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Kamis, 18 Oktober 2012 14:51
Judul: [belajar-excel] merubah format laporan
Dear Execelers ....
Mohon pencerahan jika saya punya data
Nama Konsumen Alamat Kota Propinsi
A Jl. Baturaden No.15 Ciwastra Bandung Jawa Barat
B Jl. Sasak Gantung No.11 Semarang Jawa Tengah
C Jl. Raya Barat No. 1 Surabaya Jawa Timur
dst
dimana konsumennya ada ribuan
dan saya ingin merubah format laporannya menjadi :
Nama Konsumen Alamat Klasifikasi
A Jl. Baturaden No.15 Ciwastra Alamat
Bandung Kota
Jawa Barat Propinsi
B Jl. Sasak Gantung No.11 Alamat
Semarang Kota
Jawa Tengah Propinsi
C Jl. Raya Barat No. 1 Alamat
Surabaya Kota
Jawa Timur Propinsi
Bagaimana ya cara otomatisnya, karena kalau manual diinsert row dan copy transpose terlalu lama
Thanks
Tuti
wassalam
Ghozi Alkatiri
____________
Dari: tuti andrayani <andrayani_lee@
Kepada: "belajar-excel@
Dikirim: Kamis, 18 Oktober 2012 14:51
Judul: [belajar-excel] merubah format laporan
Dear Execelers ....
Mohon pencerahan jika saya punya data
Nama Konsumen Alamat Kota Propinsi
A Jl. Baturaden No.15 Ciwastra Bandung Jawa Barat
B Jl. Sasak Gantung No.11 Semarang Jawa Tengah
C Jl. Raya Barat No. 1 Surabaya Jawa Timur
dst
dimana konsumennya ada ribuan
dan saya ingin merubah format laporannya menjadi :
Nama Konsumen Alamat Klasifikasi
A Jl. Baturaden No.15 Ciwastra Alamat
Bandung Kota
Jawa Barat Propinsi
B Jl. Sasak Gantung No.11 Alamat
Semarang Kota
Jawa Tengah Propinsi
C Jl. Raya Barat No. 1 Alamat
Surabaya Kota
Jawa Timur Propinsi
Bagaimana ya cara otomatisnya, karena kalau manual diinsert row dan copy transpose terlalu lama
Thanks
Tuti
Thu Oct 18, 2012 2:31 am (PDT) . Posted by:
"tuti andrayani" andrayani_lee
Thanks a lot Mr Kid ...
Tuti
Tuti
Thu Oct 18, 2012 3:12 am (PDT) . Posted by:
"Yudi Dwiyono" yudi_dwiyono
Dear Master excel,
Mohon bantu untuk file terlampir , bagaimana caranya agar ketika input stock code dan warehouse code akan menghasilkan data terlampir dan kemungkinan row pada raw data akan bertambah setiap harinya bahkan pada titik maksimal.
Thanks.
Regards,
Yud
Mohon bantu untuk file terlampir , bagaimana caranya agar ketika input stock code dan warehouse code akan menghasilkan data terlampir dan kemungkinan row pada raw data akan bertambah setiap harinya bahkan pada titik maksimal.
Thanks.
Regards,
Yud
Thu Oct 18, 2012 6:31 am (PDT) . Posted by:
"aji mumpung"
pak yudi,
coba code berikut:
=================================
Bagian Pertama ditulis di sebuah module
=================================
Option Explicit
' ==========================================
' code by : Aji Mumpung
' puncak Telomoyo, di samping menara Telkom
' 18 Oktober 2012
' ==========================================
Sub CariBerdasarkanKodeStokDanGudang()
' deklarasikan variabel yang dibutuhkan
' variable Header WareHouse bertipe range
Dim hdWH As Range
' variabel untuk menyimpan data seluruh WareHouse, bertipe range
Dim rgWH As Range
' variabel untuk setiap cell yang berisi data WareHouse, bertipe range
Dim cWH As Range
' variabel kode stok yang ditanyakan, bertipe range
Dim codeStock As Range
' variabel kode waregouse yang ditanyakan, bertipe range
Dim codeWH As Range
' non aktif-kan screen update
Application.ScreenUpdating = False
' hapus dahulu semua data di sheet "Search" range c5 sampai c13
Sheet2.Range("c5:c13").ClearContents
' tentukan nilai kode stok yang ditanyakan
' berada di sheet "search", nomer index sheetnya 2
' untuk setiap cell yang di-merge nilainya berada di paling kiri atas
Set codeStock = Sheet2.Range("f2")
' tentukan nilai kode warehouse yang ditanyakan
Set codeWH = Sheet2.Range("f3")
' tentukan posisi header warehouse
' nomor index sheet "Raw Data" adalah 1 dan berada di cell a7
Set hdWH = Sheet1.Range("a7")
' range data yang berisi kode wh adalah 1 baris di bawah header wh
' sampai dengan baris yang paling akhir
' dari header turun 1 baris , dari header turun ke bawah sampai baris
terakhir yang berisi data
' tidak boleh ada baris kosong antar data
Set rgWH = Range(hdWH.Offset(1, 0), hdWH.End(xlDown))
' cek untuk setiap cell dalam range warehouse
For Each cWH In rgWH
' cek apakah kode wh ini sama dengan kode wh di sheet "search"
If cWH.Value = codeStock Then
' jika sama, coba cek juga apakah kode stok sama dengan yang
ditanyakan
' posisi kode stok ada di 1 kolom sebelah kanan kode warehouse
If cWH.Offset(0, 1).Value = codeWH Then
' jika kode stoknya juga sama, maka copy data di sheet "raw
data" ke sheet "search"
' sesuaikan dengan posisi masing-masing data
' pada sheet2
With Sheet2
Range("c5").Value = cWH.Offset(0, 1).Value
Range("c5").NumberFormat = "000"
Range("c6").Value = cWH.Offset(0, 2).Value
Range("c7").Value = cWH.Offset(0, 3).Value
Range("c8").Value = cWH.Offset(0, 4).Value
Range("c9").Value = cWH.Offset(0, 9).Value
Range("c10").Value = cWH.Offset(0, 10).Value
Range("c11").Value = cWH.Offset(0, 7).Value
Range("c12").Value = cWH.Offset(0, 8).Value
Range("c13").Value = cWH.Offset(0, 6).Value
Range("c5:c13").HorizontalAlignment = xlLeft
' aktifkan kembali screen update
Application.ScreenUpdating = True
' tampilkan pesan bahwa data ditemukan dan sudah
ditampilkan
MsgBox "Data ditemukan", vbOKOnly, "Hasil Pencarian"
' kalo sudah keluar dari prosedur
' data berikutnya sudah tidak perlu di cek lagi
Exit Sub
End With
' akhir dari logika
End If
' selain itu
Else
' tampilkan pesan bahwa tidak ada data sama yang ditemukan
MsgBox "Data tidak ditemukan", vbCritical, "Peringatan"
' akhir dari logika
End If
' cek kode warehouse selanjutnya
Next cWH
' aktifkan kembali screen update
Application.ScreenUpdating = True
' akhir dari prosedur
End Sub
=================================
Bagian kedua ditulis di command botton
=================================
Option Explicit
Private Sub CommandButton1_Click()
' panggil prosedur yang tadi ditulis di sebuah modul
Call CariBerdasarkanKodeStokDanGudang
End Sub
file terlampir
wassalam,
-aji mumpung-
Pada 18 Oktober 2012 17:12, Yudi Dwiyono <yudi_dwiyono@yahoo.com > menulis:
> **
>
>
> Dear Master excel,
>
> Mohon bantu untuk file terlampir , bagaimana caranya agar ketika input
> stock code dan warehouse code akan menghasilkan data terlampir dan
> kemungkinan row pada raw data akan bertambah setiap harinya bahkan pada
> titik maksimal.
> Thanks.
>
> Regards,
> Yud
>
>
>
coba code berikut:
============
Bagian Pertama ditulis di sebuah module
============
Option Explicit
' ============
' code by : Aji Mumpung
' puncak Telomoyo, di samping menara Telkom
' 18 Oktober 2012
' ============
Sub CariBerdasarkanKode
' deklarasikan variabel yang dibutuhkan
' variable Header WareHouse bertipe range
Dim hdWH As Range
' variabel untuk menyimpan data seluruh WareHouse, bertipe range
Dim rgWH As Range
' variabel untuk setiap cell yang berisi data WareHouse, bertipe range
Dim cWH As Range
' variabel kode stok yang ditanyakan, bertipe range
Dim codeStock As Range
' variabel kode waregouse yang ditanyakan, bertipe range
Dim codeWH As Range
' non aktif-kan screen update
Application.
' hapus dahulu semua data di sheet "Search" range c5 sampai c13
Sheet2.Range(
' tentukan nilai kode stok yang ditanyakan
' berada di sheet "search", nomer index sheetnya 2
' untuk setiap cell yang di-merge nilainya berada di paling kiri atas
Set codeStock = Sheet2.Range(
' tentukan nilai kode warehouse yang ditanyakan
Set codeWH = Sheet2.Range(
' tentukan posisi header warehouse
' nomor index sheet "Raw Data" adalah 1 dan berada di cell a7
Set hdWH = Sheet1.Range(
' range data yang berisi kode wh adalah 1 baris di bawah header wh
' sampai dengan baris yang paling akhir
' dari header turun 1 baris , dari header turun ke bawah sampai baris
terakhir yang berisi data
' tidak boleh ada baris kosong antar data
Set rgWH = Range(hdWH.Offset(
' cek untuk setiap cell dalam range warehouse
For Each cWH In rgWH
' cek apakah kode wh ini sama dengan kode wh di sheet "search"
If cWH.Value = codeStock Then
' jika sama, coba cek juga apakah kode stok sama dengan yang
ditanyakan
' posisi kode stok ada di 1 kolom sebelah kanan kode warehouse
If cWH.Offset(0, 1).Value = codeWH Then
' jika kode stoknya juga sama, maka copy data di sheet "raw
data" ke sheet "search"
' sesuaikan dengan posisi masing-masing data
' pada sheet2
With Sheet2
Range("c5").
Range("c5").
Range("c6").
Range("c7").
Range("c8").
Range("c9").
Range("c10")
Range("c11")
Range("c12")
Range("c13")
Range("c5:c13"
' aktifkan kembali screen update
Application.
' tampilkan pesan bahwa data ditemukan dan sudah
ditampilkan
MsgBox "Data ditemukan", vbOKOnly, "Hasil Pencarian"
' kalo sudah keluar dari prosedur
' data berikutnya sudah tidak perlu di cek lagi
Exit Sub
End With
' akhir dari logika
End If
' selain itu
Else
' tampilkan pesan bahwa tidak ada data sama yang ditemukan
MsgBox "Data tidak ditemukan", vbCritical, "Peringatan"
' akhir dari logika
End If
' cek kode warehouse selanjutnya
Next cWH
' aktifkan kembali screen update
Application.
' akhir dari prosedur
End Sub
============
Bagian kedua ditulis di command botton
============
Option Explicit
Private Sub CommandButton1_
' panggil prosedur yang tadi ditulis di sebuah modul
Call CariBerdasarkanKode
End Sub
file terlampir
wassalam,
-aji mumpung-
Pada 18 Oktober 2012 17:12, Yudi Dwiyono <yudi_dwiyono@
> **
>
>
> Dear Master excel,
>
> Mohon bantu untuk file terlampir , bagaimana caranya agar ketika input
> stock code dan warehouse code akan menghasilkan data terlampir dan
> kemungkinan row pada raw data akan bertambah setiap harinya bahkan pada
> titik maksimal.
> Thanks.
>
> Regards,
> Yud
>
>
>
Thu Oct 18, 2012 7:08 am (PDT) . Posted by:
"aji mumpung"
maaf koreksi untuk bagian pertama,
1. yang tadi belum di tes jika data tidak ditemukan
2. sebelumnya penempatan msgbox kalo tidak ditemukan ada di dalam loop <
sudah diperbaiki di sini >
## semoga moderator bersedia menghapus postingan saya sebelumnya,
menghindari kerugian waktu user yang mencoba file tersebut karena harus
menekan tombol OK berkali-kali sebelum bisa keluar dari Loop ##
3. sebelumnya pengecekan terbalik antara kode stok dengan kode gudang,
harusnya kode stok dgn stok & kode gudang dgn gudang
revisi untuk bagian pertama yang ditulis dimodule sbb:
Option Explicit
' ==========================================
' code by : Aji Mumpung
' puncak Telomoyo, di samping menara Telkom
' 18 Oktober 2012
' ==========================================
Sub CariBerdasarkanKodeStokDanGudang()
' deklarasikan variabel yang dibutuhkan
' variable Header WareHouse bertipe range
Dim hdWH As Range
' variabel untuk menyimpan data seluruh WareHouse, bertipe range
Dim rgWH As Range
' variabel untuk setiap cell yang berisi data WareHouse, bertipe range
Dim cWH As Range
' variabel kode stok yang ditanyakan, bertipe range
Dim codeStock As Range
' variabel kode waregouse yang ditanyakan, bertipe range
Dim codeWH As Range
' non aktif-kan screen update
Application.ScreenUpdating = False
' hapus dahulu semua data di sheet "Search" range c5 sampai c13
Sheet2.Range("c5:c13").ClearContents
' tentukan nilai kode stok yang ditanyakan
' berada di sheet "search", nomer index sheetnya 2
' untuk setiap cell yang di-merge nilainya berada di paling kiri atas
Set codeStock = Sheet2.Range("f2")
' tentukan nilai kode warehouse yang ditanyakan
Set codeWH = Sheet2.Range("f3")
' tentukan posisi header warehouse
' nomor index sheet "Raw Data" adalah 1 dan berada di cell a7
Set hdWH = Sheet1.Range("a7")
' range data yang berisi kode wh adalah 1 baris di bawah header wh
' sampai dengan baris yang paling akhir
' dari header turun 1 baris , dari header turun ke bawah sampai baris
terakhir yang berisi data
' tidak boleh ada baris kosong antar data
Set rgWH = Range(hdWH.Offset(1, 0), hdWH.End(xlDown))
' cek untuk setiap cell dalam range warehouse
For Each cWH In rgWH
' cek apakah kode wh ini sama dengan kode wh di sheet "search"
If cWH.Value = codeWH Then
' jika sama, coba cek juga apakah kode stok sama dengan yang
ditanyakan
' posisi kode stok ada di 1 kolom sebelah kanan kode warehouse
If cWH.Offset(0, 1).Value = codeStock Then
' jika kode stoknya juga sama, maka copy data di sheet "raw
data" ke sheet "search"
' sesuaikan dengan posisi masing-masing data
' pada sheet2
With Sheet2
Range("c5").Value = cWH.Offset(0, 1).Value
Range("c5").NumberFormat = "000"
Range("c6").Value = cWH.Offset(0, 2).Value
Range("c7").Value = cWH.Offset(0, 3).Value
Range("c8").Value = cWH.Offset(0, 4).Value
Range("c9").Value = cWH.Offset(0, 9).Value
Range("c10").Value = cWH.Offset(0, 10).Value
Range("c11").Value = cWH.Offset(0, 7).Value
Range("c12").Value = cWH.Offset(0, 8).Value
Range("c13").Value = cWH.Offset(0, 6).Value
Range("c5:c13").HorizontalAlignment = xlLeft
' aktifkan kembali screen update
Application.ScreenUpdating = True
' tampilkan pesan bahwa data ditemukan dan sudah
ditampilkan
MsgBox "Data ditemukan", vbOKOnly, "Hasil Pencarian"
' kalo sudah keluar dari prosedur
' data berikutnya sudah tidak perlu di cek lagi
Exit Sub
End With
' akhir dari logika
End If
' akhir dari logika
End If
' cek kode warehouse selanjutnya
Next cWH
' jika sampai ke bagian ini berarti tidak ada data yang ditemukan
' aktifkan kembali screen update
Application.ScreenUpdating = True
' tampilkan pesan bahwa tidak ada data sama yang ditemukan
MsgBox "Data tidak ditemukan", vbCritical, "Peringatan"
' akhir dari prosedur
End Sub
file revisi terlampir
wassalam,
-aji mumpung-
Pada 18 Oktober 2012 20:31, aji mumpung <pupung1986@gmail.com > menulis:
> pak yudi,
>
> coba code berikut:
>
> =================================
> Bagian Pertama ditulis di sebuah module
> =================================
>
> Option Explicit
> ' ==========================================
> ' code by : Aji Mumpung
> ' puncak Telomoyo, di samping menara Telkom
> ' 18 Oktober 2012
> ' ==========================================
> Sub CariBerdasarkanKodeStokDanGudang()
> ' deklarasikan variabel yang dibutuhkan
> ' variable Header WareHouse bertipe range
> Dim hdWH As Range
> ' variabel untuk menyimpan data seluruh WareHouse, bertipe range
> Dim rgWH As Range
> ' variabel untuk setiap cell yang berisi data WareHouse, bertipe range
> Dim cWH As Range
> ' variabel kode stok yang ditanyakan, bertipe range
> Dim codeStock As Range
> ' variabel kode waregouse yang ditanyakan, bertipe range
> Dim codeWH As Range
>
> ' non aktif-kan screen update
> Application.ScreenUpdating = False
> ' hapus dahulu semua data di sheet "Search" range c5 sampai c13
> Sheet2.Range("c5:c13").ClearContents
>
> ' tentukan nilai kode stok yang ditanyakan
> ' berada di sheet "search", nomer index sheetnya 2
> ' untuk setiap cell yang di-merge nilainya berada di paling kiri atas
> Set codeStock = Sheet2.Range("f2")
> ' tentukan nilai kode warehouse yang ditanyakan
> Set codeWH = Sheet2.Range("f3")
> ' tentukan posisi header warehouse
> ' nomor index sheet "Raw Data" adalah 1 dan berada di cell a7
> Set hdWH = Sheet1.Range("a7")
> ' range data yang berisi kode wh adalah 1 baris di bawah header wh
> ' sampai dengan baris yang paling akhir
> ' dari header turun 1 baris , dari header turun ke bawah sampai baris
> terakhir yang berisi data
> ' tidak boleh ada baris kosong antar data
> Set rgWH = Range(hdWH.Offset(1, 0), hdWH.End(xlDown))
> ' cek untuk setiap cell dalam range warehouse
> For Each cWH In rgWH
> ' cek apakah kode wh ini sama dengan kode wh di sheet "search"
> If cWH.Value = codeStock Then
> ' jika sama, coba cek juga apakah kode stok sama dengan yang
> ditanyakan
> ' posisi kode stok ada di 1 kolom sebelah kanan kode warehouse
> If cWH.Offset(0, 1).Value = codeWH Then
> ' jika kode stoknya juga sama, maka copy data di sheet
> "raw data" ke sheet "search"
> ' sesuaikan dengan posisi masing-masing data
> ' pada sheet2
> With Sheet2
> Range("c5").Value = cWH.Offset(0, 1).Value
> Range("c5").NumberFormat = "000"
> Range("c6").Value = cWH.Offset(0, 2).Value
> Range("c7").Value = cWH.Offset(0, 3).Value
> Range("c8").Value = cWH.Offset(0, 4).Value
> Range("c9").Value = cWH.Offset(0, 9).Value
> Range("c10").Value = cWH.Offset(0, 10).Value
> Range("c11").Value = cWH.Offset(0, 7).Value
> Range("c12").Value = cWH.Offset(0, 8).Value
> Range("c13").Value = cWH.Offset(0, 6).Value
> Range("c5:c13").HorizontalAlignment = xlLeft
> ' aktifkan kembali screen update
> Application.ScreenUpdating = True
> ' tampilkan pesan bahwa data ditemukan dan sudah
> ditampilkan
> MsgBox "Data ditemukan", vbOKOnly, "Hasil Pencarian"
> ' kalo sudah keluar dari prosedur
> ' data berikutnya sudah tidak perlu di cek lagi
> Exit Sub
> End With
> ' akhir dari logika
> End If
> ' selain itu
> Else
> ' tampilkan pesan bahwa tidak ada data sama yang ditemukan
> MsgBox "Data tidak ditemukan", vbCritical, "Peringatan"
> ' akhir dari logika
> End If
> ' cek kode warehouse selanjutnya
> Next cWH
> ' aktifkan kembali screen update
> Application.ScreenUpdating = True
> ' akhir dari prosedur
> End Sub
>
> =================================
> Bagian kedua ditulis di command botton
> =================================
>
> Option Explicit
>
> Private Sub CommandButton1_Click()
> ' panggil prosedur yang tadi ditulis di sebuah modul
> Call CariBerdasarkanKodeStokDanGudang
> End Sub
>
> file terlampir
>
> wassalam,
>
> -aji mumpung-
>
> Pada 18 Oktober 2012 17:12, Yudi Dwiyono <yudi_dwiyono@yahoo.com > menulis:
>
> **
>>
>>
>> Dear Master excel,
>>
>> Mohon bantu untuk file terlampir , bagaimana caranya agar ketika input
>> stock code dan warehouse code akan menghasilkan data terlampir dan
>> kemungkinan row pada raw data akan bertambah setiap harinya bahkan pada
>> titik maksimal.
>> Thanks.
>>
>> Regards,
>> Yud
>>
>>
>>
>
>
1. yang tadi belum di tes jika data tidak ditemukan
2. sebelumnya penempatan msgbox kalo tidak ditemukan ada di dalam loop <
sudah diperbaiki di sini >
## semoga moderator bersedia menghapus postingan saya sebelumnya,
menghindari kerugian waktu user yang mencoba file tersebut karena harus
menekan tombol OK berkali-kali sebelum bisa keluar dari Loop ##
3. sebelumnya pengecekan terbalik antara kode stok dengan kode gudang,
harusnya kode stok dgn stok & kode gudang dgn gudang
revisi untuk bagian pertama yang ditulis dimodule sbb:
Option Explicit
' ============
' code by : Aji Mumpung
' puncak Telomoyo, di samping menara Telkom
' 18 Oktober 2012
' ============
Sub CariBerdasarkanKode
' deklarasikan variabel yang dibutuhkan
' variable Header WareHouse bertipe range
Dim hdWH As Range
' variabel untuk menyimpan data seluruh WareHouse, bertipe range
Dim rgWH As Range
' variabel untuk setiap cell yang berisi data WareHouse, bertipe range
Dim cWH As Range
' variabel kode stok yang ditanyakan, bertipe range
Dim codeStock As Range
' variabel kode waregouse yang ditanyakan, bertipe range
Dim codeWH As Range
' non aktif-kan screen update
Application.
' hapus dahulu semua data di sheet "Search" range c5 sampai c13
Sheet2.Range(
' tentukan nilai kode stok yang ditanyakan
' berada di sheet "search", nomer index sheetnya 2
' untuk setiap cell yang di-merge nilainya berada di paling kiri atas
Set codeStock = Sheet2.Range(
' tentukan nilai kode warehouse yang ditanyakan
Set codeWH = Sheet2.Range(
' tentukan posisi header warehouse
' nomor index sheet "Raw Data" adalah 1 dan berada di cell a7
Set hdWH = Sheet1.Range(
' range data yang berisi kode wh adalah 1 baris di bawah header wh
' sampai dengan baris yang paling akhir
' dari header turun 1 baris , dari header turun ke bawah sampai baris
terakhir yang berisi data
' tidak boleh ada baris kosong antar data
Set rgWH = Range(hdWH.Offset(
' cek untuk setiap cell dalam range warehouse
For Each cWH In rgWH
' cek apakah kode wh ini sama dengan kode wh di sheet "search"
If cWH.Value = codeWH Then
' jika sama, coba cek juga apakah kode stok sama dengan yang
ditanyakan
' posisi kode stok ada di 1 kolom sebelah kanan kode warehouse
If cWH.Offset(0, 1).Value = codeStock Then
' jika kode stoknya juga sama, maka copy data di sheet "raw
data" ke sheet "search"
' sesuaikan dengan posisi masing-masing data
' pada sheet2
With Sheet2
Range("c5").
Range("c5").
Range("c6").
Range("c7").
Range("c8").
Range("c9").
Range("c10")
Range("c11")
Range("c12")
Range("c13")
Range("c5:c13"
' aktifkan kembali screen update
Application.
' tampilkan pesan bahwa data ditemukan dan sudah
ditampilkan
MsgBox "Data ditemukan", vbOKOnly, "Hasil Pencarian"
' kalo sudah keluar dari prosedur
' data berikutnya sudah tidak perlu di cek lagi
Exit Sub
End With
' akhir dari logika
End If
' akhir dari logika
End If
' cek kode warehouse selanjutnya
Next cWH
' jika sampai ke bagian ini berarti tidak ada data yang ditemukan
' aktifkan kembali screen update
Application.
' tampilkan pesan bahwa tidak ada data sama yang ditemukan
MsgBox "Data tidak ditemukan", vbCritical, "Peringatan"
' akhir dari prosedur
End Sub
file revisi terlampir
wassalam,
-aji mumpung-
Pada 18 Oktober 2012 20:31, aji mumpung <pupung1986@gmail.
> pak yudi,
>
> coba code berikut:
>
> ============
> Bagian Pertama ditulis di sebuah module
> ============
>
> Option Explicit
> ' ============
> ' code by : Aji Mumpung
> ' puncak Telomoyo, di samping menara Telkom
> ' 18 Oktober 2012
> ' ============
> Sub CariBerdasarkanKode
> ' deklarasikan variabel yang dibutuhkan
> ' variable Header WareHouse bertipe range
> Dim hdWH As Range
> ' variabel untuk menyimpan data seluruh WareHouse, bertipe range
> Dim rgWH As Range
> ' variabel untuk setiap cell yang berisi data WareHouse, bertipe range
> Dim cWH As Range
> ' variabel kode stok yang ditanyakan, bertipe range
> Dim codeStock As Range
> ' variabel kode waregouse yang ditanyakan, bertipe range
> Dim codeWH As Range
>
> ' non aktif-kan screen update
> Application.
> ' hapus dahulu semua data di sheet "Search" range c5 sampai c13
> Sheet2.Range(
>
> ' tentukan nilai kode stok yang ditanyakan
> ' berada di sheet "search", nomer index sheetnya 2
> ' untuk setiap cell yang di-merge nilainya berada di paling kiri atas
> Set codeStock = Sheet2.Range(
> ' tentukan nilai kode warehouse yang ditanyakan
> Set codeWH = Sheet2.Range(
> ' tentukan posisi header warehouse
> ' nomor index sheet "Raw Data" adalah 1 dan berada di cell a7
> Set hdWH = Sheet1.Range(
> ' range data yang berisi kode wh adalah 1 baris di bawah header wh
> ' sampai dengan baris yang paling akhir
> ' dari header turun 1 baris , dari header turun ke bawah sampai baris
> terakhir yang berisi data
> ' tidak boleh ada baris kosong antar data
> Set rgWH = Range(hdWH.Offset(
> ' cek untuk setiap cell dalam range warehouse
> For Each cWH In rgWH
> ' cek apakah kode wh ini sama dengan kode wh di sheet "search"
> If cWH.Value = codeStock Then
> ' jika sama, coba cek juga apakah kode stok sama dengan yang
> ditanyakan
> ' posisi kode stok ada di 1 kolom sebelah kanan kode warehouse
> If cWH.Offset(0, 1).Value = codeWH Then
> ' jika kode stoknya juga sama, maka copy data di sheet
> "raw data" ke sheet "search"
> ' sesuaikan dengan posisi masing-masing data
> ' pada sheet2
> With Sheet2
> Range("c5").
> Range("c5").
> Range("c6").
> Range("c7").
> Range("c8").
> Range("c9").
> Range("c10")
> Range("c11")
> Range("c12")
> Range("c13")
> Range("c5:c13"
> ' aktifkan kembali screen update
> Application.
> ' tampilkan pesan bahwa data ditemukan dan sudah
> ditampilkan
> MsgBox "Data ditemukan", vbOKOnly, "Hasil Pencarian"
> ' kalo sudah keluar dari prosedur
> ' data berikutnya sudah tidak perlu di cek lagi
> Exit Sub
> End With
> ' akhir dari logika
> End If
> ' selain itu
> Else
> ' tampilkan pesan bahwa tidak ada data sama yang ditemukan
> MsgBox "Data tidak ditemukan", vbCritical, "Peringatan"
> ' akhir dari logika
> End If
> ' cek kode warehouse selanjutnya
> Next cWH
> ' aktifkan kembali screen update
> Application.
> ' akhir dari prosedur
> End Sub
>
> ============
> Bagian kedua ditulis di command botton
> ============
>
> Option Explicit
>
> Private Sub CommandButton1_
> ' panggil prosedur yang tadi ditulis di sebuah modul
> Call CariBerdasarkanKode
> End Sub
>
> file terlampir
>
> wassalam,
>
> -aji mumpung-
>
> Pada 18 Oktober 2012 17:12, Yudi Dwiyono <yudi_dwiyono@
>
> **
>>
>>
>> Dear Master excel,
>>
>> Mohon bantu untuk file terlampir , bagaimana caranya agar ketika input
>> stock code dan warehouse code akan menghasilkan data terlampir dan
>> kemungkinan row pada raw data akan bertambah setiap harinya bahkan pada
>> titik maksimal.
>> Thanks.
>>
>> Regards,
>> Yud
>>
>>
>>
>
>
Thu Oct 18, 2012 4:21 am (PDT) . Posted by:
"ngademin Thohari" ngademinth
mr. kid
setelah saya coba file proses jadi lama, terjadi proses : Processing: 2 processor(persentagenya berjalan) sekitar 10 detik untuk entry datanya
adakah yang salah dengan proses saya
terimakasih
amin
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 18 Oktober 2012 12:58
Judul: Re: [belajar-excel] trial material substore gudang
Coba :
1. UnProtect dulu sheetnya
2. Sebelum baris berbunyi :
With Target
tambahkan baris berikut ini :
activesheet.protect "ganti yang merah ini dengan passwordnya", userinterfaceonly:=true
Wassalam,
Kid.
2012/10/18 ngademin Thohari <ngademinth@yahoo.co.id >
>
>be-exceller, mr. kid
>
>
>Saya coba hanya dengan membatasi kolom B,C,D dengan protect sheet tapi ada muncul error
>
>
>.offset(0, 3).Value = Now
>
>
>mohon
>supportnya
>
>
>
>
>amin
>
>________________________________
> Dari: Mr. Kid <mr.nmkid@gmail.com >
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Kamis, 18 Oktober 2012 8:25
>
>Judul: Re: [belajar-excel] trial material substore gudang
>
>
>
>
>Biasanya dengan VBA memanfaatkan event change pada worksheet.
>Private Sub Worksheet_Change(ByVal Target As Range)
> With Target
> If .Count = 1 Then
> If .Column = 1 Then
> If .Row > 1 Then
> .Offset(0, 3).Value = Now
> End If
> End If
> End If
> End With
>End Sub
>
>Wassalam,
>Kid.
>
>
>2012/10/18 ngademin Thohari <ngademinth@yahoo.co.id >
>
>
>>
>>be-exceller
>>
>>dengan tidak mengurangi rasa hormat, yang saya maksud kan otomatis mengisi tanggal dan jam pada waktu kolom A diisi dan tanggal dan jam akan diisi dikolom G
>>
>>
>>Terimakasih atas supportnya
>>
>>
>>
>>
>>amin
>>
>>
>>
>>
>>
>>________________________________
>> Dari: Bagus <bagus@kingjim.co.id >
>>Kepada: belajar-excel@yahoogroups.com
>>Dikirim: Kamis, 18 Oktober 2012 7:38
>>
>>Judul: Re: [belajar-excel] trial material substore gudang
>>
>>
>>
>>
>>Pak Amin,
>>
>>File terlampir ada penambahan jam & jam
Input.
>>semoga sesuai yg dimaksud
>>
>>
>>Bagus
>>
>>
>>----- Original Message -----
>>>From: ngademin Thohari
>>>To: belajar-excel@yahoogroups.com
>>>Sent: Wednesday, October 17, 2012 4:20 PM
>>>Subject: Bls: [belajar-excel] trial material substore gudang
>>>
>>>
>>>Pak bagus,
>>>
>>>
>>>caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
>>>
>>>
>>>terima kasih
>>>
>>>
>>>Dwi Amin
>>>
>>>
>>>
>>>________________________________
>>> Dari: Bagus <bagus@kingjim.co.id >
>>>Kepada: belajar-excel@yahoogroups.com
>>>Dikirim: Rabu, 17 Oktober 2012 14:05
>>>Judul: Re: [belajar-excel] trial material substore gudang
>>>
>>>
>>>
>>>Dear Pak Thoha;
>>>
>>>Apakah seperti file terlampir..?
>>>
>>>
>>>Bagus
>>>
>>>
>>>----- Original Message -----
>>>>From: ngademin Thohari
>>>>To: belajar-excel@yahoogroups.com
>>>>Sent: Monday, October 15, 2012 6:21 PM
>>>>Subject: [belajar-excel] trial material substore gudang
>>>>
>>>>
>>>>be-exceller
>>>>
>>>>
>>>>saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen ditempat saya ada beberapa, jadi mohon penjelantahannya
>>>>
>>>>
>>>>
>>>>
>>>>Terima kasih atas dukungannya
>>>>
>>>>
>>>>
>>>>
>>>>amin
>>>
>>>
>>
>>
>
>
>
setelah saya coba file proses jadi lama, terjadi proses : Processing: 2 processor(persentag
adakah yang salah dengan proses saya
terimakasih
amin
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Kamis, 18 Oktober 2012 12:58
Judul: Re: [belajar-excel] trial material substore gudang
Coba :
1. UnProtect dulu sheetnya
2. Sebelum baris berbunyi :
With Target
tambahkan baris berikut ini :
activesheet.
Wassalam,
Kid.
2012/10/18 ngademin Thohari <ngademinth@yahoo.
>
>be-exceller, mr. kid
>
>
>Saya coba hanya dengan membatasi kolom B,C,D dengan protect sheet tapi ada muncul error
>
>
>.offset(0, 3).Value = Now
>
>
>mohon
>supportnya
>
>
>
>
>amin
>
>___________
> Dari: Mr. Kid <mr.nmkid@gmail.
>Kepada: belajar-excel@
>Dikirim: Kamis, 18 Oktober 2012 8:25
>
>Judul: Re: [belajar-excel] trial material substore gudang
>
>
>
>
>Biasanya dengan VBA memanfaatkan event change pada worksheet.
>Private Sub Worksheet_Change(
> With Target
> If .Count = 1 Then
> If .Column = 1 Then
> If .Row > 1 Then
> .Offset(0, 3).Value = Now
> End If
> End If
> End If
> End With
>End Sub
>
>Wassalam,
>Kid.
>
>
>2012/10/18 ngademin Thohari <ngademinth@yahoo.
>
>
>>
>>be-exceller
>>
>>dengan tidak mengurangi rasa hormat, yang saya maksud kan otomatis mengisi tanggal dan jam pada waktu kolom A diisi dan tanggal dan jam akan diisi dikolom G
>>
>>
>>Terimakasih atas supportnya
>>
>>
>>
>>
>>amin
>>
>>
>>
>>
>>
>>__________
>> Dari: Bagus <bagus@kingjim.
>>Kepada: belajar-excel@
>>Dikirim: Kamis, 18 Oktober 2012 7:38
>>
>>Judul: Re: [belajar-excel] trial material substore gudang
>>
>>
>>
>>
>>Pak Amin,
>>
>>File terlampir ada penambahan jam & jam
Input.
>>semoga sesuai yg dimaksud
>>
>>
>>Bagus
>>
>>
>>----- Original Message -----
>>>From: ngademin Thohari
>>>To: belajar-excel@
>>>Sent: Wednesday, October 17, 2012 4:20 PM
>>>Subject: Bls: [belajar-excel] trial material substore gudang
>>>
>>>
>>>Pak bagus,
>>>
>>>
>>>caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
>>>
>>>
>>>terima kasih
>>>
>>>
>>>Dwi Amin
>>>
>>>
>>>
>>>_________
>>> Dari: Bagus <bagus@kingjim.
>>>Kepada: belajar-excel@
>>>Dikirim: Rabu, 17 Oktober 2012 14:05
>>>Judul: Re: [belajar-excel] trial material substore gudang
>>>
>>>
>>>
>>>Dear Pak Thoha;
>>>
>>>Apakah seperti file terlampir..?
>>>
>>>
>>>Bagus
>>>
>>>
>>>----- Original Message -----
>>>>From: ngademin Thohari
>>>>To: belajar-excel@
>>>>Sent: Monday, October 15, 2012 6:21 PM
>>>>Subject: [belajar-excel] trial material substore gudang
>>>>
>>>>
>>>>be-exceller
>>>>
>>>>
>>>>saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen ditempat saya ada beberapa, jadi mohon penjelantahannya
>>>>
>>>>
>>>>
>>>>
>>>>Terima kasih atas dukungannya
>>>>
>>>>
>>>>
>>>>
>>>>amin
>>>
>>>
>>
>>
>
>
>
Thu Oct 18, 2012 4:29 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Lampirkan saja filenya. Kompresi dan kurangi sizenya. Beri keterangan jelas
jumlah datanya. Sertai nama-nama fungsi yg digunakan.
Wassalam,
Kid
On Oct 18, 2012 6:22 PM, "ngademin Thohari" <ngademinth@yahoo.co.id > wrote:
> **
>
>
> mr. kid
>
> setelah saya coba file proses jadi lama, terjadi proses : Processing: 2
> processor(persentagenya berjalan) sekitar 10 detik untuk entry datanya
>
> adakah yang salah dengan proses saya
>
>
> terimakasih
>
> amin
>
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 18 Oktober 2012 12:58
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
> Coba :
> 1. UnProtect dulu sheetnya
> 2. Sebelum baris berbunyi :
> With Target
> tambahkan baris berikut ini :
> activesheet.protect "ganti yang merah ini dengan passwordnya",
> userinterfaceonly:=true
>
> Wassalam,
> Kid.
>
> 2012/10/18 ngademin Thohari <ngademinth@yahoo.co.id >
>
> **
>
> be-exceller, mr. kid
>
> Saya coba hanya dengan membatasi kolom B,C,D dengan protect sheet tapi ada
> muncul error
>
> .offset(0, 3).Value = Now
>
> mohon
> supportnya
>
>
> amin
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 18 Oktober 2012 8:25
>
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
> Biasanya dengan VBA memanfaatkan event change pada worksheet.
> Private Sub Worksheet_Change(ByVal Target As Range)
> With Target
> If .Count = 1 Then
> If .Column = 1 Then
> If .Row > 1 Then
> .Offset(0, 3).Value = Now
> End If
> End If
> End If
> End With
> End Sub
>
> Wassalam,
> Kid.
>
> 2012/10/18 ngademin Thohari <ngademinth@yahoo.co.id >
>
> **
>
> be-exceller
>
> dengan tidak mengurangi rasa hormat, yang saya maksud kan otomatis mengisi
> tanggal dan jam pada waktu kolom A diisi dan tanggal dan jam akan diisi
> dikolom G
>
> Terimakasih atas supportnya
>
>
> amin
>
>
> ------------------------------
> *Dari:* Bagus <bagus@kingjim.co.id >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 18 Oktober 2012 7:38
>
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
> Pak Amin,
>
> File terlampir ada penambahan jam & jam Input.
> semoga sesuai yg dimaksud
>
>
> Bagus
>
>
>
> ----- Original Message -----
> *From:* ngademin Thohari <ngademinth@yahoo.co.id >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, October 17, 2012 4:20 PM
> *Subject:* Bls: [belajar-excel] trial material substore gudang
>
>
> Pak bagus,
>
> caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
>
> terima kasih
>
> Dwi Amin
>
> ------------------------------
> *Dari:* Bagus <bagus@kingjim.co.id >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 17 Oktober 2012 14:05
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
> Dear Pak Thoha;
>
> Apakah seperti file terlampir..?
>
>
> Bagus
>
>
>
> ----- Original Message -----
> *From:* ngademin Thohari <ngademinth@yahoo.co.id >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, October 15, 2012 6:21 PM
> *Subject:* [belajar-excel] trial material substore gudang
>
>
> be-exceller
>
> saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai
> dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen
> ditempat saya ada beberapa, jadi mohon penjelantahannya
>
>
> Terima kasih atas dukungannya
>
>
> amin
>
>
>
>
>
>
>
>
>
>
>
>
>
jumlah datanya. Sertai nama-nama fungsi yg digunakan.
Wassalam,
Kid
On Oct 18, 2012 6:22 PM, "ngademin Thohari" <ngademinth@yahoo.
> **
>
>
> mr. kid
>
> setelah saya coba file proses jadi lama, terjadi proses : Processing: 2
> processor(persentag
>
> adakah yang salah dengan proses saya
>
>
> terimakasih
>
> amin
>
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 18 Oktober 2012 12:58
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
> Coba :
> 1. UnProtect dulu sheetnya
> 2. Sebelum baris berbunyi :
> With Target
> tambahkan baris berikut ini :
> activesheet.
> userinterfaceonly:
>
> Wassalam,
> Kid.
>
> 2012/10/18 ngademin Thohari <ngademinth@yahoo.
>
> **
>
> be-exceller, mr. kid
>
> Saya coba hanya dengan membatasi kolom B,C,D dengan protect sheet tapi ada
> muncul error
>
> .offset(0, 3).Value = Now
>
> mohon
> supportnya
>
>
> amin
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 18 Oktober 2012 8:25
>
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
> Biasanya dengan VBA memanfaatkan event change pada worksheet.
> Private Sub Worksheet_Change(
> With Target
> If .Count = 1 Then
> If .Column = 1 Then
> If .Row > 1 Then
> .Offset(0, 3).Value = Now
> End If
> End If
> End If
> End With
> End Sub
>
> Wassalam,
> Kid.
>
> 2012/10/18 ngademin Thohari <ngademinth@yahoo.
>
> **
>
> be-exceller
>
> dengan tidak mengurangi rasa hormat, yang saya maksud kan otomatis mengisi
> tanggal dan jam pada waktu kolom A diisi dan tanggal dan jam akan diisi
> dikolom G
>
> Terimakasih atas supportnya
>
>
> amin
>
>
> ------------
> *Dari:* Bagus <bagus@kingjim.
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 18 Oktober 2012 7:38
>
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
> Pak Amin,
>
> File terlampir ada penambahan jam & jam Input.
> semoga sesuai yg dimaksud
>
>
> Bagus
>
>
>
> ----- Original Message -----
> *From:* ngademin Thohari <ngademinth@yahoo.
> *To:* belajar-excel@
> *Sent:* Wednesday, October 17, 2012 4:20 PM
> *Subject:* Bls: [belajar-excel] trial material substore gudang
>
>
> Pak bagus,
>
> caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
>
> terima kasih
>
> Dwi Amin
>
> ------------
> *Dari:* Bagus <bagus@kingjim.
> *Kepada:* belajar-excel@
> *Dikirim:* Rabu, 17 Oktober 2012 14:05
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
> Dear Pak Thoha;
>
> Apakah seperti file terlampir..?
>
>
> Bagus
>
>
>
> ----- Original Message -----
> *From:* ngademin Thohari <ngademinth@yahoo.
> *To:* belajar-excel@
> *Sent:* Monday, October 15, 2012 6:21 PM
> *Subject:* [belajar-excel] trial material substore gudang
>
>
> be-exceller
>
> saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai
> dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen
> ditempat saya ada beberapa, jadi mohon penjelantahannya
>
>
> Terima kasih atas dukungannya
>
>
> amin
>
>
>
>
>
>
>
>
>
>
>
>
>
Thu Oct 18, 2012 4:41 am (PDT) . Posted by:
"ngademin Thohari" ngademinth
mr. kid
1. file sudah saya kompres dari 214kb ke 41kb
2. Jumlah data tiap hari akan bertambah tergantung dari jumlah material yang masuk saat ini datanya berkisar 204
3. fungsi yang digunaka hanya vlookup, penambahan dan pengurangan
terimakasih
amin
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 18 Oktober 2012 18:29
Judul: Re: Bls: [belajar-excel] trial material substore gudang
Lampirkan saja filenya. Kompresi dan kurangi sizenya. Beri keterangan jelas jumlah datanya. Sertai nama-nama fungsi yg digunakan.
Wassalam,
Kid
On Oct 18, 2012 6:22 PM, "ngademin Thohari" <ngademinth@yahoo.co.id > wrote:
>
>mr. kid
>
>
>setelah saya coba file proses jadi lama, terjadi proses : Processing: 2 processor(persentagenya berjalan) sekitar 10 detik untuk entry datanya
>
>
>adakah yang salah dengan proses saya
>
>
>
>
>terimakasih
>
>
>amin
>
>
>
>
>
>________________________________
> Dari: Mr. Kid <mr.nmkid@gmail.com >
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Kamis, 18 Oktober 2012 12:58
>Judul: Re: [belajar-excel] trial material substore gudang
>
>
>
>Coba :
>1. UnProtect dulu sheetnya
>2. Sebelum baris berbunyi :
>With Target
>tambahkan baris berikut ini :
>activesheet.protect "ganti yang merah ini dengan passwordnya", userinterfaceonly:=true
>
>Wassalam,
>Kid.
>
>
>2012/10/18 ngademin Thohari <ngademinth@yahoo.co.id >
>
>
>>
>>be-exceller, mr. kid
>>
>>
>>Saya coba hanya dengan membatasi kolom B,C,D dengan protect sheet tapi ada muncul error
>>
>>
>>.offset(0, 3).Value = Now
>>
>>
>>mohon
>>supportnya
>>
>>
>>
>>
>>amin
>>
>>________________________________
>> Dari: Mr. Kid <mr.nmkid@gmail.com >
>>Kepada: belajar-excel@yahoogroups.com
>>Dikirim: Kamis, 18 Oktober 2012 8:25
>>
>>Judul: Re: [belajar-excel] trial material substore gudang
>>
>>
>>
>>
>>Biasanya dengan VBA memanfaatkan event change pada worksheet.
>>Private Sub Worksheet_Change(ByVal Target As Range)
>> With Target
>> If .Count = 1 Then
>> If .Column = 1 Then
>> If .Row > 1 Then
>> .Offset(0, 3).Value = Now
>> End If
>> End If
>> End If
>> End With
>>End Sub
>>
>>Wassalam,
>>Kid.
>>
>>
>>2012/10/18 ngademin Thohari <ngademinth@yahoo.co.id >
>>
>>
>>>
>>>be-exceller
>>>
>>>dengan tidak mengurangi rasa hormat, yang saya maksud kan otomatis mengisi tanggal dan jam pada waktu kolom A diisi dan tanggal dan jam akan diisi dikolom G
>>>
>>>
>>>Terimakasih atas supportnya
>>>
>>>
>>>
>>>
>>>amin
>>>
>>>
>>>
>>>
>>>
>>>________________________________
>>> Dari: Bagus <bagus@kingjim.co.id >
>>>Kepada: belajar-excel@yahoogroups.com
>>>Dikirim: Kamis, 18 Oktober 2012 7:38
>>>
>>>Judul: Re: [belajar-excel] trial material substore gudang
>>>
>>>
>>>
>>>
>>>Pak Amin,
>>>
>>>File terlampir ada penambahan jam & jam
Input.
>>>semoga sesuai yg dimaksud
>>>
>>>
>>>Bagus
>>>
>>>
>>>----- Original Message -----
>>>>From: ngademin Thohari
>>>>To: belajar-excel@yahoogroups.com
>>>>Sent: Wednesday, October 17, 2012 4:20 PM
>>>>Subject: Bls: [belajar-excel] trial material substore gudang
>>>>
>>>>
>>>>Pak bagus,
>>>>
>>>>
>>>>caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
>>>>
>>>>
>>>>terima kasih
>>>>
>>>>
>>>>Dwi Amin
>>>>
>>>>
>>>>
>>>>________________________________
>>>> Dari: Bagus <bagus@kingjim.co.id >
>>>>Kepada: belajar-excel@yahoogroups.com
>>>>Dikirim: Rabu, 17 Oktober 2012 14:05
>>>>Judul: Re: [belajar-excel] trial material substore gudang
>>>>
>>>>
>>>>
>>>>Dear Pak Thoha;
>>>>
>>>>Apakah seperti file terlampir..?
>>>>
>>>>
>>>>Bagus
>>>>
>>>>
>>>>----- Original Message -----
>>>>>From: ngademin Thohari
>>>>>To: belajar-excel@yahoogroups.com
>>>>>Sent: Monday, October 15, 2012 6:21 PM
>>>>>Subject: [belajar-excel] trial material substore gudang
>>>>>
>>>>>
>>>>>be-exceller
>>>>>
>>>>>
>>>>>saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen ditempat saya ada beberapa, jadi mohon penjelantahannya
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>Terima kasih atas dukungannya
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>amin
>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>
>
1. file sudah saya kompres dari 214kb ke 41kb
2. Jumlah data tiap hari akan bertambah tergantung dari jumlah material yang masuk saat ini datanya berkisar 204
3. fungsi yang digunaka hanya vlookup, penambahan dan pengurangan
terimakasih
amin
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Kamis, 18 Oktober 2012 18:29
Judul: Re: Bls: [belajar-excel] trial material substore gudang
Lampirkan saja filenya. Kompresi dan kurangi sizenya. Beri keterangan jelas jumlah datanya. Sertai nama-nama fungsi yg digunakan.
Wassalam,
Kid
On Oct 18, 2012 6:22 PM, "ngademin Thohari" <ngademinth@yahoo.
>
>mr. kid
>
>
>setelah saya coba file proses jadi lama, terjadi proses : Processing: 2 processor(persentag
>
>
>adakah yang salah dengan proses saya
>
>
>
>
>terimakasih
>
>
>amin
>
>
>
>
>
>___________
> Dari: Mr. Kid <mr.nmkid@gmail.
>Kepada: belajar-excel@
>Dikirim: Kamis, 18 Oktober 2012 12:58
>Judul: Re: [belajar-excel] trial material substore gudang
>
>
>
>Coba :
>1. UnProtect dulu sheetnya
>2. Sebelum baris berbunyi :
>With Target
>tambahkan baris berikut ini :
>activesheet.
>
>Wassalam,
>Kid.
>
>
>2012/10/18 ngademin Thohari <ngademinth@yahoo.
>
>
>>
>>be-exceller, mr. kid
>>
>>
>>Saya coba hanya dengan membatasi kolom B,C,D dengan protect sheet tapi ada muncul error
>>
>>
>>.offset(0, 3).Value = Now
>>
>>
>>mohon
>>supportnya
>>
>>
>>
>>
>>amin
>>
>>__________
>> Dari: Mr. Kid <mr.nmkid@gmail.
>>Kepada: belajar-excel@
>>Dikirim: Kamis, 18 Oktober 2012 8:25
>>
>>Judul: Re: [belajar-excel] trial material substore gudang
>>
>>
>>
>>
>>Biasanya dengan VBA memanfaatkan event change pada worksheet.
>>Private Sub Worksheet_Change(
>> With Target
>> If .Count = 1 Then
>> If .Column = 1 Then
>> If .Row > 1 Then
>> .Offset(0, 3).Value = Now
>> End If
>> End If
>> End If
>> End With
>>End Sub
>>
>>Wassalam,
>>Kid.
>>
>>
>>2012/10/18 ngademin Thohari <ngademinth@yahoo.
>>
>>
>>>
>>>be-exceller
>>>
>>>dengan tidak mengurangi rasa hormat, yang saya maksud kan otomatis mengisi tanggal dan jam pada waktu kolom A diisi dan tanggal dan jam akan diisi dikolom G
>>>
>>>
>>>Terimakasih atas supportnya
>>>
>>>
>>>
>>>
>>>amin
>>>
>>>
>>>
>>>
>>>
>>>_________
>>> Dari: Bagus <bagus@kingjim.
>>>Kepada: belajar-excel@
>>>Dikirim: Kamis, 18 Oktober 2012 7:38
>>>
>>>Judul: Re: [belajar-excel] trial material substore gudang
>>>
>>>
>>>
>>>
>>>Pak Amin,
>>>
>>>File terlampir ada penambahan jam & jam
Input.
>>>semoga sesuai yg dimaksud
>>>
>>>
>>>Bagus
>>>
>>>
>>>----- Original Message -----
>>>>From: ngademin Thohari
>>>>To: belajar-excel@
>>>>Sent: Wednesday, October 17, 2012 4:20 PM
>>>>Subject: Bls: [belajar-excel] trial material substore gudang
>>>>
>>>>
>>>>Pak bagus,
>>>>
>>>>
>>>>caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
>>>>
>>>>
>>>>terima kasih
>>>>
>>>>
>>>>Dwi Amin
>>>>
>>>>
>>>>
>>>>________
>>>> Dari: Bagus <bagus@kingjim.
>>>>Kepada: belajar-excel@
>>>>Dikirim: Rabu, 17 Oktober 2012 14:05
>>>>Judul: Re: [belajar-excel] trial material substore gudang
>>>>
>>>>
>>>>
>>>>Dear Pak Thoha;
>>>>
>>>>Apakah seperti file terlampir..?
>>>>
>>>>
>>>>Bagus
>>>>
>>>>
>>>>----- Original Message -----
>>>>>From: ngademin Thohari
>>>>>To: belajar-excel@
>>>>>Sent: Monday, October 15, 2012 6:21 PM
>>>>>Subject: [belajar-excel] trial material substore gudang
>>>>>
>>>>>
>>>>>be-exceller
>>>>>
>>>>>
>>>>>saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen ditempat saya ada beberapa, jadi mohon penjelantahannya
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>Terima kasih atas dukungannya
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>amin
>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>
>
Thu Oct 18, 2012 4:42 am (PDT) . Posted by:
"ngademin Thohari" ngademinth
maaf attachment ketinggalan
amin
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 18 Oktober 2012 18:29
Judul: Re: Bls: [belajar-excel] trial material substore gudang
Lampirkan saja filenya. Kompresi dan kurangi sizenya. Beri keterangan jelas jumlah datanya. Sertai nama-nama fungsi yg digunakan.
Wassalam,
Kid
On Oct 18, 2012 6:22 PM, "ngademin Thohari" <ngademinth@yahoo.co.id > wrote:
>
>mr. kid
>
>
>setelah saya coba file proses jadi lama, terjadi proses : Processing: 2 processor(persentagenya berjalan) sekitar 10 detik untuk entry datanya
>
>
>adakah yang salah dengan proses saya
>
>
>
>
>terimakasih
>
>
>amin
>
>
>
>
>
>________________________________
> Dari: Mr. Kid <mr.nmkid@gmail.com >
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Kamis, 18 Oktober 2012 12:58
>Judul: Re: [belajar-excel] trial material substore gudang
>
>
>
>Coba :
>1. UnProtect dulu sheetnya
>2. Sebelum baris berbunyi :
>With Target
>tambahkan baris berikut ini :
>activesheet.protect "ganti yang merah ini dengan passwordnya", userinterfaceonly:=true
>
>Wassalam,
>Kid.
>
>
>2012/10/18 ngademin Thohari <ngademinth@yahoo.co.id >
>
>
>>
>>be-exceller, mr. kid
>>
>>
>>Saya coba hanya dengan membatasi kolom B,C,D dengan protect sheet tapi ada muncul error
>>
>>
>>.offset(0, 3).Value = Now
>>
>>
>>mohon
>>supportnya
>>
>>
>>
>>
>>amin
>>
>>________________________________
>> Dari: Mr. Kid <mr.nmkid@gmail.com >
>>Kepada: belajar-excel@yahoogroups.com
>>Dikirim: Kamis, 18 Oktober 2012 8:25
>>
>>Judul: Re: [belajar-excel] trial material substore gudang
>>
>>
>>
>>
>>Biasanya dengan VBA memanfaatkan event change pada worksheet.
>>Private Sub Worksheet_Change(ByVal Target As Range)
>> With Target
>> If .Count = 1 Then
>> If .Column = 1 Then
>> If .Row > 1 Then
>> .Offset(0, 3).Value = Now
>> End If
>> End If
>> End If
>> End With
>>End Sub
>>
>>Wassalam,
>>Kid.
>>
>>
>>2012/10/18 ngademin Thohari <ngademinth@yahoo.co.id >
>>
>>
>>>
>>>be-exceller
>>>
>>>dengan tidak mengurangi rasa hormat, yang saya maksud kan otomatis mengisi tanggal dan jam pada waktu kolom A diisi dan tanggal dan jam akan diisi dikolom G
>>>
>>>
>>>Terimakasih atas supportnya
>>>
>>>
>>>
>>>
>>>amin
>>>
>>>
>>>
>>>
>>>
>>>________________________________
>>> Dari: Bagus <bagus@kingjim.co.id >
>>>Kepada: belajar-excel@yahoogroups.com
>>>Dikirim: Kamis, 18 Oktober 2012 7:38
>>>
>>>Judul: Re: [belajar-excel] trial material substore gudang
>>>
>>>
>>>
>>>
>>>Pak Amin,
>>>
>>>File terlampir ada penambahan jam & jam
Input.
>>>semoga sesuai yg dimaksud
>>>
>>>
>>>Bagus
>>>
>>>
>>>----- Original Message -----
>>>>From: ngademin Thohari
>>>>To: belajar-excel@yahoogroups.com
>>>>Sent: Wednesday, October 17, 2012 4:20 PM
>>>>Subject: Bls: [belajar-excel] trial material substore gudang
>>>>
>>>>
>>>>Pak bagus,
>>>>
>>>>
>>>>caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
>>>>
>>>>
>>>>terima kasih
>>>>
>>>>
>>>>Dwi Amin
>>>>
>>>>
>>>>
>>>>________________________________
>>>> Dari: Bagus <bagus@kingjim.co.id >
>>>>Kepada: belajar-excel@yahoogroups.com
>>>>Dikirim: Rabu, 17 Oktober 2012 14:05
>>>>Judul: Re: [belajar-excel] trial material substore gudang
>>>>
>>>>
>>>>
>>>>Dear Pak Thoha;
>>>>
>>>>Apakah seperti file terlampir..?
>>>>
>>>>
>>>>Bagus
>>>>
>>>>
>>>>----- Original Message -----
>>>>>From: ngademin Thohari
>>>>>To: belajar-excel@yahoogroups.com
>>>>>Sent: Monday, October 15, 2012 6:21 PM
>>>>>Subject: [belajar-excel] trial material substore gudang
>>>>>
>>>>>
>>>>>be-exceller
>>>>>
>>>>>
>>>>>saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen ditempat saya ada beberapa, jadi mohon penjelantahannya
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>Terima kasih atas dukungannya
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>amin
>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>
>
amin
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Kamis, 18 Oktober 2012 18:29
Judul: Re: Bls: [belajar-excel] trial material substore gudang
Lampirkan saja filenya. Kompresi dan kurangi sizenya. Beri keterangan jelas jumlah datanya. Sertai nama-nama fungsi yg digunakan.
Wassalam,
Kid
On Oct 18, 2012 6:22 PM, "ngademin Thohari" <ngademinth@yahoo.
>
>mr. kid
>
>
>setelah saya coba file proses jadi lama, terjadi proses : Processing: 2 processor(persentag
>
>
>adakah yang salah dengan proses saya
>
>
>
>
>terimakasih
>
>
>amin
>
>
>
>
>
>___________
> Dari: Mr. Kid <mr.nmkid@gmail.
>Kepada: belajar-excel@
>Dikirim: Kamis, 18 Oktober 2012 12:58
>Judul: Re: [belajar-excel] trial material substore gudang
>
>
>
>Coba :
>1. UnProtect dulu sheetnya
>2. Sebelum baris berbunyi :
>With Target
>tambahkan baris berikut ini :
>activesheet.
>
>Wassalam,
>Kid.
>
>
>2012/10/18 ngademin Thohari <ngademinth@yahoo.
>
>
>>
>>be-exceller, mr. kid
>>
>>
>>Saya coba hanya dengan membatasi kolom B,C,D dengan protect sheet tapi ada muncul error
>>
>>
>>.offset(0, 3).Value = Now
>>
>>
>>mohon
>>supportnya
>>
>>
>>
>>
>>amin
>>
>>__________
>> Dari: Mr. Kid <mr.nmkid@gmail.
>>Kepada: belajar-excel@
>>Dikirim: Kamis, 18 Oktober 2012 8:25
>>
>>Judul: Re: [belajar-excel] trial material substore gudang
>>
>>
>>
>>
>>Biasanya dengan VBA memanfaatkan event change pada worksheet.
>>Private Sub Worksheet_Change(
>> With Target
>> If .Count = 1 Then
>> If .Column = 1 Then
>> If .Row > 1 Then
>> .Offset(0, 3).Value = Now
>> End If
>> End If
>> End If
>> End With
>>End Sub
>>
>>Wassalam,
>>Kid.
>>
>>
>>2012/10/18 ngademin Thohari <ngademinth@yahoo.
>>
>>
>>>
>>>be-exceller
>>>
>>>dengan tidak mengurangi rasa hormat, yang saya maksud kan otomatis mengisi tanggal dan jam pada waktu kolom A diisi dan tanggal dan jam akan diisi dikolom G
>>>
>>>
>>>Terimakasih atas supportnya
>>>
>>>
>>>
>>>
>>>amin
>>>
>>>
>>>
>>>
>>>
>>>_________
>>> Dari: Bagus <bagus@kingjim.
>>>Kepada: belajar-excel@
>>>Dikirim: Kamis, 18 Oktober 2012 7:38
>>>
>>>Judul: Re: [belajar-excel] trial material substore gudang
>>>
>>>
>>>
>>>
>>>Pak Amin,
>>>
>>>File terlampir ada penambahan jam & jam
Input.
>>>semoga sesuai yg dimaksud
>>>
>>>
>>>Bagus
>>>
>>>
>>>----- Original Message -----
>>>>From: ngademin Thohari
>>>>To: belajar-excel@
>>>>Sent: Wednesday, October 17, 2012 4:20 PM
>>>>Subject: Bls: [belajar-excel] trial material substore gudang
>>>>
>>>>
>>>>Pak bagus,
>>>>
>>>>
>>>>caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
>>>>
>>>>
>>>>terima kasih
>>>>
>>>>
>>>>Dwi Amin
>>>>
>>>>
>>>>
>>>>________
>>>> Dari: Bagus <bagus@kingjim.
>>>>Kepada: belajar-excel@
>>>>Dikirim: Rabu, 17 Oktober 2012 14:05
>>>>Judul: Re: [belajar-excel] trial material substore gudang
>>>>
>>>>
>>>>
>>>>Dear Pak Thoha;
>>>>
>>>>Apakah seperti file terlampir..?
>>>>
>>>>
>>>>Bagus
>>>>
>>>>
>>>>----- Original Message -----
>>>>>From: ngademin Thohari
>>>>>To: belajar-excel@
>>>>>Sent: Monday, October 15, 2012 6:21 PM
>>>>>Subject: [belajar-excel] trial material substore gudang
>>>>>
>>>>>
>>>>>be-exceller
>>>>>
>>>>>
>>>>>saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen ditempat saya ada beberapa, jadi mohon penjelantahannya
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>Terima kasih atas dukungannya
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>amin
>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>
>
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