r.value

Hi all. I have a spreadsheet for weekly time sheets. It has a sheet for each day of the week that the user fill his time and other job descriptions in on a daily basis. This is then converted with formulas to a summary sheet. Now they wants a additional monthly summary sheet for all the...

Hello, I am trying to move a group of worksheets to a new workbook. I have the code working when I hard code the worksheet names in the code, but I want to make those variables that will be filled by values on one of the worksheets, so that this can be run for different groups. This is the...

Hi. I have a User Form to add information in a data list. In some of the textboxes, I want the information to be added to the list in a certain format. For example: 1. the engine model to be all in UPPER CASE 2. the manufacturer to be in Proper Case, unless user entered all information...

Never mind i figure out. Please delete

Hi all, I'm sure some of you are looking at the thread title thinking "this sounds easy". Well, I don't think it is. Hope I'm wrong though. I am almost done writing* a long module to automate the formatting of a report which is pulled from a web-based database. We (at work) have to run this...

Hello, I have VBA code which works perfectly to export the excel data into an access table. One thing I would like to do is only export the rows where the columns containing the date stamp (column I) = the current date. This would help me from exporting data that.s already recorded in the...

Hi all, I'm a little stuck. I have a spreadsheet which I am going to use to generate some values which then need to be appended to the first blank row in an existing .csv file. This is what I have so far: Sub Append2CSV() Dim tmpCSV As String 'string to hold the CSV info Dim f As Integer...

I am such a VBA noob. ML.Activate Do Until Cells(ActiveCell.Row, "A") = "" tnam = Cells(ActiveCell.Row, "H").Value tno = Cells(ActiveCell.Row, "A").Value pup = Cells(ActiveCell.Row, "G").Value pp.Activate Range("A3").Activate Do Until Cells(ActiveCell.Row...

Hello, can someone point me in the correct direction, the following does not error and runs, but does not take into account the date rng criteria, just returns all values with a "yes", is there something i have done wrong. Dim Daterng As Long Dim Daterng1 As Long Daterng =...

Hello, I have this code however, I would like to make it run across the entire workbook: Sub RemoveLeadingTrailingSpaces() Dim r As Range For Each r In ActiveSheet.UsedRange v = r.Value If v <> "" Then If Not r.HasFormula Then r.Value = Trim(v) End If End...

This is probably a simple one.. but I've tried many different ways and it won't work. The following calls the next function. If Range("E" & r).Value = 6 And Range("F" & r).Value = 6 Then This does not... If Range("E" & r).Value = 6 And Range("F" & r).Value = "_" Then This also does not...

I'm having trouble with the following code. Hopefully someone is able to help. If Sheets("Instructions").Range("D20").Value = "Yes" And Range("E" & r).Value = 6 And Range("AK" & r).Value = 1 Then VestingReport2Import_4Message 3, False, r, "_", "_", "Test Message" If Instruction D20 =...

Hello, i have a report of 50 plus columns which i use, I have set up to transpose the information i require into a new worksheet, sample of code is below. my question is the data on the main report comes in date order ( submission date) no filtering or sorting has been done, however when i...

Hi, sorry if title wrong, dont really know what to call this Have the following code which excludes any rows where the critera given is met. Do Until Range("A" & R).Value = "" If Sheets("checkSmart").Range(QRiskRule1 &R).Value = "Annual Review" OrSheets("checkSmart").Range(QAdvType & R).Value...

Dear Experts, This is duplicate thread originally posted in VBA express forum and link is http://www.vbaexpress.com/forum/showthread.php?63295-Facing-Run-time-error-13-quot-Type-Mismatch-quot-while-edit-and-update-user Kindly help me to resolve this issue. I have developed user form for...

Hi, ive been testing out the following VBA which works "sometimes" but isn't reliable and often after running the script nothing is written in the table. Sub exportToAccess() ' exports data from the active worksheet to a table in an Access database ' this procedure must be edited before use...

i have macro for splitting excel sheets depending on column A for all the sheets , i have 20000 rows and 35 sheets to split in a workbook , it take around 1 to 2 hours for splitting, can it be faster Sub SplitData() Dim wbk As Workbook Dim wsh As Worksheet Dim r As Long Dim m...

I want to shift quantity of ‘Items’ from worksheet “Invoice” to Worksheet “Purchase” in column Named as ‘Balance Quantity’ where it will be deducted from initially available quantity of invoiced item in corresponding row to the ‘Item’ of sale. This quantity of ‘Item’ will also be transferred to...

Hello, I have a script that moves data from one sheet to another based on a criteria-- thanks to the help I got on this board :). It moves what I need perfectly, BUT It is supposed to move below the last line of data -line 232 for this so it should go to line 233, but is going to line 5004. I...

I am using the following code: Dim r As Long For r = Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1 If Range("H" & r).Value <> Range("H" & r - 1) Then Rows(r).Insert Rows(r).Insert End If Next r For r = 2 To Cells(Rows.Count, "A").End(xlUp).Row + 1 If IsEmpty(Range("a" & r).Value) Then...