Anda bisa menambahkan code berikut ini :

If Application.WorksheetFunction.CountA(ActiveSheet.Range("$C$2:$C$55")) =
0 Then
  MsgBox "Data kosong!"
  Exit Sub
End If

Prinsipnya sama seperti formula biasa, dengan menggunakan CountA untuk
menghitung baris yang ada isinya saja di kolom C2:C55.

Thanks
Ferry

Attachment: input dg macro.xlsb
Description: Binary data

Kirim email ke