Related:

- Urgent I need a Formula, is a Challenge
- Logitech formula vibration feedback wheel driver - Download - Drivers
- Date formula in excel dd/mm/yyyy - Guide
- Excel grade formula - Guide
- Number to words in excel formula - Guide
- Credit summation formula - Guide

## 2 responses

I assume "Cash" will repeated and spelled correctly. I don't know where you want to output the value, so I just wrote it into column D in the same row it is found.

Sub FindCash()

Dim LastRow, x As Long

LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

For x = 1 To LastRow

If Range("A" & x) = "Cash" Then

Range("D" & x).Value = Range("B" & x)

End If

Next x

End Sub

Good luck.

Josh

Sub FindCash()

Dim LastRow, x As Long

LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

For x = 1 To LastRow

If Range("A" & x) = "Cash" Then

Range("D" & x).Value = Range("B" & x)

End If

Next x

End Sub

Good luck.

Josh

I assume Cash will be repeated and will be spelled correctly. I didn't know where you wanted the output so I put it in column D in the same row.

Sub FindCash()

Dim LastRow, x As Long

LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

For x = 1 To LastRow

If Range("A" & x) = "Cash" Then

Range("D" & x).Value = Range("B" & x)

End If

Next x

End Sub

Good luck,

Josh

Sub FindCash()

Dim LastRow, x As Long

LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

For x = 1 To LastRow

If Range("A" & x) = "Cash" Then

Range("D" & x).Value = Range("B" & x)

End If

Next x

End Sub

Good luck,

Josh