15 New Messages
Digest #2522
Messages
Sun Sep 8, 2013 9:19 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Terima kasih Pak Dwint atas formula Evaluatenya.
Namun setelah angka 20 saya ganti dengan 19 dan kolom J saya ganti dengan B, No. NPB nya "-1" semua, sedangkan yang diharapkan ada "-1", "-2" dan "-3" pada No. NPB 9953 dan 9955.
Salam,
HK
________________________________
From: dwint ruswanto <dwint.ruswanto@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 9 September 2013, 10:39
Subject: Re: [belajar-excel] rumus yang tidak running
izin pinjam script dari Miss Jan dan modifikasi sedikit ya..
script awal:
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(, 20).Value = cel.Value & "-" & iCount
Next cel
script hasil modifikasi:
Dim rgNpb As Range, cel As Range
Dim lRow As Long
lRow = Cells(Rows.Count, 2).End(xlUp).Row
Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2))
For Each cel In rgNpb
cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("=COUNTIF(J$6:J6,J6)")
Next cel
yang diwarnai merah adalah script asli yang dihilangkan
yang warna biru dalam blok hijau adalah script pengganti
btw, foto profilenya Miss Jan yang baru keren
Wassalam,
-dwint-
Pada 8 September 2013 11.52, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:
>
>Pak Dwint,
>Jika iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value) diganti dengan iCount = Evaluate("=CountIf(rgCount, cel.Value") maka ketika macro dijalankan akan timbul error "Type mismatch".
>
>
>Salam,
>HK
>
>
>
>________________________________
> From: dwint ruswanto <dwint.ruswanto@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Sunday, 8 September 2013, 5:34
>
>Subject: Re: [belajar-excel] rumus yang tidak running
>
>
>
>
>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
>>>
>>>
>>
>>
>>
>
>
Namun setelah angka 20 saya ganti dengan 19 dan kolom J saya ganti dengan B, No. NPB nya "-1" semua, sedangkan yang diharapkan ada "-1"
Salam,
HK
____________
From: dwint ruswanto <dwint.ruswanto@
To: belajar-excel@
Sent: Monday, 9 September 2013, 10:39
Subject: Re: [belajar-excel] rumus yang tidak running
izin pinjam script dari Miss Jan dan modifikasi sedikit ya..
script awal:
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(, 20).Value = cel.Value & "-" & iCount
Next cel
script hasil modifikasi:
Dim rgNpb As Range, cel As Range
Dim lRow As Long
lRow = Cells(Rows.Count, 2).End(xlUp)
Set rgNpb = Range(Cells(
For Each cel In rgNpb
cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("
Next cel
yang diwarnai merah adalah script asli yang dihilangkan
yang warna biru dalam blok hijau adalah script pengganti
btw, foto profilenya Miss Jan yang baru keren
Wassalam,
-dwint-
Pada 8 September 2013 11.52, hendrik karnadi <hendrikkarnadi@
>
>Pak Dwint,
>Jika iCount = Application.
>
>
>Salam,
>HK
>
>
>
>________
> From: dwint ruswanto <dwint.ruswanto@
>To: belajar-excel@
>Sent: Sunday, 8 September 2013, 5:34
>
>Subject: Re: [belajar-excel] rumus yang tidak running
>
>
>
>
>mungkin seperti ini
>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@
>>
>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 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
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 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
>>>
>>>
>>>
>>>
>>> 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
>>>
>>>
>>>
>>>
>>> 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
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> From: neza ibaneza <nezaibaneza@
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>
>
Sun Sep 8, 2013 9:27 pm (PDT) . Posted by:
"De Premor" de.premor
Ikutan aah biar bisa mengakomodir jika si kalau memilih No. NPB, No. PO
atau No. PR
Sub xxx()
Dim Data As Range, Rng As Range
Dim iCol As Integer, lRow As Long
'INI BUAT NYARI KOLOM SESUAI YANG DIMAU SI USER
iCol = Evaluate("=MATCH(U5,A5:T5,0)")
'INI BUAT MEMILIH DATANYA YANG DIPILIH USER (AGAK BERTELE2 MILIH
DATANYA, MUTER2 :D)
Set Data = Range(Cells(6, iCol), Cells(6, 1).End(xlDown).Offset(,
iCol - 1).Address)
For Each Rng In Data
Cells(Rng.Row, 22) = Rng & "-" & Evaluate("=COUNTIF(" &
Cells(6, iCol).Address & ":" & Rng.Address & "," & Rng.Address & ")")
Next
End Sub
On 09-09-2013 11:06, dwint ruswanto wrote:
> Dim rgNpb As Range, cel As Range
> Dim lRow As Long, lCel As Long
> 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
> cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("=COUNTIF(B$6:B" &
> lCel & ",B" & lCel & ")")
> Next cel
atau No. PR
Sub xxx()
Dim Data As Range, Rng As Range
Dim iCol As Integer, lRow As Long
'INI BUAT NYARI KOLOM SESUAI YANG DIMAU SI USER
iCol = Evaluate("
'INI BUAT MEMILIH DATANYA YANG DIPILIH USER (AGAK BERTELE2 MILIH
DATANYA, MUTER2 :D)
Set Data = Range(Cells(
iCol - 1).Address)
For Each Rng In Data
Cells(Rng.Row, 22) = Rng & "-" & Evaluate("
Cells(6, iCol).Address & ":" & Rng.Address & "," & Rng.Address & ")"
Next
End Sub
On 09-09-2013 11:06, dwint ruswanto wrote:
> Dim rgNpb As Range, cel As Range
> Dim lRow As Long, lCel As Long
> lRow = Cells(Rows.Count, 2).End(xlUp)
> Set rgNpb = Range(Cells(
> For Each cel In rgNpb
> lCel = cel.Row
> cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("
> lCel & ",B" & lCel & ")"
> Next cel
Sun Sep 8, 2013 9:34 pm (PDT) . Posted by:
"Jan Raisin"
Koreksinya sudah dikirim duluan oleh pak Dwint..
============================================
[image: Gambar sisip 1]
============================================================
terima kasih pak Dwint.. habis banyak banget yang minta dikirimin foto Jan
dengan menggunakan tulisan Miss Jan Raisin..
hanya untuk menghilangkan rasa penasaran Be-Exceller saja ^_^
pak De Premor sudah mengembangkan untuk multiple choice-nya ^_^
���������� ���������� ���������� ����� �������������
-Miss Jan Raisin-
Pada 9 September 2013 11.19, hendrik karnadi <hendrikkarnadi@yahoo.com>menulis:
> Terima kasih Pak Dwint atas formula Evaluatenya.
> Namun setelah angka 20 saya ganti dengan 19 dan kolom J saya ganti dengan
> B, No. NPB nya "-1" semua, sedangkan yang diharapkan ada "-1", "-2" dan
> "-3" pada No. NPB 9953 dan 9955.
>
> Salam,
> HK
>
> ------------------------------
>
>
============
[image: Gambar sisip 1]
============
terima kasih pak Dwint.. habis banyak banget yang minta dikirimin foto Jan
dengan menggunakan tulisan Miss Jan Raisin..
hanya untuk menghilangkan rasa penasaran Be-Exceller saja ^_^
pak De Premor sudah mengembangkan untuk multiple choice-nya ^_^
���������� ���������� ���������� ����� �������������
-Miss Jan Raisin-
Pada 9 September 2013 11.19, hendrik karnadi <hendrikkarnadi@
> Terima kasih Pak Dwint atas formula Evaluatenya.
> Namun setelah angka 20 saya ganti dengan 19 dan kolom J saya ganti dengan
> B, No. NPB nya "-1" semua, sedangkan yang diharapkan ada "-1"
> "-3" pada No. NPB 9953 dan 9955.
>
> Salam,
> HK
>
> ------------
>
>
Sun Sep 8, 2013 9:45 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Maaf, rupanya sdh dikoreksi sebelum ditanyakan.
Yang ini pas dan mantab (20 saya ganti 19, hanya agar kolomnya sesuai dengan keinginan user).
Saya lampirkan hasil tesnya.
Terima kasih Miss, Jan, Pak Dwint dan Pak De atas variasi codenya.
Salam,
HK
________________________________
From: dwint ruswanto <dwint.ruswanto@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 9 September 2013, 11:06
Subject: Re: [belajar-excel] rumus yang tidak running
maaf.. koreksi sedikit
Dim rgNpb As Range, cel As Range
Dim lRow As Long, lCel As Long
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
cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("=COUNTIF(B$6:B" & lCel & ",B" & lCel & ")")
Next cel
tadi salah ambil kolom.. seharusnya dari kolom B tetapi salah ambil menjadi kolom J
yang warna hijau adalah script yang dimunculkan kembali
yang warna biru dalam blok hijau adalah cara penggunaan Evaluate-nya
Wassalam,
-dwint-
Pada 9 September 2013 10.39, dwint ruswanto <dwint.ruswanto@gmail.com> menulis:
izin pinjam script dari Miss Jan dan modifikasi sedikit ya..
>
>
>script awal:
>
>
> 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(, 20).Value = cel.Value & "-" & iCount
> Next cel
>
>
>
>
>script hasil modifikasi:
>
>
> Dim rgNpb As Range, cel As Range
> Dim lRow As Long
>
> lRow = Cells(Rows.Count, 2).End(xlUp).Row
> Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2))
> For Each cel In rgNpb
> cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("=COUNTIF(J$6:J6,J6)")
> Next cel
>
>
>
>
>yang diwarnai merah adalah script asli yang dihilangkan
>yang warna biru dalam blok hijau adalah script pengganti
>
>
>btw, foto profilenya Miss Jan yang baru keren
>
>
>Wassalam,
>
>
>-dwint-
>
>
>
>Pada 8 September 2013 11.52, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:
>
>
>
>>
>>Pak Dwint,
>>JikaiCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value) diganti dengan iCount = Evaluate("=CountIf(rgCount, cel.Value") maka ketika macro dijalankan akan timbul error "Type mismatch".
>>
>>
>>Salam,
>>HK
>>
>>
>>
>>________________________________
>> From: dwint ruswanto <dwint.ruswanto@gmail.com>
>>To: belajar-excel@yahoogroups.com
>>Sent: Sunday, 8 September 2013, 5:34
>>
>>Subject: Re: [belajar-excel] rumus yang tidak running
>>
>>
>>
>>
>>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
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
Yang ini pas dan mantab (20 saya ganti 19, hanya agar kolomnya sesuai dengan keinginan user).
Saya lampirkan hasil tesnya.
Terima kasih Miss, Jan, Pak Dwint dan Pak De atas variasi codenya.
Salam,
HK
____________
From: dwint ruswanto <dwint.ruswanto@
To: belajar-excel@
Sent: Monday, 9 September 2013, 11:06
Subject: Re: [belajar-excel] rumus yang tidak running
maaf.. koreksi sedikit
Dim rgNpb As Range, cel As Range
Dim lRow As Long, lCel As Long
lRow = Cells(Rows.Count, 2).End(xlUp)
Set rgNpb = Range(Cells(
For Each cel In rgNpb
lCel = cel.Row
cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("
Next cel
tadi salah ambil kolom.. seharusnya dari kolom B tetapi salah ambil menjadi kolom J
yang warna hijau adalah script yang dimunculkan kembali
yang warna biru dalam blok hijau adalah cara penggunaan Evaluate-nya
Wassalam,
-dwint-
Pada 9 September 2013 10.39, dwint ruswanto <dwint.ruswanto@
izin pinjam script dari Miss Jan dan modifikasi sedikit ya..
>
>
>script awal:
>
>
> 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(, 20).Value = cel.Value & "-" & iCount
> Next cel
>
>
>
>
>script hasil modifikasi:
>
>
> Dim rgNpb As Range, cel As Range
> Dim lRow As Long
>
> lRow = Cells(Rows.Count, 2).End(xlUp)
> Set rgNpb = Range(Cells(
> For Each cel In rgNpb
> cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("
> Next cel
>
>
>
>
>yang diwarnai merah adalah script asli yang dihilangkan
>yang warna biru dalam blok hijau adalah script pengganti
>
>
>btw, foto profilenya Miss Jan yang baru keren
>
>
>Wassalam,
>
>
>-dwint-
>
>
>
>Pada 8 September 2013 11.52, hendrik karnadi <hendrikkarnadi@
>
>
>
>>
>>Pak Dwint,
>>Jika
>>
>>
>>Salam,
>>HK
>>
>>
>>
>>____
>> From: dwint ruswanto <dwint.ruswanto@
>>To: belajar-excel@
>>Sent: Sunday, 8 September 2013, 5:34
>>
>>Subject: Re: [belajar-excel] rumus yang tidak running
>>
>>
>>
>>
>>mungkin seperti ini
>>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@
>>
>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> From: Mr. Kid <mr.nmkid@gmail.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>
Sun Sep 8, 2013 10:08 pm (PDT) . Posted by:
"Dede Suparman" asty_tiwul
Assalamu'alaikum...
Dear Master dan rekan-rekan Be-Excel,
Mohon bantuannya, saya membuat tombol untuk memilih sheet
saya protect sheet dengan hide, kan klo sheet hide pas tekan tombol
muncul error.
Sub Macro7(control As IRibbonControl)
On Error GoTo X
Sheet1.Select
X:
MsgBox "sheet hide"
Exit Sub
End Sub
Error atau tidak error msgbox nya tetap muncul,
bisa ga yaa klo kondisi tdk error msg nya tdk muncul.
Demikian semoga penjelasan maslah nya bisa difahami.
terimakasih
salam,
del
Dear Master dan rekan-rekan Be-Excel,
Mohon bantuannya, saya membuat tombol untuk memilih sheet
saya protect sheet dengan hide, kan klo sheet hide pas tekan tombol
muncul error.
Sub Macro7(control As IRibbonControl)
On Error GoTo X
Sheet1.Select
X:
MsgBox "sheet hide"
Exit Sub
End Sub
Error atau tidak error msgbox nya tetap muncul,
bisa ga yaa klo kondisi tdk error msg nya tdk muncul.
Demikian semoga penjelasan maslah nya bisa difahami.
terimakasih
salam,
del
Sun Sep 8, 2013 10:34 pm (PDT) . Posted by:
"summonery" summonery
Wa'alaikumussalam Wr. Wb.
Coba letakkan Exit Sub sebelum Error Handler,sehingga menjadi:
On Error GoTo XSheet1.Select
Exit SubX:
MsgBox "sheet hide"
>semoga bermanfaat
--- In belajar-excel@yahoogroups.com, Dede Suparman wrote:
>
> Assalamu'alaikum...
>
> Dear Master dan rekan-rekan Be-Excel,
> Mohon bantuannya, saya membuat tombol untuk memilih sheet
> saya protect sheet dengan hide, kan klo sheet hide pas tekan tombol
> muncul error.
>
> Sub Macro7(control As IRibbonControl)
> On Error GoTo X
> Sheet1.Select
> X:
> MsgBox "sheet hide"
> Exit Sub
> End Sub
>
> Error atau tidak error msgbox nya tetap muncul,
> bisa ga yaa klo kondisi tdk error msg nya tdk muncul.
> Demikian semoga penjelasan maslah nya bisa difahami.
>
> terimakasih
> salam,
> del
>
Coba letakkan Exit Sub sebelum Error Handler,sehingga menjadi:
On Error GoTo XSheet1.Select
Exit SubX:
MsgBox "sheet hide"
>semoga bermanfaat
--- In belajar-excel@
>
> Assalamu'
>
> Dear Master dan rekan-rekan Be-Excel,
> Mohon bantuannya, saya membuat tombol untuk memilih sheet
> saya protect sheet dengan hide, kan klo sheet hide pas tekan tombol
> muncul error.
>
> Sub Macro7(control As IRibbonControl)
> On Error GoTo X
> Sheet1.Select
> X:
> MsgBox "sheet hide"
> Exit Sub
> End Sub
>
> Error atau tidak error msgbox nya tetap muncul,
> bisa ga yaa klo kondisi tdk error msg nya tdk muncul.
> Demikian semoga penjelasan maslah nya bisa difahami.
>
> terimakasih
> salam,
> del
>
Sun Sep 8, 2013 11:32 pm (PDT) . Posted by:
"neza ibaneza" nezaibaneza
dear all master,
tp setelah saya buat seperti itu, pada properties combobox1, name listdata tidak mau masuk (tersimpan)...
mohon pencerahannya..
Neza
________________________________
Dari: De Premor <de@premor.net>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 9 September 2013 9:19
Judul: Re: [belajar-excel] Combobox tidak bekerja semestinya
Coba datanya dibuat name rangenya dulu, misal kasih nama LISTDATA
Kemudian di Properti si ComboBoxnya, di item Property ListFillRange
isikan LISTDATA sebagai FillRange nya
Kalau ingin datanya dinamis mengikuti angka pada subtotal yang di
Cell B1, maka ListData nya dibuat formula
=offset(Sheet1!$B$3,0,0,Sheet1!$B$1)
On 08-09-2013 15:51, neza ibaneza wrote:
>Salam B-Excel
>Saya punya case untuk program ini adalah
>combo box, entah kenapa data list di sheet1 g kelihatan di
combobox di sheet2...
>file terlampir.. (apa salah code ya???)
>
>salam�
>Neza�
>
>
tp setelah saya buat seperti itu, pada properties combobox1, name listdata tidak mau masuk (tersimpan).
mohon pencerahannya.
Neza
____________
Dari: De Premor <de@premor.net>
Kepada: belajar-excel@
Dikirim: Senin, 9 September 2013 9:19
Judul: Re: [belajar-excel] Combobox tidak bekerja semestinya
Coba datanya dibuat name rangenya dulu, misal kasih nama LISTDATA
Kemudian di Properti si ComboBoxnya, di item Property ListFillRange
isikan LISTDATA sebagai FillRange nya
Kalau ingin datanya dinamis mengikuti angka pada subtotal yang di
Cell B1, maka ListData nya dibuat formula
=offset(Sheet1!
On 08-09-2013 15:51, neza ibaneza wrote:
>Salam B-Excel
>Saya punya case untuk program ini adalah
>combo box, entah kenapa data list di sheet1 g kelihatan di
combobox di sheet2...
>file terlampir.. (apa salah code ya???)
>
>salam�
>Neza�
>
>
Sun Sep 8, 2013 11:32 pm (PDT) . Posted by:
"nangAgus" nangagoez
Kepada pakar Excel
Saya memiliki sebuah file dengan ActiveX Date and Time Picker seperti
terlampir.
namaun file tersebut jika dibuka lagi, Date and time picker tersebut
menjadi tanda silang merah.
Saya minta tolong bagaimana cara memeunculkan time picker tersebut
dengan office saya?
Terima kasih
NangAgus.
Saya memiliki sebuah file dengan ActiveX Date and Time Picker seperti
terlampir.
namaun file tersebut jika dibuka lagi, Date and time picker tersebut
menjadi tanda silang merah.
Saya minta tolong bagaimana cara memeunculkan time picker tersebut
dengan office saya?
Terima kasih
NangAgus.
Sun Sep 8, 2013 11:34 pm (PDT) . Posted by:
"Ahmad Adriansyah" ahmad007832@ymail.com
Dear Rekan2 Be-Excel,
Mohon diskusinya terkait dengan problem yang terjadi pada salah satu file
excel menjadi seperti ini. Kenapa ya penyebabnya dan bagaimana cara
memperbaikinya? (Sepertinya salah pencet tombol, tapi apa ya? *bingung*)...
Pada tab Data, semuanya menjadi grey dan filter tidak bisa dipakai (print
screen) :
Terima kasih,
Ahmad A
Mohon diskusinya terkait dengan problem yang terjadi pada salah satu file
excel menjadi seperti ini. Kenapa ya penyebabnya dan bagaimana cara
memperbaikinya? (Sepertinya salah pencet tombol, tapi apa ya? *bingung*)..
Pada tab Data, semuanya menjadi grey dan filter tidak bisa dipakai (print
screen) :
Terima kasih,
Ahmad A
Mon Sep 9, 2013 12:17 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Coba klik salah satu sheet untuk menghilangkan grup selectionnya (lihat lampiran Sheet digrup dan tidak digruo).
Lihat perbedaaan tambpilan posisi Sheet Tab pada bagian bawah dan menu pada bagian atas.
Salam,
HK
________________________________
From: Ahmad Adriansyah <ahmad007832@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 9 September 2013, 8:51
Subject: [belajar-excel] Data Group menjadi Grey
Dear Rekan2 Be-Excel,
Mohon diskusinya terkait dengan problem yang terjadi pada salah satu file excel menjadi seperti ini. Kenapa ya penyebabnya dan bagaimana cara memperbaikinya? (Sepertinya salah pencet tombol, tapi apa ya? *bingung*)...
Pada tab Data, semuanya menjadi grey dan filter tidak bisa dipakai (print screen) :
Terima kasih,
Ahmad A
Lihat perbedaaan tambpilan posisi Sheet Tab pada bagian bawah dan menu pada bagian atas.
Salam,
HK
____________
From: Ahmad Adriansyah <ahmad007832@
To: belajar-excel@
Sent: Monday, 9 September 2013, 8:51
Subject: [belajar-excel] Data Group menjadi Grey
Dear Rekan2 Be-Excel,
Mohon diskusinya terkait dengan problem yang terjadi pada salah satu file excel menjadi seperti ini. Kenapa ya penyebabnya dan bagaimana cara memperbaikinya? (Sepertinya salah pencet tombol, tapi apa ya? *bingung*)..
Pada tab Data, semuanya menjadi grey dan filter tidak bisa dipakai (print screen) :
Terima kasih,
Ahmad A
Mon Sep 9, 2013 12:42 am (PDT) . Posted by:
"Ahmad Adriansyah" ahmad007832@ymail.com
Terima kasih Pak Hendrik atas solusinya, cuma filenya gak bisa dibuka Pak,
kebetulan gak ada aplikasi Rar-nya he..he..
Rgds,
Ahmad A
Pada 9 Sep 2013 14.17, "hendrik karnadi" <hendrikkarnadi@yahoo.com> menulis:
> **
>
>
> Coba klik salah satu sheet untuk menghilangkan grup selectionnya (lihat
> lampiran Sheet digrup dan tidak digruo).
>
> Lihat perbedaaan tambpilan posisi Sheet Tab pada bagian bawah dan menu
> pada bagian atas.
>
> Salam,
> HK
>
>
kebetulan gak ada aplikasi Rar-nya he..he..
Rgds,
Ahmad A
Pada 9 Sep 2013 14.17, "hendrik karnadi" <hendrikkarnadi@
> **
>
>
> Coba klik salah satu sheet untuk menghilangkan grup selectionnya (lihat
> lampiran Sheet digrup dan tidak digruo).
>
> Lihat perbedaaan tambpilan posisi Sheet Tab pada bagian bawah dan menu
> pada bagian atas.
>
> Salam,
> HK
>
>
Sun Sep 8, 2013 11:46 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Mungkin file yang ada disini
<https://app.box.com/s/qyx46q6isxn7iofaxwcv>bisa menjadi bahan wacana
tambahan.
Wassalam,
Kid.
2013/9/7 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
>
>
>
<https://app.
tambahan.
Wassalam,
Kid.
2013/9/7 Kurniawan Tufail <kurniawan_tufail@
> **
>
>
> 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
>
>
>
Mon Sep 9, 2013 12:41 am (PDT) . Posted by:
"Kurniawan Tufail" kurniawan_tufail@ymail.com
terimakasih Mr.Kid, saya sudah membaca dan berusaha untuk mempelajari cara penulisan perintah2nya, tapi banyak perintah yang tidak saya mengerti seperti as boelan, as integrer, dkk. adakah situs rekomendasi atau buku rekomendasi dari Mr.Kid untuk saya pelajari msalah penulisan perintah2 pada VBA dan penjelasan mengenai vba.
Terimakasih banyak sebelumnya Mr.Kid atas bantuannya.
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Senin, 9 September 2013 14:46
Judul: Re: [belajar-excel] Edit data
Mungkin file yang ada disini bisa menjadi bahan wacana tambahan.
Wassalam,
Kid.
2013/9/7 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
Terimakasih banyak sebelumnya Mr.Kid atas bantuannya.
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: BeExcel <belajar-excel@
Dikirim: Senin, 9 September 2013 14:46
Judul: Re: [belajar-excel] Edit data
Mungkin file yang ada disini bisa menjadi bahan wacana tambahan.
Wassalam,
Kid.
2013/9/7 Kurniawan Tufail <kurniawan_tufail@
>
>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
Mon Sep 9, 2013 12:46 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba ke blog milis di http://b-excel.blogspot.com/
Bahasan tentang BelajarVBA dimulai
disini<http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html>
.
Wassalam,
Kid.
2013/9/9 Kurniawan Tufail <kurniawan_tufail@ymail.com>
> **
>
>
> terimakasih Mr.Kid, saya sudah membaca dan berusaha untuk mempelajari cara
> penulisan perintah2nya, tapi banyak perintah yang tidak saya mengerti
> seperti as boelan, as integrer, dkk. adakah situs rekomendasi atau buku
> rekomendasi dari Mr.Kid untuk saya pelajari msalah penulisan perintah2 pada
> VBA dan penjelasan mengenai vba.
> Terimakasih banyak sebelumnya Mr.Kid atas bantuannya.
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* BeExcel <belajar-excel@yahoogroups.com>
> *Dikirim:* Senin, 9 September 2013 14:46
> *Judul:* Re: [belajar-excel] Edit data
>
>
> Mungkin file yang ada disini <https://app.box.com/s/qyx46q6isxn7iofaxwcv>bisa menjadi bahan wacana tambahan.
>
> Wassalam,
> Kid.
>
>
>
> 2013/9/7 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
>
>
>
>
>
>
Bahasan tentang BelajarVBA dimulai
disini<http://b-excel.
.
Wassalam,
Kid.
2013/9/9 Kurniawan Tufail <kurniawan_tufail@
> **
>
>
> terimakasih Mr.Kid, saya sudah membaca dan berusaha untuk mempelajari cara
> penulisan perintah2nya, tapi banyak perintah yang tidak saya mengerti
> seperti as boelan, as integrer, dkk. adakah situs rekomendasi atau buku
> rekomendasi dari Mr.Kid untuk saya pelajari msalah penulisan perintah2 pada
> VBA dan penjelasan mengenai vba.
> Terimakasih banyak sebelumnya Mr.Kid atas bantuannya.
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* BeExcel <belajar-excel@
> *Dikirim:* Senin, 9 September 2013 14:46
> *Judul:* Re: [belajar-excel] Edit data
>
>
> Mungkin file yang ada disini <https://app.
>
> Wassalam,
> Kid.
>
>
>
> 2013/9/7 Kurniawan Tufail <kurniawan_tufail@
>
> **
>
> 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
>
>
>
>
>
>
Mon Sep 9, 2013 12:50 am (PDT) . Posted by:
"Jan Raisin"
Jan banyak menemukan posting dengan judul yang sama di dalam milis..
dimohon kepada pak Kurniawan untuk tidak memposting pertanyaan yang sama
dengan cara create new message, jika pertanyaan lama direspon silakan reply
kembali email sebelumnya.
Pertanyaan ini sudah coba dijawab oleh mr Kid pada tanggal 29 Agustus 2013
pada link berikut
http://milis-belajar-excel.1048464.n5.nabble.com/pengeditan-data-dengan-bentuk-userform-yg-sama-dengan-userform-penginputan-data-td5720471.html#a5720538
maaf, Jan tidak bisa menemukan link di yahoonya.. tampilan group yahoo yang
baru bikin Jan stress @_@
silakan dipelajari dahulu.. jika ada kesulitan coba reply email ini..
jangan membuat thread yang baru ^_^
Salam,
-Miss Jan Raisin-
Pada 7 September 2013 22.55, Mr. KEPT <kurniawan_tufail@ymail.com> menulis:
> **
>
>
> 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.
>
>
dimohon kepada pak Kurniawan untuk tidak memposting pertanyaan yang sama
dengan cara create new message, jika pertanyaan lama direspon silakan reply
kembali email sebelumnya.
Pertanyaan ini sudah coba dijawab oleh mr Kid pada tanggal 29 Agustus 2013
pada link berikut
http://milis-
maaf, Jan tidak bisa menemukan link di yahoonya.. tampilan group yahoo yang
baru bikin Jan stress @_@
silakan dipelajari dahulu.. jika ada kesulitan coba reply email ini..
jangan membuat thread yang baru ^_^
Salam,
-Miss Jan Raisin-
Pada 7 September 2013 22.55, Mr. KEPT <kurniawan_tufail@
> **
>
>
> FORM_LAPORAN_
> <
> 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.
>
>
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