Informatika és tudomány

megoldást keresek erre a problémára
  • Delila1
    #1749
    Sub Valami()
    Dim sor%, usor%, szoveg$, f As Boolean
    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