mysticmario
Active Member
- Joined
- Nov 10, 2021
- Messages
- 323
- Office Version
- 365
- Platform
- Windows
Hi when i execute this code:
after usercheck all of this is skipped:
I run this code a lot without usercheck in a different **** withotu a problem.
Any idea why this happens?
VBA Code:
Sub FileSystemObj()
Sheets("KARTA REALIZACJI").Visible = True
Application.ScreenUpdating = False
Dim line As String
Dim FSO As Object
Dim TS As Object
Dim PATH As String
Dim usercheck As String
usercheck = InputBox("Podaj hasło dostępu", "Hasło")
If usercheck = "witek" Then
Sheets("Admin").Range("CurrentUsr").Value = "Witold"
PATH = Sheets("Admin").Range("A31").Value
ElseIf usercheck = "konrad" Then
Sheets("Admin").Range("CurrentUsr").Value = "Konrad"
PATH = Sheets("Admin").Range("A32").Value
ElseIf usercheck = "damian" Then
Sheets("Admin").Range("CurrentUsr").Value = "Damian"
PATH = Sheets("Admin").Range("A33").Value
ElseIf usercheck = "admin" Then
Sheets("Admin").Range("CurrentUsr").Value = "Mariusz"
PATH = Sheets("Admin").Range("A34").Value
Else: MsgBox "Błędne hasło": Exit Sub
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TS = FSO.OpenTextFile(PATH)
Sheets("KARTA REALZIACJI").Range("B150").Select
Do While Not TS.AtEndOfStream
line = TS.ReadLine
ActiveCell = line
ActiveCell.Offset(1, 0).Select
Loop
TS.Close
Set TS = Nothing
Set FSO = Nothing
Application.ScreenUpdating = True
Sheets("KARTA REALZIACJI").Range("D148").Value = Date
End If
Sheets("KARTA REALIZACJI").Visible = False
End Sub
VBA Code:
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TS = FSO.OpenTextFile(PATH)
Sheets("KARTA REALZIACJI").Range("B150").Select
Do While Not TS.AtEndOfStream
line = TS.ReadLine
ActiveCell = line
ActiveCell.Offset(1, 0).Select
Loop
TS.Close
Set TS = Nothing
Set FSO = Nothing
Application.ScreenUpdating = True
Sheets("KARTA REALZIACJI").Range("D148").Value = Date
Any idea why this happens?