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

• #1588 Homer tag Homer #1587

  Új Válasz 2012-01-19 17:23:35 #1588

  Ú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

  

  Homer

  tag

  válasz Homer #1587 üzenetére

  Vagy pl:

  Public Sub test()
  Dim Keresett As String
  Keresett = "Keresettoszlopszövege"
  oszlop = 1
  Dim megvan As Boolean
  megvan = False
  While Worksheets("Munka1").Cells(1, oszlop) <> Keresett And Not megvan And _ Worksheets("Munka1").Cells(1, oszlop) <> ""
  oszlop = oszlop + 1
  If Worksheets("Munka1").Cells(1, oszlop) = Keresett Then megvan = True
  Wend
  If megvan Then MsgBox (Keresett & " megvan, a következő oszlopban: " & oszlop) Else MsgBox ("Nincs meg")
  End Sub

  Mondjuk ha a keresett oszlop pont az első akkor nem működik, de nem tartana sokáig módosítani, hogy azzal is működjön. (Neked is hagyok gondolkodni valót )

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