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

• #17811 alfa20 senior tag

  Új Válasz 2013-04-17 18:54:37 #17811

  Ú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

  

  alfa20

  senior tag

  Delila_1
  Köszönöm a másik fórumon a válaszod, mivel látom itt aktívabb vagy inkább itt kérdeznék:

  és ha én egy egész oszlopban szeretnék kerestetni?
  igazából négy állításra kellene az üzenet.

  pl:
  ha 'A' oszlop tartalmazza az 'alma' szót, akkor írja ki: 'van almád'
  ha 'A' oszlop tartalmazza az 'körte' szót, akkor írja ki: 'van körtéd'
  ha 'A' oszlop tartalmazza az 'alma' és a 'körte' szót, akkor írja ki: 'van almád és körtéd'
  ha 'A' oszlop egyiket sem tartalmazza, akkor meg azt írja: 'semmid sincs'

  előzmények:

  kérdés:
  Makróba 'HA' függvénybe belehet ágyazni az 'MsgBox'-ot?
  Azt szeretném, ha lefut a makró összerakja nekem a táblát, és ha 'X'
  sorban talál egy bizonyos szöveget, akkor fel dobjon egy üzenet ablakot, amit csak le kell 'OK'-ézni, ha viszont nem találja akkor egy másik üzenet jelenjen meg.

  válaszod:
  Sub Kerdesek()
  If Range("A5") = "Egyik szöveg" Then
  MsgBox "Tudomásul vettem."
  Else
  MsgBox "Nem találom. :("
  End If
  End Sub

  Ha egy ciklusban keresel, kicsit másképp alakul.

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