Anonymní profil Martin – Programujte.com

Ahojte chalani.....robim taky maly projekt v exceli. ale vo VBA moc neviem. Mam taky problem.....momentalne to funguje tak ze ak zadam do policka "Zadaj cislo" tak sa mi v stlpci A1:A8 prehlada cislo pomocou cyklu FOR a ak take cislo najde, tak ho napise do policka "Najdene cislo". Ale ja potrebujem vyriesit este jednu vec:
Ak zadam take cislo ktore sa v tabulke nenachadza nech mi vyhlada najblizsie vyssie cislo...urcite to pojde pomocou cyklu WHILE...ale ja sa v exceli stale s tym cyklom akosi nemozem dohodnut.
Ak by na to niekto prisiel budem mu velmi zaviazany. Samozrejme aj prikladam makro 

Option Explicit

Sub hladaj()

    Dim riadky As Integer
    Dim i As Integer
    Dim priemer As Double
    Dim hladane As Double
    Dim oznacenie As String
    
    riadky = Range("A1:A8").Rows.Count
    priemer = Range("E2").Value
    
    For i = 1 To riadky
        If Cells(i, 1) = priemer Then
            hladane = priemer
            Range("F2").Value = hladane
            oznacenie = Cells(i, 2)
            Range("G2") = oznacenie
        End If
    Next i

End Sub