Track recordnya juga lumayan bagus ..

Terima kasih sudah mengingatkan dan sudah berbagi..

pak budi, saya mau tanya.bagaimana cara membuat header footer lewat excell.misal mau buat data pegawai.biar tiap halaman ndak perlu buat judul no,nama, alamat,dsb?
jadi tinggal isi datanya aja.

Ok,untuk menjawab pertanyaan diatas kita gunakan contoh data sebagai berikut :

selanjutnya lakukan langkah-langkah sebagai berikut :
Klik Menu View | Header & Footer | pilih pada Tab Sheet

Pada Rows to repeat at Top arahkan pada header kolom data anda dan akhiri dengan klik OK

Lihat hasil dengan print Preview atau langsung cetak.

Demikian semoga bermanfaat, masukan dan saran silahkan dimasukkan pada komentar, terima kasih.

“mau tnya sorting data klo dalam bentuk tanggal gmn? berdasarkan bulan?
terima kasih”

Ok, sebagai contoh kasusnya kita pakai data sebagai berikut :

Selanjutnya kita jalankan langkah-langkah berikut :

1. Aktifkan (blok) data yang akan kita urutkan
2. Klik Menu Data | Sort
3. Pada Kotak Sort By pilih Tanggal, karena kita akan melakukan pengurutan berdasarkan tanggal.
4. Pilih Jenis Pengurutannya (Desccending atau Ascending)
5. Klik Option, selanjutnya akan ditampilkan pilihan sebagai berikut :

Pilih jenis pengurutan, berdasarkan hari atau Bulan.
Klik Ok untuk mengakhiri proses

dan hasilnya akan seperti berikut :

Demikian semoga bermanfaat, ada masukan? silahkan isikan dikotak komentar. Terima kasih.

Awalnya bingung juga.. tapi kemudian semuanya terjawab dengan tidak sengaja… (kebiasaan lama yang tidak perlu dilestarikan… males baca ) , ketika saya coba upload dengan IE. 6.0 di Yahoo.com tampil type filenya image/pjpeg, lah type file apalagi neh.. apa yaho… (silahkan tanyakan kepada Mbah Dukun aja..)

Dari situ saya jadi mikir, kenapa kok selalu terjadi kesalahan upload dengan IE. 6.0? dan jawabannya adalah.. karena pada kode php saya tidak diuji untuk format pjpeg. Dan benar dugaan saya, setelah saya tambahkan pengujian untuk image/pjpeg semuanya berjalan lancar.

Berikut kode upload yang saya gunakan

if ((($_FILES["file"]["type"] == "image/jpeg")
|| ($_FILES["file"]["type"] == "image/pjpeg"))
&& ($_FILES["file"]["size"] < 20000))
{
if ($_FILES["file"]["error"] > 0)
{
echo "Terjadi Kesalahan: " . $_FILES["file"]["error"] . "
";
}
else
{
echo "File : " . $_FILES["file"]["name"].$_FILES["file"]["type"].($_FILES["file"]["size"] / 1024).$_FILES["file"]["tmp_name"];
if (file_exists("upload/" . $_FILES["file"]["name"]))
{
echo $_FILES["file"]["name"] . " File Sudah Ada. ";
}
else
{
move_uploaded_file($_FILES["file"]["tmp_name"],
"upload/" . $_FILES["file"]["name"]);
echo "Tersimpan di: " . "upload/" . $_FILES["file"]["name"];
}
}
}
else
{
echo "File yang diupload salah";
}
?<

Dan sebernarnya kesalahan ini terjadi karena sebuah kesalahan besar saya yang sudah mendarah daging yaitu.. Males Baca..

Bagi temen-temen yang butuh referensi upload file silahkan kunjungi www.w3schools.com atau langsung ke kumpulan fungsi PHP di www.php.net

Jember, Hari ini 1 Januari 2009, 80 tahun sudah usiamu kini,  banyak polesan-polesan baru mewarnai wajahmu yang semakin berbinar.Alun-alun kota yang menjadi poros terus dipoles, meskipun menimbulkan pro dan kontra disana-sini. Tempat-tempat hiburan dan perumahan pun tumbuh subur mewarnai hari-harimu.

Perayaan  demi perayaan  telah digelar untuk merayakan ultahmu, namun banyak juga pr yang harus diselesaikan diusia yang baru ini.

Permasalahan-permasalahan lama yang tak kunjung selesai menjadi pr wajib yang musti siselesaikan, mulai dari PJU yang tak kunjung menyala, jalanan banjir setiap musim hujan yang bikin macet dan sebel tentunya , jalan alternative untuk menghindari kemacetan di jalur kota ketika ada perayaan di Alun-laun. Dan yang tidak kalah penting adalah promosi potensi daerah-daerah luar kota yang selama ini dianaktirikan sehingga menghilangkan kesan Jember adalah seputaran jalan Hayam Wuruk, Gajah Mada, PB. Sudriman, A. Yani, Trunojoyo, HOS Cokroaminoto dan Samanhudi saja.
Menjadi kewajiban kita semua warga Jember dan tentunya Bapak-bapak dan Ibu-ibu pemegang kebijakan memiliki peran penting untuk mengangkat semua potensi yang dimiliki Jember tercinta.

Selamat Ulang Tahun Jemberku, semoga kemakmuran yang adil merata bisa tercapai diusia ke-80 ini. Amin

Padepokan ilmukomputer.com yang biasanya hanya menampilkan sharing dari para pecinta, kini tampil baru dengan menampilkan seluruh jurus keilmuan yang dimilikinya antara lain :

1 . Jurus eUniversity

Jurus eUniversity adalah jurus sharing materi kuliah, bahan presentasi dan referensi dari mata kuliah yang diajarkan oleh sang founder di beberapa universitas. Untuk mahasiswa yang sedang mengambil mata kuliahnya, tugas mandiri dan ujian harus dikerjakan dan dikirim melalui eUniversity ini.

2. Jurus Training

Jurus pengembangan skill yang diasuh oleh para pendekar IT dan bermarkas di
Menara Bidakara, Lantai 2, Suite 0205,
Jl. Jend. Gatot Subroto Kav. 71-73,
Jakarta 12870
Telp. +62-21-83793383;
Fax. +62-21-83793384

dan setahu saya belum membuka cabang

3. Jurus Sharing

Jurus ini adalah jurus sharing keilmuan komputer yang bisa diikuti oleh semua orang yang markasnya pindah dari ilmukomputer.com ke ilmukomputer.org

4. Jurus Blogging

Merupakan jurus sharing keilmuan yang diasuh oleh sang founder.

5. Jurus Free Training

Jurus yang tidak disebut di Ilmukomputer.com, namun bisa didapatkan di braintutor.brainmatisc.com. Jurus diperuntukkan untuk memberikan sarana belajar/training secara gratis.

Kesemua jurus diatas didesain oleh sang founder sebagai jalan perdjoeangan untuk memajukan dunia IT di Indonesia. Saya secara pribadi mendukung perdjoeangan ini (meskipun mungkin hanya dukungan yang bisa saya berikan dan tidak lebih ).

Teroes berdjoeang Pak Romi dan tetap semangat

UPDATE (29/11/2008) :
Tulisan diatas adalah sebuah opini dengan pola pikir sederhana seorang cakbud sebelum ada penjelasan resmi dari sang Founder, untuk penjelasan oleh sang Founder selengkapnya bisa dibaca disini
ilmukomputercom-learning-network

Mas Romi, saya seorang mahasiswa di Malang, saya mendapatkan penolakan cinta dari pujaan hati saya di kampus. Rasa ini membuat saya agak terseok-seok, dan akhirnya nilai mata kuliah saya jadi hancur lebur. Bantu saya keluar dari masalah ini mas. (Anwar, Malang)

Masalah klasik para pemuda sang pengejar cinta, dan para pemudi sang penunggu cinta

“Cinta ini membunuhku”, itu bahasa D’Masiv

“Wahai kematian, datanglah cepat kemari, hisap dan dekap tubuhku yang penuh cinta ini”, kalau yang ini kata William Shakespeare dalam Romeo and Juliet.

Kahlil Gibran mengungkapkan dalam syairnya, “Bila cinta memanggilmu, ikutlah dengannya meski jalan yang kalian tempuh terjal dan mendaki”.

Kisah cinta datang dan pergi dari masa ke masa, menyuarakan hal yang sama dengan redaksi berbeda. Silih berganti dari Layla Majnun, Tristan und Isolde, Roro Mendut dan Pronocitro, sampai Romeo and Juliet. Cerita cinta selalu meggebu dan indah, meskipun ketika kita pandang jauh dari sisi lain, kadang buta, tidak nyata dan fatamorgana.

Ya benar, kita sering bingung dalam memaknai cinta. Lauren Slater dalam National Geographic edisi 2006 mengatakan, “Sulit untuk memisahkan pembicaraan antara cinta dan penyakit mental”. Maria dalam Ayat-Ayat Cinta mengatakan dengan redaksi yang berbeda, “Cinta adalah siksaaan yang manis”.

Apakah cinta, mencintai dan dicintai adalah salah? Jawabannya adalah tidak. Cinta itu indah, cinta itu semangat dan cinta itu adalah kebahagiaan. Bahkan mungkin kekuatan kita untuk mencintai adalah titik tertinggi dari hakekat cinta (halah)

Hanya permasalahan utama dari para pemuda dan pemudi yang kebetulan sedang jatuh, menjatuhi atau dijatuhi cinta adalah ada di dua hal: salah meletakkan posisi hati dan salah mendefinisikan cinta.

1. LETAKKAN POSISI HATI DENGAN BENAR

Cinta berhubungan dengan hati, itu pasti, karena di dalam hati ada unsur keindahan, semangat dan kebahagiaan, maka 3 hal ini ada kemungkinan besar berhubungan dengan cinta. Banyak dari kita yang meletakkan posisi kebersamaan dan penerimaan cinta sebagai titik tertinggi dari keindahan, semangat dan kebahagiaan. Karena itu kita gusar, sedih, dan sengsara ketika cinta kita tidak diterima oleh sang pujaan hati. Dan kita sangat menderita ketika kita tidak bisa memiliki kebersamaan dengan sang kekasih tercinta. Inilah titik sentral masalah cinta ala Layla – Qais, Roro Mendut – Pronocitro, maupun Romeo – Juliet.

Menempatkan posisi kebersamaan dan penerimaan bukan sebagai titik tertinggi dari cinta adalah faktor terpenting yang membuat cinta tidak akan bisa membunuh kita . Saya selalu menempatkan posisi keindahan, semangat dan kebahagiaan saya ketika saya bisa bermanfaat untuk orang lain, mencapai suatu prestasi, dan bisa melakukan hal yang tidak bisa dilakukan orang lain. Ketika banyak orang lain berlomba-lomba untuk mencintai orang lain, bahkan dengan cinta buta, saya berusaha berdjoeang untuk mencintai diri saya sendiri. Inilah cinta dengan logika.

Mencintai diri sendiri bukan berarti banyak tidur, banyak santai, atau banyak rekreasi. Mencintai diri sendiri artinya: saya harus berprestasi, saya harus berhasil dan sukses, saya harus bermanfaat untuk orang lain, saya harus bisa membuka lapangan kerja baru, saya harus memberi beasiswa ke banyak orang, dsb. Implikasinya mungkin sangat berat, karena saya harus bekerja lebih keras, mengurangi tidur, atau mendisiplinkan diri saya sendiri. Tapi itu semua saya lakukan karena saya mencintai diri saya sendiri. Ya inilah mungkin hakekat dari ungkapan si Maria, “Cinta adalah siksaan yang manis”. Bagi saya, mencintai diri sendiri adalah modal penting dalam kesuksesan mencintai orang lain.

Kebersamaan dan penerimaan bukan sesuatu yang selalu membahagiakan saya. Kadang saya secara fisik harus meninggalkan semua orang yang saya kasihi dan cintai. Kadang saya harus bersikap keras kepada para pedjoeang saya, kepada sahabat saya dan bahkan kepada istri dan anak-anak saya, sehingga sering mereka sulit memahami dan menerima saya. Tapi itu semua saya lakukan karena cinta saya yang teramat sangat kepada mereka, saya tidak ingin mereka gagal, saya ingin semua orang bisa berhasil, dan memberi manfaat kepada orang lain dengan lebih baik. Dan inilah cara saya menghembuskan ayat-ayat cinta kepada mereka

Meskipun sebenarnya ada kebersamaan dan penerimaan cinta yang selalu saya bahagiakan dan harapkan, yaitu dari Sang Penguasa Alam dan Pemilik Jagad Raya. Inilah koridor penting jalan cinta kita, ingat bahwa cinta mati hanya milik Allah sang penguasa jagad raya bukan untuk makhluk Allah.

Jadi pesan saya, wahai para pemuda, mari letakkan posisi hati kita pada tempatnya. Cinta itu tidak akan membunuhmu, kesalahan posisi hati itulah yang akan membunuhmu.

2. UBAH DEFINISI DAN PARADIGMA CINTA

Kesalahan kedua yang sering kita lakukan adalah kesalahan memahami definisi dan paradigma cinta. Banyak penelitian tentang cinta dilakukan. Salah satu yang cukup terkenal adalah formula cinta dari Robert J Sternberg: A Triangular Theory of Love (Teori Segitiga Cinta).

Menurut Sternberg, jenis cinta tergantung dari sifat hubungan kita dengan orang lain. Komitmen saja tanpa gairah dan keakraban adalah Cinta Kosong. Gairah saja tanpa dua unsur yang lain artinya tergila-gila. komitmen dan keakraban tanpa gairah menjadikan persepsi cinta sebagai Cinta Persahabatan. Keakraban dan gairah tanpa komitmen membuat Cinta Romantis. Sedangkan komitmen dan gairah tanpa keakraban menyebabkan Cinta Buta. Ketika kita berhasil menyatukan komitmen, gairah dan keakraban maka akan terjadi Cinta Sempurna.

Banyak yang masih meragukan teori ini bisa berlaku valid untuk semua jenis hubungan cinta, misalnya cinta seorang anak kepada ibunya dan sebaliknya. Hasil penelitian dari Lauren Slater juga mengisyaratkan bahwa susunan kimia otak pemicu romantika, ternyata tidak ada hubungannya dengan komitmen yang memupuk kelekatan jangka panjang. Salim A Fillah, penulis buku Jalan Cinta Para Pejuang, mengatakan bahwa Komitmen adalah sudut kunci dalam teori cinta Robert J Sternberg. Komitmen adalah ikrar kerelaan berkorban, memberi dan bukan meminta, berinisiatif tanpa menunggu dan memahami bukan menuntut.

Sebagian masalah cinta mungkin bisa terwakili oleh Teori Segitia Cinta-nya Sternberg. Tapi kalau kita coba simpulkan dari berbagai referensi lain, dari pandangan Slater, Salim A Fillah dan Anis Matta lewat seri cinta dan pahlawannya di majalah Tarbawi. Cinta Sempurna adalah suatu proses panjang, hasil dari cinta kasih dua manusia yang terjalin dalam suatu hubungan yang sah. Cinta Sempurna bukanlah cinta pada pandangan pertama, karena itu mungkin hanya suatu gairah atau ketergila-gilaan, istilahnya Slater. Cinta Sempurna juga bukan cinta lokasi, cinta monyet, cinta jadi-jadian, cinta karena fisik atau cinta karena harta dan tahta. Cinta Sempurna adalah hasil suatu perdjoeangan panjang. Hasil dari kekuatan kita untuk menyelesaikan masalah perbedaan, memahami kekurangan dan kelebihan, merekatkan hati dan komitmen untuk tetap ada di jalanNya.

Mudah-mudahan ketika terjadi penolakan cinta, kita berani berikrar dengan gagah, ”Lupakan dirimu dan aku akan kembali padaNya”. Catat bahwa huruf N untuk Nya itu harus kapital Jangan lupa ubah genjrengan gitar kita dari lagu kenangan kisah cinta, ke lagu: Menghapus Jejakmu (Peterpan), Baiknya (Ada Band), Musnah (Andra and The Backbone), atau Aku Bukan Untukmu (Rossa) hihihi …

Resapi dua syair ini:

Baiknya semua kenangan yang terindah, tak ku balut dengan tangis
Baiknya setiap kerinduan, yang merajam tak kuratapi penuh penyesalan

Dan bangkitlah, lanjutkan perdjoeangan!

Ingatlah bahwa para legenda tidak pernah mengejar cinta, karena itu:

Janganlah kalian mengejar cinta. Jadilah legenda yang penuh dengan prestasi dan manfaat untuk orang lain, maka cinta akan silih berganti mengejar kalian. Dan ketika masa itu datang, pilihlah takdir cintamu, kelola cintamu, atur kadarnya, arahkan posisinya, dan kontrol kekuatan cinta sesuai dengan tempatnya.

Dan itulah jalan cinta para legenda …

Tetap dalam perdjoeangan!

Romi Satria Wahono

…Saya sedang merancang sebuah makro untuk aplikasi yang berfungsi untuk mengkopi data di sheet1 ke sheet2. Untuk mengkopinya sudah bisa, tapi ada kendala ketika saya hendak memunculkan “Msgbox” apabila cell yang dituju di sheet2 yang akan digunakan sebagai ojek paste bukanlah cell yang masih kosong (sudah terisi sebelumnya) maka akan muncul “Msgbox” yang kita inginkan….

Untuk kebutuhan seperti yang dibutuhkan diatas, saya rasa kita bisa menggunakan pencarian data pada lembar kerja yang digunakan sebelum proses simpan/paste.

Persiapan
Buat form dan tempel sebuah TextBox dan CommandButton

Berikutnya buat function untuk pencarian data, pada intinya untuk mencari data pada sebuah lembar kerja excel dengan VBA kita bisa menggunakan fungsi “find (namasheet.find)”

Penulisan Kode Program
Berikut kode fungsi pencariannya.

Function CariData(Optional NamaSheet As String) As Long

‘Cek Lembar Kerja Aktif
If NamaSheet = vbNullString Then
NamaSheet = ActiveSheet.Name
End If

‘    mencari data pada lembar kerja excel
On Error Resume Next
With Worksheets(NamaSheet)
CariData = .Cells.Find(UserForm1.TextBox1.Text, .Cells(1), xlFormulas, xlWhole, xlByRows, xlPrevious).Row
End With

End Function

kemudian pada tombol simpannya (CommandButton1_Click) tuliskan kode berikut :

Private Sub CommandButton1_Click()
CekKode = CariData(“Sheet1″)

‘Jika CekKode tidak sama dengan 0, maka data ditemukan dan sebaliknya.

If CekKode <> 0 Then
MsgBox “Data Sudah pernah diisikan”   ‘Jika data ditemukan
Else
‘Jika data tidak ditemukan/belum pernah dientri
MsgBox “Apakah akan menambah data baru?”
End If
End Sub

Demikian semoga membantu, semua masukan silahkan masukkan melalui form komentar, terima kasih, selamat berdjoeang dan tetap semangat.

…. gini pak saya disuruh buat aplikasi undian dengan visual basic, berikut ini databasenya

Nama       Nilai            nilai_awal                nilai_akhir
Ali         102                1                             102
Lia          310              103                            412
Ila         246              413                            658

untuk menampilkan pemenangnya, dilihat berdasarkan range dari nilai_awal dan nilai_akhir yang berpatokan pada range point yang diinput. misalnya saya input 50 pada textbox. maka otomatis setelah menekan tombol proses, tombol proses tersebut akan membaca range dari nilai_awal dan nilai_akhir. dan karena point 50 tersebut berada antara nilai_awal(1) dan nilai_akhir (102), akan muncul pada datagrid  dan tampil dalam textbox nama pemenangnya.

Berikut saya mencoba membuat pengujian dengan membandingkan nilai pada texbox dengan batas nilai_awal dan nilai_akhir.

Persiapan

Struktur tabelnya

Buat sebuah form dengan komponen (kontrol-kontrol) sebagai berikut:
ADODC (adodc1)
Datagrid (datagrid1)
Textbox (text1)
Listbox (list1) dan
tombol proses (command1)

setting Koneksi databases
Klik kanan pada komponen ADODC- Properties
Set ADODC anda dan arahken ke databases yang sudah anda buat.
Set Recordsource anda ke tabel point yang sudah anda buat.

Menuliskan kode perintah
Tuliskan kode brikut pada command1_click()

Private Sub Command1_Click()
List1.Clear
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
End If
While Not Adodc1.Recordset.EOF

If (Val(Text1.Text) >= Adodc1.Recordset(2) And Val(Text1.Text) <= Adodc1.Recordset(3)) Then
List1.AddItem Adodc1.Recordset(0)
End If

Adodc1.Recordset.MoveNext
Wend
End Sub

Keterangan Kode :

List1.Clear

Membersihkan item data pada listbox (list1)

If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
End If

Membawa pointer record ke awal record apabila tabel point tidak kosong (jumlah recodnya tidak sama dengan 0)
Pengujian dilakukan untuk menghindari error pada proses move first jika tabel point masih kosong.

While Not Adodc1.Recordset.EOF
……………………………
Adodc1.Recordset.MoveNext
Wend

Membuat perulangan sebanyak data yang ada di tabel point, jangan lupa untuk move next untuk menghindari proses berulang terus.

If (Val(Text1.Text) >= Adodc1.Recordset(2) And Val(Text1.Text) <= Adodc1.Recordset(3)) Then
List1.AddItem Adodc1.Recordset(0)
End If

Menguji, jika nilai di text1 lebih besar atau sama dengan nilai_awal (adodc1.recordset(2) dan text1 lebih kecil atau sama dengan nilai_akhir (adodc1.record(3)).
Maka, tampilkan nama (adodc1.recordset(0)) kedalam listbox (list1). Proses ini akan diulang selama pointer record tidak berada pada End Of File(EOF)

Demikian semoga membantu. Tambahan atau teknik lain silahkan share pada komentar.
Terima kasih. selamat berdjoeang dan tetap semangat.