PEMBERITAHUAN
berhubung karyawan bagiYan Quality Control sedang demo 
… file FormControls.xls pada artikel ini yang udah di upload ndak melaluli prosedur penyortiran sebagEmana mUstinya ( alEsan yang mengada-ada 
)… ada kesalahan kode pada macro untuk menghapus record dari tabel … bagi yang terlanjur donlot sebelum post ini nongol silahkan kode macro untuk button HAPUS diganti yang seperti ini … yang beda cuman di baris yang nomer duWa (2) … selebihnya sama aja … ato donlot ulangseperti biasa jugak bisa udah saya apdet filenya … gitu aja koq refooooot
salam MDLMDL ………. 
| 1 | Sub hapus() |
| 2 | Sheets(“Sheet2″).Rows(Range(“nomr”)).Delete |
| 3 | Sheets(“sheet1″).Shapes(“SBH”).ControlFormat.Max = Sheets(“sheet1″).Shapes(“SBH”).ControlFormat.Max – 1 |
| 4 | Sheets(“sheet1″).Shapes(“SBV”).ControlFormat.Max = Sheets(“sheet1″).Shapes(“SBH”).ControlFormat.Max |
| 5 | repres |
| 6 | MsgBox “data telah dihapus”, vbInformation |
| 7 | End Sub |
1 Sub hapus()
2 Sheets(“Sheet2″).Rows(Range(“nomr”)).Delete
3 Sheets(“sheet1″).Shapes(“SBH”).ControlFormat.Max = Sheets(“sheet1″).Shapes(“SBH”).ControlFormat.Max – 1
4 Sheets(“sheet1″).Shapes(“SBV”).ControlFormat.Max = Sheets(“sheet1″).Shapes(“SBH”).ControlFormat.Max
5 repres
6 MsgBox “data telah dihapus”, vbInformation
7 End Sub
#######
kalo sya buat formula excel digabung formulanya ikut hilang mohon bantuannya agar formulanya tidak ikut hilang…. thx…
maksudnya apa nih dengan kata “digabung” apakah yang dimaksud “merge cell”
kalau merge cell memang hanya isi cell “upper-left most” yang akan dipakai