Telefonszámunk: 1-472-0679

Hozzászólás: [Resolved] Cella érték nulla

Kezdőlap Fórumok Excel programozás [Resolved] Cella érték nulla Hozzászólás: [Resolved] Cella érték nulla

#8430
cipolly
Felhasználó

    Üdv!
    Bocsi más dolgom volt, csak összejött!
    A hibakezelést korábbi témánál verax adta a tippet
    Alapvető hibám!
    A Variant/Stringből akartam integert!
    Nem jött össze…, okát nem tudom.
    Mivel TorzsSzam2 = Cells(Jaavsor + 2, 15) pedig Variant/Double lett!
    Igy nem jöhetett össze az If, ezért Átalakítottam Stringgé, TorzsSzam2 = CStr(TorzsSzam2) így már működik!
    Ha valakit érdekel progi teljes működése, leírom.

    Private Sub BTN_Javit_Click()
    Dim Jaavsor
    Dim eee
     Unload FormBevitel
    Skip:
    'On Error Resume Next
    
    TorzsSzam1 = Application.InputBox("Kérem a törzsszámodat!")
        
        If TorzsSzam1 = "" Then
                MsgBox ("Nem írtál be semmit!")
        GoTo Skip
        End If
    Skip2:
    Jaavsor = Application.InputBox("Melyik sort javítsam?:")
    
        If Not IsNumeric(Jaavsor) Or Jaavsor = "" Then
        MsgBox "Nem írtál be semmit, vagy nem számot írtál!"
        Unload FormBevitel
        GoTo Skip2
        End If
        TorzsSzam2 = Cells(Jaavsor + 2, 15)
        TorzsSzam2 = CStr(TorzsSzam2)
       If TorzsSzam1 = TorzsSzam2 Then
        Else: MsgBox "Nem vagy jogosult a sor javítására!"
        Exit Sub
       End If
    
       If Jaavsor > 0 Then
        eee = Range(Cells(Jaavsor + 2, 3), Cells(Jaavsor + 2, 15)).Address
        ActiveSheet.ScrollArea = eee
        Range(eee).Interior.ColorIndex = 4
        MsgBox "Most javíthatsz a " & Jaavsor & ". sorban! "
        End If
        Unload FormBevitel
    End Sub
    
    Attachments:
    You must be logged in to view attached files.