.value

Hello, I have the array copying to the worksheet table however, the data overwrites the first line of the table each time instead of filling the table dynamically. Do I need to get the data to go into the first empty row below the table? If so how does one do that? [CODE]Private Sub...

Good evening Looking to insert a dash if cell value is a zero using With range("E2:E" & lastrow) .numberformat = ????? .Value = .Value End With

This macro is housed in a workbook called "Production Sheet" and captures an employee ID number from K1 and opens another spreadsheet called DATA RECEPTACLE. Then it searches column B for the ID number and dispenses statistics into that row. We tried connecting the DATA RECEPTACLE to a...

Hi All, I currently use this code to only allow users to type numbers into the text box on my userform, I need some help with how I can modify this so the users are also blocked from putting zeros at the beginning of there data? Private Sub OnlyNumbers() If TypeName(Me.ActiveControl) =...

Good evening peers, I am trying to figure out a logical way of deleting the highlighted rows in RED on the attached example workbook. the data is variable so it can change location and im trying to determine what logical approach i would take to delete the unncessary rows generated. I have...

Hi With FormExtraSheets.ListBoxExtraSheets ActiveWorkbook.Worksheets(.Value).Delete End With - subscript out of range With FormExtraSheets.ListBoxExtraSheets shtName = .Value ActiveWorkbook.Worksheets(shtName).Delete End With - works fine Could someone explain to me...

I'm trying to modify the code found in this thread for a workbook I have. I've added the formulas that suit my conditional formatting requirements, but I need help/education with applying the rules to each row on the worksheet (2-31) and also modifying the sheet name(red lettering) reference in...

I need to speed up my code. This code is looped through hundreds of times and is super slow. The problem is that the range of cells I need to copy and paste changes. Here is my original code: Worksheets(Sht2).Activate Worksheets(Sht2).Range(Cells(13, 1), Cells(LastPt, 15)).Copy...

Hello All trying to format one range of text to a percentage and a different range to a value. Code I am using below <colgroup><col width="72" style="width:54pt"> </colgroup><tbody> Range("D5:G64,L5:O64").Select Selection.NumberFormat = "0.0%" .Value = .Value...

I have code written and placed in Worksheet Change which allows the user to put in time without colon's and displays the time as 05:00, 16:00 etc. The code works great. Here is what I am using: If Intersect(Target, Range("D2:D77, I2:I77")) Is Nothing Then Exit Sub On Error GoTo...

Hi, I am new to VBA, is there a way to activate a workbook from another active workbook without the filename, and searching by the sheet1 instead? I currently have; Windows("123456789.xls").Activate ,which works fine, however the file name constantly changes (always 9 characters) and I would...

Hi, I am working on simplifying my code to make it easier to follow and check for errors, and I am wondering how often the suffix .Value is needed to determine the value of a cell reference. I would imagine you need the .Value to assign variables (eg x = Cells (r, c).Value) but is it necessary...

Hi, Quick question as I just can't figure it out, please can someone show me how to convert the following into R1C1 format: MyColumn in this case is where I have a cell selected - in this case I have selected a cell somewhere in Column A but in the future, I might select Column F or Z etc etc...

Hi Guys, Hoping for your help I want to get specific information from .txt file I already get it and it worked but the problem it will only worked if on 1 txt file there is 1 needed information but when there are 3 information on 1 txt file I can't get all please see below the code that I use...

Hello all in Mr Excel land This maybe a stupid question for people in the know but I need help on this please The formula below is what I need [With Range("B4:B"& LastRow) .FormulaR1C1 = "=SUMIF(Suppliers!C1,RC1,Suppliers!C2)" .Value = .Value End With] But I want to...

Hi everyone, I'm working now with a userform in VBA, in which i can input a data using that form to other sheet here's the code that i used, the last code won't work as I wish, the column "N" should total column "K", "L", and "M" in each row.. but i didn't work that way, if anyone knows on...

I can't figure this out for the life of me. If I was to run For j = 3 to 3 everything runs perfectly. When I run the loop For j = 0 to finalrowcust -1 it adds all kinds of stuff. I've tried to run a For k = 0 to finalrowcust -1 then For j = k to k, but that didn't work. I've also tried...

Production Sheet dropbox link: https://www.dropbox.com/s/vi2zpdo86euia3d/Production%20sheet%20%28TEST%29.xlsm?dl=0 Extrusion Tracking Dropbox link: https://www.dropbox.com/s/5rn7wcsy62bupcl/Extrusion%20Tracking%20TEST.xlsx?dl=0 On the Production Sheet, cells K3 through K5 will contain scrap...

Hello, I am trying this VBA as I need in sheet1 at column starting from i2, if i2 is empty to put the today date, if cell i2 has a date it should leave the old date. I did a formula =IF(I2="";TODAY();I2),but I was still thinking why the code is not working. Maybe I should put .cell (i2) and not...

here is the dropbox link for the 2 spreadsheets: Dropbox - Rewinder Tracking Debug highlights Line 17; .Value = .Value + Range("F5").Value Here is the VBA: Sub macSubmitProduction() Dim W As Workbook Dim C As Range Dim lngR As Long Set W =...