Hot Fox

sábado, 3 de março de 2012

]] XL-mania [[ Mengembalikan data seperti sebelumnya.

Hallo semua..., saya baru di milis ini. Saya punya masalah di exel, Saya sempat melakukan perubahan data pada file exel saya, tetapi perubahan itu harusnya tidak disimpan. Saya secara tidak sengaja menyimpan perubahan tersebut dan filenya sudah terlanjur saya close.
Bagaimana caranya untuk mengembalikan data yang sudah terlanjur saya ubah ? Mohon bantuan dari semuanya. Terima kasih.

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

New Members 62

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya        |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

sexta-feira, 2 de março de 2012

]] XL-mania [[ Mengambil tanggal awal dan akhir berdasarkan status pegawai

Dear Pakar XL-mania,

Saya memiliki data pegawai (sheet “source”) yang dibagi berdasarkan status pegawai dan saya ingin mengambil tanggal awal dan akhir pegawai berdasarkan statusnya dan ditambahkan pada sheet “Emp data”. Untuk lebih jelasnya saya lampirkan filenya. Mohon bantuannya para Pakar XL-mania dan sebelumnya saya ucapkan terima kasih.

Salam,

Lasiran S

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

New Members 68

Visit Your Group

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

Re: ]] XL-mania [[ std aplikasi

Bgmana ya cara mengetahui maksud pertanyaan ini?

Di email: pertanyaan hanya ada 1 baris pendek (dari 6 baris yg ada)

" mohon bantuanya untuk pembuatan std aplikasi "

Di sheets ada pertanyaan juga (terima kasih pak boyok); plus sedikit penjelasan sambil lalu.

Dalam sekali tarikan nafas mengandung pertanyaan sekaligus penjelasan yg minim, seakan ditulis sambil menahan "penderitaan hebat skala 10: karena menulis & menjelaskan", sehingga ingin cepat selesai..

" Bagaimana caranya dalam 1 bulan, jika 1 lokasi aplikasi 2x atau lebih bisa muncul seperti diatas dengan basic dari sheet std"

Yg kami tangkap adalah istilah "aplikasi" itu adalah istilah yg dilihat / dipahami secara sepihak oleh pak penanya, bukan "aplikasi" yg kita pahami pada umumnya di dunia komputer khususnya Excel.

Setelah merenung sekitar 3 windu, barulah saya agak merasa tahu: sepertinya yg dimaksud dengan "aplikasi std" (yg dimintakan agar kita membuatkannya) adalah:

" pengotomatisan Jadwal atqu Tabel Tindakan /Treatment terhadap se area tanaman(?) setiap 10 hari sekali sesuai jadwal dan tabel Std (standard?) yg tersedia ".

Jadwal (tabel hasil) yg diinginkan, sepertinya adalah tabel yg bisa berUbah-Ubah sesuai VARIABLE Tanggal_Tanam dan VARIABLE "lamanya/waktu yg tersedia/diminta (dlm satuan BULAN).

Jadwal / Tabel itulah, sepertinya, yg dimintakan bantuan pembuatannya kepada sodara-sodara XL-maniawan / XL-maniawati sekalian...

Setuju / ndak setuju, suka / ndak suka, definisi itulah yg akan kita pakai untuk membuat pengotomatisannya, dng risiko "ternyata kita SALAH DUGA".

Sebenarnya ada satu procedur kecil agar kita tidak terlalu salah duga, yaitu bertanya dulu kepada penanya; tetapi prosedur spt itu sudah sering terbukti macet, berkat perilaku-mulia para-pihak terkait yaitu: jangankan menjawab, menengok /menggeleng /menganguk pun sepertinya = "mana sempat?" (dibacanya : "mana mau!")

Mohon maaf ini bukan praduga buruk atau lontaran kemarahan, tetapi hanya SEBAGIAN potret dari apa yg sudah terjadi. Bertahun tahun...

'-------

' ===== MODULE SHEET 'RENC' =====

Private Sub Generate_Cmd_Click()

Frm_Kriteria.Show

End Sub

Private Sub Hapus_Cmd_Click()

Range("B3").CurrentRegion.Offset(2, 0).ClearContents

End Sub

' ===== MODULE USERFORM =====

Option Explicit

' VBA Coded by indri hapsari / 1 Mar 2012

' XL-mania Case : # 20004

' ---------------------------------------

Dim TabelStd As Range, TblHasil As Range

Dim TglTanam As Date, Lengkap As Boolean

Private Sub UserForm_Initialize()

Dim i As Integer

Set TabelStd = Sheets("Std").Range("C2").CurrentRegion.Offset(3, 0)

Set TabelStd = TabelStd.Resize(TabelStd.Rows.Count - 3, TabelStd.Columns.Count)

Set TblHasil = Sheets("Renc").Range("B3").CurrentRegion.Offset(2, 0)

TblHasil.ClearContents

CboHari.Clear: CboHari.ListRows = 16

For i = 1 To 31: CboHari.AddItem i: Next i

CboBulan.Clear: CboBulan.ListRows = 12

For i = 1 To 12: CboBulan.AddItem i: Next i

TxtTahun = Year(Date)

CboJangka.Clear: CboJangka.ListRows = 4

For i = 1 To 24: CboJangka.AddItem i: Next i

End Sub

Private Sub Set_TglTanam()

If CboHari.ListIndex >= 0 Then

If CboBulan.ListIndex >= 0 Then

If CLng(TxtTahun) > 0 Then

TglTanam = DateSerial( _

CLng(TxtTahun), CInt(CboBulan), CInt(CboHari))

LbTglTanam = Format(TglTanam, "dd MMM yyyy")

End If

End Sub

Private Sub CboHari_Change()

Set_TglTanam

End Sub

Private Sub Cbobulan_Change()

Set_TglTanam

End Sub

Private Sub TxtTahun_AfterUpdate()

Set_TglTanam

End Sub

Private Sub Cmd_Cancel_Click()

CboHari.ListIndex = -1

CboBulan.ListIndex = -1

CboJangka.ListIndex = -1

TxtLokasi = ""

TxtLuas = ""

TxtTahun = ""

End Sub

Private Sub Cmd_Close_Click()

Unload Me

End Sub

Private Sub Cmd_OK_Click()

' VBA Coded by indri hapsari / 1 Mar 2012

' XL-mania Case : # 20004; 27 feb 2012

' ---------------------------------------

Dim i As Integer, r As Integer, n As Integer

Dim TglAkhir As Date, TglAplik As Date

Call ValidasiData

If Not Lengkap Then Exit Sub

TglAkhir = DateAdd("m", CboJangka, TglTanam) - 1

TglAplik = TglTanam

For n = 1 To TabelStd.Rows.Count

TglAplik = TglAplik + 10

If TglAplik <= TglAkhir Then

r = r + 1

TblHasil(r, 1).Value = TxtLokasi

TblHasil(r, 2).Value = CInt(TxtLuas)

TblHasil(r, 3).Value = TglTanam

TblHasil(r, 4).Resize(1, 6).Value = _

TabelStd(n, 1).Resize(1, 6).Value

TblHasil(r, 5).Value = TglAplik

End If

Next n

End Sub

Private Sub ValidasiData()

Lengkap = False

If TxtLokasi = "" Then

MsgBox "Data 'Lokasi' belum ditentukan !"

TxtLokasi.SetFocus: Exit Sub

End If

If TxtLuas = "" Then

MsgBox "Data 'LUAS' belum ditentukan !"

TxtLuas.SetFocus: Exit Sub

End If

If LbTglTanam = "D-M-YYYY" Then

MsgBox "Data 'Tgl Tanam' belum ditentukan !"

CboHari.SetFocus: Exit Sub

End If

If CboJangka.ListIndex = -1 Then

MsgBox "Data 'Jangka Waktu' belum ditentukan !"

CboJangka.SetFocus

Exit Sub

End If

Lengkap = True

End Sub

'------------------------------

' liz-indri; maarweg, 5000 koln // 01 mar 2012

2012/2/27 boyok boyok <dodol_y@yahoo.co.id>

salam xl mania,
met pagi siang dan malam
para pakar excel

mohon bantuanya untuk pembuatan std aplikasi
trims
y2k

Hot Fox

sábado, 3 de março de 2012

]] XL-mania [[ Mengembalikan data seperti sebelumnya.

sexta-feira, 2 de março de 2012

]] XL-mania [[ Mengambil tanggal awal dan akhir berdasarkan status pegawai

Re: ]] XL-mania [[ std aplikasi

Arquivo do blog