lcol

Hi all I am new to VBA/Excel so I apologise in advance for my ignorance I am trying to insert code that will count number of cells with a fill colour, I found the code below which works once but if you alter the number of cells with fill colour it does not automatically update the count...

To help explain what the spreadsheet does, here is a helpful pic. :) Default view has names across the top, procedures down the side, and my command buttons in the top left corner that, when clicked filters the employees down to only the employees working in that department (actually, it doesnt...

Good evening A bit stumped on how to sum a range utilizing R1C1. My code is: Thanks for any help. Sub sumeverycolum() Dim lastcolumn As Long Dim lcol As Long Dim lastrow As Long lastcolumn = Cells.Find(what:="*", after:=Range("A1"), _...

I have a combobox that is referencing a long list on a separate workskeet (sheet3) and I want to use the name for what the user chooses and hide all rows that do NOT contain that name/value from a column... Basically, I am wanting to use VBA/activeX with a combobox to do the same thing as...

Hello I was wondering if anyone could help I got the below from a post on here quite a while ago which is brilliant it has helped with our spreadsheet but we are having a couple ofissues which I wondered if anyone could possibly help me resolve. 1. We have quite a large amount of data we...

Hi! I'm trying to copy the value of one workbook and pasting it in another workbook. Where it is pasted depends on the value in the first workbook. Sub Part1() Dim rng As Range Dim rng1 As Range Dim Lastrow As Integer Dim lCol As Long, i As Long Lastrow = ActiveSheet.UsedRange.Rows.Count...

Good Morning, I have the below code Sub firstandlast() Dim FCol As Integer Dim lCol As Integer FCol = ActiveSheet.Rows(1).Find(What = "Store Number (Location)", LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False).Column lCol = ActiveSheet.Rows(1).Find(What = "Store Number"...

Hello All, I was wondering how could I delete all the columns I do not need from a report without having to either mention them or have their address? Usually when I want to clean up a report I delete columns using something like: Range("B:B,D:D,F:G,I:I,K:K,M:N,P:S,U:BH,BJ:BJ,BL:BX").Delete...

Hi Everyone, I would like to ask for some help writing a few lines of codes to speed up the generation of a few reports. I would like to have the code delete a column if the column only contains text. So far I have the following code I have created through a bit of research online Dim...

I'm trying to change the highlighted Cell reference into a formula, so that it is dynamic and changes as the data changes, and not just when the macro is run. Does that make sense? So the macro will write the formula (...Cell = "=...") lCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column i =...

I have a code which I need to run on all the sheets in a Workbook except "All Employee" Sheet. This code calculates the time spent by the employees in a shift and their less time (Time not completed in a shift) for each day of the month which is logged horizontally in the sheet. The problem I...