Ndtyjky

Apologies if this is a simple question but I have a macro that divides as it should but it will not copy and paste the contents from one cell to another cell as it’s suppose to do. See below for examples with expected result.

Sub master2()

    Application.ScreenUpdating = False



    Dim pair As Variant, accumulator As Variant

    Dim findFifteen As Double

    Dim remainder As Long, found As Long



    found = 1



    For Each pair In Range("B30, F30, J30")

        If Right(pair, 2) = 15 Then

            If pair.Offset(0, 2) <= 12 Then

                findFifteen = pair.Offset(0, 2)     / 12

                remainder = 0

            Else

                findFifteen = 1

                remainder = pair.Offset(0, 2)    Mod 12

            End If



            For Each accumulator In Range("A14,     B14, C14, D14, E14, F14, G14, H14, I14, J14, K14, L14")

                If accumulator.Offset(-1, 0) =     Val(Left(pair, InStr(pair, "-") - 1)) Then 

                    accumulator.Value =     accumulator.Value + remainder

                End If

                accumulator.Value =    accumulator.Value + findFifteen

            Next accumulator



            Range("E" & found).Value = pair

            found = found + 1

        End If

    Next pair



    Application.ScreenUpdating = True

End Sub

Example with expected result.

As per my Excel image, my macro is suppose to find specified cells that contain a 15 as the last number. Cell B30 has the number 7-15 in it. I need the macro to go to the cell below (B31 and use the number 1 in this example) and then search the following cell range: E1:E12 to find a 1 (cell E1). Once found place the 7-15 and increase the last digit by 1 (so it becomes 7-16) in the adjacent cell to the right (F1). Do the same with all cells: B30, F30 and J30 but only if they contain a 15 (1-15 or 7-15 etc.) as the last number. After this delete all contents in cell B30, C30, D30. There are are two examples in my Excel sheet where the same thing needs to happen.

As I said, I can't follow what you're doing, but this will give you "7-16" in E1 if B30 contains 7-15 (and similarly for the other cells). I've stripped out most of your code so I don't know if this is a full answer

Sub master2()



Dim pair As Range, found As Variant, v As Variant



For Each pair In Range("B30, F30, J30")

    If Right(pair, 2) = "15" Then

        v = Split(pair, "-")

        found = Application.Match(pair.Offset(1),Range("E1:E12"), 0)

        If IsNumeric(found) Then

            Range("F1:F12").Cells(found).Value = v(0) & "-" & v(1) + 1

        End If

    End If

Next pair



End Sub