I have the attached worksheet which only changes the image on the last two items.
I can make a selection on the first four and none change, but when I make a selection on 5 or 6 they all work correctly.
Also, how could post the image on sheet1 at A1..A6 instead of Picture database column C?
ozgrid post image or photo.xlsm
I'm trying to use combobox1, say, department, to filter items listed in combobox2, say, employees. I don't want all employees from different departments listed in the combobox2 so as to make the user spend time looking, but only names of a particular department once that department is selected in combobox1.
View 9 Replies View Relatedhow to make this recorded macro work with more than the sheet it was recorded on. I need to work with the visible selections. But I'm having all kinds of problems trying to pick just the visible cells. Not having any luck with this project. I tried to included a test book but It keeps giving me an error.
View 4 Replies View RelatedI have around 50 items in my combobox list where i would like to attach an image on each item and show up on the userform when a certain item is picked. Kindly assist on what code is best for this operation.
View 9 Replies View RelatedThis is going to be difficult to explain, but I'll try... I need to be able to format a sheet that has all data in column format. Column A contains a number and B an application. C contains the issue data. I need the issue data to be moved under column A and B as illustrated below. What formula can I do to accomplish this?
Original:
Final:
Can't get html or the image tags to work for some reason.
I am trying to take two random Mouse click selections and swap a set of ranges associated with the cells that are selected. For example if the user clicks on A1 it will resize(3,22) and store the selection as a variable to be swapped with another selection. Here is what I have so far but I keep getting a object required error on rngEmp1.
VB:
Sub SwapGroup()
If Selection.Cells.Count < 8 Then
MsgBox "Please Select two Groups to swap. Press and hold 'Ctrl' in between your selections", , "Swap Groups"
[Code] .....
Problem- I need a combobox on sheet1 to reference a column in sheet2 and return only a distinct list.
[Code].....
If I put my sheet2 column info on sheet1, and then reference it appropriately as built in the code above, it code works great. So I know it's close. I cannot change it to work with 2 sheets though. I've tried to "set wsSheet2 = wbBook.Worksheets("Sheet2")" and call it 'where I think it's appropriate', which is the problem. I don't know what's appropriate.
changing the steps in the code above, where in my case the combobox is on sheet1, and the range/data referenced is on sheet2?
This is what I've changed the original VBA to, and when I run the debug, it picks up the last "with...combobox1" statement as the error (error 1004, app/object defined error):
[Code] ......
I need to link an image to a cell value and display the selected image in a new sheet of the same excel. I am attaching samplefile for easy reference. The requirement is, from the workout sheet when I select from drop down list, then the corresponding cell value appears in Parameter sheet in C9 cell.
There are four images copied in Parameter excel. The given image has to be selected and linked to the C9 cell value. Based on the selection that particular image should be shown on Sample Picture sheet. Here based on the selection only the image should reflect here.
I need to find an easy way to locate an image on my server and upon selection rather than inserting the actual image I need to insert the image path. e.g. "s:imageshighresgreen1234.jpg"
View 3 Replies View RelatedMy workbook simply has multiple columns of data which will be summarized visually in a tag cloud (I have the tag cloud part taken care of already creating either a jpg or png, I simply have to change the extension within a batch file to change between picture formats)
I need to have the tag cloud image display and update depending on which column the user would like to summarize (for now I have simplified the issue by only having one of the data columns in my workbook, and will worry about the user selection of the data column to be summarized later).
My Main Question:
Focusing on the image display and updating now, whether it be an ActiveX Image Control or any other way. I've been playing around manually before I try and code it and I can not get either a jpg or png file to attach to the ActiveX control (both of which cause an Invalid Picture Message).
The file name can stay the same if need be and for now I think/assume that'd be easiest (I have my Tag cloud generator just replacing the previously existing image file of the same name).
Would ActiveX control be the way to go for this dynamically changing image?
I am looking for a way to take the picture name associated with an image ie: (picture 571) and place that picture name in the cell next to the image.
I can see the picture name - it registers in the top left box that usually indicates the cell the cursor is on... and I could manually type that name next to each image.
However my spreadsheet has several thousand rows- each with several columns of information and an image..
I am looking for a way "formula?" to automatically read the image in cell J4 and populate cell K4 with the image name... and so on.
The reason for my request... is I am importing products into a web based shopping cart... to do so I have to export the products to a csv and import that csv into the shopping cart. The process of exporting to a csv- strips away all the images and leaves just data.
I found that I can save the document as an html and that process creates a folder with all the images- saved as (picture 571.jpg) if the resulting csv had the image name... the shopping cart would then look for that image name in my image file and it would populate into the shopping cart appropriately.
This seemed on it's face like a really simple thing to do, I have plenty experience with excel & I thought I'd be able to make cell k4= j4 and tada it would glean the image name & I could simply copy that formula all the way down the sheet & it would be done... but I just cant find the magic button that freely gives up the image name...
I have a dataset that includes the path and optionally an HTTPS URL to an image. Is it possible to embed this image in a cell?
Short of that what might be some other options?
is there a way to load an image out when u type the image name in the textfield.
Example when I type in my name it load my image out beside the name.
I have a number of image controls on a user form, each being loaded with an image from file.
Image1 being loaded with a picture of a bus image2 being loaded with a picture of a school
And so on
Now what I am trying to do is when that image is clicked the name of that image is passed to a textbox
So the action would be
1 image of bus loaded into image control1 , the name of that image being bus.jpg
2 image is clicked
3 the name bus.jpg appears in a text box
Here is what I have so far
Code:
Private Sub Image1_Click()
DataInput.TextBoxItem.Value = bus.jpg
DataInput.TextBoxItem.Value= Image1.Name - this does not work
End Sub
Which works but as you can see this is static, as I have supplied the value , were as I would like the clicking action to pick up the name of the jpeg being displayed
So expanding upon this if say image1 is loaded with say a picture of a car instead of a bus
LValue4 = "E:Car.jpg"
Image1.Picture = LoadPicture(LValue4)
Now when it is clicked the name of the image being displayed in image control1 would be Car.jpg
And it is this value I wish to transfer to a text box for now will do more with it later
In addition to this I am not sure if the best idea is to have a number of image controls and load each with an individual picture or have one image control and swap the picture by clicking a command button
Is there a way to have image box display an image with a name matching data from a cell? example: if I type "hello" in cell a1, Image box will load image named "hello". And display new images by changing the name in cell a1. Note: the images will be located in a permanent folder.
View 3 Replies View RelatedIf I post a logo into a cell of a table, and then later move the table, the cell won't move with it. How do I set it so that the image is locked into the cell of the table? I've tried googling it but all I get are results to set the background of the cell to be the image, which isn't what I want.
View 7 Replies View RelatedSo I'm recording some data to my access database and am wondering why my data will randomly find a place (row to be exact) between existing records in the table. It doesn't always behave this way, but does periodically. I would like my newly added records to be added new, from the bottom of the table every time. What am I missing from my code?
Code:
Sub RecordOrders()
Set iNv = Sheets("vnbinv")
Ir1 = iNv.Cells(Rows.Count, "B").End(xlUp).Row
Set wS = Sheets("1vnb")
Call OpenSessame
With rs
[Code]....
Is there a way to post a specific cell value into a url with macro. here is the macro. I want to Paste the cell value of A1 into the end of the URL. I have also tried to put the desired url in A1 and just reference that.
Range("A2").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://finance.yahoo.com/q/ks?s=(A1.value)", Destination:=Range("$A$2"))
.Name = "q?s=Activesheet.name"
.FieldNames = True
.RowNumbers = False
[Code] .......
Adjust this code to output the differences in WS3 instead of WS2. I'm having trouble changing the worksheet in the code.
Ta in advance. Chuf
Sub CompBelowCol()
Dim ListA As Range
Dim ListB As Range
Dim c As Range
WB1 = ActiveWorkbook.Name
WS1 = "EE"
WS2 = "13"
WS3 = "New Order"
Set ListA = Workbooks(WB1).Sheets(WS1).Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
Set ListB = Workbooks(WB1).Sheets(WS2).Range("M1:M" & Cells(Rows.Count, "M").End(xlUp).Row)
For Each c In ListB
If c.Value "" Then
If Application.CountIf(ListA, c) = 0 Then
With Cells(Cells(Rows.Count, "T").End(xlUp).Row + 1, "T")
.Value = c
End With
End If
End If
Next c
End Sub
I'm trying to set up automated posting from journal entries to ledger accounts.
What it boils down to is having XL match account numbers, from a 'Post Reference' column in a journal, with the corresponding ledger accounts (carrying the same respective account numbers) on another worksheet.
Then the transaction from the journal needs to be added to the identified ledger accounts in a sort of 'below-the-last-entry' manner.
I am trying to automatically insert a time into B and a date into A every time something is entered into C. I want the time and date to not change from the time it was posted. What formula will accomplish this?
I tried using if(C"",now(),"") while having Workbook Calculation set to automatic, but it would update every cell in column B every time I entered data into a new cell in column C.
I am trying to print a number of forms with a reference number however when i print i want the number to increase to the next one.
I have used
Sub PrintCopies_ActiveSheet()
Dim CopiesCount As Long
Dim copynumber As Long
CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
'Now the program wants you to input how many pages you like to print.
[Code] .......
However once i have ran it, save it, and then come back to it later to print again the numbers go back to 1 to 'X',
how do I get it to start from the last number printed?
I'm trying to create a sheet in Excel 2007 that organises shipments, the file is normally pretty large so I want to create a macro which does a few things, so when printed it's easier to work with. First one is to make a gap when items change in Column B and Column F, I can use the below code to make the gaps for one column but not both without making a separate macro. Is there a way to make the gaps on changes in columns B & F on one macro? (I have an example nearer the end)
Dim Rng As Range
Dim x As Long
Set Rng = Range("F12:F" & Range("F65536").End(xlUp).Row)
For x = Rng.Rows.Count To 2 Step -1
If Rng.Cells(x, 1).Offset(-1, 0).Value Rng.Cells(x, 1).Value Then
Rng.Cells(x, 1).EntireRow.Insert Shift:=x1Down
Rng.Cells(x, 1).EntireRow.Insert Shift:=x1Down
End If
Next x
After the data is separated I wanted to insert totals of the weights when there is a spacing, and a counter which stops after each spacing and restarts when the next items start.
Here is an example of the data I have before the Macro with Columns.
Column B
Column C
Column F
Column I
Destination of order
booking ref
Size
weight of orders
[Code] ........
This is how I would like the date to look like after the macro.
Column B
Column C
Column F
Column I
Count
Destination of order
booking ref
Size
weight of orders
[Code] ..........
I am trying to display an image ("image") on an image control ("Image1") placed in a worksheet ("Sheet1"). The problem is that I want this action to take place when I press a button in a user form. I am trying to use the following code, but it seems that VBA does not recognize the image control ("Image1") in the worksheet.
Private Sub cmdDisplayImage_Click()
Dim image As Variant
image = ThisWorkbook.Path & "sun.jpg"
Sheets("Sheet1").Activate
Image1.Picture = LoadPicture(image)
End Sub
trying to get a specific value to appear if the value falls within two dates in which it was posted.
I have the following data
1/1/2014 in Cell AB2
$1000 in cell M3
1/1/2014 in cell P3
12/1/2014 in cell Q3.
What I'm trying to do, if Value 1/1/2014 AB2 falls between 1/1/2014(P3) and 12/1/2014 (q3), then I want it to return $1000 (M3), if it does not, then to post 0 or blank.
creating a distributable add in which will post either one or many URL's (predefined by me) to outlooks favorites section. I.e. when I distribute this add in to the user and the user runs it, the url's should be posted to the favorites i.e. the user should be able to click on the links and access the URL's.
View 4 Replies View RelatedI am trying to build a workbook to track patient treatments. My overview sheet needs to list the last treatment received per patient which is listed in column a of each patient's individual sheet dynamically so I can review the history of treatments as well. I have tried to create a dynamic list, but it is not functioning correctly. I was using : =OFFSET(txdate,1,0,COUNTA('patient, name'!$A:$A),1) , where column A ( the named range "txdate") lists the treatment dates in succession and should be updated automatically when a new treatment is done.
View 10 Replies View RelatedI have written basic macros (probably not the most efficient solution, but its what I know how to do). Up to the present point things are going well. (I tried to attach file, but without success - So I will email the file directly it is pretty easy to figure out) I have option buttons tied to macros that populate a data sheet based upon the input.
This works out quite well and I am able to generate the statistics I desire quite easily. Now comes the second phase, (this is where I am stuck) - when I click the option button "no", I would like this to generate a line item in a separate existing worksheet which lists the item number, tells the discrepancy (as written in the column on the inspection criteria sheet), has a text field for the inspector to briefly explain the exact nature of the discrepancy, and also keeps discrepancies in proper order. Conversly, if "yes" is selected, I would like to be able to check the associated comment page, search the page for that discrepancy number, and if found, delete the line item, then re-oder the page.
Problem-1) i want to round off the digit in the same cell i,e. Formula in F12 should be included in D12.
Problem-2) i have entered a sample account.in this i want to post the data entered in day book into their respective sheets of jaya and supervision automatically.
Excel ( 2010 ). I am creating a Sales Leads spreadsheet. Within the spreadsheet I have a the following relevant fields.
proposed sales value field ( F2 ), Estimated Close - which will be Q1,Q2,Q3 or Q4 ( G2 ), % Probability ( H2 ) & Q1 ( I2 ), Q2 ( J2 ), Q3 ( K2 ) & Q4 ( L2 ).
F2 = 150
G2 = Q2
H2 = 10%
I want to calculate the actual value of sales based on %prob and put the total into the correct field ( I,J,K or L ) based on what field G2 says. So in this case 15 into field J2. I have attached an example.