cellsx

In my workbook I have seven sheets. Sheets four through seven contain values of product information for our four production lines. The below code starts on sheet 4 and loops through each row of column B until it finds the value of the combobox located on the userform named Chattem or...

Hello, I am a beginner to VBA and I am in need of some help to create a code. I have a file that contains thousands of ID's that need to be put into a list that shows each ID included in each group. The ID's are broken up in sections based off of similar products. I need to create a list...

Can some please help....I am working on a short deadline. My table: <tbody> A B C D 1 A gentle Reminder: Your trip is scheduled in two weeks 2 Destination Date Days Reminder 3 Boston 8/18/2018 10 Send Reminder 4 New York 8/18/2018 10 Send Reminder 5 South Africa 9/20/2018...

Hi I have this code part of a form to enter first and last name and the form has 3 buttons: enter, clear, and search. the code below is when user click on "enter". the code makes sure the data will be entered in next empty like. The part i do not understand is this x =...

Hi Everbody, I have done the summary using Dictionary in VBA, but i have many loops in my code. Is there a shorter method that I can use or nest the loops one inside the other. Secondly , I am looking for a solution to summarize the data by name and by Location, 2 criterias using the same code...

Hi, Im using the VBA dictionary to make a summary report by salesrep for quantity and value. The problem is if I put an IF condition testing for the year to be 2017, one of the values comes wrong. If I remove the IF condition the code works fine and gives all the correct results. Is there a...

Thanks in advance for any advice. My issue is I am trying to find a way to first extract the last word in a string depending on what is in that last word. For example, the strings are option symbols as follows IBM US 05/18/18 P40 IBM US 05/18/18 C140 IBM US 05/18/18 C14.5 IBM US 05/18/18...

Ever since I added the following code to my sheet (which is activated by a button), the performance of my sheet is A LOT slower. Are there any ideas as to why? Thanks in advance for the help. Sub insertVeryLongHyperlink() Dim curCell As Range Dim longHyperlink As Variant Dim x...

Hi everyone I want to delete rows with criteria and to keep the first header row, however the macro below has removed my header row. Also I would like to sort the column F in ascending order but it doesn't work: Please could anyone point out my mistakes. Thanks. Private Sub...

Hello. I am trying to reorganise some data. I have a list of numbers in column A. I want my code to look in column A for all the rows with "350" and copy and paste those rows to U4. I want it to do this for all the different numbers. There is over 100 of them. This is what i have so far but it...

Hello there, I have some tricky situation, I'm creating an excel file to control some working hours during the year. In the A column (starting the header in A3) I have the role In the B column I have the name In the C column I have the total hours In the D column the sum of the working hours...

Hello Guys, I have a list of CR Numbers in Column A (count 4000) and my purpose is to extract "VAT Number" and "Arabic Name" registered against the CR number on the VAT Website. For ease, I am putting a sample CR as "1010069143" Following is the code developed by me and I am facing the...

I have been trying to use CountIf to retrieve data from a work sheet other than the one that provides the search criteria for the countif function. This works Cells(x, 3) = Application.WorksheetFunction.CountIf((Worksheets(WorkS).Range("A3:A1300")), ActiveCell.Offset(0, -1).Value)...

Hello, I have structured my code in the following way (see below) to erase all the cells that appear with the number: "0". However, it also erases the lines that are empty (without a number or letter) and those i want to keep them. If anyone could help me to identify the mistake under my code...

I have this code, but I think it's a bit slow, is there another approach to do the same thing quickly? Sub Filtrar() Application.ScreenUpdating = False For x = 2 To 201 If Cells(x, 8).Value = "" Then Cells(x, 8).EntireRow.Hidden = True Next x Application.ScreenUpdating...

I have a dropdown list in a sheet from which the user will select a color (the 7 constants) red, cyan... In my code I wanted to simply put "vb" before it something like: xcolor = "vb" & user-selected-color cells(x,y).interior.color = xcolor But it fails to produce the color. Any ideas? Is...

excel 2016 Here is my vba code Sub datesexcelvba() Dim myapp As Outlook.Application, mymial As Outlook.MailItem Dim mydate1 As Date Dim mydate2 As Long Dim datetoday1 As Date Dim datetoday2 As Long Dim x As Long lastrow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row For x = 2 To...

When I run the vba code below it gets hung up on the line item - "lastrow = Sheets("Sheet1").Cells(rows.Count, 1).End(x1Up).Row" here is my vba; Sub datesexcelvba() Dim mydate1 As Date Dim mydate2 As Long Dim datetoday1 As Date Dim datetoday2 As Long Dim x As Long lastrow =...

I have two worksheet ThreshXHigh.xlsx and MasterSheet.xlsx in workbook called MasterSheet.xlsm I want to perform vlookup in MasterSheet.xlsx work sheet in ColumnC. My Source cell is Column B of same MasterSheet.xlsx and Table to look up is in another sheet ThreshXhigh.xlsx cloumn B to U but row...

What's the error in the below code. Cells(x, 1).Offset(0, 2) = Range("A3").Value is not at all getting executed. Sub record_dailystock() Dim x, myref As Range Dim lr As Long Dim wb As Workbook Dim ws As Worksheet Set wb = ThisWorkbook Set ws = wb.Worksheets("Backend") lr =...