Mba Siti tks yah Makro nya.
2011/7/14 STDEV(i) <[email protected]>
> **
>
>
> data validation untuk Quantity dibuat dengan kombinasi
> 1 Bila Qty < 5 dipakai Data Validation biasa
> 2. Bila Qty > Max Rate Data Validation pakai makro
> MaxRate dinamis sesuai usia, dicari dengan VLookUp
>
> Tujuannya hanya ingin menyebutkan nilai Maxrate pada Msg Box
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> ' siti Vi / validasi data
> Dim MaxRate
> Application.EnableEvents = False
> If Target.Address = "$B$22" Then
> If Target.Value >= 5 Then
> MaxRate = WorksheetFunction.VLookup( _
> Range("B21").Value, Application.Range("Rates"), 2, 0)
> If Target.Value > MaxRate Then
> MsgBox "Quantity tidak boleh lebih dari " & MaxRate, 48, "ERROR
> !!"
> Target.Value = ""
> End If
> End If
> End If
> Application.EnableEvents = True
> End Sub
>
>
>
> 2011/7/14 STDEV(i) <[email protected]>:
>
> > lihat lampiran
> > data validation untuk Qty max
> > pakai rumus
> > =VLOOKUP(B21,Rates,2,False)
> > hanya saja di bagian allert nya
> > text pesan tidak dapat diberi formula
> > kalau memang harus disebutkan angkanya: bisa pakai makro
> >
> >
> > 2011/7/14 Modby Matsnawabi <[email protected]>
> >>
> >> Dear All,
> >> Terima kasih yah Solusi nya... untuk "insert Quantity" bagaimana? saya
> >> coba pake Validation tidak bisa juga..
> >> karena syarat Maximun nya tergantung Usia( data di Sheet "Rate") jadi
> >> tidak bisa di range 5-100 secara otomatis.
> >>
> >> Thank's
>
>
>
