end

i need to modify this code because the data has changed with respect to column location. previously the pertinent data was in B & C It is now in C & E I think changing it is straight forward except for this part "lngLastRow = Range("B:C")" Any help is appreciated! Sub Delete_Duplicates()...

Hi all i am trying to automate the creating and saving of invoices as a pdf. so far i have everything working up until it brings up the pdf preview and then i cant get it to work from there. i have done heaps of searching and tried lots of different code but to be honest its a bit out of my...

Hi All, I would like to run the below code four times with four different date ranges, 1. This month, 2. Last month, 3. Last quarter, 4. Previous quarter (the quarter prior to last quarter). I would like them NOT static, but rolling forward with time if possible, cheers. Private Sub...

I need help creating a code that searches for multiple "items", grabs the offset and pastes it in another sheet. My final goal is to track leave used. I started with Sunday, Sunday is the only day that uses special WK codes. The rest of the week uses the same code. I will be pasting the rest of...

Hi experts. I currently have the following code (see below) in a worksheet I use at work. I would like to streamline the process to filter data by removing the command button to show all data and include "all" in the combobox. When "all" is selected in the combobox it should filter/show all...

Respected gurus, experts and MVPs, I have written the following code for the pivot table and it is generating pi.Visible <Type Mismatch> error. Sub piVisibleMismatch() Dim lastrow As Long, endrow As Long Dim Psheet As Worksheet, Dsheet As Worksheet Dim Pcache As PivotCache, Ptable As...

Hi, I've used the following code in another workbook to open a calander pop up when I choose a particular cell and then once i've selected the date I want to select another cell. I'm trying to use the same code on another workbook however the cell I want to use to start the pop up is merged...

Sub foobar() Dim SearchText As String SearchText = "*" & Range("B4").Value & "*" With ActiveSheet .AutoFilter Field:=2, Criteria1:=SearchText End With End Sub

I have a form where I gather values from a couple of text boxes. The user can either leave the box blank or enter a whole number typically between 1 and 2000. I'm new to passing values between subs but am trying to learn, so I think this is where my problem may be. As I step through the...

Hello, Would it be possible to have your help to change the below macro so it filters the data I have in worksheet "Data" in worksheet "DataFilter" based on combobox5 "Open", "Closed", "All". These three criteria are in column M in row 27 i my worksheet data. Private Sub...

Hello, Would it be possible to have your help to change the below macro so it filters the data I have in worksheet "Data" in worksheet "DataFilter" based on combobox5 "Open", "Closed", "All". These three criteria are in column M in row 27 i my worksheet data. Private Sub...

Columns("F:XFD").Select Selection.Clear Hello All, The code above is working to clear all the cells. However, I would like to use another way instead of just referring to Column XFD to find the very end column. Is there another way to select all columns from "F:to the end" and instead of...

Hi all, I am after some help, I use the following code to call a sheet and then produce it as a PDF, then it sets up the email ready to send - this is setup for 200 sheets and rather than make the button call up on active sheets where I have not used ' to negate the call. Is there a way of...

This code: <code style="color: rgb(0, 96, 0);">Option Explicit</code> <code style="color: rgb(0, 96, 0);">Private pKey As Long</code> <code style="color: rgb(0, 96, 0);">Private pName As String</code> <code style="color: rgb(0, 96, 0);">Private pChildren As Collection</code> <code...

Hi, im trying to list/extract all the text from Z16:Z116 when another columns date falls between a start and end date. Z16:Z116 = text to extract AV16:AV116 = contains date A1 = start date C1 = end date is this possible?, I've tried Lookup & Index formula I have found on forums without...

I'm passing a Range to my Form via a Property Dim Rng as Range Public Property Let rRange(z as Range) Set Rng= z End Property Then I attempt to populate that range (which is a single cell) Private Sub cmdApply_Click() Worksheets("Sheet1").Range(rng).Value = Me.txtTest End Sub I get error 1004...

Hi I have a code that runs through a list of people and sends individual files to each one. The code automatically sends the emails from one of two email accounts I have. Problem is, it's the account that isn't associated with the message! As this spreadsheet will be used by many different...

I am trying to automate the ability to create IP address ranges An example Cell A1 has the value of 10.127.65.16 In cell B1 I want to keep the first 3 octets and replace the last octet with 10 (end result for B1 is 10.127.65.10) In cell C1 I want to keep the first 3 octets and replace the last...

Greetings, I have a Workbook for tracking change orders. When an ECO is closed, I select any cell in the row and run the following to erase the data and clear the formatting on that row. Sub Clear_ECO() MSG1 = MsgBox("This action cannot be undone!" & vbCrLf & vbCrLf & "Selected Row is: " &...

Hello, I'm am trying to make a copy of a workbook, which I then open and then I want to delete all sheets except for the sheet "OrderformulierKopie". The code I'm using right now keeps giving the error it is out of range (in the for loop). I can't figure out how to fix it. Ivlgnr is made in...