KontrolaASpustenie

Dim insertedValue As String 'je mimo Sub aby bola globalna (bola rovnaka napriec vsetkymi Sub v tomto module) + lahsie sa hladaju
Dim answer As Integer
Dim hintLatestColumn As String
'https://support.microsoft.com/en-us/help/141693/scope-of-variables-in-visual-basic-for-applications
'https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/static-statement

Sub multipleIfs()
'https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/sub-statement

hintLatestColumn = Worksheets("Pharmap").Range("J4")
'moze byt uzitocne urobit automaticke najdenie najnovsieho stlpca pomocou SEARCH ale postaci i takto natvrdo ak sa nebude menit tvar pivotky

insertedValue = Application.InputBox("Napis nazev novehou sloupce:" & bnNewLine, "Nazev noveho sloupce", hintLatestColumn, Null, Null, Null, Null, 1 + 2)
'https://docs.microsoft.com/en-gb/office/vba/api/excel.application.inputbox

If Not ((insertedValue = "") Or (insertedValue = False)) Then
'https://docs.microsoft.com/en-gb/dotnet/visual-basic/language-reference/statements/if-then-else-statement
    AppActivate Application.Caption
    'aby bol aktivovany Excel i ked mam zapnute ine okno podla tohto navodu: https://www.mrexcel.com/board/threads/ensure-msgbox-pops-up-on-top.66245/
    answer = MsgBox("Nazev novych sloupcu bude" & vbNewLine & "Obrat " & insertedValue & vbNewLine & "kusy " & insertedValue & vbNewLine & vbNewLine & "Chcete pokracovat?", vbYesNo + vbExclamation + vbDefaultButton2 + vbApplicationModal + vbMsgBoxSetForeground, "Pokracovat?")
    'https://docs.microsoft.com/en-gb/office/vba/language/reference/user-interface-help/msgbox-function
        If answer = vbYes Then
            Call updateRepTables
            'https://docs.microsoft.com/en-us/office/vba/language/concepts/getting-started/calling-sub-and-function-procedures
            MsgBox "Hotovo :)"
        Else
            AppActivate Application.Caption
            MsgBox ("Makro sa teraz vypne")
            Call debugPrint
            Exit Sub
        End If
Else
    AppActivate Application.Caption
    MsgBox ("Spatne vyplneny spoupec!" & vbNewLine & "Makro sa teraz vypne"), (vbOKOnly + vbCritical), ("Upozorneni")
    'kazdy argument musi byt ozatvorkovany kvoli "&" (et) symbolu - program ma s nim problem, ked je viac ako jeden argument na riadku
    Call debugPrint
    Exit Sub
End If

End Sub

Sub updateRepTables()

MsgBox ("teraz by boli updatované OZ tabulky" & vbNewLine & "Obrat " & insertedValue & vbNewLine & "kusy " & insertedValue)
Call debugPrint

End Sub

Sub debugPrint()
'v "immediate window" (Ctrl+G vo VBA okne) budu vypisane hodnoty premennych ked bude tato Sub zavolana
'pomoze pri hladani chyby co sa pokazilo v makre

Debug.Print "insertedValue var[" & Format(Now, "hh:nn:ss") & "]: " & insertedValue
Debug.Print "answer var[" & Format(Now, "hh:nn:ss") & "]: " & answer
Debug.Print "hintLatestColumn var[" & Format(Now, "hh:nn:ss") & "]: " & hintLatestColumn
'https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/format-function-visual-basic-for-applications

End Sub