VBA Delete Cells with MsgBox?

Asked Sep 28 '21 at 08:59

Active Sep 28 '21 at 08:59

Viewed 170 times

I am trying to delete cells in a table. The worksheet line is marked as debug. but i can't find my mistake...

Code:

Sub clear_click()
If MsgBox("Del?", vbOKCancel) = vbCancel Then
   Exit Sub
Else

Worksheets("calc").Range("G9:G12").ClearContents
  
End If
    
End Sub

asked Sep 28 '21 at 08:59

Devo23

Is `calc` worksheet in the workbook that runs the code? Try to fully qualify the range. Also, what error did you get? – Raymond Wu Sep 28 '21 at 09:07
@RaymondWu yes its in the workbook – Devo23 Sep 28 '21 at 09:14
Try `ThisWorkbook.Worksheets("calc").Range("G9:G12").ClearContents` in this case, please provide the error code and description if this doesn't resolve it. @Devo23 – Raymond Wu Sep 28 '21 at 09:16
Unfortunately does not work.. Runtime Error 1004 – Devo23 Sep 28 '21 at 09:24
the code is in a module. is that wrong? – Devo23 Sep 28 '21 at 09:25
Please give the error description, we don't remember every single error code in every context. @Devo23 – Raymond Wu Sep 28 '21 at 09:25
@RaymondWu Run-time error '1004': We Can't do that to a merged cell – Devo23 Sep 28 '21 at 09:30
There you go - `G9:G12` is merged with some other cells and thus can't be cleared. Is the merged cell's range constant? – Raymond Wu Sep 28 '21 at 09:32
Read this [answer](https://stackoverflow.com/questions/33169215/how-to-clearcontents-of-a-merged-cells) and see if it can help you. – Raymond Wu Sep 28 '21 at 09:35
@RaymondWu Another programming writes data into it. With this button I want to empty the content again. – Devo23 Sep 28 '21 at 09:37
Follow the answer in the link I gave you in my previous comment. Without more info of how your cells are merged, it's difficult to help you properly. – Raymond Wu Sep 28 '21 at 09:39
Please edit the question to limit it to a specific problem with enough detail to identify an adequate answer. – Community Oct 04 '21 at 07:41

VBA Delete Cells with MsgBox?

0 Answers0