I want to find first 0 in column in vba

hi i have sheet with 3 column, i want to find first "0" in column B and copy C1 value to A column that side of "0" i need vba code for this sample tanks Attachment 20883

Code:

---

Sub Test()


Set c = Columns(2).Find(0, after:=Cells(Rows.Count, 2), lookat:=xlWhole, searchdirection:=xlNext)
If Not c Is Nothing Then
    c.Offset(, -1) = Range("C1")
Else
    MsgBox "0 not found"
End If
End Sub

---

For the future, please post workbook samples (Go Advanced /Manage Attachments) rather than screenshots

cross post:
https://stackoverflow.com/q/47175701

Quote:

---

Originally Posted by mdmackillop

Code:

---

Sub Test()


Set c = Columns(2).Find(0, after:=Cells(Rows.Count, 2), lookat:=xlWhole, searchdirection:=xlNext)
If Not c Is Nothing Then
    c.Offset(, -1) = Range("C1")
Else
    MsgBox "0 not found"
End If
End Sub

---

For the future, please post workbook samples (Go Advanced /Manage Attachments) rather than screenshots

---

tanx a lot
now i have a different problem:banghead:

in "D1" Cell there is a value
and i want to past C1 value to (B5 : B(D1 value))
how can i write code?