Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commit f53a24b

Browse files
modified file and exported .bas
1 parent 8fdbd06 commit f53a24b

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

‎Mod_Row.bas

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -43,7 +43,7 @@ longReturnRow = 1
4343

4444
' start
4545
' has something in it by column to the left
46-
Set rangeCell = wksCurrentSheet.Cells(longLastRow, longLastRow)
46+
Set rangeCell = wksCurrentSheet.Cells(longColumnNum, longLastRow)
4747

4848
' test if cell is empty then go up to find the next
4949
' row cell in column that is not empty
@@ -130,7 +130,7 @@ End Function
130130
Sub Row_Copy(wksSource As Worksheet, wksDestination As Worksheet, longCopyRow As Long, longInsertAboveRow As Long)
131131
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
132132
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
133-
' Copies the header row from the source worksheet to the destination worksheet and
133+
' Copies the row from the source worksheet to the destination worksheet and
134134
' turns on the Auto-filter
135135
'
136136
' Inputs

‎VBA_Code_Library.xlsm

-27 Bytes
Binary file not shown.

0 commit comments

Comments
(0)

AltStyle によって変換されたページ (->オリジナル) /