xixixix ^_^ (pinjem ketawanya ya Miss)... Bisanya baru rekam2 doank...
Wassalam ~ Bagus ~ ----- Original Message ----- From: Jan Raisin To: [email protected] Sent: Tuesday, January 28, 2014 2:16 PM Subject: Re: [belajar-excel] Mohon bantuannya [1 Attachment] Selamat.. akhirnya mas Bagus sudah mulai berani bermain-main dengan VBA.. semoga Be-Exceller lain segera mengikuti jejak mas Bagus.. berani untuk mencoba VBA, yang kelihatannya seram tetapi menyenangkan ^_^ angkat 2 jempol untuk mas Bagus ^_^ Jan ikut nyumbang solusi ya.. sayang kalo scriptnya dibuang, karena udah dibikin xixixix ^_^ Sub TempatDuduk() Dim rngKursi As Range, Kursi As Range Dim rngFind As Range Dim iVal As Integer Set rngKursi = Union(Range("c3:d9"), Range("f3:g10")) For Each Kursi In rngKursi If IsNumeric(rgKursi.Value) Then iVal = Kursi.Value With Sheets("DaftarNama") Set rngFind = .Range("a:a").Find(iVal, lookat:=xlWhole) If Not rngFind Is Nothing Then If Len(rngFind.Offset(, 1).Value) <> vbNullString Then Kursi.Value = rngFind.Offset(, 1).Value End If End If End With End If Next Kursi End Sub file terlampir, pastikan untuk meng-Enable-kan macronya dahulu -Miss Jan Raisin- Pada 28 Januari 2014 14.04, Bagus <[email protected]> menulis: Hai Harry; File terlampir adalah hasil rekam macro.. Sila dicoba Wassalam ~ Bagus ~ ----- Original Message ----- From: harry siswanto To: [email protected] Sent: Tuesday, January 28, 2014 12:42 PM Subject: [belajar-excel] Mohon bantuannya [1 Attachment] Dear Senior Excel, Mohon bantuannya,bagaimana memasukan Daftar nama kedalam sheet "Layout tempat duduk" sesuai dengan nomor Kursinya? sehingga dengan 1 button, alokasi tempat duduk, akan otomatis terisi. terimakasih sebelumnya. Regards Harry Siswanto
