activecell.value

If ActiveCell.Address = Range("A31").Address And ActiveCell.Value = "" Then UserForm1.ComboBox1.RowSource = "Lists!A1:A23" UserForm1.Show End If If ActiveCell.Address = Range("A32").Address And ActiveCell.Value = "" Then UserForm1.ComboBox1.RowSource =...

I wrote this program to take some data that was being transferred to my tablet through a keyboard wedge software and put it into our inspection sheet. It takes data from a few different types of inspection eq and the data string was different for each so I had to pull the number from different...

Hi all I am new to this forum. I have seen some pretty amazing VBA codes/help here. I would like to get involved. I am a management accountant and I often create workbooks for myself and colleagues to save time and improve efficiency. To start off, I am sharing the following code which I...

Hi Everyone, First ever post so apologies if i'm doing this wrong. I have written some code that in theory is supposed to after being passed a filename selected from a list box(Listbox1) and a directory as a string (MyFolder), use these to see if that workbook is open. If it is then it copies...

Hi everyone, I"m still new in VBA and currently working on to develop data entry form in excel. I'm facing errors where my ID cannot auto increment while inserting the data=Country with 10 rows once the button was clicked. My codes are getting errors by overwritten the previous data for next...

Hi all, Sorry to bother people with this, but I cannot seem to find what keeps crashing Excel in the following code. I already know the code is horrendous to look at as i'm not amazing at this, so if anyone could provide tips on keeping it efficient that would be awesome too. Private Sub...

Hello everyone, before I wish to explain my question, I want to say that this forum has helped me a lot solving my automated excel obstacles :) So right now, I have this piece of code that simple asks the user for the workbook location, name and sheet name in order to fetch the entire sheet...

Hi, Need your help and assistance on the debugging issue I encountered. I've been using a code that runs smoothly when generating the Macro. But when I run the program again using another data, debug issue occurs. I've run series of data combination with one sheet and some run smoothly, but...

Hi all , I have one simple question in fact it's stupid too. i have loop code like below . all i wanted is the code is working fine but i wanted the code to run slowly as if we do it using F8 . like as if we doing it manually one by one i tried all the steps but could not figured it out hence...

Hi Guys, I have a piece of VBA which is exporting a sheet to a CSV file. I want this CSV to be comma separated with double qoutes around every column. At this moment I get comma's as separator, but I don't know how to get the double qoutes around the text in the columns. This is what I have...

Excel experts, I am new to the forum and this is my first post. I have read the rules and guidelines, and I will do my best to follow them. I apologize if break any rules. I am working on a macro that searches for certain cell values. I am struggling with the correct syntax of the cell value...

Hi all, Need to pick someone else's brain on this. The problem is very simple: I have a macro which is extracting information from a csv report and populating a spreadsheet. The problem I have is that when it does so the text populated on the cells are all double quoted: "14/07/2015 9:51:37"...

Hello everyone, I'm currently using the following code for a macro that replaces the one and only active cell's space for an underscore: Sub Hello() 'Finds and replaces spaces with an nothing ActiveCell.Value = Replace(ActiveCell.Value, " ", "_") ActiveCell.Offset(0, 1).Select End Sub...

Got a bit of a strange one. Looping through a group of cells, and if the cell value is blank, I want to put a value in the cell (in this case, 0). Heres the problem. When the cells are visible, it works fine. When the cells are hidden, the activecell.text is equal to "". If I run the code...

Hello, I'm trying to rename a merged cell and I'm getting the following error and the last line of the code is highlighted when I debug: Run-time error '70' : Permission denied Sub RenameCell() ' ' ' Sheets(Sheets.Count).Select Cells.Find(what:="general ledger"...

I've been toying with Userforms for about a week now. Thanks to google I've been able to find lots of help with trouble shooting most of my issues. However, this one has me stumped. When I run the macro to call the userform, it says that the Find function is not recognized. According to all the...