Messages In This Digest (7 Messages)

1a.: Re: OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN From: Kid Mr.
1b.: Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN From: achmad adi
1c.: Re: OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN From: Kid Mr.

2a.: Re: WINDOW BARU TIDAK MUNCUL From: Kid Mr.

3a.: Re: Tanya rumus copy dinamic From: Kid Mr.

4.: MATCH angka negative dan positive agar menjadi 0 From: Mansor

5.: Menambah Kondisi dalam Conditional Formatting From: Emi

View All Topics | Create New Topic

Messages

1a.: Re: OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Sat May 12, 2012 1:52 am (PDT)

Asumsi : (sesuaikan script jika ada yang tidak sama dengan asumsi)
1. Nama option button di userform selalu diawali 'OB' diakhir angka
berurutan sesuai posisi kolom di worksheet
2. data tanggal selalu bertipe datetime
3. nama sheet 'dataentri'
4. tabel hasil mulai baris 6
5. kolom penulisan data mulai kolom B (kolom ke-2)

Ganti script dalam prosedur event click milik tombol Tambahkan (cmdTambah)
bagian copy data menjadi :
'cari option button yang dipilih
Dim lOpt As Long, lCol As Long

For lOpt = 1 To 9
If Controls("OB" & lOpt).Value Then
lCol = 3 + lOpt
Exit For
End If
Next lOpt

'posisi data baru (baris excel)
iRow = Evaluate("=Count(dataentri!b:b)") + 6

'copy data
ws.Cells(iRow, 2).Value = Me.txtTGL.Value
ws.Cells(iRow, 3).Value = Me.txtMRIS.Value
ws.Cells(iRow, lCol).Value = Me.txtJUMLAH.Value

Wassalam,
Kid.

2012/5/11 achmad adi <didon13@ymail.com>

> **
>
>
> selamat siang,
> para sesepuh excel
>
> mohon koreksi untuk makro yang saya buat,,,,
> dimana dalam USERFORM terdapat OPTION BUTTON untuk
> menentukan VALUE disimpan menurut pilihan OPTTION BUTON TERSEBUT,,,
>
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
1b.: Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

Posted by: "achmad adi" didon13@ymail.com didon13@ymail.com

Sat May 12, 2012 7:20 pm (PDT)

sih sebelumnya Mr. Kid atas koreksi dan bantuannya
setelah dijalankan error..

Compile error:
Variable not defined

iRow = Evaluate("=Count(dataentri!b:b)") + 6

maksudnya bagaimana?

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 12 Mei 2012 15:52
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

Asumsi : (sesuaikan script jika ada yang tidak sama dengan asumsi)
1. Nama option button di userform selalu diawali 'OB' diakhir angka berurutan sesuai posisi kolom di worksheet
2. data tanggal selalu bertipe datetime
3. nama sheet 'dataentri'
4. tabel hasil mulai baris 6
5. kolom penulisan data mulai kolom B (kolom ke-2)

Ganti script dalam prosedur event click milik tombol Tambahkan (cmdTambah) bagian copy data menjadi :
'cari option button yang dipilih
    Dim lOpt As Long, lCol As Long

    For lOpt = 1 To 9
        If Controls("OB" & lOpt).Value Then
            lCol = 3 + lOpt
            Exit For
        End If
    Next lOpt

'posisi data baru (baris excel)
iRow = Evaluate("=Count(dataentri!b:b)") + 6

'copy data
ws.Cells(iRow, 2).Value = Me.txtTGL.Value
ws.Cells(iRow, 3).Value = Me.txtMRIS.Value
ws.Cells(iRow, lCol).Value = Me.txtJUMLAH.Value

Wassalam,
Kid.

2012/5/11 achmad adi <didon13@ymail.com>

>
>selamat siang,
>para sesepuh excel
>
>mohon koreksi untuk makro yang saya buat,,,,
>dimana dalam USERFORM terdapat OPTION BUTTON untuk
>menentukan VALUE disimpan menurut pilihan OPTTION BUTON TERSEBUT,,,
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
1c.: Re: OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Sat May 12, 2012 7:30 pm (PDT)

Oh error ya...
Coba pastikan hanya beberapa baris yang dimulai dari 'copy data dan baris
penulisan ke cell saja yang diganti.
Kayanya gak mungkin kalau errornya variable not defined.

Jadi,
Public Sub bla......
dim bla
....
....

'copy data
ws....
ws...
ws...

.....
.....
.....
end sub

yang warna merah ganti dengan :
'cari option button yang dipilih
Dim lOpt As Long, lCol As Long

For lOpt = 1 To 9
If Controls("OB" & lOpt).Value Then
lCol = 3 + lOpt
Exit For
End If
Next lOpt

'posisi data baru (baris excel)
iRow = Evaluate("=Count(dataentri!b:b)") + 6

'copy data
ws.Cells(iRow, 2).Value = Me.txtTGL.Value
ws.Cells(iRow, 3).Value = Me.txtMRIS.Value
ws.Cells(iRow, lCol).Value = Me.txtJUMLAH.Value

Kemudian, fungsi Evaluate digunakan untuk mengkalkulasi suatu ekspresi
formula. Jadi
Evaluate("=Count(dataentri!b:b)") adalah proses mengkalkulasi formula
=Count(dataentri!b:b)
Sedangkan kegunaan dari iRow = Evaluate("=Count(dataentri!b:b)") + 6
adalah mendapatkan 'posisi data baru (baris excel)
dengan Syarat dan ketentuan berlaku

Wassalam,
Kid.

2012/5/13 achmad adi <didon13@ymail.com>

> **
>
>
> sih sebelumnya Mr. Kid atas koreksi dan bantuannya
> setelah dijalankan error..
>
> Compile error:
> Variable not defined
>
> iRow = Evaluate("=Count(dataentri!b:b)") + 6
>
> maksudnya bagaimana?
>
>
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Sabtu, 12 Mei 2012 15:52
> *Judul:* Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
>
>
> Asumsi : (sesuaikan script jika ada yang tidak sama dengan asumsi)
> 1. Nama option button di userform selalu diawali 'OB' diakhir angka
> berurutan sesuai posisi kolom di worksheet
> 2. data tanggal selalu bertipe datetime
> 3. nama sheet 'dataentri'
> 4. tabel hasil mulai baris 6
> 5. kolom penulisan data mulai kolom B (kolom ke-2)
>
> Ganti script dalam prosedur event click milik tombol Tambahkan (cmdTambah)
> bagian copy data menjadi :
> 'cari option button yang dipilih
> Dim lOpt As Long, lCol As Long
>
> For lOpt = 1 To 9
> If Controls("OB" & lOpt).Value Then
> lCol = 3 + lOpt
> Exit For
> End If
> Next lOpt
>
> 'posisi data baru (baris excel)
> iRow = Evaluate("=Count(dataentri!b:b)") + 6
>
> 'copy data
> ws.Cells(iRow, 2).Value = Me.txtTGL.Value
> ws.Cells(iRow, 3).Value = Me.txtMRIS.Value
> ws.Cells(iRow, lCol).Value = Me.txtJUMLAH.Value
>
> Wassalam,
> Kid.
>
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

2a.: Re: WINDOW BARU TIDAK MUNCUL

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Sat May 12, 2012 2:11 am (PDT)

Coba atur Excel Options -> grup Advanced -> bagian Display -> centang Show
all windows in the taskbar
[image: Inline image 1]

Tutup excel dan coba buka beberapa file excel

Jika belum tampil dalam multi taskbar button, coba atur property dari
taskbar :
Klik kanan taskbar -> pilih property -> cari bagian seperti Taskbar button
atau sejenisnya -> pilih dari combo yang tersedia -> OK
(di windows 7 bentuknya seperti gambar)
[image: Inline image 2]

Wassalam,
Kid.

2012/5/7 Kurei recca <yusajing_ehm@yahoo.com>

> **
>
>
> Salam Para Master Excel,
>
> Saya Ingin bertanya, tidak tau kenapa excel saya tidak bisa dibuka menjadi
> > 1 window yang ada,
> Semua berada di dalam 1 window,,
> Bagaimana agar tampil seperti normal kembali ? yaitu ketika saya buka 2
> Workbook maka ada 2 window yang terbuka
> Mohon Pencerahannya
> Best regards
> Lebih jelasnya seperti gambar di bawah ini :
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

3a.: Re: Tanya rumus copy dinamic

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Sat May 12, 2012 3:09 am (PDT)

Assalamualaikum Wr. Wb.

Hai Ahmad,

Coba file terlampir yang menggunakan VBA memanfaatkan fitur AutoFilter
maupun AdvancedFilter.
Syarat dan ketentuan penggunaan AdvancedFilter berlaku.

Wassalamualaikum Wr. Wb.
Kid.

2012/5/3 Ahmad Nurul <ahmad_3suci@yahoo.co.id>

> **
>
>
> oke terimakasih atas semua petunjuknya kalo boh saya minta info untuk
> rumus makronya
>
>
>
> Best Regard,
>
> Ahmad Nurul Imran
>
> --- Mods ---
> Yang dimaksud Pak Ahamad dengan makro pada solusi yang diberikan adalah
> formula, karena tidak ada solusi yang berisi VBA.
> ------------
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

4.: MATCH angka negative dan positive agar menjadi 0

Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980

Sat May 12, 2012 6:57 am (PDT)

Teman teman BeExcel,

Saya diminta untuk membuat clearing data dengan menggunakan excel untuk
diupload ke SAP.
Angka positif dan negatif saya asingkan di kolum C dan D
Saya ingin supaya dijalankan dengan makro lalu di Match dengan mencari
kemungkinan jumlah (+) dan (-) agar SUM nya menjadi 0.
Bila ketemu, kolum A akan diwarnakan kuning yang akhirnya akan di sort by
color.
File seperti dilampirkan.

Terima kasih

-Mansor

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

5.: Menambah Kondisi dalam Conditional Formatting

Posted by: "Emi" emilestariklcc@yahoo.com emilestariklcc

Sat May 12, 2012 11:01 pm (PDT)

Saya mohon bantuan untuk menambah kondisi kondisi dalam CF

Conditionalformatting awal:
Cell akan menjadi kuning jika ada value yang sama
di Kolum B dan Kolum D.
Yang saya inginkan ialah,
bukan sahaja kedua dua kolum ada angka yg sama, tetapi jumlah di Kolum B bisa di MATCH dgn beberapa amaun di kolum D yg
jika ditotal adalah 0.
Terima kasih.

Emi Lestari

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
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
---------------------------------------------------------------------

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

EXCEL FEED

Minggu, 13 Mei 2012

[belajar-excel] Digest Number 1611

Messages In This Digest (7 Messages)

Messages

Re: OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Sat May 12, 2012 1:52 am (PDT)

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

Posted by: "achmad adi" didon13@ymail.com didon13@ymail.com

Sat May 12, 2012 7:20 pm (PDT)

Re: OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Sat May 12, 2012 7:30 pm (PDT)

Re: WINDOW BARU TIDAK MUNCUL

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Sat May 12, 2012 2:11 am (PDT)

Re: Tanya rumus copy dinamic

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Sat May 12, 2012 3:09 am (PDT)

MATCH angka negative dan positive agar menjadi 0

Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980

Sat May 12, 2012 6:57 am (PDT)

Menambah Kondisi dalam Conditional Formatting

Posted by: "Emi" emilestariklcc@yahoo.com emilestariklcc

Sat May 12, 2012 11:01 pm (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me