excel vba - Delete sheet if cell content doesn't match a list value -

-

I am hiding for months learning VBA to help automate some reports for my job and I Finally one thing is that we are completely trapped and I do not get an answer online.

I have an automatically generated report that has a separate sheet for each person in the company. I will not have a fixed file name to some extent, so I think I want something: 

  to this extent, the string will be slowed as thiswb = activworkbook.name

what I would like to do, for each sheet in this sheet, In 4 the name of a cell does not match any name that I have any other Saved in the address book (it has been left with a workbook with is a constant name "jobs report does not change"), deleted sheet so finally I separate sheet for each name on your list.

Any help would be appreciated. Let me know if you need any more info.

Before using this code, copy the list of your list from "Job Report" in your To-do list. Please. This macro is cycled through each sheet in the workbook, and uses the FIND to identify whether the name is anywhere on a tab named "staffnames"

"lang-vb prettyprint-override"> Worksheet Dim RNG as a Focus Focus Cypher Focus in CIFEET sheet as the range for each focus. Set RNG = Set Sheets ("Staff Names"). Range ("C4"), LookIn: = xlValues) If Focus_SEEET.Name = "staffnames" then 'Skip to Employee List' Nothing 'Message' ("Skip" and Focus_HEET.Name) ElseIf No Rng Nothing 'Nothing' in the list 'Nothing' messagebox ("found" and range ("C4")) Other: Delete 'name not found' tab on 'list unknown name:' and ("C4") tab Application.DisplayAlerts = False focus_SHEET.Delete application.DisplayAlerts = True End if the next focus is set to IHETT Focus_sFET = nothing set RNGE = nothing end You can also add more features that automatically open the source of your staff's names but you should move it in the right direction.

< / Html>

Comments

Post a Comment

Popular posts from this blog

import - Python ImportError: No module named wmi -

-
I followed the instructions for downloading WMI for Python When I try to run the code for C.Win32_Service (StartMode = "Auto", state = "Stopped") import wmi c = wmi.WMI (): if Raw_input ("restart% s?"% S.Caption) .upper () == "Y": s.StartService () I got the error < Code> traceback (most recent call end): file ". \", Line 1, edit: I am using Python 2.7.6 EDIT2: I am running 64-bit Windows 2008 R2, and I've downloaded WMI-1.4.9.zip (md5). I removed the content and put it in D: Python \ Tools \ Scripts I executed dragon setup.py.install I said D : \ Python \ tools \ scripts to% PATH% and when I execute the code for C.Win32_Service (StartMode = "Auto", state = "Stopped") import wmi c = Wmi.WMI (): If raw_input ("Restart% s?"% S. Caption). () == "Y": s.StartService () error me Gets traceback (most recent call final): File ". See \", line 1, &
Read more

Editing Python Class in Shell and SQLAlchemy -

-
I am working on the terminal on a shell script after this tutorial SQLAlchemy tutorial. I need to type gt; & Gt; & Gt; Sqlalchemy import column, integer, string & gt; & Gt; & Gt; Class user (base): __tablename__ = 'users' id = column (integer, primary_key = true) name = column (string) absolute name = column (string) password = column (string) def __repr __ (self): return "& lt ; User (name = '% s', absolute name = '% s', password = '% s') & gt; "% (Self.name, self.fullname, self.password) After the problem I have typed the password = column (string) I hit twice and changed .... >> I then took everything back but then an error was thrown because the class already exists ... I am not completely sure how to fix it. How do I open that slip in the shell script and edit it (Add DF to DRR) The error thrown below: / user / giripeters / TFSQLLX / Lib / python2.7 / site-packages / sqlalchemy / ext / decla
Read more

c# - MySQL Parameterized Select Query joining tables issue -

-
I am using parameterized select questions in conjunction with my program and it works entirely, When I try to join the table Everything I have done is a small fraction: using (MySqlCommand cmd = new MySqlCommand (paramQuery) ToSql (), Connection)) /etc/ paramQuery.ToSql () Equal: "Select TableOne ID, Tableon, Department, Tablet. One by name table, Table 2 h Yes TableOnEID = @Pharmak "* / for (Int Index = 0; Index and Lt; ParamariX Parameter (.c calculation; Index ++) Cmd.Parameters.AddWithValue (paramQuery.Parameters (). ElementAt (index). , ParamQuery.Parameters (). ElementAt (index) .Value); / * ParamQuery.Parameters (). ElementAt (index) .k = "@most 0" paramQuery.Parameters (). ElementAt (index) .Value = "tableTwo.ID" * / MySqlDataReader Reader = cmd.ExecuteReader (); While (reader.Read ()) {// do stuff} } One of the tables I attempt to join is For the table, two with the same id for all. Is there something that I'm doing wrong?
Read more