15 New Messages
Digest #2109
Messages
Thu Feb 21, 2013 11:59 pm (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Sedikit tambahan,
kelihatannya selnya harus bersifat unik, sebab jika tidak maka datanya akan ditumpuk ...(2 baris terakhir)
Salam,
Hendrik Karnadi
________________________________
From: Jan Raisin miss.jan.raisin@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, 22 February 2013, 14:27
Subject: Re: [belajar-excel] belajar macro
Dear Yusril,
coba script berikut ini:
Option Explicit
Sub MoveByCriteria()
Dim sht As String
Dim hdSht As Range, rngSht As Range, rgSht As Range
Application.ScreenUpdating = False
Set hdSht = Range("a1")
Set rngSht = Range(hdSht.Offset(1), hdSht.End(xlDown))
For Each rgSht In rngSht
sht = rgSht.Value
With Worksheets(sht)
.Cells(rgSht.Offset(, 1).Value, rgSht.Offset(, 2).Value).Value = rgSht.Offset(, 3).Value
End With
Next rgSht
Application.ScreenUpdating = True
End Sub
Wassalam,
-Miss Jan Raisin-
Pada 21 Februari 2013 19.12, Yusril Ramadani yusrilramadani@gmail.com > menulis:
>
>Dear Para pakar
>
>Saya ada case untuk mencoba memindahkan
>Data sesuai criteria sesuai nama sheet row dan kolomnya
>Mohon dibantu command macronya
>
>
>Sheet Row Column Value to paste
>A 1 1 wadhasl
>B 2 2 sdsf
>C 5 2 dfgfddf
>D 6 2 gn
>C 7 2 gfn
>D 10 5 gfnb
>B 15 5 nh
>A 20 5 nmh
>C 35 30 nh
>C 49 20 ngf
>C 50 19 n
>C 10 25 fg
>A 11 25 hfn
>B 12 25 hn
>A 13 25 dfgfddf
>D 14 25 gs
>D 15 25 54
>A 15 25 4546546
>A 15 25 6589685756
>
>contoh
>pada sheet A row 1 colomn 1 tertulis wadhasl
>
>
>Terima kasih sebelumnya
>
>Salam
>YR
>
>
kelihatannya selnya harus bersifat unik, sebab jika tidak maka datanya akan ditumpuk ...(2 baris terakhir)
Salam,
Hendrik Karnadi
____________
From: Jan Raisin miss.jan.raisin@
To: belajar-excel@
Sent: Friday, 22 February 2013, 14:27
Subject: Re: [belajar-excel] belajar macro
Dear Yusril,
coba script berikut ini:
Option Explicit
Sub MoveByCriteria(
Dim sht As String
Dim hdSht As Range, rngSht As Range, rgSht As Range
Application.
Set hdSht = Range("
Set rngSht = Range(hdSht.
For Each rgSht In rngSht
sht = rgSht.Value
With Worksheets(sht)
.Cells(rgSht.
End With
Next rgSht
Application.
End Sub
Wassalam,
-Miss Jan Raisin-
Pada 21 Februari 2013 19.12, Yusril Ramadani yusrilramadani@
>
>Dear Para pakar
>
>Saya ada case untuk mencoba memindahkan
>Data sesuai criteria sesuai nama sheet row dan kolomnya
>Mohon dibantu command macronya
>
>
>Sheet Row Column Value to paste
>A 1 1 wadhasl
>B 2 2 sdsf
>C 5 2 dfgfddf
>D 6 2 gn
>C 7 2 gfn
>D 10 5 gfnb
>B 15 5 nh
>A 20 5 nmh
>C 35 30 nh
>C 49 20 ngf
>C 50 19 n
>C 10 25 fg
>A 11 25 hfn
>B 12 25 hn
>A 13 25 dfgfddf
>D 14 25 gs
>D 15 25 54
>A 15 25 4546546
>A 15 25 6589685756
>
>contoh
>pada sheet A row 1 colomn 1 tertulis wadhasl
>
>
>Terima kasih sebelumnya
>
>Salam
>YR
>
>
Fri Feb 22, 2013 12:08 am (PST) . Posted by:
"Jan Raisin"
xixixixi ^_^
betul apa yang dikatakan oleh master Hendrik.. maaf terlewat dari
pengamatan Jan, masukan dari master Hendrik juga merupakan koreksi untuk
Jan.
Wassalam,
-Miss Jan Raisin-
Pada 22 Februari 2013 14.59, hendrik karnadi hendrikkarnadi@yahoo.com >menulis:
> **
>
>
> Sedikit tambahan,
> kelihatannya selnya harus bersifat unik, sebab jika tidak maka datanya
> akan ditumpuk ...(2 baris terakhir)
>
> Salam,
> Hendrik Karnadi
>
>
> ------------------------------
> *From:* Jan Raisin miss.jan.raisin@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, 22 February 2013, 14:27
> *Subject:* Re: [belajar-excel] belajar macro
>
>
> Dear Yusril,
>
> coba script berikut ini:
>
> Option Explicit
>
> Sub MoveByCriteria()
> Dim sht As String
> Dim hdSht As Range, rngSht As Range, rgSht As Range
>
> Application.ScreenUpdating = False
> Set hdSht = Range("a1")
> Set rngSht = Range(hdSht.Offset(1), hdSht.End(xlDown))
> For Each rgSht In rngSht
> sht = rgSht.Value
> With Worksheets(sht)
> .Cells(rgSht.Offset(, 1).Value, rgSht.Offset(, 2).Value).Value
> = rgSht.Offset(, 3).Value
> End With
> Next rgSht
> Application.ScreenUpdating = True
> End Sub
>
>
> Wassalam,
>
> -Miss Jan Raisin-
>
> Pada 21 Februari 2013 19.12, Yusril Ramadani yusrilramadani@gmail.com >menulis:
>
> **
>
> Dear Para pakar
>
> Saya ada case untuk mencoba memindahkan
> Data sesuai criteria sesuai nama sheet row dan kolomnya
> Mohon dibantu command macronya
>
>
> Sheet Row Column Value to paste A 1 1 wadhasl B 2 2 sdsf C 5 2 dfgfddf
> D 6 2 gn C 7 2 gfn D 10 5 gfnb B 15 5 nh A 20 5 nmh C 35 30 nh C 49 20 ngf
> C 50 19 n C 10 25 fg A 11 25 hfn B 12 25 hn A 13 25 dfgfddf D 14 25 gs D
> 15 25 54 A 15 25 4546546 A 15 25 6589685756
>
> contoh
> pada sheet A row 1 colomn 1 tertulis wadhasl
>
>
> Terima kasih sebelumnya
>
> Salam
> YR
>
>
>
>
>
>
>
>
betul apa yang dikatakan oleh master Hendrik.. maaf terlewat dari
pengamatan Jan, masukan dari master Hendrik juga merupakan koreksi untuk
Jan.
Wassalam,
-Miss Jan Raisin-
Pada 22 Februari 2013 14.59, hendrik karnadi hendrikkarnadi@
> **
>
>
> Sedikit tambahan,
> kelihatannya selnya harus bersifat unik, sebab jika tidak maka datanya
> akan ditumpuk ...(2 baris terakhir)
>
> Salam,
> Hendrik Karnadi
>
>
> ------------
> *From:* Jan Raisin miss.jan.raisin@
> *To:* belajar-excel@
> *Sent:* Friday, 22 February 2013, 14:27
> *Subject:* Re: [belajar-excel] belajar macro
>
>
> Dear Yusril,
>
> coba script berikut ini:
>
> Option Explicit
>
> Sub MoveByCriteria(
> Dim sht As String
> Dim hdSht As Range, rngSht As Range, rgSht As Range
>
> Application.
> Set hdSht = Range("
> Set rngSht = Range(hdSht.
> For Each rgSht In rngSht
> sht = rgSht.Value
> With Worksheets(sht)
> .Cells(rgSht.
> = rgSht.Offset(
> End With
> Next rgSht
> Application.
> End Sub
>
>
> Wassalam,
>
> -Miss Jan Raisin-
>
> Pada 21 Februari 2013 19.12, Yusril Ramadani yusrilramadani@
>
> **
>
> Dear Para pakar
>
> Saya ada case untuk mencoba memindahkan
> Data sesuai criteria sesuai nama sheet row dan kolomnya
> Mohon dibantu command macronya
>
>
> Sheet Row Column Value to paste A 1 1 wadhasl B 2 2 sdsf C 5 2 dfgfddf
> D 6 2 gn C 7 2 gfn D 10 5 gfnb B 15 5 nh A 20 5 nmh C 35 30 nh C 49 20 ngf
> C 50 19 n C 10 25 fg A 11 25 hfn B 12 25 hn A 13 25 dfgfddf D 14 25 gs D
> 15 25 54 A 15 25 4546546 A 15 25 6589685756
>
> contoh
> pada sheet A row 1 colomn 1 tertulis wadhasl
>
>
> Terima kasih sebelumnya
>
> Salam
> YR
>
>
>
>
>
>
>
>
Fri Feb 22, 2013 12:40 am (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Maaf juga Miss Jan, kayaknya saya belum layak disebut Master ....
Hanya kebetulan kelihatan waktu nyoba scriptnya pada file yang dikirim Mas Yusril sebelumnya.
Salam,
Hendrik Karnadi
____________
From: Jan Raisin miss.jan.raisin@
To: belajar-excel@
Sent: Friday, 22 February 2013, 15:08
Subject: Re: [belajar-excel] belajar macro
xixixixi ^_^
betul apa yang dikatakan oleh master Hendrik.. maaf terlewat dari pengamatan Jan, masukan dari master Hendrik juga merupakan koreksi untuk Jan.
Wassalam,
-Miss Jan Raisin-
Pada 22 Februari 2013 14.59, hendrik karnadi hendrikkarnadi@
>
>Sedikit tambahan,
>kelihatannya selnya harus bersifat unik, sebab jika tidak maka datanya akan ditumpuk ...(2 baris terakhir)
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>
>________
> From: Jan Raisin miss.jan.raisin@
>To: belajar-excel@
>Sent: Friday, 22 February 2013, 14:27
>Subject: Re: [belajar-excel] belajar macro
>
>
>
>
>Dear Yusril,
>
>
>coba script berikut ini:
>
>
>Option Explicit
>
>
>Sub MoveByCriteria(
> Dim sht As String
> Dim hdSht As Range, rngSht As Range, rgSht As Range
>
> Application.
> Set hdSht = Range("
> Set rngSht = Range(hdSht.
> For Each rgSht In rngSht
> sht = rgSht.Value
> With Worksheets(sht)
> .Cells(rgSht.
> End With
> Next rgSht
> Application.
>End Sub
>
>
>
>
>Wassalam,
>
>
>-Miss Jan Raisin-
>
>Pada 21 Februari 2013 19.12, Yusril Ramadani yusrilramadani@
>
>
>>
>>Dear Para pakar
>>
>>Saya ada case untuk mencoba memindahkan
>>Data sesuai criteria sesuai nama sheet row dan kolomnya
>>Mohon dibantu command macronya
>>
>>
>>Sheet Row Column Value to paste
>>A 1 1 wadhasl
>>B 2 2 sdsf
>>C 5 2 dfgfddf
>>D 6 2 gn
>>C 7 2 gfn
>>D 10 5 gfnb
>>B 15 5 nh
>>A 20 5 nmh
>>C 35 30 nh
>>C 49 20 ngf
>>C 50 19 n
>>C 10 25 fg
>>A 11 25 hfn
>>B 12 25 hn
>>A 13 25 dfgfddf
>>D 14 25 gs
>>D 15 25 54
>>A 15 25 4546546
>>A 15 25 6589685756
>>
>>contoh
>>pada sheet A row 1 colomn 1 tertulis wadhasl
>>
>>
>>Terima kasih sebelumnya
>>
>>Salam
>>YR
>>
>>
>
>
>
Fri Feb 22, 2013 4:10 am (PST) . Posted by:
"s. munawaroh" munawaroh_ti
wah selalu dapet tambahan ilmu disini,. thanks all
Fri Feb 22, 2013 1:45 am (PST) . Posted by:
"Jan Raisin"
Coba tulis scipt ini ke dalam sebuah modul VBE
untuk tombol "Simpan" di Input Surat Masuk:
Sub Simpan()
Dim sIdKs As String, sIdKln As String
Dim sNama As String, sJns As String, sKet As String, sStat As String
Dim dtTgl As Date
Dim lRow As Long
With Sheets("Data")
lRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lRow, 1).Value = Range("d8").Value
.Cells(lRow, 2).Value = Range("d9").Value
.Cells(lRow, 3).Value = Range("d10").Value
.Cells(lRow, 4).Value = Range("d11").Value
.Cells(lRow, 5).Value = Range("d12").Value
.Cells(lRow, 6).Value = Range("d13").Value
.Cells(lRow, 7).Value = Range("d15").Value
End With
End Sub
Untuk tombol "Batal" di Input Surat Masuk:
Sub BatalSimpan()
Range("d10,d12:d15";).Value = ""
End Sub
untuk tombol "Update"
Sub UpDate()
Dim sId As String, sProg As String, sTindak As String
Dim lRow As Long
sId = Range("d23").Value
sProg = Range("d31").Value
sTindak = Range("d32").Value
With Sheets("Data")
lRow = .Range("a:a").Cells.Find(sId).Row
.Cells(lRow, 8).Value = sProg
.Cells(lRow, 9).Value = sTindak
End With
End Sub
untuk tombol "Batal" di update data:
Sub BatalUpDate()
Range("d23,d31:d32";).Value = ""
End Sub
untuk tombol "Simpan" di input klien baru:
Sub SimpanBaru()
Dim sId As String, sNama As String
Dim lRow As Long
sId = Range("i23").Value
sNama = Range("i24").Value
With Sheets("DataKlien")
.lRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lRow, 1).Value = sId
.Cells(lRow, 2).Value = sNama
End With
End Sub
dan untuk tombol "Batal" di input klien baru :
Sub BatalBaru()
Range("i23:i24").Value = ""
End Sub
lalu assign macro tersebut ke masing-masing tombol dengan cara klik kanan
pada tombol yang diinginkan, dan pilih nama macronya
Best Regard,
-Miss Jan Raisin-
Pada 21 Februari 2013 21.05, Jaka Sembung odong2odong@gmail.com > menulis:
> **
>
>
> Terimakasih Mr.Kid, untuk masukan join grup ini.
>
> Rencananya saya membuat aplikasi database sederhana untuk monitoring
> kasus masuk. Alurnya adalah:
>
> 1. Setiap ada kasus, diinput di database. Nomor bersifat unik dan
> otomatis digenerate progressnya sebagai "Dalam Proses".
>
> 2. Setiap ada penyelesaian kasus, maka diinput ID Kasus di menu:
> Update Tindak Lanjut Kasus.
>
> 3. Jika ada klien yang belum ada dalam daftar, maka diinput dulu
> identitas klien di menu: Input Klien Baru.
>
> Sederhana memang, tapi karena saya masih belum paham VBA dan Macro,
> sudilah teman-teman milis membantu saya. Terimakasih
>
>
untuk tombol "Simpan" di Input Surat Masuk:
Sub Simpan()
Dim sIdKs As String, sIdKln As String
Dim sNama As String, sJns As String, sKet As String, sStat As String
Dim dtTgl As Date
Dim lRow As Long
With Sheets("
lRow = .Cells(Rows.
.Cells(lRow, 1).Value = Range("
.Cells(lRow, 2).Value = Range("
.Cells(lRow, 3).Value = Range("
.Cells(lRow, 4).Value = Range("
.Cells(lRow, 5).Value = Range("
.Cells(lRow, 6).Value = Range("
.Cells(lRow, 7).Value = Range("
End With
End Sub
Untuk tombol "Batal" di Input Surat Masuk:
Sub BatalSimpan(
Range("
End Sub
untuk tombol "Update"
Sub UpDate()
Dim sId As String, sProg As String, sTindak As String
Dim lRow As Long
sId = Range("
sProg = Range("
sTindak = Range("
With Sheets("
lRow = .Range("
.Cells(lRow, 8).Value = sProg
.Cells(lRow, 9).Value = sTindak
End With
End Sub
untuk tombol "Batal" di update data:
Sub BatalUpDate(
Range("
End Sub
untuk tombol "Simpan" di input klien baru:
Sub SimpanBaru()
Dim sId As String, sNama As String
Dim lRow As Long
sId = Range("
sNama = Range("
With Sheets("
.lRow = .Cells(Rows.
.Cells(lRow, 1).Value = sId
.Cells(lRow, 2).Value = sNama
End With
End Sub
dan untuk tombol "Batal" di input klien baru :
Sub BatalBaru()
Range("
End Sub
lalu assign macro tersebut ke masing-masing tombol dengan cara klik kanan
pada tombol yang diinginkan, dan pilih nama macronya
Best Regard,
-Miss Jan Raisin-
Pada 21 Februari 2013 21.05, Jaka Sembung odong2odong@
> **
>
>
> Terimakasih Mr.Kid, untuk masukan join grup ini.
>
> Rencananya saya membuat aplikasi database sederhana untuk monitoring
> kasus masuk. Alurnya adalah:
>
> 1. Setiap ada kasus, diinput di database. Nomor bersifat unik dan
> otomatis digenerate progressnya sebagai "Dalam Proses"
>
> 2. Setiap ada penyelesaian kasus, maka diinput ID Kasus di menu:
> Update Tindak Lanjut Kasus.
>
> 3. Jika ada klien yang belum ada dalam daftar, maka diinput dulu
> identitas klien di menu: Input Klien Baru.
>
> Sederhana memang, tapi karena saya masih belum paham VBA dan Macro,
> sudilah teman-teman milis membantu saya. Terimakasih
>
>
Pak Hendrik,
Maksud nya aplikasi yg menggunakan dtpicker tidak bisa di share ? Atau tidak bisa di install ? Karena di pc saya sendiri bisa. Nggak ada masalah.
Tks
Sony
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: hendrik karnadi hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Thu, 21 Feb 2013 22:48:16
To: belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Control DTPicker
Setahu saya untuk Excel 2010 tidak bisa.
Salam,
Hendrik Karnadi
________________________________
From: Sony Ario sony.ario1@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, 22 February 2013, 13:36
Subject: [belajar-excel] Control DTPicker
Assalamualaikum teman.
Mohon bantuan info. Ada satu file yang didalam nya menggunakan UserForm yang di dalam nya menggunakan control DTPicker.
Saya bermaksud meng-share file ini untuk keperluan bersama. Akan tetapi hampir semua komputer yang membuka file ini selalu muncul error seperti ini "Could not load an object because it is not available on this machine". Saya sudah coba googling di internet mengenai cara nya, dan file ocx nya, dan saya paste di directory C:Windows\System32 tapi hasil nya tetap sama / error.
Adakah teman2 yang tau akan solusi nya ? sbg informasi saya menggunakan Office 2010 dan Windows 7.
Terima kasih sebelumnya.
Wassalam
Sony
Maksud nya aplikasi yg menggunakan dtpicker tidak bisa di share ? Atau tidak bisa di install ? Karena di pc saya sendiri bisa. Nggak ada masalah.
Tks
Sony
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: hendrik karnadi hendrikkarnadi@
Sender: belajar-excel@
Date: Thu, 21 Feb 2013 22:48:16
To: belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] Control DTPicker
Setahu saya untuk Excel 2010 tidak bisa.
Salam,
Hendrik Karnadi
____________
From: Sony Ario sony.ario1@gmail.
To: belajar-excel@
Sent: Friday, 22 February 2013, 13:36
Subject: [belajar-excel] Control DTPicker
Assalamualaikum teman.
Mohon bantuan info. Ada satu file yang didalam nya menggunakan UserForm yang di dalam nya menggunakan control DTPicker.
Saya bermaksud meng-share file ini untuk keperluan bersama. Akan tetapi hampir semua komputer yang membuka file ini selalu muncul error seperti ini "Could not load an object because it is not available on this machine"
Adakah teman2 yang tau akan solusi nya ? sbg informasi saya menggunakan Office 2010 dan Windows 7.
Terima kasih sebelumnya.
Wassalam
Sony
Fri Feb 22, 2013 7:13 am (PST) . Posted by:
"hendrikkarnadi" hendrikkarnadi
Maksud saya, object dtpicker blm bisa saya instal di excel 2010.
Salam,
Hendrik Karnadi
Sent from Samsung Mobilesony.ario1@gmail.com wrote:Pak Hendrik,
Maksud nya aplikasi yg menggunakan dtpicker tidak bisa di share ? Atau tidak bisa di install ? Karena di pc saya sendiri bisa. Nggak ada masalah.
Tks
Sony
Powered by Telkomsel BlackBerry®
From: hendrik karnadi hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Thu, 21 Feb 2013 22:48:16 -0800 (PST)
To: belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Control DTPicker
Setahu saya untuk Excel 2010 tidak bisa.
Salam,
Hendrik Karnadi
From: Sony Ario sony.ario1@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, 22 February 2013, 13:36
Subject: [belajar-excel] Control DTPicker
Assalamualaikum teman.
Mohon bantuan info. Ada satu file yang didalam nya menggunakan UserForm yang di dalam nya menggunakan control DTPicker.
Saya bermaksud meng-share file ini untuk keperluan bersama. Akan tetapi hampir semua komputer yang membuka file ini selalu muncul error seperti ini "Could not load an object because it is not available on this machine". Saya sudah coba googling di internet mengenai cara nya, dan file ocx nya, dan saya paste di directory C:Windows\System32 tapi hasil nya tetap sama / error.
Adakah teman2 yang tau akan solusi nya ? sbg informasi saya menggunakan Office 2010 dan Windows 7.
Terima kasih sebelumnya.
Wassalam
Sony
Salam,
Hendrik Karnadi
Sent from Samsung Mobilesony.ario1@
Maksud nya aplikasi yg menggunakan dtpicker tidak bisa di share ? Atau tidak bisa di install ? Karena di pc saya sendiri bisa. Nggak ada masalah.
Tks
Sony
Powered by Telkomsel BlackBerry®
From: hendrik karnadi hendrikkarnadi@
Sender: belajar-excel@
Date: Thu, 21 Feb 2013 22:48:16 -0800 (PST)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Re: [belajar-excel] Control DTPicker
Setahu saya untuk Excel 2010 tidak bisa.
Salam,
Hendrik Karnadi
From: Sony Ario sony.ario1@gmail.
To: belajar-excel@
Sent: Friday, 22 February 2013, 13:36
Subject: [belajar-excel] Control DTPicker
Assalamualaikum teman.
Mohon bantuan info. Ada satu file yang didalam nya menggunakan UserForm yang di dalam nya menggunakan control DTPicker.
Saya bermaksud meng-share file ini untuk keperluan bersama. Akan tetapi hampir semua komputer yang membuka file ini selalu muncul error seperti ini "Could not load an object because it is not available on this machine"
Adakah teman2 yang tau akan solusi nya ? sbg informasi saya menggunakan Office 2010 dan Windows 7.
Terima kasih sebelumnya.
Wassalam
Sony
Fri Feb 22, 2013 4:09 am (PST) . Posted by:
"Aisyah Zahrah" aisyah_zahrah@ymail.com
Assalamu`alaikum Wr.Wb
Sebelumnya saya ucapkan terima kasih kepada semua master Excel,
terutama Ms.Jan yang dulu sempat membantu kasus ini
Permasalahan yg sedang saya Hadapi sekarang ini adalah,
penggunaan Tombol ENTER pada USERFORM yang Loncat-Loncat karna ada perubahan letak textbox…
mungkin lebih detailnya saya lampirkan File-nya
Atas bantuannya saya ucapkan Terima Kasih
Sebelumnya saya ucapkan terima kasih kepada semua master Excel,
terutama Ms.Jan yang dulu sempat membantu kasus ini
Permasalahan yg sedang saya Hadapi sekarang ini adalah,
penggunaan Tombol ENTER pada USERFORM yang Loncat-Loncat karna ada perubahan letak textbox…
mungkin lebih detailnya saya lampirkan File-nya
Atas bantuannya saya ucapkan Terima Kasih
Fri Feb 22, 2013 4:09 am (PST) . Posted by:
"r|o|n|z|t|"
Alhamdulillah, terimakasih >> agung aldhino [d_nozz@yahoo.co.id ],
terimakasih all member belajar-excel ini sangat membantu, Barrakallah
terimakasih all member belajar-excel ini sangat membantu, Barrakallah
Fri Feb 22, 2013 4:10 am (PST) . Posted by:
"Perjaka Tong tong" pjktongtong
Salam,
Kepada para master dan warga milis mohon dibantu.
Saya ingin mengisi kolom TUNJANGAN (kolom F) secara otomatis berdasarkan beberapa kriteria. Selengkapnya mohon dilihat pada lampiran
Terima kasih
Kepada para master dan warga milis mohon dibantu.
Saya ingin mengisi kolom TUNJANGAN (kolom F) secara otomatis berdasarkan beberapa kriteria. Selengkapnya mohon dilihat pada lampiran
Terima kasih
Fri Feb 22, 2013 4:11 am (PST) . Posted by:
"Heru Safrudin" superheruu
Dear Master,
Untuk menghapus beberapa record biasanya saya pakai looping rs.delete
Adakah cara yang lebih cepat selain cara di atas ???
Apakah juga ada perintah untuk update data satu field sekaligus
selain menggunakan loop rs.update
Seperti di excel ada Find and Replace
--
Terima kasih
������������ ���������� ���������� ����� �������������
Heru Safrudin
Untuk menghapus beberapa record biasanya saya pakai looping rs.delete
Adakah cara yang lebih cepat selain cara di atas ???
Apakah juga ada perintah untuk update data satu field sekaligus
selain menggunakan loop rs.update
Seperti di excel ada Find and Replace
--
Terima kasih
������������ ���������� ���������� ����� �������������
Heru Safrudin
Fri Feb 22, 2013 5:36 am (PST) . Posted by:
"aldrin h" adinhp
Dear Mr Kid dan Miss Jan
mengenai pertanyaan saya tempo hari, akhirnya saya berhasil membuat hanya Input Data saja, dan akhirnya setalah sekian lama akhirnya saya bingung lagi
berikut ini saya lampirkan hasil pekerjaan saya,
yang ingin saya tanyakan, bagaimana caranya button left dan button right saya bisa berfungsi, sehingga saya bisa edit data yang telah terinput..
terima kasih atas pelajaran yang telah diberikan, mohon maaf apabila merepotkan.
Aldrin Himawan
Fri Feb 22, 2013 12:00 pm (PST) . Posted by:
"nandang arifin" nndang_arifin
Kata underline tersebut untuk menandakan keterangan dengan kriteria tertentu.
kata tersebut didapat dari aplikasi internet yang di copy, sudah otomatis underline pada sebagian.
Formulanya sangat membantu, sebelumnya yang saya pakai : "=subtitute( " tapi kurang efektif karna kata yang harus dihilangkan ada lebih dari 1.000 kata beda jenis.
Thanks & regard
wassalam,
Arif
________________________________
Dari: Mr. Kid mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 21 Februari 2013 19:14
Judul: Re: [belajar-excel] Mnghapus kata
Kalau boleh bertanya sedikit,
Apakah yang menyebabkan user melakukan Underline di sebagian teks tersebut ? Padahal untuk meng-underline sebagian itu saja sudah repot loh
Pasti user punya alasan hingga bagian itu harus di-underline.
Nah... bagaimana jika alasan itu ditulis di kolom baru disampingnya.
Jika sebenernya ingin menghilangkan dari sleuruh data bagian yang dikurung, dan bagian dikurung itu selalu di bagian paling belakang data, bisa menggunakan formula yang diletakkan di kolom G berbunyi (misal G4)
=Trim( Left( c4 , Find( "(" , c4 ) -1 ) )
Jika tidak ingin dengan formula, pada xl2007 ke atas bisa memanfaatkan fitur Text To Columns
1. blok datanya
2. ribbon (menu) Data -> Text to columns -> pilih Delimited -> Next -> pilih opsi Other -> isi karakter buka kurung di texbox di kanan opsi other -> Next
-> lihat Data Preview -> klik kolom ke-2 (yang ada tutup kurungnya) hingga jadi terblok hitam -> lihat Column Data Format (atasnya data preview)
-> pilih Do not import -> Destination : isi dengan cell pertama kolom data yang di blok (nomor 1) -> Finish
Wassalam,
Kid.
2013/2/20 nandang arifin nndang_arifin@yahoo.com >
>
>Dear Master
>
>
>Saya ingin mengajukan pertanyaan yang sekira nya sukar bagi saya
>mohon pencerahan nya
>file terlampir
>
>
>
>
>Terima kasih
>wassalam
>
>
>Arif
>
>
kata tersebut didapat dari aplikasi internet yang di copy, sudah otomatis underline pada sebagian.
Formulanya sangat membantu, sebelumnya yang saya pakai : "=subtitute( " tapi kurang efektif karna kata yang harus dihilangkan ada lebih dari 1.000 kata beda jenis.
Thanks & regard
wassalam,
Arif
____________
Dari: Mr. Kid mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Kamis, 21 Februari 2013 19:14
Judul: Re: [belajar-excel] Mnghapus kata
Kalau boleh bertanya sedikit,
Apakah yang menyebabkan user melakukan Underline di sebagian teks tersebut ? Padahal untuk meng-underline sebagian itu saja sudah repot loh
Pasti user punya alasan hingga bagian itu harus di-underline.
Nah... bagaimana jika alasan itu ditulis di kolom baru disampingnya.
Jika sebenernya ingin menghilangkan dari sleuruh data bagian yang dikurung, dan bagian dikurung itu selalu di bagian paling belakang data, bisa menggunakan formula yang diletakkan di kolom G berbunyi (misal G4)
=Trim( Left( c4 , Find( "(" , c4 ) -1 ) )
Jika tidak ingin dengan formula, pada xl2007 ke atas bisa memanfaatkan fitur Text To Columns
1. blok datanya
2. ribbon (menu) Data -> Text to columns -> pilih Delimited -> Next -> pilih opsi Other -> isi karakter buka kurung di texbox di kanan opsi other -> Next
-> lihat Data Preview -> klik kolom ke-2 (yang ada tutup kurungnya) hingga jadi terblok hitam -> lihat Column Data Format (atasnya data preview)
-> pilih Do not import -> Destination : isi dengan cell pertama kolom data yang di blok (nomor 1) -> Finish
Wassalam,
Kid.
2013/2/20 nandang arifin nndang_arifin@
>
>Dear Master
>
>
>Saya ingin mengajukan pertanyaan yang sekira nya sukar bagi saya
>mohon pencerahan nya
>file terlampir
>
>
>
>
>Terima kasih
>wassalam
>
>
>Arif
>
>
Fri Feb 22, 2013 12:01 pm (PST) . Posted by:
"sembaran joko" jokosembaran
Dear all master excel
Assalamu'alaikum,
Master saya minta tolong nih? masalah nomor urut dan validasi. Dengan
masalah
tersbut perlulah kiranya saya harus mendapatkan pencerahan dari master, yang
punya pengalaman dan ilmunya, bagaimanakah cara menggunakan formula
sebagai berikut:
1. Nomor urut secara otomatis pada kolom F2:F8 berdasarkan pada kolom
H2:H8 jika terisi nama jenis maka nomor urutnya langsung muncul dan
jika kosong (blank) maka dikolom F2:F8 turut serta kosong.
2. Validasi jenis pada cell H2, jika diklik softdrik maka pada cell I2 bisa
muncul pilihannya (coca cola, green snd, fanta, pepsi, seven-up, sprite)
sebagai gambaran maka contoh datanya saya lampirkan.
Demikian atas pencerahannya saya mengucapkan terimakasih.
Wassalam,
Sembaran
Assalamu'
Master saya minta tolong nih? masalah nomor urut dan validasi. Dengan
masalah
tersbut perlulah kiranya saya harus mendapatkan pencerahan dari master, yang
punya pengalaman dan ilmunya, bagaimanakah cara menggunakan formula
sebagai berikut:
1. Nomor urut secara otomatis pada kolom F2:F8 berdasarkan pada kolom
H2:H8 jika terisi nama jenis maka nomor urutnya langsung muncul dan
jika kosong (blank) maka dikolom F2:F8 turut serta kosong.
2. Validasi jenis pada cell H2, jika diklik softdrik maka pada cell I2 bisa
muncul pilihannya (coca cola, green snd, fanta, pepsi, seven-up, sprite)
sebagai gambaran maka contoh datanya saya lampirkan.
Demikian atas pencerahannya saya mengucapkan terimakasih.
Wassalam,
Sembaran
Fri Feb 22, 2013 12:01 pm (PST) . Posted by:
"Supriyanto S" priweto
Assalamu'alaikum wr. wb
Selamat pagi para suhu excel, semoga sehat dan fress selalu.....
Mohon pencerahan dan pitunjuknya karena saya sudah muter-muter browsing
tapi belum ktemu jua solusinya. Dan juga mohon disempurnakan code-code vb
yang ada.....
Kondisi saat ini jika checkbox diklik error "Subscript out of range"
Pada attachment, Yang di inginkan;
1. Ketika tiap masing2 checkbox diklik/centrang otomatis UserFormnya Show dan
ketika UserForm diClose maka centrangan pada checkbox hilang.
2. Hasil dari isian userform (checkbox (- Periode)) akan otomatis disimpan
di SheetMaster(pROType) Range "A8:F8"
3. Mohon dipandu untuk membuat code/syntax menu "Edit'e" (jika ada data yang
diedit maka data tersebut tetap tersimpan pada rangenya (rows/coloum awal
sbelum diedit)
4. Mohon dipandu/contoh syntax untuk 2 ato 3 checkbox agar menampilkan
userform
Atas bantuan dan pencerahannya sebelumnya saya ucapkan terima kasih
Supriyanto
sumber isi attachment merupakan terusan/terilhami file
"ctv_UserForm_ContohInputForm_02" dari alm Suhu/Be-Exceller "Setyowati Devi
/Mbak Siti Vi /Ctv"
Selamat pagi para suhu excel, semoga sehat dan fress selalu.....
Mohon pencerahan dan pitunjuknya karena saya sudah muter-muter browsing
tapi belum ktemu jua solusinya. Dan juga mohon disempurnakan code-code vb
yang ada.....
Kondisi saat ini jika checkbox diklik error "Subscript out of range"
Pada attachment, Yang di inginkan;
1. Ketika tiap masing2 checkbox diklik/centrang otomatis UserFormnya Show dan
ketika UserForm diClose maka centrangan pada checkbox hilang.
2. Hasil dari isian userform (checkbox (- Periode)) akan otomatis disimpan
di SheetMaster(
3. Mohon dipandu untuk membuat code/syntax menu "Edit&#
diedit maka data tersebut tetap tersimpan pada rangenya (rows/coloum awal
sbelum diedit)
4. Mohon dipandu/contoh syntax untuk 2 ato 3 checkbox agar menampilkan
userform
Atas bantuan dan pencerahannya sebelumnya saya ucapkan terima kasih
Supriyanto
sumber isi attachment merupakan terusan/terilhami file
"ctv_UserForm_
/Mbak Siti Vi /Ctv"
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar