NEED TO CORRECT THIS CODE

[wndncg]

Basically it adds the data where it based on cell A1 & E1

What i want:

currently the code adds the data on the end of the cell, what i want to add on the current cell:

---

Sub DATA_DATE_LAST()

Dim wsData As Worksheet
Dim wsTemp As Worksheet
Dim v As Variant
Dim LR As Long
Dim r As Long

Application.ScreenUpdating = False

' Set worksheet variables
Set wsData = Sheets("TEMPLATE")
Set wsTemp = Sheets("FIN")

' Capture value to filter on
v = wsData.Range("A1")
dd = wsData.Range("E1")

' First clear range on TEMPLATE_SHEET
' wsTemp.Activate
' Rows("4:" & Rows.Count).Delete

' Find last row on DATA_SHEET
wsData.Activate
LR = Cells(Rows.Count, "B").End(xlUp).Row

' Loop through all rows on DATA_SHEET
For r = 1 To LR
' Check value in column A
If Cells(r, "B") = v And Cells(r, "A") = dd Then
' Copy columns B-D to TEMPLATE_SHEET
Range(Cells(r, "A"), Cells(r, "D")).Copy wsTemp.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

Range(Cells(r, "E"), Cells(r, "K")).Copy wsTemp.Cells(Rows.Count, "N").End(xlUp).Offset(1, 0)

Range(Cells(r, "L"), Cells(r, "M")).Copy wsTemp.Cells(Rows.Count, "X").End(xlUp).Offset(1, 0)
End If
Next r
'Call ADD_SEQ_01
Application.Wait (Now + TimeValue("00:00:01"))
'Call ADD_SEQ_02
Application.ScreenUpdating = True
wsTemp.Activate
MsgBox "ADDED_-WNDNCG"
End Sub

 

[bebo021999]

You are using Offset(1,0) to refer to next following cell
Should be:

Range(Cells(r, "A"), Cells(r, "D")).Copy wsTemp.Cells(Rows.Count, "A").End(xlUp)

Range(Cells(r, "E"), Cells(r, "K")).Copy wsTemp.Cells(Rows.Count, "N").End(xlUp)

Range(Cells(r, "L"), Cells(r, "M")).Copy wsTemp.Cells(Rows.Count, "X").End(xlUp)

 

[wndncg]

You are using Offset(1,0) to refer to next following cell
Should be:

Range(Cells(r, "A"), Cells(r, "D")).Copy wsTemp.Cells(Rows.Count, "A").End(xlUp)

Range(Cells(r, "E"), Cells(r, "K")).Copy wsTemp.Cells(Rows.Count, "N").End(xlUp)

Range(Cells(r, "L"), Cells(r, "M")).Copy wsTemp.Cells(Rows.Count, "X").End(xlUp)

good day ty for the reply the code seems not to work.

what i want just to paste in the current cell with the conditions above sample it will paste on A17

 

[bebo021999]

In order to give it a test, could you attach a mini sheet?

XL2BB - Excel Range to BBCode

Excel 'mini-sheet' in messages - XL2BB Although experts prefer to read your description and question instead of working in your actual file to solve your problem, there are times that it is difficult to explain an issue without providing actual...

www.mrexcel.com

 

[wndncg]

sir,

Filebin | y67o34lrxdlf882o

Convenient file sharing. Think of it as Pastebin for files. Registration is not required. Large files are supported.

filebin.net

 

[bebo021999]

Try to upload file then give us the link.

 

[wndncg]

Try to upload file then give us the link.

Filebin | y67o34lrxdlf882o

Convenient file sharing. Think of it as Pastebin for files. Registration is not required. Large files are supported.

filebin.net

 

[wndncg]

i message you the passcode

 

[Alex Blakenburg]

You have the current cell as being A17 and you have 7 records that meet the criteria. This will result in overwriting 2 of the 4 records dated 01/01/2022 that are in the next section on your output sheet.
Do you really want to rely on the currently selected cell ? Keep in mind that there is no undo after running the macro so if your current cells it not in the right place you are going to overwrite existing data.

 

[wndncg]

You have the current cell as being A17 and you have 7 records that meet the criteria. This will result in overwriting 2 of the 4 records dated 01/01/2022 that are in the next section on your output sheet.
Do you really want to rely on the currently selected cell ? Keep in mind that there is no undo after running the macro so if your current cells it not in the right place you are going to overwrite existing data.

yes, i will have a seperate macro that will just add the data on the specific cell starting a17 user will just adjust the insert part.