mycell

  1. K

    'Next without for' compile error

    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...
  2. F

    VBA: Find and replace words in column

    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...
  3. kelly mort

    For each loop is working for only first item in a range

    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...
  4. B

    Worksheet SelectionChange - Need value from previous cell (the one that was just changed)

    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)...
  5. V

    find and give value in next cell - Need Simple Formula

    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=...
  6. N

    "Help needed!" in VBA Code for find the issue

    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...
  7. N

    For Each MyCell In MyRange is not working in second time

    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...
  8. O

    I just want to copy and insert rows

    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...
  9. redspanna

    code not working correctly

    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...
  10. redspanna

    change Mycell.clear in code

    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 =...
  11. redspanna

    place valuela in next available cell with fixed cell ref

    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...
  12. R

    Macro Help (Of Course)

    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 =...
  13. M

    Add background image to textbox

    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 =...
  14. M

    DIY Digital Signature

    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...
  15. R

    Copy hidden sheet and rename

    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 =...
  16. R

    VB code to copy hidden sheets not working properly

    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...
  17. R

    Copy + Rename from Hidden Sheet

    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 =...
  18. K

    Background colour of cells to change based on value.

    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...
  19. M

    Help

    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...
  20. J

    VBA to Loop through columns and hide columns totaling zero(0)

    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...

Some videos you may like

This Week's Hot Topics

Top