I'm trying to get it if click New Tax Cert Button to Copy the last Cell in $d:$d with date(the formula) to the cell just below it for D, E. Then when this is done if possible to take the cells that the data was copied from (after pasting the formula below it) to past the value.
Sub New_Tax_Cert_Copy()
'
' New_Tax_Cert_Copy Macro
'
Sheets("List").Select
Dim lr As Long
Range("D" & Rows.Count).End(xlUp).Select
Selection.Copy
Range("D" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteFormula, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Range("D1").End(xlDown).Offset (1)
' Range("D" & Rows.Count).End(xlUp).Offset(1).Paste
' Range("D" & Rows.Count + 1).Select
' lr = Columns("D").Find(What:="", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
' n Error Resume Next
' Range("D1:D" & lr).SpecialCells(xlBlanks).Select = Selection.Paste
On Error GoTo 0
' Range("D" & Rows.Count).End(xlUp).Select
' Selection.Copy
' Worksheets("List").Range("D1").End(xlDown).Row 1
' Cells(Rows.Count, 1).End(xlUp).Select
' Range("D").End(xlDown).Row 1
' Range("D" & Rows.Count).End(xlUp).Row 1
' Cells(2, Range(D).End(xlUp).Row + 1).Paste
' Range("E" & Rows.Count).End(xlUp).Select
' Selection.Copy
' Cells(2, Range(E).End(xlUp).Row + 1).Paste
' Range("D" & Rows.Count).End(xlUp).Select
' Selection.Copy
' Range("D" & Rows.Count).End(xlUp).Offset(1).Paste
' Range("E" & Rows.Count).End(xlUp).Select
' Selection.Copy
' Range("E" & Rows.Count).End(xlUp).Offset(1).Paste
' Range("F" & Rows.Count).End(xlUp).Offset(1).Select
' Range("F" & Rows.Count).End(xlUp).Select
' MsgBox "Only Enter Properly Parcel & Requester Info!!!"
'
End Sub
Sub New_Tax_Cert_Copy()
'
' New_Tax_Cert_Copy Macro
'
Sheets("List").Select
Dim lr As Long
Range("D" & Rows.Count).End(xlUp).Select
Selection.Copy
Range("D" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteFormula, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Range("D1").End(xlDown).Offset (1)
' Range("D" & Rows.Count).End(xlUp).Offset(1).Paste
' Range("D" & Rows.Count + 1).Select
' lr = Columns("D").Find(What:="", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
' n Error Resume Next
' Range("D1:D" & lr).SpecialCells(xlBlanks).Select = Selection.Paste
On Error GoTo 0
' Range("D" & Rows.Count).End(xlUp).Select
' Selection.Copy
' Worksheets("List").Range("D1").End(xlDown).Row 1
' Cells(Rows.Count, 1).End(xlUp).Select
' Range("D").End(xlDown).Row 1
' Range("D" & Rows.Count).End(xlUp).Row 1
' Cells(2, Range(D).End(xlUp).Row + 1).Paste
' Range("E" & Rows.Count).End(xlUp).Select
' Selection.Copy
' Cells(2, Range(E).End(xlUp).Row + 1).Paste
' Range("D" & Rows.Count).End(xlUp).Select
' Selection.Copy
' Range("D" & Rows.Count).End(xlUp).Offset(1).Paste
' Range("E" & Rows.Count).End(xlUp).Select
' Selection.Copy
' Range("E" & Rows.Count).End(xlUp).Offset(1).Paste
' Range("F" & Rows.Count).End(xlUp).Offset(1).Select
' Range("F" & Rows.Count).End(xlUp).Select
' MsgBox "Only Enter Properly Parcel & Requester Info!!!"
'
End Sub
East Cameron Township - Copy.xlsm | ||||||||
---|---|---|---|---|---|---|---|---|
A | B | C | D | E | F | |||
1 | ||||||||
2 | Paid | $ | PARCEL # | OWNERS | ADDRESS | REQUESTED BY: | ||
3 | 1 | 001-00-077-086-B | ARTMAN CLIFFORD P/CAROL ANN | 4922 UPPER RD | Test Company | |||
4 | 1 | 001-00-077-086 | ||||||
5 | ||||||||
6 | ||||||||
7 | ||||||||
8 | ||||||||
9 | ||||||||
10 | ||||||||
11 | ||||||||
12 | ||||||||
13 | ||||||||
14 | ||||||||
15 | ||||||||
List |
Cell Formulas | ||
---|---|---|
Range | Formula | |
D3 | D3 | =INDEX('C:\Users\pmill\Google Drive\2022\[2022 - ECT - Real Estate - Copy.xls]Real Estate'!$A$1:$P$65536,MATCH(C3,'C:\Users\pmill\Google Drive\2022\[2022 - ECT - Real Estate - Copy.xls]Real Estate'!$P$1:$P$65536,0),1) |
E3 | E3 | =INDEX('C:\Users\pmill\Google Drive\2022\[2022 - ECT - Real Estate - Copy.xls]Real Estate'!$A$1:$R$65536,MATCH(C3,'C:\Users\pmill\Google Drive\2022\[2022 - ECT - Real Estate - Copy.xls]Real Estate'!$P$1:$P$65536,0),18) |