.cellsi

Hi Everyone, I am working in a project and below is my complete code. Option Explicit Sub Try() Dim TOrig As String, STMonth As Long, SCMonth As Long, ECMonth As Long Dim I As Long, J As Long, CMon, cCol As Long Dim lrow As Long Dim add_month As String add_month = InputBox("Insert the...

My latest quandary, My file I copy to draw data from is data run everyday. The file runs a new instance anytime anything is added and a row is added with all the data plus the additional information. The file is at 95,500 rows right now . I am trying to parse by ID, then by status,and then by...

I'm using this code to try and conditional format the rows with the values shown below. My problem is "Red" is the only color that's working, and i don't know why. Dim i As LongDim Lastrow, Lastcolumn As Long Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 1 To Lastrow...

I have written some code that cycles through a series of data and adds values that meet certain criteria to various collections. I'm now wanting to change the X & Y values and Data Labels of my chart to reflect those in the collections, but am unsure how to do this. I've previously only used...

Hi guys, I'm new to posting but have been using this forum to answer Excel questions for years. I hope I post this right and if not, please tell me so I can fix it. Problem: I'm cleaning up some code I wrote a few years ago. Instead of referencing the worksheet every time, I'm trying to use the...

I'm stuck, i'm working on a macro which should consolidate some data. See this printscreen. The macro should produce one line for each date with an average, min and max of temperature and humidity. This is as far as I have come, I manage to print a dictionary with the data, but I don't know...

I just started learning VBA, so I don't know the syntax very well. I have a report I need help on so I copied and paste some code to edit to get as close as I can to what I need. I ran through debugger and I know range is off because I have included by own data, and getting error. I am trying...

Hi all I have sheets("data") and want macro to do that: Check data if wrong will copy to sheet("false"), check each 10 rows and again to last row have data (i = 3, i = 13, i = 23.. and continous) x = 1 to last row in sheets("false") With sheets("data") For each row i = 3 to lasrow For each...

Hi all: I have this code belove to find and copy data then caculate value, this code work fine but I thinks it's very slow. Please help me make code run faster a have another way to do (find data, copy then cacutale) Thanks./. Sub t_All() Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As...

Hi all I have workbook with 4 sheets("datanew", "dataold","higher", "lower"), now I want to find higher/lower value then copy to sheets("higher/lower") with conditions that: With sheets("datanew") lastrow = .Cells(Rows.Count, 12).End(xlUp).Row lastcolumn = .Cells(1...

I have the following macro that works perfectly if I run the macro from sheet3, but if I run it from a sheet called macro, I does not delete the rows containing zeroes where Col B & C are zeo Please check & advise Sub Delete_Zero_Values() Dim LR As Long, i As Long With Sheets(3)...

This UserFormAddMembers code is used to add new members to Sheets(“Members”) I wish to use the same UserForm to update Member Data when cells are empty. Private Sub UserFormAddMembers_Initialize() Dim i As Long With Sheets("Members") For i = 2 To .Cells(Rows.Count, "C").End(xlUp).Row...

Hi all. I use the code below to add missing numbers in a sequence. It works well, but if there is a letter with a number, it fails EG: 1 2 2A 3 5 Sub Add_In_Sequence() Dim LastRow As Long Dim gap As Long Dim i As Long, ii As Long Application.Screenupdating = False With...

Hi all again I have code belove to copy row(i) to another sheet if met conditions, it run okey with data under 50 rows but when data over 500 rows code run very slow. Could you have some suggestions or can make this code run more faster thanks in advanced Sub...

I run code then have runtime error 6 overflow vba with this line: If ((.Cells(i, 8).Value + .Cells(i, 9).Value) / .Cells(i, 2).Value) < .Cells(3, 15).Value Then How to fix it thank a lot./.

Hi again, The scripts I had working have evolved due to the change in data sets. I was able to get the majority of them tweaked and working except for one area. In the code snippet below, in Cell 'S" as part of the macro, I need it to filter on specific word strings (either ignoring or...

Hi all I have code below to check balansheet then copy row with conditions But I thinks this code too long and run slow, could you make this code shorter Many thank Sub CheckPS_noibang()Worksheets("result").Range("A20:Z15000").Clear Application.ScreenUpdating = False Dim i As Integer, lastrow...

Hi, I have recently upgraded my system version from Windows 7 to Windows 10. My Microsoft Excel version also got upgraded from 2007 to 2016. However, I am unable to run the below VBA (in Windows 10) and is stuck in the step - highlighted in red...

I am working on the following script in Excel, which is extremely similar to another I have working with no issues. The only differences between the working and not working are the column/cell letters, the rest of the functions are the same. When I run this one, I am getting the error in the...

Hi, Currently I'm completing a macro that will take a list of data and put it in to a report format. I'm still learning macros so are using a combination of recording the steps and then searching for previous macros created to do various steps i have been able to create the following steps...