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 <ngademi...@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
>
>
> ------------------------------
> **
>
>
