Insert Value into Cell

[acemecca]

Greetings:

I am new to VBA and need assistance badly. I am working a spreadsheet where I need to locate the number '3' in column B and populate the number '2' in the cell above it in column B.

Please advise...thanks!

 

[VoG]

Maybe this

Sub b()
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    If Range("B" & i).Value = 2 Then Range("C" & i).Formula = Range("C2").Formula
Next i
End Sub

 

[acemecca]

thanks! looks great....you guys have been a great help!

 

[acemecca]

Maybe this

Sub b()
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    If Range("B" & i).Value = 2 Then Range("C" & i).Formula = Range("C2").Formula
Next i
End Sub

Greetings:

I am using the following to locate a number and populate another, but only if an open row is available above the row...can you assist?

Macro to insert value after locating other value (locate 3 and populate 2)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Code:<o></o>
Sub find3pop2()<o></o>
Dim LR As Long, i As Long<o></o>
LR = Range("B" & Rows.Count).End(xlUp).Row<o></o>
For i = 2 To LR<o></o>
If Range("B" & i).Value = 3 Then Range("B" & i - 1).Value = 2<o></o>
Next i<o></o>
End Sub<o></o>

Macro to insert value after locating other value (locate 2 and populate 1)<o></o>
Code:<o></o>
Sub find2pop1()<o></o>
Dim LR As Long, i As Long<o></o>
LR = Range("B" & Rows.Count).End(xlUp).Row<o></o>
For i = 2 To LR<o></o>
If Range("B" & i).Value = 2 Then Range("B" & i - 1).Value = 1<o></o>
Next i<o></o>
End Sub<o></o>

 

[VoG]

Try like this

Sub find3pop2()
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To LR
If Range("B" & i).Value = 3 And Range("B" & i - 1).Value = "" Then Range("B" & i - 1).Value = 2
Next i
End Sub

 

[acemecca]

Actually, I have one more thing before I can start filling my template....how can I copy a formula (ie. located in C2) and populate or paste that in column C where the number 2 is present in column B? I hope I explained it right. I will use this for another formula to apply to column B's number 1 entries....thanks!

Thanks...the adjustment worked for the numbering issue...I am trying to apply the formula in my cell C3 to all the items listed as level 2....I also want a code for the formula in cell C2 to all the items on level 1....please see attached...

http://smg.photobucket.com/albums/v716/acemecca/?action=view&current=ScreenShot018.jpg

 

[VoG]

Try starting a new thread for this different question.

 

[acemecca]

done deal...please see new thread...thanks!

http://www.mrexcel.com/forum/showthread.php?t=579144