Best Junk File Cleaner: Tech Support: delete the data in cell

Monday, September 26, 2016

Tech Support: delete the data in cell

delete the data in cell

Sub Test()
Dim Data, NextRow As Range
'Read in all values form the column
Data = Range("D6:D15")
   'Transpose the array
Data = WorksheetFunction.Transpose(Data)
   'Note: If we transpose data that has only one column, _
    WorksheetFunction.Transpose changes the dimensions of that _
    array!
   With Sheets(2)
    'Get the next empty row in column B in second sheet
    Set NextRow = .Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
     'Store values in a row
    NextRow.Resize(, UBound(Data)) = Data
    .Range("L" & NextRow.Row).Value = Now
End With
End Sub
Above is the code given ,I want to delete the data entered in column D6:D15 once the datas are placed in sheet2 after transposing as per the code.

Solutions to the Problem delete the data in cell

Download Error Fixer (Free)

Hi,
You will need to unprotect at runtime, delete the data then reprotect.
See changed code below and note that you must change the password to the correct one and also the password is case sensitive
Sub Test()
Dim Data, NextRow As Range
'Read in all values form the column
Data = Range("D6:D15")
   'Transpose the array
Data = WorksheetFunction.Transpose(Data)
   'Note: If we transpose data that has only one column, _
    WorksheetFunction.Transpose changes the dimensions of that _
    array!
   With Sheets(2)
    'Get the next empty row in column B in second sheet
    Set NextRow = .Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
     'Store values in a row
    NextRow.Resize(, UBound(Data)) = Data
    .Range("L" & NextRow.Row).Value = Now
End With
ActiveSheet.Unprotect Password:="Mypass"
Range("D6:D15").ClearContents
ActiveSheet.Protect Password:="Mypass"
End Sub

If this post answers your question, please mark it as the Answer.
Mike H

Using Windows troubleshooter:

Click on Search on Charm bar and type Troubleshooting. Click on the very first option.
A new window will open. Click View all from the left pane.
Scroll down to the bottom and click on Windows update.
Troubleshooter window for Windows update will pop up. Click on NEXT. It may ask you for administrative permission.
The troubleshooter will automatically detect problems and fix it.
Now, close this window and try download/install the app which was previously showing error.

Recommended Method to Fix the Problem: delete the data in cell:

How to Fix delete the data in cell with SmartPCFixer?

1. Click the button to download SmartPCFixer . Install it on your computer. Run it, and it will scan your computer. The junk files will be shown in the list.