sKRIPTA

Attribute VB_Name = "Module1"
Sub Avto_prenos()
'macro za avtomatsko kopiranja podatkov By TA
    Windows("test_vnos.xlsm").Activate
    If ActiveWorkbook.ReadOnly Then
    GoTo 4
    End If

    Dim MyPassword As String
    MyPassword = "1234"
    If InputBox("Prosim vpišite geslo za prenos podatkov.", "Vpis gesla") <> MyPassword Then
        Exit Sub
        End If
    response = MsgBox("Ali boš prenesel podatke avtomatsko?", vbYesNo)
    If response = vbNo Then GoTo 5


    Workbooks.OpenText Filename:= _
        "C:\TXT\test.txt", _
        Origin:=852, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True

         Dim lastrow As Integer
        lastrow = Range("A" & Rows.Count).End(xlUp).Row
        'MsgBox lastrow

        Selection.End(xlDown).Select
        Range(Selection, Selection.EntireRow).Select

         Dim vrsta As Integer
        vrsta = ActiveCell.Row
        'MsgBox vrsta

      On Error GoTo 2

  Range("A:A").SpecialCells(xlCellTypeBlanks).Select
  Selection.EntireRow.Delete
  Range(Selection, Selection.EntireRow).Select

            X = lastrow - vrsta

        If X = 2 Then
        GoTo 1

        ElseIf X < 2 Then
        GoTo 2

        End If

        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.EntireRow).Select

1
    Dim var1 As String
           var1 = (X - 1)
    Selection.Copy
    Windows("test_vnos.xlsm").Activate

    Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
    On Error GoTo 3

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("test.txt").Activate
    ActiveWorkbook.Close SaveChanges:=True
    Windows("test_vnos.xlsm").Activate
               If var1 = 1 Then
        MsgBox "KOPIRALI STE " + var1 + " PODATEK!"

        ElseIf var1 = 2 Then
        MsgBox "KOPIRALI STE " + var1 + " PODATKA!"

        ElseIf var1 > 2 And var1 < 5 Then
        MsgBox "KOPIRALI STE " + var1 + " PODATKE!"

        ElseIf var1 > 4 Then
        MsgBox "KOPIRALI STE " + var1 + " PODATKOV!"
        End If
    Exit Sub

2
    MsgBox "NI PODATKOV ZA PRENOS!"
    Windows("test.txt").Activate
    ActiveWorkbook.Close SaveChanges:=False
    Exit Sub

3
    MsgBox "NE MOREM KOPIRATI, ODKLENI PODATKE!!!"
    Windows("test.txt").Activate
    Application.CutCopyMode = False
    ActiveWorkbook.Close SaveChanges:=False
    Exit Sub

4
    MsgBox "NEKDO IMA ODPRTE PODATKE-(read only)!"
    Windows("test_vnos.xlsm").Activate
    Exit Sub

5
    Workbooks.OpenText Filename:= _
        "C:\TXT\test.txt" _
        , Origin:=852, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
        Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
End Sub