[belajar-excel] Digest Number 1953

Milis Belajar Microsoft Excel Group

4 New Messages

Digest #1953

1a

Re: Menghitung Bonus/insentif customer by "Jan Raisin"

2a

Bls: [belajar-excel] tracebility part gudang by "ngademin Thohari" ngademinth

2b

Re: tracebility part gudang by "Mr. Kid" nmkid.family@ymail.com

3a

Re: Fw: Emailing: rekam macro transpose by "Jan Raisin"

Messages

1a

Re: Menghitung Bonus/insentif customer

Thu Dec 6, 2012 7:24 am (PST) . Posted by:

"Jan Raisin"

Dear pak Jonson,

niatnya ingin membantu, tetapi apa daya masih belum paham dengan yang
diinginkan, bisakah dibantu memperjelas di contoh file yang pernh dikirim
keterangan sbb:

a. cell yang ini angkanya dari hasil perhitungan cell ini dengan cell ini
b. cell yang ini angkanya dari hasil perhitungan cell ini dengan cell ini
dikurangi cell yang ini dengan yan ini
c. bla bla bla

tidak perlu memakai rumus/formula cukup perhitungan manualnya saja, yang
penting ada penjelasan detail asal-usul angkanya.

semoga jika ada penjelasan lebih lanjut yang agak detail maka akan
mempermudah calon penanggap untuk memberikan solusi. jika pak Jonson
sendiri masih bingung untuk memberikan gambaran masalahnya maka bagaimana
mungkin member millis ini akan dapat membantu pak Jonson?

Best Regard,

-Ms. Jan Raisin-

Pada 6 Desember 2012 14:38, jonson_ringo <jonson_dahry@yahoo.co.id> menulis:

> **
>
>
> dear mister kid,
>
> saya bingung buat rumus untuk menghitung tarif progesif,
> 1. jika customer A pencapaiannya 85% maka tarifnya adalah 1.25 % dari
> total penjualannya ( perhitungan Progresif)
> 2. jika customer A pencapaiannya 100% maka tarifnya adalah 5.00 % dari
> total penjualannya(karena perhitungan progresif, otomatis customer tersebut
> akan dihitung juga di level 85%)
> 3. begitu juga seterusnya
>
> mohon pencerahannya ya pak.
>
>
> --- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@...> wrote:
> >
> > Pak Jonson,
> >
> > Mungkin sebaiknya Bapak menjelaskan lebih rinci tentang hal-hal yang akan
> > dikalkulasi.
> > Bisa jadi banyak BeExceller yang tidak memahami kasus seperti demikian
> > karena bidang kerjanya berbeda dengan Anda.
> >
> > Wassalam,
> > Kid.
> >
> > 2012/11/23 jonson dahrino <jonson_dahry@...>
> >
> > > **
>
> > >
> > >
> > > Dear master excel,
> > > saya sudah hampir nyerah nih dengan kasusu in (heheheheh.....)
> > > mohon bantuannya ya..
> > >
> > > pada intinya adalh perhitungan bonus dengan berbagai kriteria dan level
> > > pencapaiannya
> > >
> > > aturannya ada di sheet scheme dan bonusnya dihitung progresif
> > >
> > > saya lampirkan filenya juga :
> > >
> > >
> > >
> > >
> >
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (8) . Top ^

2a

Bls: [belajar-excel] tracebility part gudang

Thu Dec 6, 2012 7:41 am (PST) . Posted by:

"ngademin Thohari" ngademinth

Be-exceller

Mr. kid minta advicenya lagi, untuk quantity belum bisa masuk kedata remaining quantity
Offset(0, 6) penjabarannya seperti bagaimana?

terima kasih

amin

Private Sub TbPartno_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim rngData As Range, rng As Range
Dim spart As String, sRackByPart As String
Dim dblQty As Double
Sheet3.Unprotect "Belajar-Excel"
spart = Trim$(Replace$(UCase$(TbPartno.Text), "3N1", vbNullString))
spart = Left$(spart, InStr(spart & " ", " ") - 1)
Set rngData = Sheet3.ListObjects(1).Range            '.Range("c1").CurrentRegion.Resize(, 1).Offset(0, 4)
With rngData
   '.Parent.AutoFilterMode = False
   .AutoFilter 1               ', spart
   .AutoFilter 5, spart

   If .Resize(, 1).SpecialCells(xlCellTypeVisible).Count > 1 Then
      For Each rng In .Offset(0, 4).Resize(1).SpecialCells(xlCellTypeVisible)
           If LenB(rng.Value) <> 0 And rng.Row > 1 Then
           dblQty = dblQty + rng.Offset(0, 3).Value
           sRackByPart = Replace$(sRackByPart, "," & rng.Offset(0, 6).Value, vbNullString) & "," & rng.Offset(0, 6).Value
           End If
      Next rng
      sRackByPart = Mid$(sRackByPart, 2)
   End If
   ListBox1.Clear     'hapus isinya dulu
   If LenB(sRackByPart) <> 0 Then
   ListBox1.AddItem dblQty 'tambah item baru
          TextBox1.Text = sRackByPart
   Else
          TextBox1.Text = "Tidak ada rack yang dipakai part " & spart
   End If
   TextBox1.Locked = True
   '.Parent.AutoFilterMode = False
End With
Sheet3.Protect "Belajar-Excel", userinterfaceonly:=True
End Sub

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 6 Desember 2012 17:16
Judul: Re: [belajar-excel] tracebility part gudang


 
Ternyata tabelnya menggunakan fitur Excel table
1. data tidak bisa ter sorting
>> pada event click tombol simpan, ganti baris :
Sheet3.Range("c1").CurrentRegion.Sort Sheet3.Range("g1"), xlAscending, Header:=xlYes, Orientation:=xlSortColumns
dengan :
sorting    'panggil prosedur sorting yang ada di module (hasil record macro Anda)

2. penunjukan rack id tidak menunjukkan semestinya, walaupun rack idnya sama
>> ganti event tbpartno exit dengan :

Private Sub TbPartno_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim rngData As Range, rng As Range
Dim spart As String, sRackByPart As String

Sheet3.Unprotect "Belajar-Excel"

spart = Trim$(Replace$(UCase$(TbPartno.Text), "3N1", vbNullString))
spart = Left$(spart, InStr(spart & " ", " ") - 1)
Set rngData = Sheet3.listobjects(1).range            '.Range("c1").CurrentRegion.Resize(, 1).Offset(0, 4)
With rngData
  '.Parent.AutoFilterMode = False
   .AutoFilter 1               ', spart
   .autofilter 5,spart

   If .resize(,1).SpecialCells(xlCellTypeVisible).Count > 1 Then
      For Each rng In.Offset(0,4).resize(1).SpecialCells(xlCellTypeVisible)
           If LenB(rng.Value) <> 0 and rng.row>1 Then
                  sRackByPart = Replace$(sRackByPart, "," & rng.offset(0,6).value, vbNullString) & "," & rng.offset(0,6).value
           End If
      Next rng
      sRackByPart = Mid$(sRackByPart, 2)
   End If

   If LenB(sRackByPart) <> 0 Then
          TextBox1.Text = sRackByPart
   Else
          TextBox1.Text = "Tidak ada rack yang dipakai part " & spart
   End If
   TextBox1.Locked = True
   '.Parent.AutoFilterMode = False
End With
Sheet3.Protect "Belajar-Excel", userinterfaceonly:=True
End Sub
3. quantity tidak terjumlah
>> pada event partno exit :
- tambahkan baris deklarasi  :
   dim dblQty as double

- tambahkan baris :
   dblqty=dblqty+rng.offset(0,3).value
setelah baris : (dalam if yang ada di dalam for each)
sRackByPart = Replace$(sRackByPart, "," & rng.offset(0,6).value, vbNullString) & "," & rng.offset(0,6).value

- cari baris :
If LenB(sRackByPart) <> 0 Then
> sebelum baris tersebut, tambahkan :
     listbox1.clear     'hapus isinya dulu
> setelah baris tersebut, tambahkan :
     listbox1.additem dblqty 'tambah item baru
Jika bukan pada object listbox seperti contoh, maka sesuaikan cara hapus isi object yang digunakan dan sesuaikan juga cara tulis di object yang digunakan.

Wassalam,
Kid.

On Thu, Dec 6, 2012 at 1:04 PM, ngademin Thohari <ngademinth@yahoo.co.id> wrote:

> 
>Be-exceller, mr kid
>
>
>Terimakasih atas sharing ilmunya selama ini, setelah saya coba memasukkan script satu persatu, masih ada kendala yang saya hadapi, yaitu
>
>
>1. data tidak bisa ter sorting
>2. penunjukan rack id tidak menunjukkan semestinya, walaupun rack idnya sama
>3. quantity tidak terjumlah
>
>
>mohon pencerahannya lagi
>
>
>terima kasih
>
>
>amin
>
>
>Option Explicit
>Private Sub TbPartno_Exit(ByVal Cancel As MSForms.ReturnBoolean)
>Dim rngData As Range, rng As Range
>Dim spart As String, sRackByPart As String
>
>
>Sheet3.Unprotect "Belajar-Excel"
>
>
>spart = Trim$(Replace$(UCase$(TbPartno.Text), "3N1", vbNullString))
>spart = Left$(spart, InStr(spart & " ", " ") - 1)
>Set rngData = Sheet3.Range("c1").CurrentRegion.Resize(, 1).Offset(0, 4)
>With rngData
>   .Parent.AutoFilterMode = False
>   .AutoFilter 1, spart
>   If .SpecialCells(xlCellTypeVisible).Count > 1 Then
>      For Each rng In .Offset(1).SpecialCells(xlCellTypeVisible)
>           If LenB(rng.Value) <> 0 Then
>                  sRackByPart = Replace$(sRackByPart, "," & spart, vbNullString) & "," & spart
>           End If
>      Next rng
>      sRackByPart = Mid$(sRackByPart, 2)
>   End If
>
>
>   If LenB(sRackByPart) <> 0 Then
>          TextBox1.Text = sRackByPart
>   Else
>          TextBox1.Text = "Tidak ada rack yang dipakai part " & spart
>   End If
>   TextBox1.Locked = True
>   .Parent.AutoFilterMode = False
>End With
>Sheet3.Protect "Belajar-Excel", userinterfaceonly:=True
>End Sub
>Private Sub Tbloc_Exit(ByVal Cancel As MSForms.ReturnBoolean)
>Dim rngData As Range
>Dim spart As String, sRack As String
>
>
>'simpan part tanpa 3n1 dan qty
>spart = Trim$(Replace$(UCase$(TbPartno.Text), "3N1", vbNullString)) 'hapus teks '3N1'
>spart = Left$(spart, InStr(spart & " ", " ") - 1) 'ambil kode saja (asumsi ada spasi pemisah kode dengan qty)
>sRack = Trim$(Tbloc.Text)
>
>
>'filter data yang ada berdasar spart
>Set rngData = Sheet3.Range("c1").CurrentRegion.Resize(, 7).Offset(0, 4)
>With rngData
>   .Parent.AutoFilterMode = False
>   .Font.Bold = False
>   .AutoFilter 1, spart
>   .AutoFilter 7, sRack
>   If .Resize(, 1).SpecialCells(xlCellTypeVisible).Count > 1 Then
>      .SpecialCells (xlCellTypeVisible)
>      '.Font.Bold
>      TextBox1.Text = "Sudah dipakai part lain"
>   Else
>      .Parent.AutoFilterMode = False
>   End If
>   TextBox1.Locked = True
>End With
>End Sub
>Private Sub UserForm_Initialize()
>   Dim ctr As Control
>   For Each ctr In Me.Controls
>      If Left(ctr.Name, 2) = "Cb" Then ctr.BackColor = RGB(240, 255, 255)
>      If Left(ctr.Name, 2) = "Tb" Then ctr.BackColor = RGB(255, 255, 225)
>   Next ctr
>End Sub
>Private Sub UserForm_Activate()
>    CbCust.List = Array("PTIEI", "PTITR", "PTFLUI", "PTSKI", "PTLGIT")
>    CbCust.ListIndex = 0
>    CbOpr.List = Array("Purwati", "Ria", "Evi Hudi", "Sarwinah", "Tiwi", "Maurice")
>    CbOpr.ListIndex = 0
>    Cbqty.List = Array("0")
>    Cbqty.ListIndex = 0
>End Sub
>Private Sub Cbqty_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
>Select Case KeyCode
>Case 8, 48 To 57
>Case Else
>      KeyCode = 0
>      Beep
>End Select
>End Sub
>Private Sub CmdInput_Click()
>   Dim LastRow As Range, Respons
>   Dim ctrl As Control
>   Dim spart As Variant
>   Sheet3.Unprotect "Belajar-Excel"
>   On Error Resume Next
>   Set LastRow = Sheet3.Range("C10000").End(xlUp)
>   For Each ctrl In Me.Controls
>      If TypeName(ctrl) = "TextBox" Then
>      If Left(ctrl.Name, 2) = "Tb" And ctrl.Value = "" Then
>         MsgBox ctrl.Name & "  belum diisi !!", 48, "Material Input Control"
>         Exit Sub
>      End If
>      End If
>   Next ctrl
>    spart = Trim$(Replace$(UCase$(TbPartno.Text), "3N1", vbNullString))
>    spart = Left$(spart, InStr(spart & " ", " ") - 1)
>    If IsNumeric(spart) Then
>    spart = CLng(spart)
>End If
>
>
>   With LastRow
>      .Cells(2, 1) = Tbloc.Value
>      .Cells(2, 2) = Cbcons
>      .Cells(2, 3) = CbCust
>      .Cells(2, 5).Value = spart
>      .Cells(2, 6) = TbLot.Value
>      .Cells(2, 7) = TbPartname.Value
>      .Cells(2, 8) = Cbqty.Value
>      .Cells(2, 9) = CbOpr
>   End With
>   Sheet3.Range("A1").Select
>   Respons = MsgBox("Data masuk dengan sukses, Lanjutkan Input ?", 4, "Material Input Success")
>   If Respons = vbNo Then Unload Me
>   
>   For Each ctrl In Me.Controls
>      If Left(ctrl.Name, 2) = "Tb" Then ctrl = ""
>   Next ctrl
>   Sheet3.Range("c1").CurrentRegion.Sort Sheet3.Range("g1"), xlAscending, Header:=xlYes, Orientation:=xlSortColumns
>   Sheet3.Protect "Belajar-Excel", userinterfaceonly:=True
>End Sub
>Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
>   If CloseMode = vbFormControlMenu Then Cancel = True
>End Sub
>
>
>Private Sub CmdCancel_Click()
>   Unload Me
>End Sub
>
>
>
>
>
>________________________________
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (13) . Top ^

2b

Re: tracebility part gudang

Thu Dec 6, 2012 7:46 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Pak Amin,

Terus terang saya ndak mudeng quantity yang mana mau dimasukkan ke mana ?
Inputnya nilai quantity pakai control apa ?
Kalau dimasukkan ke listbox mau jadi item baru atau bagaimana ?

Wassalam,
Kid.

On Thu, Dec 6, 2012 at 10:35 PM, ngademin Thohari <ngademinth@yahoo.co.id>wrote:

> **
>
>
>
> Be-exceller
>
> Mr. kid minta advicenya lagi, untuk quantity belum bisa masuk kedata
> remaining quantity
> Offset(0, 6) penjabarannya seperti bagaimana?
>
> terima kasih
>
> amin
>
>
> Private Sub TbPartno_Exit(ByVal Cancel As MSForms.ReturnBoolean)
> Dim rngData As Range, rng As Range
> Dim spart As String, sRackByPart As String
> Dim dblQty As Double
> Sheet3.Unprotect "Belajar-Excel"
> spart = Trim$(Replace$(UCase$(TbPartno.Text), "3N1", vbNullString))
> spart = Left$(spart, InStr(spart & " ", " ") - 1)
> Set rngData = Sheet3.ListObjects(1).Range
> '.Range("c1").CurrentRegion.Resize(, 1).Offset(0, 4)
> With rngData
> '.Parent.AutoFilterMode = False
> .AutoFilter 1 ', spart
> .AutoFilter 5, spart
>
> If .Resize(, 1).SpecialCells(xlCellTypeVisible).Count > 1 Then
> For Each rng In .Offset(0,
> 4).Resize(1).SpecialCells(xlCellTypeVisible)
> If LenB(rng.Value) <> 0 And rng.Row > 1 Then
> dblQty = dblQty + rng.Offset(0, 3).Value
> sRackByPart = Replace$(sRackByPart, "," & rng.Offset(0,
> 6).Value, vbNullString) & "," & rng.Offset(0, 6).Value
> End If
> Next rng
> sRackByPart = Mid$(sRackByPart, 2)
> End If
> ListBox1.Clear 'hapus isinya dulu
> If LenB(sRackByPart) <> 0 Then
> ListBox1.AddItem dblQty 'tambah item baru
> TextBox1.Text = sRackByPart
> Else
> TextBox1.Text = "Tidak ada rack yang dipakai part " & spart
> End If
> TextBox1.Locked = True
> '.Parent.AutoFilterMode = False
> End With
> Sheet3.Protect "Belajar-Excel", userinterfaceonly:=True
> End Sub
>
>
> ------------------------------
> **
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (13) . Top ^

3a

Re: Fw: Emailing: rekam macro transpose

Thu Dec 6, 2012 8:38 am (PST) . Posted by:

"Jan Raisin"

Dear Ms. Ray,

maaf, baris awalnya kok kurang enak dibaca ya.. kalo buat Jan bersujud
sambil memohon itu tidak boleh dilakukan kepada manusia, walaupun cuma
sekedar tulisan tapi tetap saja kelihatannya kurang pantas.

kembali ke laptop..

Question:
1. Jika no transaksi dirubah dijadikan id buat vendor apakah msh bisa
dijalankan macronya contoh: 12345 u/PT. PRIMA SARI UTAMA
Answer:
Kalo menurut pendapat Jan, --namanya pendapat boleh diterima boleh juga
dibuang-- bisa saja dimasukkan ID_Vendor di sheet Form Isi 2 agar nanti
NPWP, nama PKP, dan alamat PKP langsung terisi menurut ID_Vendor yang
dimasukkan.

ID_Vendor bisa dibuat dalam bentuk Drop Down List dari menu Data Validasi
yang merujuk ke sebuah tabel tertentu yang berisi data-data vendor. Coba
sista pelajari dahulu Data Validasi dengan Allow List

Opsinya adalah :
a. Memasukkan ID_Vendor di cell baru, berarti harus menambah 1 kolom lagi
di sheet Rekap PPh untuk menyimpan datanya, atau
b. Mengganti Nomer Transaksi menjadi ID_Vendor, tidak perlu menambah kolom,
VBA yang sudah ada bisa langsung digunakan.

Question:
2. Dengan menambahkan 1 kolom dibelakang kolom tax, yaitu kolom status,
bagaimana cara memanggil no transaksi tsb dan menambahkan status terbayar
yg merujuk pada no transaksi tsb
Answer:
Cara merujuk dan memanggilnya serupa dengan cara merujuk kolom yang lain,
contohnya bisa dilihat di dalam scrip VBA yang saya lampirkan dahulu

Question:
3. Setiap bulan pasti transaksi itu terjadi dgn vendor yg sama, bagaimana
memanggil vendor yg sama yang msh terhutang (tidak ada status terbayar)
Answer:
Jika data sudah tersusun dengan baik, maka untuk mengetahuinya bisa dengan
memanfaatkan fitur Pivot Table

semoga sesuai dengan harapan

Best Regard,

-Ms. Jan Raisin-

Pada 6 Desember 2012 22:00, kyla_delv <kyla_delv@yahoo.com> menulis:

> **
>
>
> Dear miss jan,
> Saya tertarik dgn cash mba tiny ini, saya ingin mengembangkan pertanyaanya
> boleh kah? #sambilbersujudmemohon
>
> 1. Jika no transaksi dirubah dijadikan id buat vendor apakah msh bisa
> dijalankan macronya contoh: 12345 u/PT. PRIMA SARI UTAMA
> 2. Dengan menambahkan 1 kolom dibelakang kolom tax, yaitu kolom status,
> bagaimana cara memanggil no transaksi tsb dan menambahkan status terbayar
> yg merujuk pada no transaksi tsb
> 3. Setiap bulan pasti transaksi itu terjadi dgn vendor yg sama, bagaimana
> memanggil vendor yg sama yang msh terhutang (tidak ada status terbayar)
> Mohon pencerahannya miss
> Note: mba tiny maaf saya menggunakan casenya ;)
> Salam
> Miss Ray
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (10) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

10 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

GROUP FOOTER MESSAGE

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>