vba - Modeless UserForm won't allow user to change windows -


I have a script that revolves around 500 + files and is modest by using the process detection and method Edits if the string is not found, however, I would like to open the code as a modulated user which will allow manual editing. I have to execute a different subtitle after opening UserForm , but because I am using for each loop, I can not get out of the routine and then return .

The script works, except that when Save_User is opened, it behaves as if it was the model there were two windows open But I can not choose any of them, and the preview of each window is white in the taskbar. Why can it be any idea why this is happening? 

  Option Public Public Distribution System, Workbook as Template Public Search. Select it as range, select as replacement, first Rowz as Range, Range of Range The second range, the static range () string as the public target, in the form of string public target, change the form of the form of the public search string as an integer Find as string, as string, replace text as string, public count as integer, has been updated as integer. Set as an object set file as an object dim file in the form of FSO object dim file. Set FSO = CreateObject ("Scripting.FileSystemObject") folder = FSO.GetFolder (FilePath) Count = 0 Updated = 0 in each file Folder.Files File.Type "Microsoft Excel *" then the application. Screen Updating = Wrong Set WB = Workbooks Open (file.php) search SELECT = WB.Worksheets ("Repair instructions"). Change Range ("K17: W40") Select Change = WB.Worksheets ("Repair instructions"). Range ("X17: AJ40") LastRow = WB.Worksheets ("Repair instructions"). Nge ("K40: W40"). End (xlUp) .row set target = find select. Find (FindText, LookAt: = xlWhole) If the target is nothing, then lastRow = 39 then Save_User.ValModeless Show Save_User.Visible DoEvents Wend GoTo next if the latestro mod 2 = 0 then WB.Worksheets ("Repair instructions"). Range ("K" & Lestero + 1, "W" & amp; Previous Line + 1) = Search Text WB.Worksheets ("Repair instructions") Range ("X" and last line + 1, "AJ" and last line + 1) = _ Add_User.txtFirst.Value WB.Worksheets ("Repair instructions"). ("X" and last line + 2, "AJ" and last line + 2) = _ Add_User.txtSecond.Value Else WB.Worksheets ("Repair instructions"). Range ("K" and "LastRow + 2", "W" and Landro + 2) = Search text WB.Worksheets ("Repair instructions"). Range ("X" and the last line + 2, "AJ" and the last line + 2) = _ Add_User.txtFirst.ValueWB worksheets ("Repair instructions"). Range ("X" and "Final" + 3, "AJ" and last line + 3) = _ Add_User.txtSecond.Value End If WB.Close True Updated = Updated + 1 End if set otherwise FirstRow = WB.Worksheets ("Repair instructions"). Range ("X" and "Target" line, "AJ" and Target. Line) Secondary set Do = WB.Worksheets ("do not repair Directions "). Range (" X "and target. Rao + 1," AJ "and Goal. Rau + 1) Firsta.val = Ad_Uzor.TestFest.Value Secondvar.val = Ad_User.Taxed ValueWB = Count + 1 Unload the next file Applyable_User Unload Add_User Unloading Ref_User Unload Replace_User MsgBox (updated & amp; "of" & amp; count & amp; "Files were updated.")   
  Edit   
 David, thank you! I also do not believe that as a reason, I But I'm grateful that this is relatively simple! I do not know about any other work that cycling will hide Excel files, so I did the  if  statement with  Save_User :  
 If the lastRow = 39 then the application. Screen updating = True WB Activate Save_User. Activate Save_User. VbModeless Show Save_User.Visible DoEvents Wend app. The Cycling Excel window now appears for editing, but I can not really make any changes (my cursor is now a crosshairs, And I can not change my values ​​but I can select the cells). None of the workbooks should be preserved, is there anything that I am missing? Or maybe there is a better way to hide activity in the background (because I get 500+ files visible and do not disappear)?   
 
 
 This is your culprit:  
  Application.ScreenUpdating = False < / Code>  
 This prevents user input.

Comments

Post a Comment

Popular posts from this blog

Java - Error: no suitable method found for add(int, java.lang.String) -

I'm in the middle of homework work and I'm stuck. At this point in my code, I think that I should have a GUI window that opens and allows me to type "inserted text number". Notice is not going anywhere but at this point, If I pass through the problem then it will be in a linked list. I am getting two of the same error for the lines. Add (index, element); And I can not seem to get past it, there is no suitable method for the error "add (int, java. string string)". Code is below, please advise. To clarify - this will not be a method error because it is a linked list. There should not be any way involved. import java.awt. *; Import java.awt.event. *; Import javax.swing. *; Import java.util. *; Import java.util.Scanner; Import java.util.LinkedList; Public class TopTenList JFrame {Private TopTenList tt; See the Private JTextArea list; Private JTextField cmdTextField; Private JTextField resultsTestfield; // This GUI window is the code for the public toptist...
Read more

java - JPA TypedQuery: Parameter value element did not match expected type -

I am using JPA 2.0 and getting the following code in the DAO layer: Public Zero Test () {string key = "status"; String [] Conditions = {"A", "B"}; & Lt; TestTable & gt; Results = Search (Keys, Conditions); } Public listing & lt; TestTable & gt; Search (string key, object value error) {string sql = "test ndf to testlet and jade nand." + Key + "in:" + key; TypedQuery & LT; TestTable & gt; Query = entityManager.createQuery (SQL, TestTable.class); Query.setParameter (key, Arrays.asList (valueArr)) / *** Error Line *** Return query.getResultList (); } In the above error line, it throws the following exception: java.lang.IllegalArgumentException: parameter value element [[Ljava.lang.String; @ cbe5bc] did not match the expected type [java.lang.String] Why is this expected type string while actually this string []? Please help! Note: This is derived from the normal routine and is a simplified code. I can no...
Read more

c++ - static template member variable has internal linkage but is not defined -

Yes, I know, there is a question with almost the same title, but it refers to a different situation. Error message) In my case, I have a .cpp file with a big named designation name (implementation details). There is a property class template with a static data member in that name space, which I need to access from outside the unknown namespace. I give it a little bit of meat: file.hpp namespace Bar {template & lt; Typename A & gt; Struct foo {static_assert (is_same & lt; a, float & gt; :: value} is_same & lt; a, double>: value, ""); Fixed zero set_static_var (a const & x); // ...}; } and file.cpp namespace {template & lt; Typename A & gt; Struct foo_traits {// supports the implementation of several static code bars: foo & lt; & Gt; Fixed A data; }; The template's & lt; & Gt; Float foo_traits & lt; Float & gt; :: datum; // No change if this is in the global namespace template & lt; & Gt; Doub...
Read more