-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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 IntegerSheets("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[ Szerkesztve ]