Home |
Search |
Today's Posts |
#1
|
|||
|
|||
How to open file in the background. It is possible?
I would like to open file, but I do not want to people saw this. I have a code: Private Sub Worksheet_Change(ByVal Target As Range) Dim szukana As Range Dim Cecha As String Dim bk As Workbook Dim sh As Worksheet Dim sh1 As Worksheet If Not Application.Intersect(Columns("A:A"), Target) _ Is Nothing Then Cecha = Target.Value If Cecha = "" Then Exit Sub On Error Resume Next Set bk = Workbooks(p1.xls) On Error GoTo 0 If bk Is Nothing Then Set bk = Workbooks.Open(Filename:="H:\....p1.xls") End If Set sh1 = bk.Worksheets(bk.Worksheets.Count) For Each sh In bk.Worksheets Set szukana = sh.Cells.Find(What:=Cecha, _ After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, MatchCase:=False, _ SearchFormat:=False) If szukana Is Nothing Then If sh.Name = sh1.Name Then MsgBox "Sorry, but " & Cecha & " was not found" ActiveWorkbook.Close Target.Value = "" End If Else bk.Activate sh.Activate szukana.Activate MsgBox "Szukana cecha " & Cecha & " was found" ActiveWorkbook.Close End If Next sh End If End Sub |
#2
|
|||
|
|||
Use the ScreenUpdating property. E.g.,
Application.ScreenUpdating = False ' your code here Application.ScreenUpdating = True -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Andrzej" wrote in message ... I would like to open file, but I do not want to people saw this. I have a code: Private Sub Worksheet_Change(ByVal Target As Range) Dim szukana As Range Dim Cecha As String Dim bk As Workbook Dim sh As Worksheet Dim sh1 As Worksheet If Not Application.Intersect(Columns("A:A"), Target) _ Is Nothing Then Cecha = Target.Value If Cecha = "" Then Exit Sub On Error Resume Next Set bk = Workbooks(p1.xls) On Error GoTo 0 If bk Is Nothing Then Set bk = Workbooks.Open(Filename:="H:\....p1.xls") End If Set sh1 = bk.Worksheets(bk.Worksheets.Count) For Each sh In bk.Worksheets Set szukana = sh.Cells.Find(What:=Cecha, _ After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, MatchCase:=False, _ SearchFormat:=False) If szukana Is Nothing Then If sh.Name = sh1.Name Then MsgBox "Sorry, but " & Cecha & " was not found" ActiveWorkbook.Close Target.Value = "" End If Else bk.Activate sh.Activate szukana.Activate MsgBox "Szukana cecha " & Cecha & " was found" ActiveWorkbook.Close End If Next sh End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Saved *.csv file gives SYLK file type warning upon Excel 2003 open | Excel Discussion (Misc queries) | |||
file open via IE hyperlink causes already open files to shrink and tile | Setting up and Configuration of Excel | |||
hidden rows & columns slow file open | Excel Discussion (Misc queries) | |||
Cannot open a file that Excel says is open | Excel Discussion (Misc queries) | |||
format question when open csv file | Excel Discussion (Misc queries) |