VBA if Col B contains xxx then Col T value = 0

[tezza]

Hi all

How do you code in VBA to check if Col B contains 'Unpaid' and if it does put a value of '0' in Col T?

TimesheetExtract.csv
	B									K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y
1	Client First Name Client Last Name									Date of Call	Call Start Time	Call End Time	Call Duration	Mileage	Community Mileage	Staff Mileage	Travel Time	Rounded	Basic	Dom_care	Specialist Task	Weekend	Office	DC/On-Call
2	Training									#########	09:30	12:30	3.00					3	3	0	0	0	0	0
3	Training									#########	13:00	15:00	2.00					2	2	0	0	0	0	0
64	Training									#########	13:00	15:00	2.00					2	2	0	0	0	0	0
65	Training Completed Online									#########	15:00	16:00	1.00					1	1	0	0	0	0	0
66	Training Online Unpaid									#########	16:00	17:00	1.00					1	0	0	0	0	0	0
Sheet1

Cell Formulas
Range	Formula
B1:B3,B64:B66	B1	=TS!B1&" "&TS!C1
N2:N3,N64:N66	N2	=ROUND(-((INT(TS!Z2)-TS!Z2)*24),2)
S2:S3,S64:S66	S2	=CEILING(N2,0.25)

 

[Shloime]

Sub UnpaidFill()
'Get last row of column b

lastr = Cells(Rows.Count, 2).End(xlUp).Row
For r = 2 To lastr
'lcase is used to make the comparison case insensitive
If LCase(Cells(r, 2).Value) Like "*unpaid*" Then Cells(r, 20).Value = 0

Next


End Sub

 

[tezza]

Sub UnpaidFill()
'Get last row of column b

lastr = Cells(Rows.Count, 2).End(xlUp).Row
For r = 2 To lastr
'lcase is used to make the comparison case insensitive
If LCase(Cells(r, 2).Value) Like "*unpaid*" Then Cells(r, 20).Value = 0

Next


End Sub

Thank you, I can work with that