mycell

Hello - I have the following macro and it is hanging up with a "next without for" compile error. I don't see what is wrong with it? Could someone please help me? It is hanging up on the line 'Next mycell". Public Sub ProjNumbrReq() 'Call ProjNumbrReq Dim myCell As Range With...

I've tried to craft some VBA to find and replace an array of words but this macro replaces words not in order. I started with code found here. https://www.thespreadsheetguru.com/the-code-vault/2014/4/14/find-and-replace-all Basically I'm adding an "S" to the end of certain works to make them...

Hi all, I have this code which used to verify a value from a range of cells and that of my input. It used to work until yesterday when I did a few updates. I get the else alert for any item I feed the input box, except I feed it with the first item in the range – that is cell B4, where I get...

Hi, I've had a search but can't find a similar question. I am trying to get whatever a user has just typed into a cell and copy it to a different worksheet. I figured this was best to run in the SheetSelectionChange section, the idea being someone types something into cell B4 (or any cell)...

Hi Experts, I want below code in formula.. Pls assist.. tpa = is a word available in cell wherever i will find tpa, next cell of that should be return 1 or 0 Dim myRange As Range Dim myCell As Range rng = Range("B" & Rows.Count).End(xlUp).Row Set myRange = Range("B2:B" & rng) 'example=...

I have search much old thread but not getting the solution, I am able to find the error in my coding , Its look fine but in test run is not working,according to my step. below coding is some part of coding:- 1-I have files folder and there are many sub folders ( Name and number of count sub...

Hi Friends, I need help in vba. I have create the complied the excel files form the folder in one tab,I have done the coding the get the sub folder name list in one column , I want the coding create the tab name according the list , my coding is working fine when its run first time but after...

The following code has worked before, but now it doesn't and I can't figure out why. I just determine the value in the activecell and if it's more than one I just copy the row and insert it below the selected row, but for some reason I get a runtime error 1004 and the insert method fails. I...

Hi all This code was suggested to me many moons ago... It searches through column A to match a text string. Once found it will then copy the adjacent number value into certain column - next available line - then it is meant to delete the found value from column B and matching text string in...

Hi all This code looks for a string value in certain column, copies the values then clears cells Set Mycell = Sheets("Sorted Data").Range("A:A").Find(What:="*ASDASTORESPLC*") 'salary While Not Mycell Is Nothing Mycell.Offset(0, 1).Copy Range("C65536").End(xlUp)(2) Mycell.Clear Set Mycell =...

I have following code to search through a column to find matched text string....value (in next column) is then copied into first available vell in column C Set mycell = Sheets("Sorted Data").Range("A:A").Find(What:="*ASDASTORESPLC*") While Not mycell Is Nothing mycell.Offset(0, 1).Copy...

This is my Issue: I have a Macro that creates Worksheets and names them, names are taken from a Pre-Defined Range list in a specific worksheet called Setup. That macro works perfectly. ___________________________ Sub CreateSheets() Dim MyCell As Range, MyRange As Range Set MyRange =...

Can anyone show how to add an image fill to the textbox I have inserted into a worksheet please. Private Sub CommandButton1_Click() Dim myCell As Range Dim myTextBox As textbox Set myCell = ActiveCell 'Set Textbox Size & Position With myCell Set myTextBox =...

Hi, I am trying to create a DIY digital signature block on that inserts the signers details on a worksheet. this is what I have so far. The commandbutton is on a userform along with a couple of comboboxes. Private Sub CommandButton1_Click() Dim myCell As Range Dim myTextBox As textbox Set...

I 'm using the below code to copy a hidden sheet and rename it. It works fine if there is only one hidden sheet but i will have up to 20 hidden sheets. Any help will be appreciated. Sub AutoAddSheet() Application.ScreenUpdating = False Dim LastRow As Long, MyCell As Range LastRow =...

I'm using the code below. If I only have one hidden sheet it works fine. but i have multiple hidden sheets abd at that point it no longer functions properly. Please help. thank you, Sub AutoAddSheet() Application.ScreenUpdating = False Dim LastRow As Long, MyCell As Range LastRow...

Hello, I'm using the code below to copy and rename worksheets. However i what the sheets that I copy from to be hidden. When I hide those sheets and try to copy i get an error. What code needs to be added? [code] Sub AutoAddSheet() Dim MyCell As Range, MyRange As Range Set MyRange =...

Hello, I have a document (shared) which we use as a calendar and to keep track of people and where they are. It has all 365 day on it and with over 100 people. I would like a vba to search the document and change the cell colour based on the value. For example: Red if someone is away on...

I found the following code which looks as though it will do what i want. Private Sub mulholm() Dim myRange As Range Dim myCell As Range Set myRange = Range("B15:B16") For Each myCell In myRange If myCell Like "*Department Total*" Then myCell.Font.Bold = True End If Next myCell End Sub This...

Hi , I want to loop through my columns and hide all columns wherethe total value is 0. The column range is (A:AEN) & the data begins from row 4 – to last row ( Lastrow is never the same and will always be based on last cell populated on columnA) The columns can contain text, dates...