Attribute VB_Name = "Module1"

Public Type AsTietue
  AsKoodi As String
  AsNimi As String
  AsYhtHlo As String
  AsLuokka As Long
End Type

Public As1 As AsTietue

Public Sub HaeAsiakas()
  Dim EtsRivi As Long
  Dim LoyRivi As Long
  EtsRivi = 5
  LoyRivi = 0
  Do While Sheets("AsLista").Range("A" & EtsRivi).Value <> ""
    If Sheets("AsLista").Range("A" & EtsRivi).Value = _
        As1.AsKoodi Then
      LoyRivi = EtsRivi
    End If
    EtsRivi = EtsRivi + 1
  Loop
  If LoyRivi > 0 Then
    As1.AsNimi = Sheets("AsLista").Range("B" & LoyRivi).Value
    As1.AsYhtHlo = Sheets("AsLista").Range("C" & LoyRivi).Value
    As1.AsLuokka = Sheets("AsLista").Range("D" & LoyRivi).Value
  End If
End Sub

Public Sub AsiakasTiedot()
  As1.AsKoodi = Sheets("AsLista").Range("A2").Value
  HaeAsiakas
  MsgBox As1.AsKoodi & " - " & As1.AsNimi & " - " & _
         As1.AsYhtHlo & " - " & As1.AsLuokka
End Sub

Private Function SatunnaisLukuValilta( _
        ByVal Alaraja As Long, ByVal Ylaraja As Long) As Long
  Randomize
  SatunnaisLukuValilta = _
     Int((Ylaraja - Alaraja + 1) * Rnd + Alaraja)
End Function

Public Sub TestiData()
  Dim Rivi As Long
  For Rivi = 26 To 205
    Sheets("AsLista").Range("A" & Rivi).Value = UCase(Chr(SatunnaisLukuValilta(65, 80)) & SatunnaisLukuValilta(1000, 9999) & SatunnaisLukuValilta(1000, 9999))
    Sheets("AsLista").Range("D" & Rivi).Value = Chr(SatunnaisLukuValilta(65, 69))
  Next Rivi
End Sub