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

• #17812 Delila_1 veterán alfa20 #17811

  Új Válasz 2013-04-17 19:00:46 #17812

  Ú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

  

  Delila_1

  veterán

  válasz alfa20 #17811 üzenetére

  Itt legalább látszik a makróban a tagolás.
  A ciklust a 2. sortól indítottam, feltételezve, hogy van címsorod.

  Sub Valami()
  Dim sor%, usor%, szoveg$, f As Boolean
  
  usor% = Range("A" & Rows.Count).End(xlUp).Row
  For sor% = 2 To usor%
  If InStr(Cells(sor%, 1), "alma") And _
  InStr(Cells(sor%, 1), "körte") Then
  szoveg$ = "Van almád és körtéd"
  f = True: GoTo Kiiras
  End If
  If InStr(Cells(sor%, 1), "alma") Then
  szoveg$ = "Van almád"
  f = True: GoTo Kiiras
  End If
  If InStr(Cells(sor%, 1), "körte") Then
  szoveg$ = "Van körtéd"
  f = True: GoTo Kiiras
  End If
  
  Kiiras:
  If f Then
  MsgBox szoveg$
  Else
  MsgBox "Semmid sincs"
  End If
  szoveg$ = "": f = False
  Next
  End Sub

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