MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Private Sub InsertData() 'First need to insert a row below range, then add new data and 'finally call the range reset procedure intRowEnd = fntRangeStartEndsRows("End", "ss_WAL") + 1 ThisWorkbook.Worksheets("Datasource").Range("L" & intRowEnd & ":" & "P" & intRowEnd).Select ThisWorkbook.Worksheets("Datasource").Range("L" & intRowEnd & ":" & "P" & intRowEnd).Select Selection.Insert Shift:=xlDown With ThisWorkbook.Worksheets("Datasource").Range("ss_WAL").Rows.Count + 1 .Cells(0, 1).Value = Me.txtWAL.Value .Cells(1, 2).Value = Me.txtLookupClient.Value .Cells(2, 3).Value = Me.txtLookupLehman.Value .Cells(3, 4).Value = Me.txtColumnNumber.Value .cell(3, 5).Value = Me.txtRangeName.Value End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Draw a value from another worksheet, not as static text but as a formula (using VBA)||2||34|
|Checking references in VBA||3||22|
|Copy and paste Excel Shapes using vba||6||18|
|Look for an number in a column||42||21|