Nach alhmdl4jjI.q jadi ngerti cekalang.Ini dia yang q mauuu... jadi tinggal selipin titah jika ada kesalahan atau keanehan data te es be. tapi...setelah q cuba-cuba selipin tugas jika terjadi keanehan, hasilnya .xi...xixi...enk..ink...enk..$*($#*&^$*..
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim Kuning As Range
Dim sheetName As String
Set Kuning = Range(Range("B4"), Range("B4").End(xlDown))
If Target.Cells.Count = 1 Then
If Len(Target.Value) > 0 Then
If Not Intersect(Target
Yth. Para master excel
Apakah ada cara atau tips untuk membuat dan
mengubah tampilan dropdownlist yg dibuat dari Data Validation (font,
warna, dsb) supaya tampilannya lebih menarik.
Terima kasih banyak untuk info nya.
Rahagung Dananjoyo
PTPN XI (Persero)
Sepertinya maksud dari Pak Gusti adalah tinggal menghilangkan pesan
kesalahan yang muncul setelah terjadi pesan kesalahan pertama, padahal nilai
berikutnya ditemukan.
Untuk hal ini, gunakan Err.Clear dalam blok Err_handler nya, untuk menghapus
status error yang ada.
Err_Handler:
My_msg1 = Msg
10GB Web Hosting For FREE
10 GB Space | 300 GB Transfer
100 Email Accounts
10 MySQL Databases
support PHP and ASP
+ $130 of advertising credits on Google, Facebook and MySpace and more
Click here : http://easylnk.com/?15457
Bapak/Ibu yang baik hati,
Terimakasih bantuannya,
Berikut adalah bahasa macro yang sudah saya buat
Jadi My_Sample di Find, mewakili banyak value dari Workbook
(Wbook_Assay) yang nantinya akan di find di Wbook_StockPile.
Bila nanti value tersebut di temukan di Wbook_StockPile, maka ada cell
y
waduh, saya malah ndak tahu 'babar-blass' lho
coba dikirim lampirannya ys sudah jadi (dari Posi, Yugustin (PTI-SOR) )
dengan mencoba coba mungkin lama-lama jadi tahu
soalnya mau "dikarang karang" sendiri, bagian paling berat itu membuat datanya
agak herannya di sheet kan sudah ada FIND ataupun F
Coba cek lagi kriteria yang ditulis dalam program apakah sudah sama dengan nama
yang ada dalam Sheet, karena Error 91 ini berhubungan dengan Object Variable.
Kalau belum bisa juga, terpaksa nunggu Mbak Siti dan Mr Kid yang ahli VBA code
untuk bisa menjawabnya.
Salam,
Hendrik Karnadi
Terimakasih masukannya Pak Hendrik.
Hal ini juga sudah saya lakukan.
My Sample mewakili banyak value. Misalnya value pertama "Cintia" tidak
ketemu akan segera lari ke ErrorHandler.
Tapi untuk find value selanjutnya misalnya "Dahmat" tidak ketemu kembali
muncul pesan error seperti semula
(mak
Macronya harus ditulis sbb :
Sub Macro_Find()
On Error GoTo ErrorHandler
Cells.Find(What:="My_Sample", After:=ActiveCell, LookIn:=xlFormulas,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
Exit Sub
Erro
10 matches
Mail list logo