VB Cell Recording

[mickh95]

Morning,

I'm trying to record a value from a cell (4,5)

As I've created macro buttons that increase and decrease the value, the overall plan is to have a limit on those buttons too, however i want to create a record Button for the time being, and try figure out the later myself.

Script so far;

Sub Higher()

Cells(4, 5).Value = Cells(4, 5).Value + 1

End Sub

Sub Lower()

Cells(4, 5).Value = Cells(4, 5).Value - 1

End Sub

Any help on how to do record the value on cell 4,5 and input them into a table on cells (14,5)?

 

[Trixterz]

Simple...

Cells(14, 5).Value = Cells(4, 5).Value

 

[mickh95]

Simple...

Cells(14, 5).Value = Cells(4, 5).Value

Trixterz, Thanks for the reply. it worked perfectly.

however I may have missed some information off, I was wanting to feed the information down a table. so I've tried to incorporate a loop of the cell that would feed down. however ran into some issues;

any further assistance would be great

Sub Higher()

Cells(4, 5).Value = Cells(4, 5).Value + 1

End Sub

Sub Lower()

Cells(4, 5).Value = Cells(4, 5).Value - 1

End Sub

Sub RecordCell()
Dim i As Integer

Do While Cells(14 + i, 5) <> ""

i = i + 1
Loop

With Cells(14 + i, 5)

.Value = Now

Cells(14, 5).Value = Cells(4, 5).Value

End Sub

 

[JackDanIce]

MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in

It may be easier to explain what you need by creating a "before" and "after" and posting screenshots, but as a guess try:

Sub Macro1()

    Cells(Rows.Count, 5).End(xlUp).Offset(1).Value = Now
    Cells(14, 5).Value = Cells(4, 5).Value
    
End Sub

 

[Trixterz]

I see a few errors in your RecordCell...

Sub RecordCell()
    Dim i As Integer
    i = 0
    
    Do While Cells(14 + i, 5) <> ""
        i = i + 1
    Loop
    
    Cells(14 + i, 5) = Now
    Cells(14, 5).Value = Cells(4, 5).Value
End Sub

I don't know what your trying to do here so i'm not able to help you out.