Visainen tehtävä

Hakee tiedot sarakkaisiin A-D ja tyhjentää aluksi sarakkeet.Muuta itselle sopivaksi.

Private Sub Hae(Postinumero As Variant)
Dim iInputFilenum As Integer
Dim sLineData As String
Dim a As Variant

On Error GoTo virhe
Range("A1:D1000") = ""
Range("A1").Select

iInputFilenum = FreeFile

Open "A:\Asiakkaat.txt" For Input As #iInputFilenum

Do Until EOF(iInputFilenum)
Line Input #iInputFilenum, sLineData
a = Split(sLineData, ",")
If a(2) = Postinumero Then
ActiveCell = a(0)
ActiveCell.Offset(0, 1) = a(1)
ActiveCell.Offset(0, 2) = a(2)
ActiveCell.Offset(0, 3) = a(3)
ActiveCell.Offset(1, 0).Select
End If
Loop
Close
Exit Sub
virhe:
On Error Resume Next
Close #iInputFilenum
End Sub
Sub Haku()
Hae InputBox("Haku postinumerolla")
End Sub