Dim bul as Range
For Each bul In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B6500")))
=If StrConv(bul.value,vbUpperCase)=StrConv(TextBox.value,vbUpperCase) Then=(Özellikle eşittir işaretleri arasındaki kısım. Kodda eşittir yok.)
bak.Select
TextBox1.vaule=Activecell.offset(0,1).Value
TextBox3.Value=Activecell.Offset(0,2).Value
For Each bul In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B6500")))
=If StrConv(bul.value,vbUpperCase)=StrConv(TextBox.value,vbUpperCase) Then=(Özellikle eşittir işaretleri arasındaki kısım. Kodda eşittir yok.)
bak.Select
TextBox1.vaule=Activecell.offset(0,1).Value
TextBox3.Value=Activecell.Offset(0,2).Value