vba - Code to rename existing worksheets from cell value in worksheet 1 if value in another cell -

-

i quite know nothing macros , vba codes. have tried several different things nothing working. trying create template sheet1 list of part numbers either make or buy make product sell. column b part number , column e either m or b make or buy. rename existing worksheet (starting sheet3) part number listed in column b if there m in column e. please help, confused on this. need existing following sheets named parts make , not ones buy.

thank you.

paste in standard module (alt+f11, right-click vbaproject on left > insert > module).

this may need tweaked little bit exact needs, asking in question should job.

option explicit  sub createsheets()     dim rngb range, rnge range, mysheet worksheet, cell range     dim row long, newsheet worksheet     set mysheet = thisworkbook.sheets(1)     set rngb = mysheet.range("b:b")     set rnge = mysheet.range("e:e")      each cell in rnge         row = cell.row         if cell = empty             exit         else             if cell.value = "m"                 set newsheet = thisworkbook.sheets.add(after:=sheets(worksheets.count))                 newsheet                     .name = mysheet.cells(row, 2)                 end                 set newsheet = nothing             end if         end if     next cell  end sub

then need click alt+f8 run macro.


Comments

Post a Comment

Popular posts from this blog

ios - MKAnnotationView layer is not of expected type: MKLayer -

-
Image
so code works fine logger riddled message. there way rid of or suppress it? postannotation.swift class postannotation: mkpointannotation { //mark: properties let post: post //mark: initialization init(post: post) { self.post = post super.init() self.coordinate = cllocationcoordinate2d(latitude: post.latitude, longitude: post.longitude) self.title = post.title self.subtitle = post.timestring() } } adding annotation let annotation = postannotation(post: post) self.map.addannotation(annotation) func mapview func mapview(_ mapview: mkmapview, viewfor annotation: mkannotation) -> mkannotationview? { if annotation mkuserlocation { return nil } var annotationview = mapview.dequeuereusableannotationview(withidentifier: "pin") as? mkpinannotationview if annotationview == nil { annotationview = mkpinannotationview(annotation: annotation, reuseidentifier: "pin")
Read more

ZeroMQ on Windows, with Qt Creator -

-
i have installed zmq link given below on windows 7. http://zeromq.org/distro:microsoft-windows 1) have c++ project in qt-creator , i'm using zmq c++ binding (zhelpers.hpp etc). 2) have added .lib installed zmq folder qtcreator 3) while compiling, compiler looks _imp__zmq_verion, in .dll files present in .lib have __imp_zmq_version. 4) causing undefined reference zmq_version. anyone else faced problem , has solution ?
Read more

unity3d - Unity SceneManager.LoadScene quits application -

-
i have 2 different scenes 1 named 'main' , other 'game' both added scenes in load. when use scenemanager.loadscene("game"); works no problem when tried return main scene code if (input.getkeydown (keycode.escape)) { scenemanager.loadscene("main"); } strangely game quits. thanks. sorry interruption. somewhere on other script found code. if (input.getkeydown (keycode.escape)) { application.quit (); } that's bad, know...
Read more