Posts by JohnDrew

Concatenate Giving Wrong Answer.Multiplies by 10. I have a number(A2)= 2.5 and do a Mid function to get the first digit which is in B2= (2), then I have a number in C2=(.5) Then do a Concat and get 20,5 not 2.5. (See Attached) I can get the right answer by dividing by 10 but don't know why.

Got it. Could be better but it works. I set it to 50, perhaps a better way was to look for text in column, if not exit. Sub fontName()

Dim i As Integer
i = 2
Do While i < 50

ThisWorkbook.Worksheets("Sheet1").Cells(i, 2).Font.Name = Cells(i, 1)
i = i + 1
Loop

End Sub

The second file is corrupt also. How do I run the Private Sub?. I have never used Private or Public Macro's . I always hit F11 and post the attachment . I did that but I don't see it so I can run the macro. It does not appear in my macros

It says the file is corrupt and can't be opened. Can you try again or post the VBA

My daughter is making shirts for her cheerleading group. She would like to put the Font names in column A (Allstar) and in the offset column B have it change the font to that Font attribute name. She will have her wording in Cell B2 and will be an absolute . Therefore they can see what each style will look like.
They might have as many as 50. Those girls can't ever agree on anything. lol

When I ran the EXIF file it generated the Image number and Date Taken. Then it created a .csv file. I copied the data to my spreadsheet but never closed the .csv file. It gave me no errors, therefore I thought it was an error in my VBA.
Wrote a Macro to Delete before running the download. Thanks Ken for your usual support.

It runs but does not delete the file

Sub KILLS()
Shell "cmd /c del c:\*.csv", vbHide
End Sub

It does not like the Kill Statement

Sub KILL()
KILL "C:\*.csv"
End Sub
Wrong number of arguments or Invalid Property Assignment

I have a EXIF program which downloads all the information related to pictures. When I run the EXIF program it creates a .csv file and I copy and paste to Worksheet. The next time I run the program, it stops and says I have to remove the .csv file before it can continue. I need to delete all.csv files or rename the one so it can continue. A Excel AddIn to Delete a file located on the Ribbon would easily work also.

I have a Macro for Print Preview. When I run it it cuts the last picture on each page in half. When I go to Print it shows the Page Print Preview correct. When I go to Print Titles and Preview its correct. This is what I have in the Macro
Worksheets("master").printPREVIEW

Got it. "Sub REMOVE1PICTURE()
Dim s As String
s = ActiveCell.Address
Selection.Cut
End Sub"

I have a program to delete all pictures but I need a macro to delete only the picture I select.

Thanks Ken. That's what I needed.

I need a Macro to post the last numbers from Clipboard into ActiveCell.

I found a free program which gives me most of what I need. Its Picture Information Extractor (PIE) It gives me the Date Created and Object name in Excel format.Go to Metadata heading and generate reports

I need to add the Picture Attributes to Photos inserted for easy location. Need the Date Taken and Folder Path.
This Information needs to be attached or printed on the bottom right of the photo, so that I can copy and paste to other Worksheets. Need to be able to change the size for more detail on some pictures, which may happen anyway.
The Pictures to be inserted will be in different named folders and the name of the Picture folder I wish to insert will be identified in Cell A1... like C:\Pictures\July 1, 2018

I stand and applaud your experties Ken.. I did have to modify the VBA code and remove the blank in the second line.
p = " c:\pictures\inventory". Exactly what I needed. Thanks

I need a Macro to find pictures located in file c:/ pictures/inventory. They are named with the inventory number and .jpg. (1000.jpg).
In the inventory sheet Column A is the corresponding Item Number. (1000). It should get the inventory number,search the picture file , find the picture and [ATTACH]n1195537[/ATTACH] insert a comment box, add the picture into Column "C". Then format the picture size to 3" tall. If no matching picture is found, comment "Not Found".

I need a macro to copy and paste all values in UPLOAD sheet, then delete the DATA sheet and save as a xlsx file using "SQUARE" and current date to DESKTOP