c.offset0

This works fine, but I rather not use .Select Range("F13:F22").Select For Each c In Range("F25:F33").Cells If Not IsEmpty(c.Value) Then Set FoundCell = Selection.Find(What:=c.Value, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If...

Dim c As Range Dim i As Long For Each c In Range("C1:Z1") For i = 2 to 26 Select case i Case 7, 12, 17, 22 c.Value = "=" & c.Offset(0, -1).Address & "+3" Case Else c.Value = "=" & c.Offset(0, -1).Address & "+1" End Select Next Next The above just...

Hi All I am using Excel 2016 I am in the final stages of creating a userform which adds data from 31 TextBoxes to a workbook. This all works fine. My data is in Sheet1, the first 3 rows are references for textboxes and labels to help me build the userform. I have data headings in Row 4 and my...

I have a UserForm that mimics what you would see in a "CTRL+F" type window. It runs through the data sheet, row by row, and allows rapid entry of a particular data value, so I want the TextBox that holds that data on the UserForm to auto select the previous data or set focus there to allow...

I've created a UserForm that is intended to operate similarly to what happens when you press Ctrl+F, as far as it needs to have the functionality to display 1 row's worth of items from a list that matches the criteria of the IF function. It should start at the first row that matches the...

Help Please, this code is taking to long to complete. I believe because of the two Loops, each loop contains 100 cells so it is looping through 10000 cells and taking about 6 mins to complete. My guess is there is another way to do this and not take so long. Any help would be appreciated...

Hi. I keep getting this error whatever I do in the workbook, Excel points to the "if not intersect" line. Can anyone help me? Private Sub Worksheet_Calculate() Dim Target As Range, rng As Range, c As Range, myMatch As Variant If Not Intersect(Target, Range("TabellaContratti[Indirizzo]")) Is...

I need really need some pointers here, what is the best/easiest way to solve this? The code below doesn't work, so many different issues so I'm not sure there are any point for me in pointing them out. =) For each date in this sheet... ...find the date in this sheet return time and type to...

My issue is this, I wish to transpose information from one sheet to another, but re order that information. The idea is to lookup information in a database, and display it clearly on a front page for the end user. I enter a serial number into cell C14, click the shape/button to run the macro...

Hello, This is my first time trying to tackle things in excel using VBA, so some of the items were shamelessly stolen off of various message boards and youtube tutorials and modified to fit my needs. However, this seems to be unreliable and very slow. It takes about 20 seconds to update and...

Hi, I am trying to fill in textboxes based on the value of another textbox. The problem I am having, is that I have a textbox change event for a textbox that will be filled in with when the code runs. Is there a way to stop the change event while that part of the code runs. I've tried using...

ok, i'm stuck again! I have a line of code, that is supposed to simply check for the presence of a date in one worksheets cell, and then check to see if it's found in a column of cells in another worksheet it sounds simple, and i thought i'd nailed it, but i keep getting a Run Time Error 13 -...

Hello everybody! New forum user here who is also very new when it comes to coding in Excel. I have encountered an issue where I get Run-time error 13 when deleting or inserting multiple rows. Basically, I want my code to add "-" in a few columns when "TF" is entered in column A. If "TF" is...

Hello all, I have a complex inventory workbook with a function to search that will populate boxes in a GUI if anything is found and increment to the next record. It was working fine and then I have been making changes for a newer version of Excel and new parameters. Not sure why it is not...

Using Excel 2013 If Im runing the code below in a for loop then comb works fine. For Each c In Range("B2:B10") 'ersätt range nr = Right(c, 3) If nr = 980 Then unr = c.Offset(0, -1) se = c.Offset(0, 0) comb = unr & " Sektion" & " " & se...

My worksheet has a big table that contains job info, with weeks listed across the top and tasks down the side. I have this great macro (below) that draws data from the table and puts it into a tab called WEEK1. It works great. Problem is, I need to also pull data and put it into WEEK2, WEEK3...

Hi, can anyone recommend a better way of writing the code below please to eliminate the need for multiple loops. Sub MaterialThreshold() Dim DataSht As Worksheet Dim MaterialRange As Range Dim MaterialCheck As Integer Dim ErrorCount As Integer Dim lr As Long Set...

Hello, Is it possible to have macro copy one column and paste the value to the next empty column in the same sheet? Please note the existing "new draw" macro copies all values in the Total columns and paste values to Prior columns and clears contents of Current columns. This addition to the...