Új hozzászólás Aktív témák

• #10038 zsotesz81 senior tag

  Új Válasz 2011-04-12 12:41:25 #10038

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zsotesz81

  senior tag

  Hali!

  Van egy cellám aminek a tartalma egy e-mail cím pl.:sheet2-n: E4=GEZA/Slovakia/IBM. Van egy másik táblám (sheet1) amiben csak a nevek vannak felsorolva pl.:a7=GEZA. Azt szeretném megcsinálni ha az A7-ben lévő név egyezik az E4-ben lévő névvel akkor mondjuk a D5 értéke legyen X.

  Eddig így néz ki a kódom:
  Public Sub Keres()
  Dim i As Integer

  Sheets("Sheet2").Select
  i = 1
  For i = 1 To 792
  nev = Cells(i, 2)
  kereses nev
  i = i + 1
  Next i
  End Sub
  Public Sub kereses(nev)
  Sheets("sheet1").Select
  sor = 1
  Do
  sor = sor + 1
  If Cells(sor, 5) = nev & "/Slovakia/IBM" Then Cells(sor, 6) = "X"
  If Cells(sor, 5) = nev & "/Slovakia/Contr/IBM" Then Cells(sor, 6) = "X"
  Loop Until sor = 528
  End Sub

Új hozzászólás Aktív témák