15 New Messages
Digest #2519
4a
Re: pengeditan data dengan bentuk userform yg sama dengan userform p by "Mr. KEPT" kurniawan_tufail@ymail.com
4b
Re: pengeditan data dengan bentuk userform yg sama dengan userform p by kurniawan_tufail@ymail.com
Messages
Sat Sep 7, 2013 5:01 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
File terlampir.
Wassalam,
Kid.
2013/9/7 achmad adi <didon13@ymail.com>
> **
>
>
> Mr.Kid...
> ada sedikit problem....
> pada waku penyimpanan...apabila OPTION BUTTON kosong dan di BATAL kan
> data tetap tersimpan,,,tombol BATAL harapan nya semua data tidak
> terimpan,,,,
>
> dan satu lagi
> utuk pengEDITAN,,,kok data yang lama( untuk Value ) tetap nongol,,,tidak
> terhapus tergantikan value baru sesuai dengan OPTION BUTTON yang baru..
>
> karena disini saya ingin satu baris,,,satu value di OPTION BUTTON
> tertuju,,,
>
> terimakasih banyak Mr. Kid
>
> *Dari:* achmad adi <didon13@ymail.com>
> *Kepada:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Dikirim:* Sabtu, 7 September 2013 0:01
> *Judul:* Bls: [belajar-excel] tentang option button
> **
>
> alhmdullilah...**mantap,,,terimakasih banyak Mr. Kid,,,**akhirnya sesuai
> harapan,,,****maju terus beexceller**
>
>
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* BeExcel <belajar-excel@yahoogroups.com>
> *Dikirim:* Jumat, 6 September 2013 23:26
> *Judul:* Re: [belajar-excel] tentang option button
> **
>
> file terlampir.**
> Wassalam,
> Kid.
> ****
> 2013/9/6 achmad adi <didon13@ymail.com>**
>
> **
>
> disini saya mencoba membuat input data barang mengunakan user form yang
> berisi**nomer urut :**tanggal :**supplier :**DN no :**PO no :**PV no:**
> VALUE:**OPTTION BUTTON ( 1 - 11 )**scrool bar ( untuk meliha data yang
> sudah diinput )****pada waktu penginputan dan disimpan di sheetF20 secara
> otomatis sudah bisa tersimpan sesuai harapan **disertai value untuk
> disimpan di cells tertuju menggnakan OPTION BUTTON..****tetapi masalah
> yang saya hadapi sekarang,,,( udah buntu,,,hehehe,,,ngoprek sana sini gk
> ketemu,,,)** 1. ketika scroll digeser, untuk Value dan dan option button
> kosong,,,tidak terisi data yang telah tersimpan,,,** 2. untuk tombol
> EDIT,,,ketika saya mencoba merubah nilai value dan OPTION BUTTON,,,dan saya
> simpan data yang baru..** data tidak mau tersimpan di data
> sebelumnya,,,malah menumpuk di baris terakhir,,,**3. dan terakhir,,pada
> waktu menyimpan data,,, OPTION BUTTON harus dipilih salah satu,,,apabila
> tidak ada peringatan seperti yang ada di texbox value...****lebih
> jelasnya saya lampirkan lagi,,file yang baru,,****terimakasih banyak atas
> bantuanya para master,,,
>
> **
> ****
> ****
>
>
>
Wassalam,
Kid.
2013/9/7 achmad adi <didon13@ymail.
> **
>
>
> Mr.Kid...
> ada sedikit problem....
> pada waku penyimpanan.
> data tetap tersimpan,,,
> terimpan,,,,
>
> dan satu lagi
> utuk pengEDITAN,,
> terhapus tergantikan value baru sesuai dengan OPTION BUTTON yang baru..
>
> karena disini saya ingin satu baris,,,satu value di OPTION BUTTON
> tertuju,,,
>
> terimakasih banyak Mr. Kid
>
> *Dari:* achmad adi <didon13@ymail.
> *Kepada:* "belajar-excel@
> *Dikirim:* Sabtu, 7 September 2013 0:01
> *Judul:* Bls: [belajar-excel] tentang option button
> **
>
> alhmdullilah.
> harapan,,,**
>
>
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* BeExcel <belajar-excel@
> *Dikirim:* Jumat, 6 September 2013 23:26
> *Judul:* Re: [belajar-excel] tentang option button
> **
>
> file terlampir.**
> Wassalam,
> Kid.
> ****
> 2013/9/6 achmad adi <didon13@ymail.
>
> **
>
> disini saya mencoba membuat input data barang mengunakan user form yang
> berisi**nomer urut :**tanggal :**supplier :**DN no :**PO no :**PV no:**
> VALUE:**OPTTION BUTTON ( 1 - 11 )**scrool bar ( untuk meliha data yang
> sudah diinput )****pada waktu penginputan dan disimpan di sheetF20 secara
> otomatis sudah bisa tersimpan sesuai harapan **disertai value untuk
> disimpan di cells tertuju menggnakan OPTION BUTTON..****
> yang saya hadapi sekarang,,,( udah buntu,,,hehehe,
> ketemu,,,)** 1. ketika scroll digeser, untuk Value dan dan option button
> kosong,,,tidak terisi data yang telah tersimpan,,,
> EDIT,,,ketika saya mencoba merubah nilai value dan OPTION BUTTON,,,dan saya
> simpan data yang baru..** data tidak mau tersimpan di data
> sebelumnya,,
> waktu menyimpan data,,, OPTION BUTTON harus dipilih salah satu,,,apabila
> tidak ada peringatan seperti yang ada di texbox value...****
> jelasnya saya lampirkan lagi,,file yang baru,,****terimakas
> bantuanya para master,,,
>
> **
> ****
> ****
>
>
>
Sat Sep 7, 2013 5:06 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Rudi,
Mungkin seperti file terlampir. Data diberi nomor urut asli sesuai
kebutuhan, kemudian di sort berdasar nama dan pekerjaan ascending. Kolom
nomor disusun dengan formula agar ketika terfilter membentuk nomor urut
hasil filter. Baris nomor urut asli dilebihkan satu baris.
Wassalam,
Kid.
2013/9/7 Rudi Anto <rudi.excel@yahoo.com>
> **
>
>
>
>
>
> Assalamu'alaikum Wr. Wb.
>
> Rekan-rekan BeExcel yang makin Excellent,
> Saya ada kasus mengenai penomoran pada ribuan data
> berdasarkan kriteria nilai cell yang disini cellnya berdasarkan
> jenis pekerjaan,
> ada 2 kolom pada sheet data yang selanjutnya ditambah satu kolom lagi
> untuk nilai nomor urut.
>
> Bentuk kolom Hasil :
>
> Nomor | Nama | Pekerjaan
>
>
>
> Untuk nomor terisi nomor urut dari 1 sampai seterusnya
> yang mana penomorannya berdasarkan jenis pekerjaan
> dan nama disort dari A-Z
>
> Jika di fillter berdasarkan pekerjaan, nomor akan terisi
> 1-seterusnya dan nama akan tampak tersort dari A-Z
>
> Contoh saya lampirkan,
>
> Terima kasih atas bantuaanya,
>
> Wassalamu'alaikum Wr. Wb.
>
>
> ++rudi
>
>
>
>
Mungkin seperti file terlampir. Data diberi nomor urut asli sesuai
kebutuhan, kemudian di sort berdasar nama dan pekerjaan ascending. Kolom
nomor disusun dengan formula agar ketika terfilter membentuk nomor urut
hasil filter. Baris nomor urut asli dilebihkan satu baris.
Wassalam,
Kid.
2013/9/7 Rudi Anto <rudi.excel@yahoo.
> **
>
>
>
>
>
> Assalamu'
>
> Rekan-rekan BeExcel yang makin Excellent,
> Saya ada kasus mengenai penomoran pada ribuan data
> berdasarkan kriteria nilai cell yang disini cellnya berdasarkan
> jenis pekerjaan,
> ada 2 kolom pada sheet data yang selanjutnya ditambah satu kolom lagi
> untuk nilai nomor urut.
>
> Bentuk kolom Hasil :
>
> Nomor | Nama | Pekerjaan
>
>
>
> Untuk nomor terisi nomor urut dari 1 sampai seterusnya
> yang mana penomorannya berdasarkan jenis pekerjaan
> dan nama disort dari A-Z
>
> Jika di fillter berdasarkan pekerjaan, nomor akan terisi
> 1-seterusnya dan nama akan tampak tersort dari A-Z
>
> Contoh saya lampirkan,
>
> Terima kasih atas bantuaanya,
>
> Wassalamu'
>
>
> ++rudi
>
>
>
>
Sat Sep 7, 2013 5:10 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Kalau pakai loop, coba pakai Evaluate daripada worksheetfunction. Sapa tahu
bisa lebih cepat.
Wassalam,
Kid.
On Sat, Sep 7, 2013 at 4:54 PM, hendrik karnadi <hendrikkarnadi@yahoo.com>wrote:
> **
>
>
> Mumpung lagi senggang dan Mr Kid. baru saja membahas looping dengan
> For....., dengan meminjam codes dari MJR (boleh kan Miss?),
> maka saya coba mainkan dengan Event Worksheet_Change pada sel U5 tempat
> dimana No. NPB, No. PR dan No. PO mau diletakkan.
>
> Codes pada VBE Sheet3(tabel):
> Option Explicit
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address = "$U$5" Then
> If Target.Count = 1 Then
> With Target
> If .Value = "No. NPB" Then
> Call NPB
> ElseIf .Value = "No. PR" Then
> Call PR
> ElseIf .Value = "No. PO" Then
> Call PO
>
> End If
> End With
> End If
> End If
> End Sub
>
> Codes pada Module1 (setelah insert module):
> Option Explicit
>
> Sub NPB()
> Dim rgNpb As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 2).End(xlUp).Row
> Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2))
> For Each cel In rgNpb
> lCel = cel.Row
> Set rgCount = Range(Cells(6, 2), Cells(lCel, 2))
> iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
> cel.Offset(, 19).Value = cel.Value & "-" & iCount '20 diganti 19 (sebelumnya
> tertulis 20)
> Next cel
> End Sub
>
> Sub PR()
> Dim rgPR As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 10).End(xlUp).Row '2 diganti 10
> Set rgPR = Range(Cells(6, 10), Cells(lRow, 10)) '2 diganti 10
> For Each cel In rgPR
> lCel = cel.Row
> Set rgCount = Range(Cells(6, 10), Cells(lCel, 10)) '2 diganti 10
> iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
> cel.Offset(, 11).Value = cel.Value & "-" & iCount '19 diganti 11
> Next cel
> End Sub
>
> Sub PO()
> Dim rgPO As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 16).End(xlUp).Row '2 diganti 16
> Set rgPO = Range(Cells(6, 16), Cells(lRow, 16)) '2 diganti 16
> For Each cel In rgPO
> lCel = cel.Row
> Set rgCount = Range(Cells(6, 16), Cells(lCel, 16)) '2 diganti 16
> iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
> cel.Offset(, 5).Value = cel.Value & "-" & iCount '19 diganti 5
> Next cel
> End Sub
>
> Semoga bermanfaat (pinjam slogan pak Anton).
>
> Salam,
> HK
>
> File dilampirkan untuk uji materi
>
> ------------------------------
> *From:* neza ibaneza <nezaibaneza@yahoo.co.id>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Friday, 6 September 2013, 7:19
> *Subject:* [belajar-excel] rumus yang tidak running
>
>
> Salam B-Excel
>
> Master-master yang baik hati, saya coba buat rumus VBA, tp kok ada
> sebagian yang tidak running
> masalahnya dimana ya?
>
> Salam
> Neza
>
>
>
>
bisa lebih cepat.
Wassalam,
Kid.
On Sat, Sep 7, 2013 at 4:54 PM, hendrik karnadi <hendrikkarnadi@
> **
>
>
> Mumpung lagi senggang dan Mr Kid. baru saja membahas looping dengan
> For....., dengan meminjam codes dari MJR (boleh kan Miss?),
> maka saya coba mainkan dengan Event Worksheet_Change pada sel U5 tempat
> dimana No. NPB, No. PR dan No. PO mau diletakkan.
>
> Codes pada VBE Sheet3(tabel)
> Option Explicit
>
> Private Sub Worksheet_Change(
> If Target.Address = "$U$5" Then
> If Target.Count = 1 Then
> With Target
> If .Value = "No. NPB" Then
> Call NPB
> ElseIf .Value = "No. PR" Then
> Call PR
> ElseIf .Value = "No. PO" Then
> Call PO
>
> End If
> End With
> End If
> End If
> End Sub
>
> Codes pada Module1 (setelah insert module):
> Option Explicit
>
> Sub NPB()
> Dim rgNpb As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 2).End(xlUp)
> Set rgNpb = Range(Cells(
> For Each cel In rgNpb
> lCel = cel.Row
> Set rgCount = Range(Cells(
> iCount = Application.
> cel.Offset(, 19).Value = cel.Value & "-" & iCount '20 diganti 19 (sebelumnya
> tertulis 20)
> Next cel
> End Sub
>
> Sub PR()
> Dim rgPR As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 10).End(xlUp)
> Set rgPR = Range(Cells(
> For Each cel In rgPR
> lCel = cel.Row
> Set rgCount = Range(Cells(
> iCount = Application.
> cel.Offset(, 11).Value = cel.Value & "-" & iCount '19 diganti 11
> Next cel
> End Sub
>
> Sub PO()
> Dim rgPO As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 16).End(xlUp)
> Set rgPO = Range(Cells(
> For Each cel In rgPO
> lCel = cel.Row
> Set rgCount = Range(Cells(
> iCount = Application.
> cel.Offset(, 5).Value = cel.Value & "-" & iCount '19 diganti 5
> Next cel
> End Sub
>
> Semoga bermanfaat (pinjam slogan pak Anton).
>
> Salam,
> HK
>
> File dilampirkan untuk uji materi
>
> ------------
> *From:* neza ibaneza <nezaibaneza@
> *To:* "belajar-excel@
> *Sent:* Friday, 6 September 2013, 7:19
> *Subject:* [belajar-excel] rumus yang tidak running
>
>
> Salam B-Excel
>
> Master-master yang baik hati, saya coba buat rumus VBA, tp kok ada
> sebagian yang tidak running
> masalahnya dimana ya?
>
> Salam
> Neza
>
>
>
>
Sat Sep 7, 2013 8:15 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Btw, gimana codenya Mr. Kid karena saya belum kenal baik dengan teman kita yang bernama "Evaluate";.
Salam,
HK
________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Saturday, 7 September 2013, 19:10
Subject: Re: [belajar-excel] rumus yang tidak running
Kalau pakai loop, coba pakai Evaluate daripada worksheetfunction. Sapa tahu bisa lebih cepat.
Wassalam,
Kid.
On Sat, Sep 7, 2013 at 4:54 PM, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:
>
>Mumpung lagi senggang dan Mr Kid. baru saja membahas looping dengan For....., dengan meminjam codes dari MJR (boleh kan Miss?),
>maka saya coba mainkan dengan Event Worksheet_Change pada sel U5 tempat dimana No. NPB, No. PR dan No. PO mau diletakkan.
>
>
>Codes pada VBE Sheet3(tabel):
>Option Explicit
>
>
>
>Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address = "$U$5" Then
> If Target.Count = 1 Then
> With Target
> If .Value = "No. NPB" Then
> Call NPB
> ElseIf .Value = "No. PR" Then
> Call PR
> ElseIf .Value = "No. PO" Then
> Call PO
>
> End If
> End With
> End If
> End If
>End Sub
>
>
>Codes pada Module1 (setelah insert module):
>Option Explicit
>
>
>
>Sub NPB()
> Dim rgNpb As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 2).End(xlUp).Row
> Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2))
> For Each cel In rgNpb
> lCel = cel.Row
> Set rgCount = Range(Cells(6, 2), Cells(lCel, 2))
> iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
> cel.Offset(, 19).Value = cel.Value & "-" & iCount '20 diganti 19 (sebelumnya tertulis 20)
> Next cel
>End Sub
>
>
>Sub PR()
> Dim rgPR As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 10).End(xlUp).Row '2 diganti 10
> Set rgPR = Range(Cells(6, 10), Cells(lRow, 10)) '2 diganti 10
> For Each cel In rgPR
> lCel = cel.Row
> Set rgCount = Range(Cells(6, 10), Cells(lCel, 10)) '2 diganti 10
> iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
> cel.Offset(, 11).Value = cel.Value & "-" & iCount '19 diganti 11
> Next cel
>End Sub
>
>
>Sub PO()
> Dim rgPO As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 16).End(xlUp).Row '2 diganti 16
> Set rgPO = Range(Cells(6, 16), Cells(lRow, 16)) '2 diganti 16
> For Each cel In rgPO
> lCel = cel.Row
> Set rgCount = Range(Cells(6, 16), Cells(lCel, 16)) '2 diganti 16
> iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
> cel.Offset(, 5).Value = cel.Value & "-" & iCount '19 diganti 5
> Next cel
>End Sub
>
>
>Semoga bermanfaat (pinjam slogan pak Anton).
>
>
>Salam,
>HK
>
>
>File dilampirkan untuk uji materi
>
>
>
>________________________________
> From: neza ibaneza <nezaibaneza@yahoo.co.id>
>To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>Sent: Friday, 6 September 2013, 7:19
>Subject: [belajar-excel] rumus yang tidak running
>
>
>
>
>Salam B-Excel
>
>
>Master-master yang baik hati, saya coba buat rumus VBA, tp kok ada sebagian yang tidak running
>masalahnya dimana ya?
>
>
>Salam
>Neza
>
>
Salam,
HK
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Saturday, 7 September 2013, 19:10
Subject: Re: [belajar-excel] rumus yang tidak running
Kalau pakai loop, coba pakai Evaluate daripada worksheetfunction. Sapa tahu bisa lebih cepat.
Wassalam,
Kid.
On Sat, Sep 7, 2013 at 4:54 PM, hendrik karnadi <hendrikkarnadi@
>
>Mumpung lagi senggang dan Mr Kid. baru saja membahas looping dengan For....., dengan meminjam codes dari MJR (boleh kan Miss?),
>maka saya coba mainkan dengan Event Worksheet_Change pada sel U5 tempat dimana No. NPB, No. PR dan No. PO mau diletakkan.
>
>
>Codes pada VBE Sheet3(tabel)
>Option Explicit
>
>
>
>Private Sub Worksheet_Change(
> If Target.Address = "$U$5" Then
> If Target.Count = 1 Then
> With Target
> If .Value = "No. NPB" Then
> Call NPB
> ElseIf .Value = "No. PR" Then
> Call PR
> ElseIf .Value = "No. PO" Then
> Call PO
>
> End If
> End With
> End If
> End If
>End Sub
>
>
>Codes pada Module1 (setelah insert module):
>Option Explicit
>
>
>
>Sub NPB()
> Dim rgNpb As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 2).End(xlUp)
> Set rgNpb = Range(Cells(
> For Each cel In rgNpb
> lCel = cel.Row
> Set rgCount = Range(Cells(
> iCount = Application.
> cel.Offset(, 19).Value = cel.Value & "-" & iCount '20 diganti 19 (sebelumnya tertulis 20)
> Next cel
>End Sub
>
>
>Sub PR()
> Dim rgPR As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 10).End(xlUp)
> Set rgPR = Range(Cells(
> For Each cel In rgPR
> lCel = cel.Row
> Set rgCount = Range(Cells(
> iCount = Application.
> cel.Offset(, 11).Value = cel.Value & "-" & iCount '19 diganti 11
> Next cel
>End Sub
>
>
>Sub PO()
> Dim rgPO As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 16).End(xlUp)
> Set rgPO = Range(Cells(
> For Each cel In rgPO
> lCel = cel.Row
> Set rgCount = Range(Cells(
> iCount = Application.
> cel.Offset(, 5).Value = cel.Value & "-" & iCount '19 diganti 5
> Next cel
>End Sub
>
>
>Semoga bermanfaat (pinjam slogan pak Anton).
>
>
>Salam,
>HK
>
>
>File dilampirkan untuk uji materi
>
>
>
>________
> From: neza ibaneza <nezaibaneza@
>To: "belajar-excel@
>Sent: Friday, 6 September 2013, 7:19
>Subject: [belajar-excel] rumus yang tidak running
>
>
>
>
>Salam B-Excel
>
>
>Master-master yang baik hati, saya coba buat rumus VBA, tp kok ada sebagian yang tidak running
>masalahnya dimana ya?
>
>
>Salam
>Neza
>
>
Sat Sep 7, 2013 3:34 pm (PDT) . Posted by:
"dwint ruswanto"
mungkin seperti ini
Cells("alamat_celnya").Value = Evaluate("=formulanya";)
jadi script yang berbunyi
Application.WorksheetFuntion.Formulanya(blablabla)
langsung diganti dengan Evaluate
secara logika script tersebut akan berjalan lebih cepat karena:
memangkas waktu yang digunakan untuk memanggil formula di worksheet untuk
diaplikasikan ke dalam vba, karena prosesnya langsung digantikan oleh
fungsi internal vba itu sendiri
kira2 seperti itu.. untuk pembuktian mungkin dapat diuji kecepatan proses
dengan beberapa baris data yabg lebih banyak.
maaf jika penjelasannya berantakan, karena diketik menggunakan handphone.
cmiiw.
-dwint-
On Sep 7, 2013 10:17 PM, "hendrik karnadi" <hendrikkarnadi@yahoo.com> wrote:
> **
>
>
> Btw, gimana codenya Mr. Kid karena saya belum kenal baik dengan teman kita
> yang bernama "Evaluate";.
>
> Salam,
> HK
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Saturday, 7 September 2013, 19:10
> *Subject:* Re: [belajar-excel] rumus yang tidak running
>
>
> Kalau pakai loop, coba pakai Evaluate daripada worksheetfunction. Sapa
> tahu bisa lebih cepat.
>
> Wassalam,
> Kid.
>
>
>
> On Sat, Sep 7, 2013 at 4:54 PM, hendrik karnadi <hendrikkarnadi@yahoo.com>wrote:
>
> **
>
> Mumpung lagi senggang dan Mr Kid. baru saja membahas looping dengan
> For....., dengan meminjam codes dari MJR (boleh kan Miss?),
> maka saya coba mainkan dengan Event Worksheet_Change pada sel U5 tempat
> dimana No. NPB, No. PR dan No. PO mau diletakkan.
>
> Codes pada VBE Sheet3(tabel):
> Option Explicit
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address = "$U$5" Then
> If Target.Count = 1 Then
> With Target
> If .Value = "No. NPB" Then
> Call NPB
> ElseIf .Value = "No. PR" Then
> Call PR
> ElseIf .Value = "No. PO" Then
> Call PO
>
> End If
> End With
> End If
> End If
> End Sub
>
> Codes pada Module1 (setelah insert module):
> Option Explicit
>
> Sub NPB()
> Dim rgNpb As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 2).End(xlUp).Row
> Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2))
> For Each cel In rgNpb
> lCel = cel.Row
> Set rgCount = Range(Cells(6, 2), Cells(lCel, 2))
> iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
> cel.Offset(, 19).Value = cel.Value & "-" & iCount '20 diganti 19 (sebelumnya
> tertulis 20)
> Next cel
> End Sub
>
> Sub PR()
> Dim rgPR As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 10).End(xlUp).Row '2 diganti 10
> Set rgPR = Range(Cells(6, 10), Cells(lRow, 10)) '2 diganti 10
> For Each cel In rgPR
> lCel = cel.Row
> Set rgCount = Range(Cells(6, 10), Cells(lCel, 10)) '2 diganti 10
> iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
> cel.Offset(, 11).Value = cel.Value & "-" & iCount '19 diganti 11
> Next cel
> End Sub
>
> Sub PO()
> Dim rgPO As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 16).End(xlUp).Row '2 diganti 16
> Set rgPO = Range(Cells(6, 16), Cells(lRow, 16)) '2 diganti 16
> For Each cel In rgPO
> lCel = cel.Row
> Set rgCount = Range(Cells(6, 16), Cells(lCel, 16)) '2 diganti 16
> iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
> cel.Offset(, 5).Value = cel.Value & "-" & iCount '19 diganti 5
> Next cel
> End Sub
>
> Semoga bermanfaat (pinjam slogan pak Anton).
>
> Salam,
> HK
>
> File dilampirkan untuk uji materi
>
> ------------------------------
> *From:* neza ibaneza <nezaibaneza@yahoo.co.id>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Friday, 6 September 2013, 7:19
> *Subject:* [belajar-excel] rumus yang tidak running
>
>
> Salam B-Excel
>
> Master-master yang baik hati, saya coba buat rumus VBA, tp kok ada
> sebagian yang tidak running
> masalahnya dimana ya?
>
> Salam
> Neza
>
>
>
>
>
>
>
Cells("
jadi script yang berbunyi
Application.
langsung diganti dengan Evaluate
secara logika script tersebut akan berjalan lebih cepat karena:
memangkas waktu yang digunakan untuk memanggil formula di worksheet untuk
diaplikasikan ke dalam vba, karena prosesnya langsung digantikan oleh
fungsi internal vba itu sendiri
kira2 seperti itu.. untuk pembuktian mungkin dapat diuji kecepatan proses
dengan beberapa baris data yabg lebih banyak.
maaf jika penjelasannya berantakan, karena diketik menggunakan handphone.
cmiiw.
-dwint-
On Sep 7, 2013 10:17 PM, "hendrik karnadi" <hendrikkarnadi@
> **
>
>
> Btw, gimana codenya Mr. Kid karena saya belum kenal baik dengan teman kita
> yang bernama "Evaluate"
>
> Salam,
> HK
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Saturday, 7 September 2013, 19:10
> *Subject:* Re: [belajar-excel] rumus yang tidak running
>
>
> Kalau pakai loop, coba pakai Evaluate daripada worksheetfunction. Sapa
> tahu bisa lebih cepat.
>
> Wassalam,
> Kid.
>
>
>
> On Sat, Sep 7, 2013 at 4:54 PM, hendrik karnadi <hendrikkarnadi@
>
> **
>
> Mumpung lagi senggang dan Mr Kid. baru saja membahas looping dengan
> For....., dengan meminjam codes dari MJR (boleh kan Miss?),
> maka saya coba mainkan dengan Event Worksheet_Change pada sel U5 tempat
> dimana No. NPB, No. PR dan No. PO mau diletakkan.
>
> Codes pada VBE Sheet3(tabel)
> Option Explicit
>
> Private Sub Worksheet_Change(
> If Target.Address = "$U$5" Then
> If Target.Count = 1 Then
> With Target
> If .Value = "No. NPB" Then
> Call NPB
> ElseIf .Value = "No. PR" Then
> Call PR
> ElseIf .Value = "No. PO" Then
> Call PO
>
> End If
> End With
> End If
> End If
> End Sub
>
> Codes pada Module1 (setelah insert module):
> Option Explicit
>
> Sub NPB()
> Dim rgNpb As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 2).End(xlUp)
> Set rgNpb = Range(Cells(
> For Each cel In rgNpb
> lCel = cel.Row
> Set rgCount = Range(Cells(
> iCount = Application.
> cel.Offset(, 19).Value = cel.Value & "-" & iCount '20 diganti 19 (sebelumnya
> tertulis 20)
> Next cel
> End Sub
>
> Sub PR()
> Dim rgPR As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 10).End(xlUp)
> Set rgPR = Range(Cells(
> For Each cel In rgPR
> lCel = cel.Row
> Set rgCount = Range(Cells(
> iCount = Application.
> cel.Offset(, 11).Value = cel.Value & "-" & iCount '19 diganti 11
> Next cel
> End Sub
>
> Sub PO()
> Dim rgPO As Range, cel As Range, rgCount As Range
> Dim lRow As Long, lCel As Long
> Dim iCount As Integer
>
> lRow = Cells(Rows.Count, 16).End(xlUp)
> Set rgPO = Range(Cells(
> For Each cel In rgPO
> lCel = cel.Row
> Set rgCount = Range(Cells(
> iCount = Application.
> cel.Offset(, 5).Value = cel.Value & "-" & iCount '19 diganti 5
> Next cel
> End Sub
>
> Semoga bermanfaat (pinjam slogan pak Anton).
>
> Salam,
> HK
>
> File dilampirkan untuk uji materi
>
> ------------
> *From:* neza ibaneza <nezaibaneza@
> *To:* "belajar-excel@
> *Sent:* Friday, 6 September 2013, 7:19
> *Subject:* [belajar-excel] rumus yang tidak running
>
>
> Salam B-Excel
>
> Master-master yang baik hati, saya coba buat rumus VBA, tp kok ada
> sebagian yang tidak running
> masalahnya dimana ya?
>
> Salam
> Neza
>
>
>
>
>
>
>
Sat Sep 7, 2013 9:14 am (PDT) . Posted by:
"Mr. KEPT" kurniawan_tufail@ymail.com
FORM_LAPORAN_KERUSAKAN_HARIAN.xlsm
<http://milis-belajar-excel.1048464.n5.nabble.com/file/n5720753/FORM_LAPORAN_KERUSAKAN_HARIAN.xlsm>
dear miss Jasin,,
berikut saya lampirkan file case saya.
mohon bantuan dan pencerahannya....
regrads,
Kurniawan Eka Putra Tufail
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-pengeditan-data-dengan-bentuk-userform-yg-sama-dengan-userform-penginputan-data-tp5720412p5720753.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
<http://milis-
dear miss Jasin,,
berikut saya lampirkan file case saya.
mohon bantuan dan pencerahannya.
regrads,
Kurniawan Eka Putra Tufail
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Sat Sep 7, 2013 9:17 am (PDT) . Posted by:
kurniawan_tufail@ymail.com
Dear Exeler semuanya,
mohon bantuannya,,
saya ada problem, saya sedang membuat form pengimputan data, untuk penginputannya saya sudah selesai, yang menjadi masalah ketika saya ingin mengedit data yang sudah terinput tetapi dengan bentuk userform yang sama dengan penginputan data. saya sudah belajar kiri kanan, tpi terkendala dengan pemahaman dengan penulisan perintah vba, masih banyak bentuk penulisan perintah vba yang masih belum saya mengerti. sekedar informasi, saya orang yang baru saja belajar vba excel.
tujuannya saya, ketika saya memilih salah satu cell yang berisi data, maka baris dari cell tersebut yang berisi data muncul di userform edit yang kemudian dapat saya tambahkan informasinya atau saya edit informasinya. berikut saya lampirkan file kasus saya.
terimakasih banyak sebelumnya, mohon pencerahannya.
regrads,
kurniawan eka putra tufail
mohon bantuannya,,
saya ada problem, saya sedang membuat form pengimputan data, untuk penginputannya saya sudah selesai, yang menjadi masalah ketika saya ingin mengedit data yang sudah terinput tetapi dengan bentuk userform yang sama dengan penginputan data. saya sudah belajar kiri kanan, tpi terkendala dengan pemahaman dengan penulisan perintah vba, masih banyak bentuk penulisan perintah vba yang masih belum saya mengerti. sekedar informasi, saya orang yang baru saja belajar vba excel.
tujuannya saya, ketika saya memilih salah satu cell yang berisi data, maka baris dari cell tersebut yang berisi data muncul di userform edit yang kemudian dapat saya tambahkan informasinya atau saya edit informasinya. berikut saya lampirkan file kasus saya.
terimakasih banyak sebelumnya, mohon pencerahannya.
regrads,
kurniawan eka putra tufail
Sat Sep 7, 2013 9:17 am (PDT) . Posted by:
"Kurniawan Tufail" kurniawan_tufail@ymail.com
Dear Exeler semuanya, mohon bantuannya,,
saya ada problem, saya sedang membuat form pengimputan data, untuk penginputannya saya sudah selesai, yang menjadi masalah ketika saya ingin mengedit data yang sudah terinput tetapi dengan bentuk userform yang sama dengan penginputan data. saya sudah belajar kiri kanan, tpi terkendala dengan pemahaman dengan penulisan perintah vba, masih banyak bentuk penulisan perintah vba yang masih belum saya mengerti. sekedar informasi, saya orang yang baru saja belajar vba excel.
tujuannya saya, ketika saya memilih salah satu cell yang berisi data, maka baris dari cell tersebut yang berisi data muncul di userform edit yang kemudian dapat saya tambahkan informasinya atau saya edit informasinya.
berikut saya lampirkan file kasus saya.
terimakasih banyak sebelumnya, mohon pencerahannya.
regrads,
kurniawan eka putra tufail
saya ada problem, saya sedang membuat form pengimputan data, untuk penginputannya saya sudah selesai, yang menjadi masalah ketika saya ingin mengedit data yang sudah terinput tetapi dengan bentuk userform yang sama dengan penginputan data. saya sudah belajar kiri kanan, tpi terkendala dengan pemahaman dengan penulisan perintah vba, masih banyak bentuk penulisan perintah vba yang masih belum saya mengerti. sekedar informasi, saya orang yang baru saja belajar vba excel.
tujuannya saya, ketika saya memilih salah satu cell yang berisi data, maka baris dari cell tersebut yang berisi data muncul di userform edit yang kemudian dapat saya tambahkan informasinya atau saya edit informasinya.
berikut saya lampirkan file kasus saya.
terimakasih banyak sebelumnya, mohon pencerahannya.
regrads,
kurniawan eka putra tufail
Sat Sep 7, 2013 5:39 pm (PDT) . Posted by:
hartini_80
Pak Bagus,
Saya barusan coba rumusnya, mengapa hari yg dihitung berkurang 1 hari ya pak?
Kolom A saya isi tgl 3 dan kolom B saya isi tgl 5, kolom C dan D kosong, dan hari perjalanan yg muncul itu hanya 2 hari, begitu juga saat saya isi kolom A dgn tgl 3 dan Kolom D dengan tgl 9, yng terhitung hanya 6 bukan 7, apakah ada yg kurang ya pak?
Mohon pencerahannya
Salam
Tiny
Powered by Telkomsel BlackBerry�
-----Original Message-----
From: "Bagus" <bagus@kingjim.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sat, 7 Sep 2013 15:58:17
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menentukan hari perjalanan
Dear Tiny;
Mungkin begini;
=MAX(B2:D2)-A2
Copy paste kebawah
Wassalam
~ Bagus ~
----- Original Message -----
From: hartini_80@yahoo.co.id
To: belajar-excel@yahoogroups.com
Sent: Saturday, September 07, 2013 2:21 PM
Subject: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry�
Saya barusan coba rumusnya, mengapa hari yg dihitung berkurang 1 hari ya pak?
Kolom A saya isi tgl 3 dan kolom B saya isi tgl 5, kolom C dan D kosong, dan hari perjalanan yg muncul itu hanya 2 hari, begitu juga saat saya isi kolom A dgn tgl 3 dan Kolom D dengan tgl 9, yng terhitung hanya 6 bukan 7, apakah ada yg kurang ya pak?
Mohon pencerahannya
Salam
Tiny
Powered by Telkomsel BlackBerry�
-----Original Message-----
From: "Bagus" <bagus@kingjim.
Sender: belajar-excel@
Date: Sat, 7 Sep 2013 15:58:17
To: <belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] Menentukan hari perjalanan
Dear Tiny;
Mungkin begini;
=MAX(B2:D2)-
Copy paste kebawah
Wassalam
~ Bagus ~
----- Original Message -----
From: hartini_80@yahoo.
To: belajar-excel@
Sent: Saturday, September 07, 2013 2:21 PM
Subject: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry�
Sat Sep 7, 2013 5:45 pm (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
tulis di E2
=MAX(A2:D2)-A2
copy ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
=MAX(A2:D2)-
copy ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
Sat Sep 7, 2013 6:00 pm (PDT) . Posted by:
hartini_80
Pak Ghozi, sudah saya coba, tetapi hari perjalanan jadi berkurang satu, tdk berdasarkan jumlah hari perjalanan aktual
Mohon pencerahan
Salam
Tiny
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 8 Sep 2013 08:45:25
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Menentukan hari perjalanan
tulis di E2
=MAX(A2:D2)-A2
copy ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
Mohon pencerahan
Salam
Tiny
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: ghozi alkatiri <ghozialkatiri@
Sender: belajar-excel@
Date: Sun, 8 Sep 2013 08:45:25
To: belajar-excel@
Reply-To: belajar-excel@
Subject: Bls: [belajar-excel] Menentukan hari perjalanan
tulis di E2
=MAX(A2:D2)-
copy ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
Sat Sep 7, 2013 6:12 pm (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
rumus yang kami berikan itu berdasarkan hasil manual yang anda inginkan, dan sudah sesuai dengan hasil yang diharapakan. kalau ada yang kurang pas coba anda tambahkan lagi contoh lain dan hasil yang anda inginkan .
wasalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 8 September 2013 7:55
Judul: Re: Bls: [belajar-excel] Menentukan hari perjalanan
Pak Ghozi, sudah saya coba, tetapi hari perjalanan jadi berkurang satu, tdk berdasarkan jumlah hari perjalanan aktual
Mohon pencerahan
Salam
Tiny
Powered by Telkomsel BlackBerry®
________________________________
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 8 Sep 2013 08:45:25 +0800 (SGT)
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Menentukan hari perjalanan
tulis di E2
=MAX(A2:D2)-A2
copy ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
wasalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Minggu, 8 September 2013 7:55
Judul: Re: Bls: [belajar-excel] Menentukan hari perjalanan
Pak Ghozi, sudah saya coba, tetapi hari perjalanan jadi berkurang satu, tdk berdasarkan jumlah hari perjalanan aktual
Mohon pencerahan
Salam
Tiny
Powered by Telkomsel BlackBerry®
____________
From: ghozi alkatiri <ghozialkatiri@
Sender: belajar-excel@
Date: Sun, 8 Sep 2013 08:45:25 +0800 (SGT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Bls: [belajar-excel] Menentukan hari perjalanan
tulis di E2
=MAX(A2:D2)-
copy ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
Sat Sep 7, 2013 6:20 pm (PDT) . Posted by:
hartini_80
Benar pak ghozi rumus yg diberikan telah sesuai dgn yg diinginkan, tetapi saya baru lihat ternyata antara pengurangan tsb tidak sesuai dgn jumlah hari yg sebenarnya, 1 Feb - 10 Feb, bukannya itu adalah 10 hari ya pak, mengapa jika dikurangkan menggunakan excel jadi 9 hari ya, saya juga bingung pak.
Sedangkan yg saya butuhkan jumlah hari aktual yaitu 10 hari, apakah di belakang rumus hanya perlu ditambahkan angka +1 saja atau bisa digunakan rumus lain
Demikian yg saya maksud pak, maaf jika penjelasan saya kurang berkenan
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 8 Sep 2013 09:12:30
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
rumus yang kami berikan itu berdasarkan hasil manual yang anda inginkan, dan sudah sesuai dengan hasil yang diharapakan. kalau ada yang kurang pas coba anda tambahkan lagi contoh lain dan hasil yang anda inginkan .
wasalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 8 September 2013 7:55
Judul: Re: Bls: [belajar-excel] Menentukan hari perjalanan
Pak Ghozi, sudah saya coba, tetapi hari perjalanan jadi berkurang satu, tdk berdasarkan jumlah hari perjalanan aktual
Mohon pencerahan
Salam
Tiny
Powered by Telkomsel BlackBerry®
________________________________
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 8 Sep 2013 08:45:25 +0800 (SGT)
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Menentukan hari perjalanan
tulis di E2
=MAX(A2:D2)-A2
copy ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
Sedangkan yg saya butuhkan jumlah hari aktual yaitu 10 hari, apakah di belakang rumus hanya perlu ditambahkan angka +1 saja atau bisa digunakan rumus lain
Demikian yg saya maksud pak, maaf jika penjelasan saya kurang berkenan
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: ghozi alkatiri <ghozialkatiri@
Sender: belajar-excel@
Date: Sun, 8 Sep 2013 09:12:30
To: belajar-excel@
Reply-To: belajar-excel@
Subject: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
rumus yang kami berikan itu berdasarkan hasil manual yang anda inginkan, dan sudah sesuai dengan hasil yang diharapakan. kalau ada yang kurang pas coba anda tambahkan lagi contoh lain dan hasil yang anda inginkan .
wasalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Minggu, 8 September 2013 7:55
Judul: Re: Bls: [belajar-excel] Menentukan hari perjalanan
Pak Ghozi, sudah saya coba, tetapi hari perjalanan jadi berkurang satu, tdk berdasarkan jumlah hari perjalanan aktual
Mohon pencerahan
Salam
Tiny
Powered by Telkomsel BlackBerry®
____________
From: ghozi alkatiri <ghozialkatiri@
Sender: belajar-excel@
Date: Sun, 8 Sep 2013 08:45:25 +0800 (SGT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Bls: [belajar-excel] Menentukan hari perjalanan
tulis di E2
=MAX(A2:D2)-
copy ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
Sat Sep 7, 2013 6:25 pm (PDT) . Posted by:
"De Premor" de.premor
Hitungan sederhananya kan sbb:
10 - 1 = 9
Kalau ingin hasil 10, dalam hal ini berarti kita menyertakan tanggal 1 sebagai hari terhitung maka perlu ditambah 1 hari lagi
-----Original Message-----
From: hartini_80@yahoo.co.id
Sender: belajar-excel@yahoogroups.com
Date: Sun, 8 Sep 2013 01:14:59
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
Benar pak ghozi rumus yg diberikan telah sesuai dgn yg diinginkan, tetapi saya baru lihat ternyata antara pengurangan tsb tidak sesuai dgn jumlah hari yg sebenarnya, 1 Feb - 10 Feb, bukannya itu adalah 10 hari ya pak, mengapa jika dikurangkan menggunakan excel jadi 9 hari ya, saya juga bingung pak.
Sedangkan yg saya butuhkan jumlah hari aktual yaitu 10 hari, apakah di belakang rumus hanya perlu ditambahkan angka +1 saja atau bisa digunakan rumus lain
Demikian yg saya maksud pak, maaf jika penjelasan saya kurang berkenan
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 8 Sep 2013 09:12:30
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
rumus yang kami berikan itu berdasarkan hasil manual yang anda inginkan, dan sudah sesuai dengan hasil yang diharapakan. kalau ada yang kurang pas coba anda tambahkan lagi contoh lain dan hasil yang anda inginkan .
wasalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 8 September 2013 7:55
Judul: Re: Bls: [belajar-excel] Menentukan hari perjalanan
Pak Ghozi, sudah saya coba, tetapi hari perjalanan jadi berkurang satu, tdk berdasarkan jumlah hari perjalanan aktual
Mohon pencerahan
Salam
Tiny
Powered by Telkomsel BlackBerry®
________________________________
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 8 Sep 2013 08:45:25 +0800 (SGT)
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Menentukan hari perjalanan
tulis di E2
=MAX(A2:D2)-A2
copy ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
10 - 1 = 9
Kalau ingin hasil 10, dalam hal ini berarti kita menyertakan tanggal 1 sebagai hari terhitung maka perlu ditambah 1 hari lagi
-----Original Message-----
From: hartini_80@yahoo.
Sender: belajar-excel@
Date: Sun, 8 Sep 2013 01:14:59
To: <belajar-excel@
Reply-To: belajar-excel@
Subject: Re: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
Benar pak ghozi rumus yg diberikan telah sesuai dgn yg diinginkan, tetapi saya baru lihat ternyata antara pengurangan tsb tidak sesuai dgn jumlah hari yg sebenarnya, 1 Feb - 10 Feb, bukannya itu adalah 10 hari ya pak, mengapa jika dikurangkan menggunakan excel jadi 9 hari ya, saya juga bingung pak.
Sedangkan yg saya butuhkan jumlah hari aktual yaitu 10 hari, apakah di belakang rumus hanya perlu ditambahkan angka +1 saja atau bisa digunakan rumus lain
Demikian yg saya maksud pak, maaf jika penjelasan saya kurang berkenan
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: ghozi alkatiri <ghozialkatiri@
Sender: belajar-excel@
Date: Sun, 8 Sep 2013 09:12:30
To: belajar-excel@
Reply-To: belajar-excel@
Subject: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
rumus yang kami berikan itu berdasarkan hasil manual yang anda inginkan, dan sudah sesuai dengan hasil yang diharapakan. kalau ada yang kurang pas coba anda tambahkan lagi contoh lain dan hasil yang anda inginkan .
wasalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Minggu, 8 September 2013 7:55
Judul: Re: Bls: [belajar-excel] Menentukan hari perjalanan
Pak Ghozi, sudah saya coba, tetapi hari perjalanan jadi berkurang satu, tdk berdasarkan jumlah hari perjalanan aktual
Mohon pencerahan
Salam
Tiny
Powered by Telkomsel BlackBerry®
____________
From: ghozi alkatiri <ghozialkatiri@
Sender: belajar-excel@
Date: Sun, 8 Sep 2013 08:45:25 +0800 (SGT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Bls: [belajar-excel] Menentukan hari perjalanan
tulis di E2
=MAX(A2:D2)-
copy ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
Sat Sep 7, 2013 7:09 pm (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
kalau begitu yang diinginkan memang hasil akhir dari pengurangan harus ditambah dengan
wassalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 8 September 2013 8:14
Judul: Re: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
Benar pak ghozi rumus yg diberikan telah sesuai dgn yg diinginkan, tetapi saya baru lihat ternyata antara pengurangan tsb tidak sesuai dgn jumlah hari yg sebenarnya, 1 Feb - 10 Feb, bukannya itu adalah 10 hari ya pak, mengapa jika dikurangkan menggunakan excel jadi 9 hari ya, saya juga bingung pak.
Sedangkan yg saya butuhkan jumlah hari aktual yaitu 10 hari, apakah di belakang rumus hanya perlu ditambahkan angka +1 saja atau bisa digunakan rumus lain
Demikian yg saya maksud pak, maaf jika penjelasan saya kurang berkenan
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry®
________________________________
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 8 Sep 2013 09:12:30 +0800 (SGT)
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
rumus yang kami berikan itu berdasarkan hasil manual yang anda inginkan, dan sudah sesuai dengan hasil yang diharapakan. kalau ada yang kurang pas coba anda tambahkan lagi contoh lain dan hasil yang anda inginkan .
wasalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 8 September 2013 7:55
Judul: Re: Bls: [belajar-excel] Menentukan hari perjalanan
Pak Ghozi, sudah saya coba, tetapi hari perjalanan jadi berkurang satu, tdk berdasarkan jumlah hari perjalanan aktual
Mohon pencerahan
Salam
Tiny
Powered by Telkomsel BlackBerry®
________________________________
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 8 Sep 2013 08:45:25 +0800 (SGT)
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Menentukan hari perjalanan
tulis di E2
=MAX(A2:D2)-A2
copy ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
wassalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Minggu, 8 September 2013 8:14
Judul: Re: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
Benar pak ghozi rumus yg diberikan telah sesuai dgn yg diinginkan, tetapi saya baru lihat ternyata antara pengurangan tsb tidak sesuai dgn jumlah hari yg sebenarnya, 1 Feb - 10 Feb, bukannya itu adalah 10 hari ya pak, mengapa jika dikurangkan menggunakan excel jadi 9 hari ya, saya juga bingung pak.
Sedangkan yg saya butuhkan jumlah hari aktual yaitu 10 hari, apakah di belakang rumus hanya perlu ditambahkan angka +1 saja atau bisa digunakan rumus lain
Demikian yg saya maksud pak, maaf jika penjelasan saya kurang berkenan
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry®
____________
From: ghozi alkatiri <ghozialkatiri@
Sender: belajar-excel@
Date: Sun, 8 Sep 2013 09:12:30 +0800 (SGT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
rumus yang kami berikan itu berdasarkan hasil manual yang anda inginkan, dan sudah sesuai dengan hasil yang diharapakan. kalau ada yang kurang pas coba anda tambahkan lagi contoh lain dan hasil yang anda inginkan .
wasalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Minggu, 8 September 2013 7:55
Judul: Re: Bls: [belajar-excel] Menentukan hari perjalanan
Pak Ghozi, sudah saya coba, tetapi hari perjalanan jadi berkurang satu, tdk berdasarkan jumlah hari perjalanan aktual
Mohon pencerahan
Salam
Tiny
Powered by Telkomsel BlackBerry®
____________
From: ghozi alkatiri <ghozialkatiri@
Sender: belajar-excel@
Date: Sun, 8 Sep 2013 08:45:25 +0800 (SGT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Bls: [belajar-excel] Menentukan hari perjalanan
tulis di E2
=MAX(A2:D2)-
copy ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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