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 <[email protected]>
> *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
>
>
>
re-Sample dalam Excel.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
