Wie kan en wil mij even helpen met het volgende.
Er zit een fout in de zin
Wat wil ik:
invoer sheet"koffieautomaten cel B5
Zoeken in sheet koffieautomaten.
bekijken cel P (gev, 16), als die leeg is stoppen, als er wat staat doorgaan.
#msexcel 2010
#beginner
Er zit een fout in de zin
Code:
If Not IsError(gev) Then .Cells(gev, 16) = If IsEmpty(cell) Then MsgBox " al uitgezet in 1e lijn": Exit Sub
Wat wil ik:
invoer sheet"koffieautomaten cel B5
Zoeken in sheet koffieautomaten.
bekijken cel P (gev, 16), als die leeg is stoppen, als er wat staat doorgaan.
Code:
With Sheets("koffieautomaten")
gev = Application.Match(Sheets("storing melden").Range("B5"), .Columns(1), 0)
If Not IsError(gev) Then .Cells(gev, 16) = If IsEmpty(cell) Then MsgBox " al uitgezet in 1e lijn": Exit Sub
Exit For
End If
Next
#msexcel 2010
#beginner