If Application.CountA(rnSelection.Rows(lnRowCount)) = 0 Then 'delete the row and increment the deleted row count. 'Start at the bottom row and work up: if the row is empty then 'Initialize the range to what the user has selected, and initialize the count for the upcoming FOR loop. 'Confirm that a range is selected, and that the range is contiguous. 'Row and count variables used in the deletion process. 'The range from which to delete the rows.

This example deletes the empty rows from a selected range. Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).Value Wks.Range(wks.Cells(xRow, 1), wks.Cells(xRow, 7)).Value = _ 'Otherwise, find the next empty row in the target worksheet and copy the data into that row. Set wks = Worksheets(CStr(Cells(Target.Row, 1).Value))

'Set the target worksheet as the worksheet whose name is listed in the first cell of the current row. 'If an error occurs, use inline error handling. 'Override the default double-click behavior with this function. 'If the double click occurs on the header row or an empty cell, exit the macro. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) This example accesses the active row by using the Target keyword. When you double-click a cell that contains data, this example gets the target worksheet name from column A and copies the entire row of data into the next available row on the target worksheet. To run this code, the name of the target worksheet must be in column A. This example uses the BeforeDoubleClick worksheet event to copy a row of data from one worksheet to another. This example sets the row height of every other row on Sheet1 to 4 points. SyntaxĮxpression A variable that represents a Range object. Returns the number of the first row of the first area in the range.

Excel vba on worksheet change get row