Copy cell value based on a date to a specific colum

**dwilkinson12** · 10-13-2014, 06:06 PM

Hi

I have played around with a few different ways to do this and I can't get any to work well.

What I have is a 2 sheets, on sheet 2 there is a column with dates in (these could be mon-fri). On sheet one I have a list of £amounts. With the header Amount and then for the rest of the year I have the Week Commencing (MON) dates as headers in ROW A

What I need is a macro that will work through the entire row of dates in sheet 2. Whatever the date of the Monday of that week is I need it to copy and paste the £amount from sheet 1 and put the amount in the correct cell of the correct row.

All of the rows correspond with each other. So Sheet1!A2:A100 has its relevant data in Sheet2!A2:A100.

I have attached a very simple explanatory sheet.

I hope someone can help me.

Thanks,
Dan

**xladept** · 10-13-2014, 07:25 PM

Try this:

Sub DWilkinson(): Dim w1 As Worksheet, w2 As Worksheet
Dim DD As Date, DM As Date, r As Long, c As Long
Set w1 = Sheets("Sheet1"): Set w2 = Sheets("Sheet2")
        r = 2: Do Until w2.Range("A" & r) = ""
        DD = w2.Range("A" & r): DM = DD - Weekday(DD) + 2
        c = 3: Do Until Trim(w1.Cells(1, c)) = DM: c = c + 1
        If w1.Cells(1, c) = "" Then Exit Do
        Loop: w1.Cells(r, c) = w1.Cells(r, 1): r = r + 1: Loop
End Sub

**dwilkinson12** · 10-13-2014, 08:40 PM

Thanks, this works great.

I have just realised I forgot to add something. On sheet 1 I would like an overdue column so instead of pasting the amount into the correct week, if a payment was overdue (past the date when running macro) it will move the amount from the date column and into the overdue column.

Thanks,
Dan

**xladept** · 10-13-2014, 10:57 PM

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

**dwilkinson12** · 10-14-2014, 03:40 AM

Hi once agan thanks for your reply. I have made it simple with a few comments on the actual sheet. Cheers, Dan

**xladept** · 10-14-2014, 03:22 PM

Hi DWilkinson,

Maybe:

Sub DWilkinson(): Dim w1 As Worksheet, w2 As Worksheet
Dim DD As Date, DM As Date, r As Long, c As Long
Set w1 = Sheets("Sheet1"): Set w2 = Sheets("Sheet2")
        r = 2: Do Until w2.Range("A" & r) = ""
        DD = w2.Range("A" & r): DM = DD - Weekday(DD) + 2
        c = 4: Do Until Trim(w1.Cells(1, c)) = DM: c = c + 1
        If w1.Cells(1, c) = "" Then Exit Do
                        Loop
            If DD < Date Then c = 3
        w1.Cells(r, c) = w1.Cells(r, 1): r = r + 1: Loop
End Sub

**dwilkinson12** · 10-14-2014, 06:17 PM

Thanks once again, this works, would it be easy for me to add something to the code so that when it places the amount in overdue it deletes it from its original place under the date heading?

Also I have tried playing around with following but once again I am having no luck.

If I had a third page (sheet 3 for example) would it be possible to be able to take any row with a number in the overdue column and place that whole row into the third sheet?

Thanks in advance,

DWilkinson

**xladept** · 10-14-2014, 07:47 PM

Hi DWilkinson,

This should "erase" the overdue entry:

Sub DWilkinson(): Dim w1 As Worksheet, w2 As Worksheet
Dim DD As Date, DM As Date, r As Long, c As Long
Set w1 = Sheets("Sheet1"): Set w2 = Sheets("Sheet2")
        r = 2: Do Until w2.Range("A" & r) = ""
        DD = w2.Range("A" & r): DM = DD - Weekday(DD) + 2
        c = 4: Do Until Trim(w1.Cells(1, c)) = DM: c = c + 1
        If w1.Cells(1, c) = "" Then Exit Do
                        Loop
                If DD < Date Then
            w1.Cells(r, c) = "": c = 3: End If
        w1.Cells(r, c) = w1.Cells(r, 1): r = r + 1: Loop
End Sub

*But it's probably unnecessary since we weren't writing it in its regular spot anyway??

The whole row to Sheet3 would be no problem

**dwilkinson12** · 10-15-2014, 06:10 AM

Thanks this works perfectly and does exactly what I need it to do. If you do get chance to look at the row to sheet 3 that would be amazing.

I will then try and append macro and build it into my working document with hundreds of rows and column of data, I should hopefully be able to work out what to change in the macro etc.

Cheers,
DWilkinson

**xladept** · 10-15-2014, 07:40 PM

Hi DWilkinson,

Try this: DWilkinson.xlsm

Sub DWilkinson(): Dim w1 As Worksheet, w2 As Worksheet, w3 As Worksheet
Dim DD As Date, DM As Date, r As Long, c As Long, k As Long, WF As Object
Set w1 = Sheets("Sheet1"): Set w2 = Sheets("Sheet2"): Set w3 = Sheets("Sheet3")
                Set WF = WorksheetFunction
                w3.Range("A:A").NumberFormat = "mm/dd/yyyy"
        k = WF.MAX(2, w3.Range("A" & Rows.Count).End(xlUp).Row + 1)
        r = 2: Do Until w2.Range("A" & r) = ""
        DD = w2.Range("A" & r): DM = DD - Weekday(DD) + 2
        c = 4: Do Until Trim(w1.Cells(1, c)) = DM: c = c + 1
        If w1.Cells(1, c) = "" Then Exit Do
                        Loop
                If DD < Date Then
    w3.Cells(k, 1) = w2.Range("A" & r): w3.Cells(k, 2) = w1.Range("A" & r)
            w1.Cells(r, c) = "": c = 3: End If
        w1.Cells(r, c) = w1.Cells(r, 1): r = r + 1: Loop
End Sub

*Do you want to erase the Sheet1 and Sheet2 Overdue entries or retain them as I have here?

**Sorry for the delay - but, my chores had piled up

**dwilkinson12** · 10-17-2014, 06:55 PM

Hi

Once again great thanks for getting back to me with some great code. Unfortunately I had to revert back to the piece of code before the last post so it now doesn't include the copy to sheet 3 function.

However I have incorporated this into my workbook and worked out what values of the code to change to get it to work correctly. I have now been asked to alter this ever so slightly more.

I have attached a replica of my book but with only a few lines of de-sensitised data.

Working from this new attachment, what I now need to do is add 2 things, which I think are simple but I just spent a few hours trying to do but had no look.

1) The code currently takes the date from column 'M' and does its magic. I now need the code to take the date from column 'L' aswell as 'M'. It will be one or the other. There will never be a date in both.

2) The dates that run across the row 'A' are week start dates. On sheet 2 I have a cell 'G1' that displays the date of the Monday in the current week we are in. So this week it will display 13/10/14. I would like if possible for the macro after or before it sorts that data to read them dates and for any row with the header cell that is in the past to be deleted. It shouldn't delete the week we are currently in though hense the formula in sheet 2 'G1'. Reference that cell in the macro if you need to.

Once again thanks in advance and your help is very much appreciated.

Thanks,
Daniel W

**xladept** · 10-17-2014, 07:42 PM

Hi Daniel, I'm studying the problem - I'll probably try some coding tomorrow - anymore elaboration on your part will be most welcome f.r. there are no dates in Column L on this sample??

**dwilkinson12** · 10-17-2014, 07:47 PM

That's great thankyou, just pop in a random date for testing purposes.

Thanks again,
Daniel

**dwilkinson12** · 10-17-2014, 08:00 PM

Hi

I messed up and forgot what I did. The macro can stay the same because the if you put a date in column l it will then appear in column m.

I will just need some assistance with the deleting of the columns with the date in the past.

Thanks,
Daniel

**xladept** · 10-18-2014, 03:48 PM

Hi Daniel,

Maybe:

Sub SortData(): Dim w1 As Worksheet, w2 As Worksheet
 Dim DD As Date, DM As Date, r As Long, c As Long
 Set w1 = Sheets("Debtors"): Set w2 = Sheets("Sheet2")
         Worksheets("Debtors").Range("N2:CA20000").ClearContents
         r = 2: Do Until w2.Range("B" & r) = ""
         DD = w2.Range("B" & r): DM = DD - Weekday(DD) + 2
         c = 15: Do Until Trim(w1.Cells(1, c)) = DM: c = c + 1
         If w1.Cells(1, c) = "" Then Exit Do
                         Loop
                 If DD < Date Then
                w1.Cells(r, c) = "": c = 14: End If
                w1.Cells(r, c) = w1.Cells(r, 7)
                If w2.Range("A" & r) < Date - Weekday(Date) + 2 Then
                    w1.Range("A" & r).EntireRow.Delete
                w2.Range("A" & r).EntireRow.Delete: r = r - 1: End If
                        r = r + 1: Loop
 End Sub

**dwilkinson12** · 10-18-2014, 04:59 PM

Yes - This is great thank you, I have decided to put some formulas underneath the data and across to each week. Is there a simple way that I could change the macro to only sort data up to ROW 8000?

Thanks,
DWilkinson

**xladept** · 10-18-2014, 07:28 PM

Sub SortData(): Dim w1 As Worksheet, w2 As Worksheet 'DWilkinson
 Dim DD As Date, DM As Date, r As Long, c As Long
 Set w1 = Sheets("Debtors"): Set w2 = Sheets("Sheet2")
         Worksheets("Debtors").Range("N2:CA20000").ClearContents
         r = 2: Do Until w2.Range("B" & r) = "" Or r = 8000
         DD = w2.Range("B" & r): DM = DD - Weekday(DD) + 2
         c = 15: Do Until Trim(w1.Cells(1, c)) = DM: c = c + 1
         If w1.Cells(1, c) = "" Then Exit Do
                         Loop
                 If DD < Date Then
                w1.Cells(r, c) = "": c = 14: End If
                w1.Cells(r, c) = w1.Cells(r, 7)
                If w2.Range("A" & r) < Date - Weekday(Date) + 2 Then
                    w1.Range("A" & r).EntireRow.Delete
                w2.Range("A" & r).EntireRow.Delete: r = r - 1: End If
                        r = r + 1: Loop
 End Sub

**dwilkinson12** · 10-19-2014, 06:08 PM

Thanks once again, I will try and finalise this document soon, and make sure I don't need anything else in it.

Thanks,
Dwilkinson

**xladept** · 10-19-2014, 08:46 PM

You're welcome and thanks for the rep!

**dwilkinson12** · 10-20-2014, 02:13 PM

xladept

I notices that you helped with the formula on another post. I have attached the worksheet which is now fully working. I just have a slight query.

You wrote the macro that inserts a new row and uses the fill handle to bring don the formula from the row above.

Basically the company codes that are located from a9006 downwards are the same as the codes from a2 downwards, when I populate the sheet with the relevant data there will be around a 1000 rows of data each with a company code in column A. There might be 100 of the same and 75 of another for example. AEL001 x 100, AEL005 x 75.

My query is can a macro search column A from A2 --> A8000 and basically take all the company codes make just one copy of each different one and display them from cell A9006 downwards.

In the example I have attached you will see there are 5 x AEL005 company codes and 1 of each AEL001, AEL002 etc. So the list of company codes that starts in cell A9006 should go;
A9006=AEL001
A9007=AEL002
A9008=AEL003
A9009=AEL004
A9010=AEL005

The list starting from A2-->A8000 will be growing week by week. And the macro currently work by pressing add customer.

Thanks,
DWilkinson

**xladept** · 10-20-2014, 11:05 PM

I'm studying the problem - what about the data associated with each Code line - do you just want the codes listed from Row 9006 on??

**dwilkinson12** · 10-21-2014, 02:08 AM

Just column A is fine I already have the formula to sort the other data. So the codes listed in A9006 should be the coffee that are listed from A2 to A8000. If in a15 to a60 out had the same code then outwould only display thatcode once in the list that begins begins in. A9006.

Thanks,
DWilkinson

**xladept** · 10-21-2014, 04:13 PM

Hi DWilkinson,

Here's some code to append those codes in the third segment:

Sub AppendCodes(): Dim wd As Worksheet, Code As String
Dim i As Long, k, r As Long, er As Long, n As Long
        Set wd = Sheets("Debtors")
er = wd.Range("A" & Rows.Count).End(xlUp).Row
r = wd.Range("A:A").Find("Customer").Row + 1
    With CreateObject("Scripting.Dictionary")
        For i = 2 To 8000: Code = wd.Cells(i, 1)
            If Not .Exists(Code) Then
                .Item(Code) = i: End If
        Next i: k = .keys(): n = .Count
            If er - r > .Count Then
wd.Range("A" & r).Resize(er - r - .Count + 1, 1).EntireRow.Delete Shift:=xlUp
                    er = r + .Count - 1: End If
            If er - r < .Count - 1 Then
wd.Range("A" & er).Resize(r + .Count - er - 1, 1).EntireRow.Insert: End If
wd.Range("A" & r).Resize(.Count, 1).Value = WorksheetFunction.Transpose(k)
    End With: End Sub

**dwilkinson12** · 10-21-2014, 04:23 PM

Third segment? Not following. Sorry,

Dan

**xladept** · 10-21-2014, 04:34 PM

Hi Dan,

It puts the codes where you want them

I look at the sheet and it seems like there are three sections

**dwilkinson12** · 10-21-2014, 04:41 PM

Oh yes I get you. So yeah 1 the data then a sum of all the data then a sum for each company seperately. Thanks so Mich I will have a play later on and will see how I get on.Cheers Dan

**dwilkinson12** · 10-21-2014, 07:21 PM

Ok so this works great however when it inserts a new row and places the company code into the A column if it's possible would it be able to take the formula from the whole of the row above up and copy them down.

I will save in my master copy the formulas in row 9006 so every time it populates it will always pull the formula down from that. I haven't finished sorting the formula for this row so if you can do it then just test using a really simple formula just so we can see it incrementing down each row as it adds the company codes.

Thanks,
Dan

**xladept** · 10-23-2014, 07:34 PM

Hi Dan,

A senior moment - sorry!

Try:

Sub AppendCodes(): Dim wd As Worksheet, Code As String
Dim i As Long, k, r As Long, er As Long, n As Long, F
        Set wd = Sheets("Debtors")
er = wd.Range("A" & Rows.Count).End(xlUp).Row
r = wd.Range("A:A").Find("Customer").Row + 1
    With CreateObject("Scripting.Dictionary")
        For i = 2 To 8000: Code = wd.Cells(i, 1)
            If Not .Exists(Code) Then
                .Item(Code) = i: End If
        Next i: k = .keys(): n = .Count
            If er - r > .Count Then
wd.Range("A" & r).Resize(er - r - .Count + 1, 1).EntireRow.Delete Shift:=xlUp
                    er = r + .Count - 1: End If
            If er - r < .Count - 1 Then
wd.Range("A" & er).Resize(r + .Count - er - 1, 1).EntireRow.Insert: End If
wd.Range("A" & r).Resize(.Count, 1).Value = WorksheetFunction.Transpose(k)
F = Cells(r, 2).FormulaR1C1
For i = r + 1 To r + UBound(k) - 1: Cells(i, 2) = F: Next i
    End With: End Sub

**dwilkinson12** · 10-23-2014, 08:11 PM

Sorry mate but that's doing the same thing.

It seems to choose the customer row and then insert so each time it inserts a row the row which started directly under the customer cell (with the formulas in) is being pushed down.

I can only assume that is why there is no code being copied down either as this is done last and the code Is at the bottom?

Cheers,
Dan

**dwilkinson12** · 10-23-2014, 08:27 PM

I think I fixed it, I changed the 4th line to .row - 0 instead of 1 that seemed to do the trick.

Is there a way to do a formula that does the following;

Take the column it's in a do a sum of row 9006 to the cell directly above the formula. Use row b as an example.

Cheers,
Dan

**xladept** · 10-23-2014, 11:29 PM

Hi Dan,

I thought that I already did that, and the row-1 I had changed to just row (which is the same as row-0)

You said that you would put a formula in B9006 - did you??

**dwilkinson12** · 10-24-2014, 07:22 AM

Hey sorry was late when I wrote that and I was getting confused.

Basically I meant to put that the formula in B9006 will return a figure.
At the bottom of the rows that you have got to insert with the company code there is a ROW with totals in so how could I do a formula that with be in the totals row to basically go sum B9006 and all the way down until it gets back to the cell where the formula in or the one above it as that will be the last cell with data in.

My problem is the fact that list will be changing from week to week so I cant just write a simple sum formula as I don't know what the range will be.

Cheers,
Dan

**dwilkinson12** · 10-29-2014, 03:37 PM

xladept... thank you

**xladept** · 10-29-2014, 07:30 PM

Hi Dan,

I haven't devised a solution yet - is the formula OK??

I removed the Leading Dollar Signs from the Column Letters and Ran this:

Sub AppendCodes(): Dim wd As Worksheet, Code As String, F As String
Dim i As Long, j As Long, k, r As Long, er As Long, n As Long
        Set wd = Sheets("Debtors")
er = wd.Range("A" & Rows.Count).End(xlUp).Row - 1
r = wd.Range("A:A").Find("Customer").Row + 1
    With CreateObject("Scripting.Dictionary")
        For i = 2 To 8000: Code = wd.Cells(i, 1)
            If Not .Exists(Code) Then
                .Item(Code) = i: End If
        Next i: k = .keys(): n = .Count
            If er - r > .Count Then
wd.Range("A" & r).Resize(er - r - .Count + 1, 1).EntireRow.Delete Shift:=xlUp
                    er = r + .Count - 1: End If
            If er - r < .Count - 1 Then
wd.Range("A" & er).Resize(r + .Count - er - 1, 1).EntireRow.Insert: End If
wd.Range("A" & r).Resize(.Count, 1).Value = WorksheetFunction.Transpose(k)
F = Cells(r, 2).Formula: Cells(r, 2).Copy
Range(Cells(r, 2), Cells(r + UBound(k) - 1, 32)).PasteSpecial xlPasteFormulas
    End With: End Sub

*But do you want the B column formula to Tally the A column??

**dwilkinson12** · 10-29-2014, 08:22 PM

Hey

Thankyou - there is no formula in a column, the formula in b, and d column doesn't have to be there I just thought by putting forumula in the whole row without any gaps to see if it would work.

The formula in E9006 should be

=IF(SUMIFS($E$2:$E$5000,$A$2:$A$5000,A9006)=0,"",SUMIFS($E$2:$E$5000,$A$2:$A$5000,A9006))

The formula in F9006 should be

=IF(SUMIFS($F$2:$F$5000,$A$2:$A$5000,A9006)=0,"",SUMIFS($F$2:$F$5000,$A$2:$A$5000,A9006))

The formula in E9007 should be

=IF(SUMIFS($E$2:$E$5000,$A$2:$A$5000,A9007)=0,"",SUMIFS($E$2:$E$5000,$A$2:$A$5000,A9007))

The formula in F9007 should be

=IF(SUMIFS($F$2:$F$5000,$A$2:$A$5000,E9007)=0,"",SUMIFS($F$2:$F$5000,$A$2:$A$5000,E9007))

It should carry on down and across like that

Thanks,
Dan

**xladept** · 10-29-2014, 11:08 PM

We need to change the formula in B to B rather than A

**xladept** · 11-02-2014, 04:22 PM

Hi Dan,

Try this: we still need to have a formula in B9006

Sub AppendCodes(): Dim wd As Worksheet, Code As String, F As String
Dim i As Long, j As Long, k, r As Long, er As Long, n As Long, Key As String
        Set wd = Sheets("Debtors")
er = wd.Range("A" & Rows.Count).End(xlUp).Row - 1
r = wd.Range("A:A").Find("Customer").Row + 1
    With CreateObject("Scripting.Dictionary")
        For i = 2 To 8000: Code = wd.Cells(i, 1)
                    If Not .Exists(Code) And Code <> "" Then
                .Item(Code) = i: End If
        Next i: k = .keys(): n = .Count
        
BubbleK:
                    For i = LBound(k) To UBound(k) - 1
                    If k(i) > k(i + 1) Then
                Key = k(i): k(i) = k(i + 1): k(i + 1) = Key
                    GoTo BubbleK: End If: Next i

            If er - r > .Count Then
wd.Range("A" & r).Resize(er - r - .Count + 1, 1).EntireRow.Delete Shift:=xlUp
                    er = r + .Count - 1: End If
            If er - r < .Count - 1 Then
wd.Range("A" & er).Resize(r + .Count - er - 1, 1).EntireRow.Insert: End If

wd.Range("A" & r).Resize(.Count, 1).Value = WorksheetFunction.Transpose(k)
F = Cells(r, 2).Formula: Cells(r, 2).Copy
Range(Cells(r, 2), Cells(r + UBound(k), 32)).PasteSpecial xlPasteFormulas
Calculate

    End With: End Sub

**dwilkinson12** · 11-02-2014, 04:41 PM

Cheers Buddy

**xladept** · 11-02-2014, 07:01 PM

I'll drink to that

**dwilkinson12** · 11-03-2014, 07:01 PM

I have one last adaptation for this then I am done, with project anyway.

I need a new macro that takes the company code from cell A9006 and display whatever the column B value is.

So if AEL001 is in A9006 then in B9006 it will display as Asda. And so on. This will need to work it's way down from row 9006 onwards until there is no data left.

Thanks in advance
Dan

**xladept** · 11-03-2014, 07:29 PM

Hi Dan,

You'll still need that formula in C9006:

Sub AppendCodes(): Dim wd As Worksheet, Code As String, F As String 'DWilkinson
Dim i As Long, j As Long, k, r As Long, er As Long, n As Long, Key As String
        Set wd = Sheets("Debtors")
er = wd.Range("A" & Rows.Count).End(xlUp).Row - 1
r = wd.Range("A:A").Find("Customer").Row + 1
    With CreateObject("Scripting.Dictionary")
        For i = 2 To 8000: Code = wd.Cells(i, 1)
                    If Not .Exists(Code) And Code <> "" Then
                .Item(Code) = i: End If
        Next i: k = .Keys(): n = .Count
        
BubbleK:
                    For i = LBound(k) To UBound(k) - 1
                    If k(i) > k(i + 1) Then
                Key = k(i): k(i) = k(i + 1): k(i + 1) = Key
                    GoTo BubbleK: End If: Next i

            If er - r > .Count Then
wd.Range("A" & r).Resize(er - r - .Count + 1, 1).EntireRow.Delete Shift:=xlUp
                    er = r + .Count - 1: End If
            If er - r < .Count - 1 Then
wd.Range("A" & er).Resize(r + .Count - er - 1, 1).EntireRow.Insert: End If

wd.Range("A" & r).Resize(.Count, 1).Value = WorksheetFunction.Transpose(k)
F = Cells(r, 3).Formula: Cells(r, 3).Copy
Range(Cells(r, 3), Cells(r + UBound(k), 32)).PasteSpecial xlPasteFormulas
        For i = r To r + UBound(k): Code = wd.Cells(i, 1)
        wd.Cells(i, 2) = wd.Cells(.Item(Code), 2): Next i
Calculate

    End With: End Sub

Copy cell value based on a date to a specific colum

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Re: Copy cell value based on a date to a specific colum

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] lookup 2nd last value in a colum based on cell value in same colum

Get 3 years after expiry date in next colum while entering date in frist colum

[SOLVED] Function that looks for a number that is in a colum next to a specific date.

[SOLVED] VBA to copy specific data from one workbook to another based on today's date?

Copy textbox data to a specific cell, based on date

Bookmarks

Bookmarks

Posting Permissions