5 Messages
Digest #4544
2a
Re: Use a formula to determine which cells to format [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
4a
Re: Fw: Re: [belajar-excel] Mohon Bantuan Pembuatan sourcecode vbexc by "Mr. Kid" nmkid.family@ymail.com
Messages
Sat Jul 14, 2018 8:10 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Dear BeExcel,
Beberapa waktu yang lalu ada member yang menanyakan mengenai topik tsb di atas, sayangnya emailnya tidak saya temukan lagi di Inbox email saya.
Pertanyaannya:Kalau di kolom B saya ketik "Bayar" maka di kolom C, D, E saya ketik angka langsung keluar angka negatif, jadi tanda "-" nya tidak perlu ditulis lagi.Tapi kalau saya ketik Faktur angkanya tetap positip (tidak ada tanda "-").
Kebetulan saya dapat jawabannya dengan memanfaatkan event WorkSheet_Change.Prosedurnya ditulis di Sheet1 dan sebagai berikut:
Private Sub Worksheet_Change(ByVal x As Range) Application..EnableEvents = False If x.Cells.Count = 1 Then If Not IsEmpty(x) Then If IsNumeric(x.Value) Then If x.Column = 3 Then If x..Offset(0, -1).Text = "Bayar" Then x = x * -1 End If End If End If End If End If Application.EnableEvents = TrueEnd Sub
Ini adalah modifikasi dari Macro (Prosedur) yang berasal dari milis ini juga (diketik angka hasilnya angka * 1000.
Salam,HK
Catatan:- "Bayar" tidak boleh diketik menggunakan huruf besar semua atau huruf kecil semua dan diketik sebelum mengetik angka pada kolom C.Kalau angka pada kolom C sdh diketik kemudian kata "Bayar" pada kolom B diganti menjadi "Faktur" maka angka pada kolom C tetap mempunyai tanda "-" (tidak terpengaruh oleh perubahan yang terakhir - krn Eventnya sudah berlalu).- Tanda pada kolom D dan E akan secara otomatis mengikuti tanda pada kolom C (Jika tanda pada kolom C "-" maka tanda pada kolom D dan E akan "-" juga.- File harus disimpan sebagai file yang mengandung Macro (.xls untuk Excel 2003, .xlsm atau .xlsb untuk Excel 2007 ke atas).
Beberapa waktu yang lalu ada member yang menanyakan mengenai topik tsb di atas, sayangnya emailnya tidak saya temukan lagi di Inbox email saya.
Pertanyaannya:
Kebetulan saya dapat jawabannya dengan memanfaatkan event WorkSheet_Change.
Private Sub Worksheet_Change(
Ini adalah modifikasi dari Macro (Prosedur) yang berasal dari milis ini juga (diketik angka hasilnya angka * 1000.
Salam,HK
Catatan:- "Bayar" tidak boleh diketik menggunakan huruf besar semua atau huruf kecil semua dan diketik sebelum mengetik angka pada kolom C.Kalau angka pada kolom C sdh diketik kemudian kata "Bayar" pada kolom B diganti menjadi "Faktur" maka angka pada kolom C tetap mempunyai tanda "-" (tidak terpengaruh oleh perubahan yang terakhir - krn Eventnya sudah berlalu).- Tanda pada kolom D dan E akan secara otomatis mengikuti tanda pada kolom C (Jika tanda pada kolom C "-" maka tanda pada kolom D dan E akan "-" juga.- File harus disimpan sebagai file yang mengandung Macro (.xls untuk Excel 2003, .xlsm atau .xlsb untuk Excel 2007 ke atas).
Sat Jul 14, 2018 8:14 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Maaf lampirannya ketinggalan.
----- Forwarded message ----- From: hendrik karnadi hendrikkarnadi@yahoo..com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Saturday, 14 July 2018, 10:10:42 PM GMT+7Subject: [belajar-excel] "Formula" for Conditional Formatting
Dear BeExcel,
Beberapa waktu yang lalu ada member yang menanyakan mengenai topik tsb di atas, sayangnya emailnya tidak saya temukan lagi di Inbox email saya.
Pertanyaannya:Kalau di kolom B saya ketik "Bayar" maka di kolom C, D, E saya ketik angka langsung keluar angka negatif, jadi tanda "-" nya tidak perlu ditulis lagi.Tapi kalau saya ketik Faktur angkanya tetap positip (tidak ada tanda "-").
Kebetulan saya dapat jawabannya dengan memanfaatkan event WorkSheet_Change.Prosedurnya ditulis di Sheet1 dan sebagai berikut:
Private Sub Worksheet_Change(ByVal x As Range) Application..EnableEvents = False If x.Cells.Count = 1 Then If Not IsEmpty(x) Then If IsNumeric(x.Value) Then If x.Column = 3 Then If x..Offset(0, -1).Text = "Bayar" Then x = x * -1 End If End If End If End If End If Application.EnableEvents = TrueEnd Sub
Ini adalah modifikasi dari Macro (Prosedur) yang berasal dari milis ini juga (diketik angka hasilnya angka * 1000.
Salam,HK
Catatan:- "Bayar" tidak boleh diketik menggunakan huruf besar semua atau huruf kecil semua dan diketik sebelum mengetik angka pada kolom C.Kalau angka pada kolom C sdh diketik kemudian kata "Bayar" pada kolom B diganti menjadi "Faktur" maka angka pada kolom C tetap mempunyai tanda "-" (tidak terpengaruh oleh perubahan yang terakhir - krn Eventnya sudah berlalu).- Tanda pada kolom D dan E akan secara otomatis mengikuti tanda pada kolom C (Jika tanda pada kolom C "-" maka tanda pada kolom D dan E akan "-" juga.- File harus disimpan sebagai file yang mengandung Macro (.xls untuk Excel 2003, .xlsm atau .xlsb untuk Excel 2007 ke atas).
----- Forwarded message ----- From: hendrik karnadi hendrikkarnadi@yahoo..com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Saturday, 14 July 2018, 10:10:42 PM GMT+7Subject: [belajar-excel] "Formula" for Conditional Formatting
Dear BeExcel,
Beberapa waktu yang lalu ada member yang menanyakan mengenai topik tsb di atas, sayangnya emailnya tidak saya temukan lagi di Inbox email saya.
Pertanyaannya:
Kebetulan saya dapat jawabannya dengan memanfaatkan event WorkSheet_Change.
Private Sub Worksheet_Change(
Ini adalah modifikasi dari Macro (Prosedur) yang berasal dari milis ini juga (diketik angka hasilnya angka * 1000.
Salam,HK
Catatan:- "Bayar" tidak boleh diketik menggunakan huruf besar semua atau huruf kecil semua dan diketik sebelum mengetik angka pada kolom C.Kalau angka pada kolom C sdh diketik kemudian kata "Bayar" pada kolom B diganti menjadi "Faktur" maka angka pada kolom C tetap mempunyai tanda "-" (tidak terpengaruh oleh perubahan yang terakhir - krn Eventnya sudah berlalu).- Tanda pada kolom D dan E akan secara otomatis mengikuti tanda pada kolom C (Jika tanda pada kolom C "-" maka tanda pada kolom D dan E akan "-" juga.- File harus disimpan sebagai file yang mengandung Macro (.xls untuk Excel 2003, .xlsm atau .xlsb untuk Excel 2007 ke atas).
Sat Jul 14, 2018 2:28 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
File terlampir.
2018-07-13 11:15 GMT+07:00 Stephen Saputro stephensaputro@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Selamat siang rekan-rekan semuanya,
>
> Mohon kiranya dapat di bantu kasus saya dalam penggunaan conditional
> formating,
> Saya sedang mencoba untuk melakukan input data, bagaiamana caranya,
> apabila di kolom B tertulis "Bayar", maka angka yang di input pada kolom
> C,D,E otomatis menjadi negativ ? ( jadi kita tidak perlu menambahkan angka
> minus terlebih dahulu. Begitu juga kalau terulis faktur, maka anga yang di
> input otomatis positiv.
>
>
> Terima kasih
>
>
>
2018-07-13 11:15 GMT+07:00 Stephen Saputro stephensaputro@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Selamat siang rekan-rekan semuanya,
>
> Mohon kiranya dapat di bantu kasus saya dalam penggunaan conditional
> formating,
> Saya sedang mencoba untuk melakukan input data, bagaiamana caranya,
> apabila di kolom B tertulis "Bayar"
> C,D,E otomatis menjadi negativ ? ( jadi kita tidak perlu menambahkan angka
> minus terlebih dahulu. Begitu juga kalau terulis faktur, maka anga yang di
> input otomatis positiv.
>
>
> Terima kasih
>
>
>
Sat Jul 14, 2018 2:35 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Terlalu umum. Tidak bisa diketahui secara pasti. Sebaiknya sertakan baris
kode yang terblok saat muncul error tersebut.
2018-07-12 13:33 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Salam Bexceller,
>
> Mau tanya. Ketika develop aplikasi dan ketika mau menyimpan file, terdapat
> error sehingga file tidak bisa di save.
>
> Error tersebut sbb. :
>
> Kira-kira kenapa ya ?
>
>
>
> Terima kasih.
>
> Best Regards,
>
> Tio
>
>
>
kode yang terblok saat muncul error tersebut.
2018-07-12 13:33 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Salam Bexceller,
>
> Mau tanya. Ketika develop aplikasi dan ketika mau menyimpan file, terdapat
> error sehingga file tidak bisa di save.
>
> Error tersebut sbb. :
>
> Kira-kira kenapa ya ?
>
>
>
> Terima kasih.
>
> Best Regards,
>
> Tio
>
>
>
Sat Jul 14, 2018 9:31 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
File terlampir sekadar contoh memanfaatkan fitur Excel untuk mempersimpel
proses otomasi.
Regards,
Kid
2018-07-14 10:25 GMT+07:00 Ade Chandra adebolanglumajang@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Semuanya data yang ingin ditampilkan pada sheet KHS, ada di sheet database.
> Misalkan, pada sheet KHS saya ingin menampilkan mata kuliah dengan
> kriteria nama sandi & tahun ajaran 2017/2018 ganjil, maka data mata kuliah
> yg ada pada sheet database, tampil di sheet KHS.
>
> Terima kasih
>
> On Fri, Jul 13, 2018, 16:06 hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com
> <belajar-excel@yahoogroups..com>> wrote:
>
>>
>>
>> Maaf, saya blm mudeng...
>> Apakah *semua data* yang ingin ditampilkan pada sheet KHS *ada pada
>> Sheet database* ?
>> Coba berikan *contoh tampilan* yang diinginkan *pada sheet khs*.
>>
>> Salam,
>> HK
>>
>>
>> On Friday, 13 July 2018, 1:05:41 PM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com> wrote:
>>
>>
>>
>>
>> maaf pak HK, saya kembali bertanya lagi ini.
>> setelah sebelumnya pertanyaan yang saya tanyakan sudah terjawab dan
>> sesuai dengan keinginan, sekarang muncul pertanyaan lagi .
>>
>> bagaimana cara menampilkan data dengan beberapa kriteria, dari sheet
>> database kedalam sheet tampil (KHS) ?
>> karena Rumus yang saya terapkan, tidak bisa menampilkan data yang saya
>> inginkan.
>> adakah formula vba yang bisa menampilkan data yang saya inginkan ?
>>
>> Terima Kasih
>>
>> 2018-06-21 13:23 GMT+09:00 hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>
>> Maaf, krn range yang dicopy harus fleksibel, maka ubah saja codenya
>> menjadi seperti ini:
>>
>> Sub KOPI()
>> ' Copy Data dari Sheet Input_KRS Range B1:B3
>> Sheets("Input_KRS").Select
>> Range("B1:B3").Select
>> Selection..Copy
>> ' Pilih baris baru pada Sheet Database Kolom A dan Paste Data
>> Sheets("Database")..Select
>> Range("D65000").End(xlUp).. Offset(1, -3).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks:= _
>> False, Transpose:=True
>> *' Tambahan*
>> *ActiveCell.Resize(1, 3).Copy*
>> * ActiveCell.Offset(1, 0).Resize(11, 3).Select*
>> * ActiveSheet.Paste*
>> * Application.CutCopyMode = False*
>> ' Copy Data dari Sheet Input_KRS Range B4:B15
>> Sheets("Input_KRS").Select
>> Range("B4:B15").Select
>> Selection.Copy
>> ' Pilih baris baru pada Sheet Database Kolom D dan Paste Data
>> Sheets("Database").Select
>> Range("D65000").End(xlUp). Offset(1, 0).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks _
>> :=False, Transpose:=False
>> End Sub
>>
>> Semoga sesuai kebutuhan.
>>
>> *Catatan : Warna Merah adalah Code tambahan untuk mengcopy Sel A.. sd C..*
>>
>> Salam,
>> HK
>>
>>
>>
>> ----- Forwarded message -----
>> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com>
>> *To:* belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
>> *Sent:* Thursday, 21 June 2018, 6:44:30 AM GMT+7
>> *Subject:* Re: [belajar-excel] Mohon Bantuan Pembuatan sourcecode vbexcel
>>
>> Jalankan Macro.
>> Kemudian coba buat rekaman macro untuk mangcopy data sel A1 sd C1 (sorot
>> cel A1 sd C1, lihat tanda + pada bag kanan bawah sel C1 dan double click
>> mouse).
>> Lalu tambahkan codenya (tanpa Sub dan End Sub) pada bagian akhir macro
>> sebelumnya (sebelum End Sub).
>>
>> Salam,
>> HK
>>
>> Sent from Yahoo Mail on Android
>> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>>
>> On Thu, Jun 21, 2018 at 4:03, Ade Chandra adebolanglumajang@gmail.com
>> [belajar-excel]
>> <belajar-excel@yahoogroups.com > wrote:
>>
>>
>> Maaf pak Hendrik...
>> Sedikit perubahan lagi....
>>
>> kalau data semester, nama, nim, mengikuti jumlah mata kuliah yang
>> diambil, bagaimana sourcecode modulnya ?
>> kalau yang mata kuliah 1 - mata kuliah 12, sudah sesuai dengan harapan..
>> soalnya saya kesulitan di pemanggilan datanya, kalau data semester, nama,
>> dan nim tidak mengikuti jumlah mata kuliah.
>>
>>
>> kalau data yang masuk database seperti file yang saya lampirkan berikut,
>> bisa kah tidak ?
>>
>> Terima Kasih.
>>
>> 2018-06-19 11:45 GMT+09:00 hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com >:
>>
>>
>>
>> Hai Ade,
>>
>> Coba copas macro ini pada VBE Sheet Module1,
>> Sub KOPI()
>> *' Copy Data dari Sheet Input_KRS Range B1:B3*
>> Sheets("Input_KRS").Select
>> Range("B1:B3")..Select
>> Selection.Copy
>> *' Pilih baris baru pada Sheet Database Kolom A dan Paste Data*
>> Sheets("Database").Select
>> Range("D65000").End(xlUp). Offset(1, -3).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks:= _
>> False, Transpose:=True
>> *' Copy Data dari Sheet Input_KRS Range B4:B15*
>> Sheets("Input_KRS").Select
>> Range("B4:B15").Select
>> Selection.Copy
>> *' Pilih baris baru pada Sheet Database Kolom D dan Paste Data*
>> Sheets("Database").Select
>> Range("D65000").End(xlUp). Offset(1, 0).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks _
>> :=False, Transpose:=False
>> Application.CutCopyMode = False
>> End Sub
>>
>> Ini adalah modifikasi hasil rekaman macro.
>> Selamat mencoba.
>>
>> Salam,
>> HK
>>
>> On Tuesday, 19 June 2018, 6:01:30 AM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>>
>> Selamat pagi pak Hendrik Karnadi.
>> Sebelumnya saya minta maaf, kalau terlambat balas email bapak.
>>
>> saya sudah coba ganti field-nya sesuai dengan yang saya inginkan, memang
>> input datanya vertikal kebawah, tetapi begitu masuk ke sheet database
>> (DBInput), datanya menjadi horisontal.
>> maksud saya itu, data inputan yang vertikal tadi, begitu masuk sheet
>> database (DBInput) datanya tetap vertikal....
>>
>> mohon maaf pak, sekali lagi saya katakan kalau saya tidak ada maksud
>> untuk tes pak Hendrik, tapi saya memang benar2 tidak bisa..
>> dan saya berharap pak Hendrik, mau dan tidak bosan mengajari saya....
>>
>> TERIMA KASIH
>>
>> berikut saya lampirkan contoh data yang saya harapkan...
>>
>>
>> On Thu, Jun 14, 2018 at 7:50 PM, hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>> Hai Ade,
>> Prinsipnya 1 semester kan 1 x input,
>> Inputnya vertikal ke bwh dan hasilnya di transpose ke Database.
>> Coba ganti Field1, Field2, dst.nya pada Sheet Design dengan judul2 kolom
>> yang diinginkan,
>> Nama, NIM, Mata Kuliah 1 -12. Hapus Field yang tidak terpakai.
>>
>> Setelah itu jalankan/tes "petunjuk" yang ada pada VBE Sheet.
>>
>> Walaupun format/tombolnya tidak sama dengan yang diminta namun seharusnya
>> hasilnya sdh mendekati apa yang diinginkan.
>>
>> Silakan dicoba dulu (tanpa harus mengganti codingnya).
>>
>> Hasilnya dishare ke grup untuk dibahas dan diganti codingnya apabila
>> perlu.
>>
>> Seperti pernah disampaikan oleh Mr. Kid,
>> disini kan forum Belajar Excel....jadi solusi yang diberikan umumnya
>> bukan program jadi yang siap pakai, seperti yang diinginkan oleh penanya.
>>
>> Mudah2an jawaban saya bisa diterima dengan hati yang lapang dan kalau ada
>> kata2 yang salah mohon dimaafkan....
>>
>> Salam,
>> Hendrik Karnadi
>>
>> Sent from Yahoo Mail on Android
>> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>>
>> On Thu, Jun 14, 2018 at 12:10, Ade Chandra adebolanglumajang@gmail..com
>> [belajar-excel]
>> <belajar-excel@yahoogroups.com > wrote:
>>
>>
>> Terima kasih pak Hendrik Karnadi telah membantu membuat desain baru.
>> Kalau misalnya form input dan outputnya kayak punya saya, coding modul
>> vb'nya bgaimana yaw pak ? (bukan ngetes, tapi memang benar-benar tidak
>> tau)......
>>
>> Mohon maklum pak, saya masih awam jadi tanya2 terus......
>> On Jun 13, 2018 16:45, "hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>> Hai Ade,
>> Telampir saya berikan contoh database untuk mendesign, input dan output
>> dengan jumlah kolom yang fleksibel.
>>
>> Silakan baca "petunjuk" nya pada VBE Sheet file tersbut.
>>
>> Selamat mencoba.
>>
>> Salam,
>> HK
>>
>> On Tuesday, 12 June 2018, 6:48:11 PM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>>
>> Salam Kenal Sahabat Milis Belajar Excel...
>> Saya mau tanya tentang sourecode vbexcel nih...
>>
>> Saya lagi buat aplikasi input data KRS mahasiswa & saya mengalami
>> kendala, kiranya Master bisa membantu saya.
>> Sheet InputData di Kolom A1 = Nama
>> di Kolom A2 = NIM
>> di Kolom A3-A13 = Mata Kuliah 1 - 12 yang diambil
>> mahasiswa, dan ada tombol Simpan menggunakan Shape ( Bukan Axtive COntrol
>> Button )
>>
>> Sheet Database di Kolom A2 = maunya terisi No. Secara Otomatis
>> di Kolom B2 = Nama ( yang terinput dari
>> sheetInpuData )
>> di Kolom C2 = NIM ( yang terinput dari
>> sheetInpuData )
>> di Kolom D2-D baris terakhir = Mata Kuliah 1 - 12
>> (yang diambil dari sheetInpuData), dan ketika menginputkan Nama Mahasiswa
>> Lainnya, Datanya masuk kedalam sheet database (dibawah data mahasiswa yang
>> sudah ambil Pertama ).
>>
>> Mohon Bantuannya dari para Master, untuk pembuatan sourcecode MODUL
>> vbexcel yang tepat ...
>> berikut saya lampirkan contoh filenya.
>>
>> Terima Kasih
>>
>>
>> On Thu, Jun 14, 2018 at 12:10, Ade Chandra adebolanglumajang@gmail..com
>> [belajar-excel]
>> <belajar-excel@yahoogroups.com > wrote:
>>
>>
>> Terima kasih pak Hendrik Karnadi telah membantu membuat desain baru.
>> Kalau misalnya form input dan outputnya kayak punya saya, coding modul
>> vb'nya bgaimana yaw pak ? (bukan ngetes, tapi memang benar-benar tidak
>> tau)......
>>
>> Mohon maklum pak, saya masih awam jadi tanya2 terus...
>> On Jun 13, 2018 16:45, "hendrik karnadi hendrikkarnadi@yahoo.com
>> <hendrikkarnadi@yahoo..com> [belajar-excel]" <
>> belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>> Hai Ade,
>> Telampir saya berikan contoh database untuk mendesign, input dan output
>> dengan jumlah kolom yang fleksibel..
>>
>> Silakan baca "petunjuk" nya pada VBE Sheet file tersbut.
>>
>> Selamat mencoba.
>>
>> Salam,
>> HK
>>
>> On Tuesday, 12 June 2018, 6:48:11 PM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>>
>> Salam Kenal Sahabat Milis Belajar Excel...
>> Saya mau tanya tentang sourecode vbexcel nih...
>>
>> Saya lagi buat aplikasi input data KRS mahasiswa & saya mengalami
>> kendala, kiranya Master bisa membantu saya.
>> Sheet InputData di Kolom A1 = Nama
>> di Kolom A2 = NIM
>> di Kolom A3-A13 = Mata Kuliah 1 - 12 yang diambil
>> mahasiswa, dan ada tombol Simpan menggunakan Shape ( Bukan Axtive COntrol
>> Button )
>>
>> Sheet Database di Kolom A2 = maunya terisi No. Secara Otomatis
>> di Kolom B2 = Nama ( yang terinput dari
>> sheetInpuData )
>> di Kolom C2 = NIM ( yang terinput dari
>> sheetInpuData )
>> di Kolom D2-D baris terakhir = Mata Kuliah 1 - 12
>> (yang diambil dari sheetInpuData), dan ketika menginputkan Nama Mahasiswa
>> Lainnya, Datanya masuk kedalam sheet database (dibawah data mahasiswa yang
>> sudah ambil Pertama ).
>>
>> Mohon Bantuannya dari para Master, untuk pembuatan sourcecode MODUL
>> vbexcel yang tepat ...
>> berikut saya lampirkan contoh filenya..
>>
>> Terima Kasih
>>
>>
>>
>>
>>
> On Fri, Jul 13, 2018, 16:06 hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Maaf, saya blm mudeng...
>> Apakah *semua data* yang ingin ditampilkan pada sheet KHS *ada pada
>> Sheet database* ?
>> Coba berikan *contoh tampilan* yang diinginkan *pada sheet khs*.
>>
>> Salam,
>> HK
>>
>>
>> On Friday, 13 July 2018, 1:05:41 PM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com> wrote:
>>
>>
>>
>>
>> maaf pak HK, saya kembali bertanya lagi ini.
>> setelah sebelumnya pertanyaan yang saya tanyakan sudah terjawab dan
>> sesuai dengan keinginan, sekarang muncul pertanyaan lagi .
>>
>> bagaimana cara menampilkan data dengan beberapa kriteria, dari sheet
>> database kedalam sheet tampil (KHS) ?
>> karena Rumus yang saya terapkan, tidak bisa menampilkan data yang saya
>> inginkan.
>> adakah formula vba yang bisa menampilkan data yang saya inginkan ?
>>
>> Terima Kasih
>>
>> 2018-06-21 13:23 GMT+09:00 hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>
>> Maaf, krn range yang dicopy harus fleksibel, maka ubah saja codenya
>> menjadi seperti ini:
>>
>> Sub KOPI()
>> ' Copy Data dari Sheet Input_KRS Range B1:B3
>> Sheets("Input_KRS").Select
>> Range("B1:B3").Select
>> Selection..Copy
>> ' Pilih baris baru pada Sheet Database Kolom A dan Paste Data
>> Sheets("Database")..Select
>> Range("D65000").End(xlUp). Offset(1, -3).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks:= _
>> False, Transpose:=True
>> *' Tambahan*
>> *ActiveCell.Resize(1, 3).Copy*
>> * ActiveCell..Offset(1, 0).Resize(11, 3).Select*
>> * ActiveSheet.Paste*
>> * Application.CutCopyMode = False*
>> ' Copy Data dari Sheet Input_KRS Range B4:B15
>> Sheets("Input_KRS").Select
>> Range("B4:B15").Select
>> Selection.Copy
>> ' Pilih baris baru pada Sheet Database Kolom D dan Paste Data
>> Sheets("Database").Select
>> Range("D65000").End(xlUp). Offset(1, 0).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks _
>> :=False, Transpose:=False
>> End Sub
>>
>> Semoga sesuai kebutuhan.
>>
>> *Catatan : Warna Merah adalah Code tambahan untuk mengcopy Sel A.. sd C..*
>>
>> Salam,
>> HK
>>
>>
>>
>> ----- Forwarded message -----
>> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com>
>> *To:* belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
>> *Sent:* Thursday, 21 June 2018, 6:44:30 AM GMT+7
>> *Subject:* Re: [belajar-excel] Mohon Bantuan Pembuatan sourcecode vbexcel
>>
>> Jalankan Macro.
>> Kemudian coba buat rekaman macro untuk mangcopy data sel A1 sd C1 (sorot
>> cel A1 sd C1, lihat tanda + pada bag kanan bawah sel C1 dan double click
>> mouse).
>> Lalu tambahkan codenya (tanpa Sub dan End Sub) pada bagian akhir macro
>> sebelumnya (sebelum End Sub).
>>
>> Salam,
>> HK
>>
>> Sent from Yahoo Mail on Android
>> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>>
>> On Thu, Jun 21, 2018 at 4:03, Ade Chandra adebolanglumajang@gmail.com
>> <adebolanglumajang@gmail..com> [belajar-excel]
>> <belajar-excel@yahoogroups.com > wrote:
>>
>>
>> Maaf pak Hendrik...
>> Sedikit perubahan lagi....
>>
>> kalau data semester, nama, nim, mengikuti jumlah mata kuliah yang
>> diambil, bagaimana sourcecode modulnya ?
>> kalau yang mata kuliah 1 - mata kuliah 12, sudah sesuai dengan harapan..
>> soalnya saya kesulitan di pemanggilan datanya, kalau data semester, nama,
>> dan nim tidak mengikuti jumlah mata kuliah.
>>
>>
>> kalau data yang masuk database seperti file yang saya lampirkan berikut,
>> bisa kah tidak ?
>>
>> Terima Kasih.
>>
>> 2018-06-19 11:45 GMT+09:00 hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com >:
>>
>>
>>
>> Hai Ade,
>>
>> Coba copas macro ini pada VBE Sheet Module1,
>> Sub KOPI()
>> *' Copy Data dari Sheet Input_KRS Range B1:B3*
>> Sheets("Input_KRS").Select
>> Range("B1:B3")..Select
>> Selection.Copy
>> *' Pilih baris baru pada Sheet Database Kolom A dan Paste Data*
>> Sheets("Database").Select
>> Range("D65000").End(xlUp). Offset(1, -3).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks:= _
>> False, Transpose:=True
>> *' Copy Data dari Sheet Input_KRS Range B4:B15*
>> Sheets("Input_KRS").Select
>> Range("B4:B15").Select
>> Selection.Copy
>> *' Pilih baris baru pada Sheet Database Kolom D dan Paste Data*
>> Sheets("Database").Select
>> Range("D65000").End(xlUp). Offset(1, 0).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks _
>> :=False, Transpose:=False
>> Application.CutCopyMode = False
>> End Sub
>>
>> Ini adalah modifikasi hasil rekaman macro.
>> Selamat mencoba.
>>
>> Salam,
>> HK
>>
>> On Tuesday, 19 June 2018, 6:01:30 AM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>>
>> Selamat pagi pak Hendrik Karnadi.
>> Sebelumnya saya minta maaf, kalau terlambat balas email bapak.
>>
>> saya sudah coba ganti field-nya sesuai dengan yang saya inginkan, memang
>> input datanya vertikal kebawah, tetapi begitu masuk ke sheet database
>> (DBInput), datanya menjadi horisontal.
>> maksud saya itu, data inputan yang vertikal tadi, begitu masuk sheet
>> database (DBInput) datanya tetap vertikal....
>>
>> mohon maaf pak, sekali lagi saya katakan kalau saya tidak ada maksud
>> untuk tes pak Hendrik, tapi saya memang benar2 tidak bisa..
>> dan saya berharap pak Hendrik, mau dan tidak bosan mengajari saya....
>>
>> TERIMA KASIH
>>
>> berikut saya lampirkan contoh data yang saya harapkan...
>>
>>
>> On Thu, Jun 14, 2018 at 7:50 PM, hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>> Hai Ade,
>> Prinsipnya 1 semester kan 1 x input,
>> Inputnya vertikal ke bwh dan hasilnya di transpose ke Database.
>> Coba ganti Field1, Field2, dst.nya pada Sheet Design dengan judul2 kolom
>> yang diinginkan,
>> Nama, NIM, Mata Kuliah 1 -12. Hapus Field yang tidak terpakai.
>>
>> Setelah itu jalankan/tes "petunjuk" yang ada pada VBE Sheet.
>>
>> Walaupun format/tombolnya tidak sama dengan yang diminta namun seharusnya
>> hasilnya sdh mendekati apa yang diinginkan.
>>
>> Silakan dicoba dulu (tanpa harus mengganti codingnya).
>>
>> Hasilnya dishare ke grup untuk dibahas dan diganti codingnya apabila
>> perlu.
>>
>> Seperti pernah disampaikan oleh Mr. Kid,
>> disini kan forum Belajar Excel....jadi solusi yang diberikan umumnya
>> bukan program jadi yang siap pakai, seperti yang diinginkan oleh penanya.
>>
>> Mudah2an jawaban saya bisa diterima dengan hati yang lapang dan kalau ada
>> kata2 yang salah mohon dimaafkan....
>>
>> Salam,
>> Hendrik Karnadi
>>
>> Sent from Yahoo Mail on Android
>> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>>
>> On Thu, Jun 14, 2018 at 12:10, Ade Chandra adebolanglumajang@gmail..com
>> [belajar-excel]
>> <belajar-excel@yahoogroups.com > wrote:
>>
>>
>> Terima kasih pak Hendrik Karnadi telah membantu membuat desain baru.
>> Kalau misalnya form input dan outputnya kayak punya saya, coding modul
>> vb'nya bgaimana yaw pak ? (bukan ngetes, tapi memang benar-benar tidak
>> tau)......
>>
>> Mohon maklum pak, saya masih awam jadi tanya2 terus.......
>> On Jun 13, 2018 16:45, "hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>> Hai Ade,
>> Telampir saya berikan contoh database untuk mendesign, input dan output
>> dengan jumlah kolom yang fleksibel.
>>
>> Silakan baca "petunjuk" nya pada VBE Sheet file tersbut.
>>
>> Selamat mencoba.
>>
>> Salam,
>> HK
>>
>> On Tuesday, 12 June 2018, 6:48:11 PM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com <belajar-excel@yahoogroups..com> > wrote:
>>
>>
>>
>>
>> Salam Kenal Sahabat Milis Belajar Excel...
>> Saya mau tanya tentang sourecode vbexcel nih...
>>
>> Saya lagi buat aplikasi input data KRS mahasiswa & saya mengalami
>> kendala, kiranya Master bisa membantu saya.
>> Sheet InputData di Kolom A1 = Nama
>> di Kolom A2 = NIM
>> di Kolom A3-A13 = Mata Kuliah 1 - 12 yang diambil
>> mahasiswa, dan ada tombol Simpan menggunakan Shape ( Bukan Axtive COntrol
>> Button )
>>
>> Sheet Database di Kolom A2 = maunya terisi No. Secara Otomatis
>> di Kolom B2 = Nama ( yang terinput dari
>> sheetInpuData )
>> di Kolom C2 = NIM ( yang terinput dari
>> sheetInpuData )
>> di Kolom D2-D baris terakhir = Mata Kuliah 1 - 12
>> (yang diambil dari sheetInpuData), dan ketika menginputkan Nama Mahasiswa
>> Lainnya, Datanya masuk kedalam sheet database (dibawah data mahasiswa yang
>> sudah ambil Pertama ).
>>
>> Mohon Bantuannya dari para Master, untuk pembuatan sourcecode MODUL
>> vbexcel yang tepat ...
>> berikut saya lampirkan contoh filenya.
>>
>> Terima Kasih
>>
>>
>> On Thu, Jun 14, 2018 at 12:10, Ade Chandra adebolanglumajang@gmail..com
>> [belajar-excel]
>> <belajar-excel@yahoogroups.com > wrote:
>>
>>
>> Terima kasih pak Hendrik Karnadi telah membantu membuat desain baru.
>> Kalau misalnya form input dan outputnya kayak punya saya, coding modul
>> vb'nya bgaimana yaw pak ? (bukan ngetes, tapi memang benar-benar tidak
>> tau)......
>>
>> Mohon maklum pak, saya masih awam jadi tanya2 terus...
>> On Jun 13, 2018 16:45, "hendrik karnadi hendrikkarnadi@yahoo.com
>> <hendrikkarnadi@yahoo..com> [belajar-excel]" <
>> belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>> Hai Ade,
>> Telampir saya berikan contoh database untuk mendesign, input dan output
>> dengan jumlah kolom yang fleksibel.
>>
>> Silakan baca "petunjuk" nya pada VBE Sheet file tersbut.
>>
>> Selamat mencoba.
>>
>> Salam,
>> HK
>>
>> On Tuesday, 12 June 2018, 6:48:11 PM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>>
>> Salam Kenal Sahabat Milis Belajar Excel...
>> Saya mau tanya tentang sourecode vbexcel nih...
>>
>> Saya lagi buat aplikasi input data KRS mahasiswa & saya mengalami
>> kendala, kiranya Master bisa membantu saya.
>> Sheet InputData di Kolom A1 = Nama
>> di Kolom A2 = NIM
>> di Kolom A3-A13 = Mata Kuliah 1 - 12 yang diambil
>> mahasiswa, dan ada tombol Simpan menggunakan Shape ( Bukan Axtive COntrol
>> Button )
>>
>> Sheet Database di Kolom A2 = maunya terisi No. Secara Otomatis
>> di Kolom B2 = Nama ( yang terinput dari
>> sheetInpuData )
>> di Kolom C2 = NIM ( yang terinput dari
>> sheetInpuData )
>> di Kolom D2-D baris terakhir = Mata Kuliah 1 - 12
>> (yang diambil dari sheetInpuData), dan ketika menginputkan Nama Mahasiswa
>> Lainnya, Datanya masuk kedalam sheet database (dibawah data mahasiswa yang
>> sudah ambil Pertama ).
>>
>> Mohon Bantuannya dari para Master, untuk pembuatan sourcecode MODUL
>> vbexcel yang tepat ...
>> berikut saya lampirkan contoh filenya..
>>
>> Terima Kasih
>>
>>
>>
>>
>>
>
proses otomasi.
Regards,
Kid
2018-07-14 10:25 GMT+07:00 Ade Chandra adebolanglumajang@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Semuanya data yang ingin ditampilkan pada sheet KHS, ada di sheet database.
> Misalkan, pada sheet KHS saya ingin menampilkan mata kuliah dengan
> kriteria nama sandi & tahun ajaran 2017/2018 ganjil, maka data mata kuliah
> yg ada pada sheet database, tampil di sheet KHS.
>
> Terima kasih
>
> On Fri, Jul 13, 2018, 16:06 hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com
> <belajar-excel@yahoogroups..com>> wrote:
>
>>
>>
>> Maaf, saya blm mudeng...
>> Apakah *semua data* yang ingin ditampilkan pada sheet KHS *ada pada
>> Sheet database* ?
>> Coba berikan *contoh tampilan* yang diinginkan *pada sheet khs*.
>>
>> Salam,
>> HK
>>
>>
>> On Friday, 13 July 2018, 1:05:41 PM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com> wrote:
>>
>>
>>
>>
>> maaf pak HK, saya kembali bertanya lagi ini.
>> setelah sebelumnya pertanyaan yang saya tanyakan sudah terjawab dan
>> sesuai dengan keinginan, sekarang muncul pertanyaan lagi .
>>
>> bagaimana cara menampilkan data dengan beberapa kriteria, dari sheet
>> database kedalam sheet tampil (KHS) ?
>> karena Rumus yang saya terapkan, tidak bisa menampilkan data yang saya
>> inginkan.
>> adakah formula vba yang bisa menampilkan data yang saya inginkan ?
>>
>> Terima Kasih
>>
>> 2018-06-21 13:23 GMT+09:00 hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>
>> Maaf, krn range yang dicopy harus fleksibel, maka ubah saja codenya
>> menjadi seperti ini:
>>
>> Sub KOPI()
>> ' Copy Data dari Sheet Input_KRS Range B1:B3
>> Sheets("Input_KRS").Select
>> Range("B1:B3").Select
>> Selection..Copy
>> ' Pilih baris baru pada Sheet Database Kolom A dan Paste Data
>> Sheets("Database")..Select
>> Range("D65000").End(xlUp).. Offset(1, -3).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks:= _
>> False, Transpose:=True
>> *' Tambahan*
>> *ActiveCell.Resize(1, 3).Copy*
>> * ActiveCell.Offset(1, 0).Resize(11, 3).Select*
>> * ActiveSheet.Paste*
>> * Application.CutCopyMode = False*
>> ' Copy Data dari Sheet Input_KRS Range B4:B15
>> Sheets("Input_KRS").Select
>> Range("B4:B15").Select
>> Selection.Copy
>> ' Pilih baris baru pada Sheet Database Kolom D dan Paste Data
>> Sheets("Database").Select
>> Range("D65000").End(xlUp). Offset(1, 0).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks _
>> :=False, Transpose:=False
>> End Sub
>>
>> Semoga sesuai kebutuhan.
>>
>> *Catatan : Warna Merah adalah Code tambahan untuk mengcopy Sel A.. sd C..*
>>
>> Salam,
>> HK
>>
>>
>>
>> ----- Forwarded message -----
>> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com>
>> *To:* belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
>> *Sent:* Thursday, 21 June 2018, 6:44:30 AM GMT+7
>> *Subject:* Re: [belajar-excel] Mohon Bantuan Pembuatan sourcecode vbexcel
>>
>> Jalankan Macro.
>> Kemudian coba buat rekaman macro untuk mangcopy data sel A1 sd C1 (sorot
>> cel A1 sd C1, lihat tanda + pada bag kanan bawah sel C1 dan double click
>> mouse).
>> Lalu tambahkan codenya (tanpa Sub dan End Sub) pada bagian akhir macro
>> sebelumnya (sebelum End Sub).
>>
>> Salam,
>> HK
>>
>> Sent from Yahoo Mail on Android
>> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>>
>> On Thu, Jun 21, 2018 at 4:03, Ade Chandra adebolanglumajang@gmail.com
>> [belajar-excel]
>> <belajar-excel@yahoogroups.com > wrote:
>>
>>
>> Maaf pak Hendrik...
>> Sedikit perubahan lagi....
>>
>> kalau data semester, nama, nim, mengikuti jumlah mata kuliah yang
>> diambil, bagaimana sourcecode modulnya ?
>> kalau yang mata kuliah 1 - mata kuliah 12, sudah sesuai dengan harapan..
>> soalnya saya kesulitan di pemanggilan datanya, kalau data semester, nama,
>> dan nim tidak mengikuti jumlah mata kuliah.
>>
>>
>> kalau data yang masuk database seperti file yang saya lampirkan berikut,
>> bisa kah tidak ?
>>
>> Terima Kasih.
>>
>> 2018-06-19 11:45 GMT+09:00 hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com >:
>>
>>
>>
>> Hai Ade,
>>
>> Coba copas macro ini pada VBE Sheet Module1,
>> Sub KOPI()
>> *' Copy Data dari Sheet Input_KRS Range B1:B3*
>> Sheets("Input_KRS").Select
>> Range("B1:B3")..Select
>> Selection.Copy
>> *' Pilih baris baru pada Sheet Database Kolom A dan Paste Data*
>> Sheets("Database").Select
>> Range("D65000").End(xlUp). Offset(1, -3).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks:= _
>> False, Transpose:=True
>> *' Copy Data dari Sheet Input_KRS Range B4:B15*
>> Sheets("Input_KRS").Select
>> Range("B4:B15").Select
>> Selection.Copy
>> *' Pilih baris baru pada Sheet Database Kolom D dan Paste Data*
>> Sheets("Database").Select
>> Range("D65000").End(xlUp). Offset(1, 0).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks _
>> :=False, Transpose:=False
>> Application.CutCopyMode = False
>> End Sub
>>
>> Ini adalah modifikasi hasil rekaman macro.
>> Selamat mencoba.
>>
>> Salam,
>> HK
>>
>> On Tuesday, 19 June 2018, 6:01:30 AM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>>
>> Selamat pagi pak Hendrik Karnadi.
>> Sebelumnya saya minta maaf, kalau terlambat balas email bapak.
>>
>> saya sudah coba ganti field-nya sesuai dengan yang saya inginkan, memang
>> input datanya vertikal kebawah, tetapi begitu masuk ke sheet database
>> (DBInput), datanya menjadi horisontal.
>> maksud saya itu, data inputan yang vertikal tadi, begitu masuk sheet
>> database (DBInput) datanya tetap vertikal....
>>
>> mohon maaf pak, sekali lagi saya katakan kalau saya tidak ada maksud
>> untuk tes pak Hendrik, tapi saya memang benar2 tidak bisa..
>> dan saya berharap pak Hendrik, mau dan tidak bosan mengajari saya....
>>
>> TERIMA KASIH
>>
>> berikut saya lampirkan contoh data yang saya harapkan...
>>
>>
>> On Thu, Jun 14, 2018 at 7:50 PM, hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>> Hai Ade,
>> Prinsipnya 1 semester kan 1 x input,
>> Inputnya vertikal ke bwh dan hasilnya di transpose ke Database.
>> Coba ganti Field1, Field2, dst.nya pada Sheet Design dengan judul2 kolom
>> yang diinginkan,
>> Nama, NIM, Mata Kuliah 1 -12. Hapus Field yang tidak terpakai.
>>
>> Setelah itu jalankan/tes "petunjuk" yang ada pada VBE Sheet.
>>
>> Walaupun format/tombolnya tidak sama dengan yang diminta namun seharusnya
>> hasilnya sdh mendekati apa yang diinginkan.
>>
>> Silakan dicoba dulu (tanpa harus mengganti codingnya).
>>
>> Hasilnya dishare ke grup untuk dibahas dan diganti codingnya apabila
>> perlu.
>>
>> Seperti pernah disampaikan oleh Mr. Kid,
>> disini kan forum Belajar Excel....jadi solusi yang diberikan umumnya
>> bukan program jadi yang siap pakai, seperti yang diinginkan oleh penanya.
>>
>> Mudah2an jawaban saya bisa diterima dengan hati yang lapang dan kalau ada
>> kata2 yang salah mohon dimaafkan....
>>
>> Salam,
>> Hendrik Karnadi
>>
>> Sent from Yahoo Mail on Android
>> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>>
>> On Thu, Jun 14, 2018 at 12:10, Ade Chandra adebolanglumajang@gmail..com
>> [belajar-excel]
>> <belajar-excel@yahoogroups.com > wrote:
>>
>>
>> Terima kasih pak Hendrik Karnadi telah membantu membuat desain baru.
>> Kalau misalnya form input dan outputnya kayak punya saya, coding modul
>> vb'nya bgaimana yaw pak ? (bukan ngetes, tapi memang benar-benar tidak
>> tau)......
>>
>> Mohon maklum pak, saya masih awam jadi tanya2 terus......
>> On Jun 13, 2018 16:45, "hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>> Hai Ade,
>> Telampir saya berikan contoh database untuk mendesign, input dan output
>> dengan jumlah kolom yang fleksibel.
>>
>> Silakan baca "petunjuk" nya pada VBE Sheet file tersbut.
>>
>> Selamat mencoba.
>>
>> Salam,
>> HK
>>
>> On Tuesday, 12 June 2018, 6:48:11 PM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>>
>> Salam Kenal Sahabat Milis Belajar Excel...
>> Saya mau tanya tentang sourecode vbexcel nih...
>>
>> Saya lagi buat aplikasi input data KRS mahasiswa & saya mengalami
>> kendala, kiranya Master bisa membantu saya.
>> Sheet InputData di Kolom A1 = Nama
>> di Kolom A2 = NIM
>> di Kolom A3-A13 = Mata Kuliah 1 - 12 yang diambil
>> mahasiswa, dan ada tombol Simpan menggunakan Shape ( Bukan Axtive COntrol
>> Button )
>>
>> Sheet Database di Kolom A2 = maunya terisi No. Secara Otomatis
>> di Kolom B2 = Nama ( yang terinput dari
>> sheetInpuData )
>> di Kolom C2 = NIM ( yang terinput dari
>> sheetInpuData )
>> di Kolom D2-D baris terakhir = Mata Kuliah 1 - 12
>> (yang diambil dari sheetInpuData), dan ketika menginputkan Nama Mahasiswa
>> Lainnya, Datanya masuk kedalam sheet database (dibawah data mahasiswa yang
>> sudah ambil Pertama ).
>>
>> Mohon Bantuannya dari para Master, untuk pembuatan sourcecode MODUL
>> vbexcel yang tepat ...
>> berikut saya lampirkan contoh filenya.
>>
>> Terima Kasih
>>
>>
>> On Thu, Jun 14, 2018 at 12:10, Ade Chandra adebolanglumajang@gmail..com
>> [belajar-excel]
>> <belajar-excel@yahoogroups.com > wrote:
>>
>>
>> Terima kasih pak Hendrik Karnadi telah membantu membuat desain baru.
>> Kalau misalnya form input dan outputnya kayak punya saya, coding modul
>> vb'nya bgaimana yaw pak ? (bukan ngetes, tapi memang benar-benar tidak
>> tau)......
>>
>> Mohon maklum pak, saya masih awam jadi tanya2 terus...
>> On Jun 13, 2018 16:45, "hendrik karnadi hendrikkarnadi@yahoo.com
>> <hendrikkarnadi@yahoo..com> [belajar-excel]" <
>> belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>> Hai Ade,
>> Telampir saya berikan contoh database untuk mendesign, input dan output
>> dengan jumlah kolom yang fleksibel..
>>
>> Silakan baca "petunjuk" nya pada VBE Sheet file tersbut.
>>
>> Selamat mencoba.
>>
>> Salam,
>> HK
>>
>> On Tuesday, 12 June 2018, 6:48:11 PM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>>
>> Salam Kenal Sahabat Milis Belajar Excel...
>> Saya mau tanya tentang sourecode vbexcel nih...
>>
>> Saya lagi buat aplikasi input data KRS mahasiswa & saya mengalami
>> kendala, kiranya Master bisa membantu saya.
>> Sheet InputData di Kolom A1 = Nama
>> di Kolom A2 = NIM
>> di Kolom A3-A13 = Mata Kuliah 1 - 12 yang diambil
>> mahasiswa, dan ada tombol Simpan menggunakan Shape ( Bukan Axtive COntrol
>> Button )
>>
>> Sheet Database di Kolom A2 = maunya terisi No. Secara Otomatis
>> di Kolom B2 = Nama ( yang terinput dari
>> sheetInpuData )
>> di Kolom C2 = NIM ( yang terinput dari
>> sheetInpuData )
>> di Kolom D2-D baris terakhir = Mata Kuliah 1 - 12
>> (yang diambil dari sheetInpuData), dan ketika menginputkan Nama Mahasiswa
>> Lainnya, Datanya masuk kedalam sheet database (dibawah data mahasiswa yang
>> sudah ambil Pertama ).
>>
>> Mohon Bantuannya dari para Master, untuk pembuatan sourcecode MODUL
>> vbexcel yang tepat ...
>> berikut saya lampirkan contoh filenya..
>>
>> Terima Kasih
>>
>>
>>
>>
>>
> On Fri, Jul 13, 2018, 16:06 hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Maaf, saya blm mudeng...
>> Apakah *semua data* yang ingin ditampilkan pada sheet KHS *ada pada
>> Sheet database* ?
>> Coba berikan *contoh tampilan* yang diinginkan *pada sheet khs*.
>>
>> Salam,
>> HK
>>
>>
>> On Friday, 13 July 2018, 1:05:41 PM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com> wrote:
>>
>>
>>
>>
>> maaf pak HK, saya kembali bertanya lagi ini.
>> setelah sebelumnya pertanyaan yang saya tanyakan sudah terjawab dan
>> sesuai dengan keinginan, sekarang muncul pertanyaan lagi .
>>
>> bagaimana cara menampilkan data dengan beberapa kriteria, dari sheet
>> database kedalam sheet tampil (KHS) ?
>> karena Rumus yang saya terapkan, tidak bisa menampilkan data yang saya
>> inginkan.
>> adakah formula vba yang bisa menampilkan data yang saya inginkan ?
>>
>> Terima Kasih
>>
>> 2018-06-21 13:23 GMT+09:00 hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>
>> Maaf, krn range yang dicopy harus fleksibel, maka ubah saja codenya
>> menjadi seperti ini:
>>
>> Sub KOPI()
>> ' Copy Data dari Sheet Input_KRS Range B1:B3
>> Sheets("Input_KRS").Select
>> Range("B1:B3").Select
>> Selection..Copy
>> ' Pilih baris baru pada Sheet Database Kolom A dan Paste Data
>> Sheets("Database")..Select
>> Range("D65000").End(xlUp). Offset(1, -3).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks:= _
>> False, Transpose:=True
>> *' Tambahan*
>> *ActiveCell.Resize(1, 3).Copy*
>> * ActiveCell..Offset(1, 0).Resize(11, 3).Select*
>> * ActiveSheet.Paste*
>> * Application.CutCopyMode = False*
>> ' Copy Data dari Sheet Input_KRS Range B4:B15
>> Sheets("Input_KRS").Select
>> Range("B4:B15").Select
>> Selection.Copy
>> ' Pilih baris baru pada Sheet Database Kolom D dan Paste Data
>> Sheets("Database").Select
>> Range("D65000").End(xlUp). Offset(1, 0).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks _
>> :=False, Transpose:=False
>> End Sub
>>
>> Semoga sesuai kebutuhan.
>>
>> *Catatan : Warna Merah adalah Code tambahan untuk mengcopy Sel A.. sd C..*
>>
>> Salam,
>> HK
>>
>>
>>
>> ----- Forwarded message -----
>> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com>
>> *To:* belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
>> *Sent:* Thursday, 21 June 2018, 6:44:30 AM GMT+7
>> *Subject:* Re: [belajar-excel] Mohon Bantuan Pembuatan sourcecode vbexcel
>>
>> Jalankan Macro.
>> Kemudian coba buat rekaman macro untuk mangcopy data sel A1 sd C1 (sorot
>> cel A1 sd C1, lihat tanda + pada bag kanan bawah sel C1 dan double click
>> mouse).
>> Lalu tambahkan codenya (tanpa Sub dan End Sub) pada bagian akhir macro
>> sebelumnya (sebelum End Sub).
>>
>> Salam,
>> HK
>>
>> Sent from Yahoo Mail on Android
>> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>>
>> On Thu, Jun 21, 2018 at 4:03, Ade Chandra adebolanglumajang@gmail.com
>> <adebolanglumajang@gmail..com> [belajar-excel]
>> <belajar-excel@yahoogroups.com > wrote:
>>
>>
>> Maaf pak Hendrik...
>> Sedikit perubahan lagi....
>>
>> kalau data semester, nama, nim, mengikuti jumlah mata kuliah yang
>> diambil, bagaimana sourcecode modulnya ?
>> kalau yang mata kuliah 1 - mata kuliah 12, sudah sesuai dengan harapan..
>> soalnya saya kesulitan di pemanggilan datanya, kalau data semester, nama,
>> dan nim tidak mengikuti jumlah mata kuliah.
>>
>>
>> kalau data yang masuk database seperti file yang saya lampirkan berikut,
>> bisa kah tidak ?
>>
>> Terima Kasih.
>>
>> 2018-06-19 11:45 GMT+09:00 hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com >:
>>
>>
>>
>> Hai Ade,
>>
>> Coba copas macro ini pada VBE Sheet Module1,
>> Sub KOPI()
>> *' Copy Data dari Sheet Input_KRS Range B1:B3*
>> Sheets("Input_KRS").Select
>> Range("B1:B3")..Select
>> Selection.Copy
>> *' Pilih baris baru pada Sheet Database Kolom A dan Paste Data*
>> Sheets("Database").Select
>> Range("D65000").End(xlUp). Offset(1, -3).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks:= _
>> False, Transpose:=True
>> *' Copy Data dari Sheet Input_KRS Range B4:B15*
>> Sheets("Input_KRS").Select
>> Range("B4:B15").Select
>> Selection.Copy
>> *' Pilih baris baru pada Sheet Database Kolom D dan Paste Data*
>> Sheets("Database").Select
>> Range("D65000").End(xlUp). Offset(1, 0).Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks _
>> :=False, Transpose:=False
>> Application.CutCopyMode = False
>> End Sub
>>
>> Ini adalah modifikasi hasil rekaman macro.
>> Selamat mencoba.
>>
>> Salam,
>> HK
>>
>> On Tuesday, 19 June 2018, 6:01:30 AM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>>
>> Selamat pagi pak Hendrik Karnadi.
>> Sebelumnya saya minta maaf, kalau terlambat balas email bapak.
>>
>> saya sudah coba ganti field-nya sesuai dengan yang saya inginkan, memang
>> input datanya vertikal kebawah, tetapi begitu masuk ke sheet database
>> (DBInput), datanya menjadi horisontal.
>> maksud saya itu, data inputan yang vertikal tadi, begitu masuk sheet
>> database (DBInput) datanya tetap vertikal....
>>
>> mohon maaf pak, sekali lagi saya katakan kalau saya tidak ada maksud
>> untuk tes pak Hendrik, tapi saya memang benar2 tidak bisa..
>> dan saya berharap pak Hendrik, mau dan tidak bosan mengajari saya....
>>
>> TERIMA KASIH
>>
>> berikut saya lampirkan contoh data yang saya harapkan...
>>
>>
>> On Thu, Jun 14, 2018 at 7:50 PM, hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>> Hai Ade,
>> Prinsipnya 1 semester kan 1 x input,
>> Inputnya vertikal ke bwh dan hasilnya di transpose ke Database.
>> Coba ganti Field1, Field2, dst.nya pada Sheet Design dengan judul2 kolom
>> yang diinginkan,
>> Nama, NIM, Mata Kuliah 1 -12. Hapus Field yang tidak terpakai.
>>
>> Setelah itu jalankan/tes "petunjuk" yang ada pada VBE Sheet.
>>
>> Walaupun format/tombolnya tidak sama dengan yang diminta namun seharusnya
>> hasilnya sdh mendekati apa yang diinginkan.
>>
>> Silakan dicoba dulu (tanpa harus mengganti codingnya).
>>
>> Hasilnya dishare ke grup untuk dibahas dan diganti codingnya apabila
>> perlu.
>>
>> Seperti pernah disampaikan oleh Mr. Kid,
>> disini kan forum Belajar Excel....jadi solusi yang diberikan umumnya
>> bukan program jadi yang siap pakai, seperti yang diinginkan oleh penanya.
>>
>> Mudah2an jawaban saya bisa diterima dengan hati yang lapang dan kalau ada
>> kata2 yang salah mohon dimaafkan....
>>
>> Salam,
>> Hendrik Karnadi
>>
>> Sent from Yahoo Mail on Android
>> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>>
>> On Thu, Jun 14, 2018 at 12:10, Ade Chandra adebolanglumajang@gmail..com
>> [belajar-excel]
>> <belajar-excel@yahoogroups.com > wrote:
>>
>>
>> Terima kasih pak Hendrik Karnadi telah membantu membuat desain baru.
>> Kalau misalnya form input dan outputnya kayak punya saya, coding modul
>> vb'nya bgaimana yaw pak ? (bukan ngetes, tapi memang benar-benar tidak
>> tau)......
>>
>> Mohon maklum pak, saya masih awam jadi tanya2 terus.......
>> On Jun 13, 2018 16:45, "hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>> Hai Ade,
>> Telampir saya berikan contoh database untuk mendesign, input dan output
>> dengan jumlah kolom yang fleksibel.
>>
>> Silakan baca "petunjuk" nya pada VBE Sheet file tersbut.
>>
>> Selamat mencoba.
>>
>> Salam,
>> HK
>>
>> On Tuesday, 12 June 2018, 6:48:11 PM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com <belajar-excel@yahoogroups..com> > wrote:
>>
>>
>>
>>
>> Salam Kenal Sahabat Milis Belajar Excel...
>> Saya mau tanya tentang sourecode vbexcel nih...
>>
>> Saya lagi buat aplikasi input data KRS mahasiswa & saya mengalami
>> kendala, kiranya Master bisa membantu saya.
>> Sheet InputData di Kolom A1 = Nama
>> di Kolom A2 = NIM
>> di Kolom A3-A13 = Mata Kuliah 1 - 12 yang diambil
>> mahasiswa, dan ada tombol Simpan menggunakan Shape ( Bukan Axtive COntrol
>> Button )
>>
>> Sheet Database di Kolom A2 = maunya terisi No. Secara Otomatis
>> di Kolom B2 = Nama ( yang terinput dari
>> sheetInpuData )
>> di Kolom C2 = NIM ( yang terinput dari
>> sheetInpuData )
>> di Kolom D2-D baris terakhir = Mata Kuliah 1 - 12
>> (yang diambil dari sheetInpuData), dan ketika menginputkan Nama Mahasiswa
>> Lainnya, Datanya masuk kedalam sheet database (dibawah data mahasiswa yang
>> sudah ambil Pertama ).
>>
>> Mohon Bantuannya dari para Master, untuk pembuatan sourcecode MODUL
>> vbexcel yang tepat ...
>> berikut saya lampirkan contoh filenya.
>>
>> Terima Kasih
>>
>>
>> On Thu, Jun 14, 2018 at 12:10, Ade Chandra adebolanglumajang@gmail..com
>> [belajar-excel]
>> <belajar-excel@yahoogroups.com > wrote:
>>
>>
>> Terima kasih pak Hendrik Karnadi telah membantu membuat desain baru.
>> Kalau misalnya form input dan outputnya kayak punya saya, coding modul
>> vb'nya bgaimana yaw pak ? (bukan ngetes, tapi memang benar-benar tidak
>> tau)......
>>
>> Mohon maklum pak, saya masih awam jadi tanya2 terus...
>> On Jun 13, 2018 16:45, "hendrik karnadi hendrikkarnadi@yahoo.com
>> <hendrikkarnadi@yahoo..com> [belajar-excel]" <
>> belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>> Hai Ade,
>> Telampir saya berikan contoh database untuk mendesign, input dan output
>> dengan jumlah kolom yang fleksibel.
>>
>> Silakan baca "petunjuk" nya pada VBE Sheet file tersbut.
>>
>> Selamat mencoba.
>>
>> Salam,
>> HK
>>
>> On Tuesday, 12 June 2018, 6:48:11 PM GMT+7, Ade Chandra
>> adebolanglumajang@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>>
>> Salam Kenal Sahabat Milis Belajar Excel...
>> Saya mau tanya tentang sourecode vbexcel nih...
>>
>> Saya lagi buat aplikasi input data KRS mahasiswa & saya mengalami
>> kendala, kiranya Master bisa membantu saya.
>> Sheet InputData di Kolom A1 = Nama
>> di Kolom A2 = NIM
>> di Kolom A3-A13 = Mata Kuliah 1 - 12 yang diambil
>> mahasiswa, dan ada tombol Simpan menggunakan Shape ( Bukan Axtive COntrol
>> Button )
>>
>> Sheet Database di Kolom A2 = maunya terisi No. Secara Otomatis
>> di Kolom B2 = Nama ( yang terinput dari
>> sheetInpuData )
>> di Kolom C2 = NIM ( yang terinput dari
>> sheetInpuData )
>> di Kolom D2-D baris terakhir = Mata Kuliah 1 - 12
>> (yang diambil dari sheetInpuData)
>> Lainnya, Datanya masuk kedalam sheet database (dibawah data mahasiswa yang
>> sudah ambil Pertama ).
>>
>> Mohon Bantuannya dari para Master, untuk pembuatan sourcecode MODUL
>> vbexcel yang tepat ...
>> berikut saya lampirkan contoh filenya..
>>
>> Terima Kasih
>>
>>
>>
>>
>>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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