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

• #17818 Delila_1 veterán alfa20 #17815

  Új Válasz 2013-04-17 19:34:28 #17818

  Ú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 #17815 üzenetére

  Talán így megfelel.

  Sub Valami()
  Dim sor%, usor%, szoveg$
  Dim alma%, korte%
  
  usor% = Range("A" & Rows.Count).End(xlUp).Row
  For sor% = 2 To usor%
  If InStr(Cells(sor%, 1), "alma") Then alma% = alma% + 1
  If InStr(Cells(sor%, 1), "körte") Then korte% = korte% + 1
  Next
  If alma% > 0 And korte% > 0 Then szoveg$ = "Van " & alma% & " db almád és " _
  & korte% & " db körtéd."
  If alma% > 0 And korte% = 0 Then szoveg$ = "Van " & korte% & " db körtéd."
  If alma% = 0 And korte% = 0 Then szoveg$ = "Nincs semmid."
  MsgBox szoveg$
  End Sub

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