I just recently got my hands on a very complicated excel tool, which I would like to "simplify". Its probably going to take a series of questions but the first one would be:
Imagine a list of written questions in excel. Now I need to insert a checkbox next to every question and the ones that are ticked, should (after clicking an "export" button) export themselves to another excel document.
I have a formula that adds the contents of a row if a box is ticked. It then averages the result. This works fine, but now I only want it to add the contents of every other column before averging it. Can anyone adapt the formula below to allow me to do this?
=SUMIF(E73:P73,TRUE,E9:P9)/MAX(1,COUNTIF(E73:P73,TRUE))
I have drop-down list in cell C4 and inserted Checkbox next to it. Drop-down list has a blank default value. I want Checkbox to be ticked If value in C4 is not blank. My code so far is:
[Code] ......
I attached sample spreadsheet : EF989727_re.xlsm
I need to make sure that two checkbox's are ticked before my macro is run. How do I change this into an "AND" statement?
Sub Email1Macro()
If Sheet1.CheckBox1 = True Then
< my commands here>
Else
MsgBox "You must tick the checkbox before you can continue"
End If
Exit Sub
End Sub
the code I would need to enable a command button only if any one of 3 checkboxes are ticked?
The command button is cmdenter and the checkboxes are 1, 2 and 3.
I have a spread sheet with various tick boxes, that when ticked calculate an accumulative percentage in a cell. This cell is the basis of my graph.
E.g. if the cell displays 80% - the chart with show 80% - simple.
However, I want to write a vba code that changes the fill colour of the chart depending on the percentage.
i.e. if the percentage data = 0-49% I wish the chart to display as red. 50-69% - yellow and 70%+ = green.
If I protect a sheet but tick the boxes to allow sorting and autofilter I still get an erro when I try to use the sort buttons on the autofilter.
It allows me to use the filters but as soon as I sort I get told to unprotect the cells im trying to sort.
Is there a way around this where I can keep formulas from being touched but allow sorting of data through autofilter?
I have a macro that seems to work okay for older versions of Excel - I use Office XP (2002) tell me if this will work for newer versions (2007 / 2010)?
KB1017 - Trust access to VBA project
Code:
Function VBATrusted() As Boolean
On Error Resume Next
VBATrusted = (Application.VBE.VBProjects.Count) > 0
Exit Function
End Function
Private Sub Workbook_Open()
If Not VBATrustedAccess() Then
[code]....
I was thinking that i should probably have
VBATrusted = -1
as the third line so that it is negative unless the tick is there. No way of checking older versions right now though.
I'm creating a basic form or templateusing Excel 2010 where the user will fill out information (See attached screenshot) I'd like to incorporate two a check boxes, that when ticked, change the display of the second table, either adding, removing or splitting of of the current columns in to two?
Is this, or any variation of, possible using Excel 2010.
I have a spreadsheet that lists a set of actions and the days they need to be completed.
The due dates are listed in column c and in column h I have a the user choosing "completed" from a drop down data validation.
I have a dashboard on a separate worksheet, showing if the item is complete and the due date.
Ideally I would like to display the dates on the dashboard in red if they are past due, and the box in column h was not marked complete.
I have been going through my books and trying to solve this, but I run into a different issues.
Even if for now If I can get the main worksheet to display the color conditional formatting that would work
I need to count the total number of times 4 different values appear in a column. This formula works for one value:
=COUNTIFS(Source!$C:$C,$B5,Source!$J:$J,$L$3,Source!$L:$L,$H$1)
Where H1 contains the word Assigned. I need to also find and add to count for matches in I1,J1 and K1 which contain New, Pending and Work in Progress respectively.
I am wanting to create a list where I can select multiple items within that list and then print only those selected items. I have created something similar thru data validation, but I can't get it to print.
In addition, I would like to be able to subdivide the list into multiple categories, then select items from these multiple categories and print them.
If i select 3 items from a list 20 items to be show on the cube this is fine and works however if i then add another item to the list i now have 21 items and for some reason it also adds itself to my 3 selected items to become 4 items. Is there anyway I can get it to be added to the 20 items and not to the 3 items..
View 4 Replies View RelatedI know how to use array formulae to create a unique list, i.e.{=INDEX($G$1:$G$760,SMALL(IF(ROW($G$1:$G$760)=MATCH($G$1:$G$760,$G$1:$G$760,0),ROW($G$1:$G$760)),ROW()))}
however this is giving all the unique items from column G and I only want the unique items that have a non-zero value in column H as well. This would be the sumif of all instances that would have to be zero. I've tried to crack it and I've tried to search for solutions but so far no joy.
Is there a macro available that allows me to copy an excel sheet into a new window, make adjustments, and then export to pdf?
View 1 Replies View RelatedI currently have a code to save my sheet as a txt file with specific formatting in the filename. I would ideally like to just export the file to txt rather than save as while keeping my specific format of the filename...that way it doesn't actually save the excel sheet itself as that filename. I currently have a workaround for it, but I think this would be easier/better. Hopefully that made a little sense. Here is the current code I am working with.
Sub save()
Dim MyPath As String
Dim F As String
MyPath = ActiveWorkbook.Path & ""
F = Sheets("Import Data").Range("M12").Value
Sheets("LVY File").Select
ThisWorkbook.SaveAs Filename:=MyPath & F & ".lvy", FileFormat:= _
xlText, CreateBackup:=False
Sheets(F).Delete
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "LVY File"
Sheets("Import Data").Select
End Sub
I have to match the name of colleuges with the birthdate, id number and A B C D category. Now I have to excel tables one with the names participated in company programs one with all the names in the company and the above listed information.
I want to know how can the excel automatically match these datas without copy pasting it from one to another. I mean to search for the name in the second table and if its matching to fill the birthdate id and ABCD category automatically.
From the data on my database I want a button to export certain columns (B,C,D):
1. that on the (column J) have number smaller than (cell A1)
2. and create PDF's based on a column that has 3 options (AA, BB, CC)
So all the data from database that make 1. true to be exported on 3 PDFs where the first PDF has all the AA data the second all the BB data etc..
Is this possible?
Using and adapting some from [url] and [url] I succeeded in exporting name ranges as jpg's.
However, I still have a 'problem' : I would like to set the dimensions of the jpg in code.
An additional question on this subject.
The ranges I am exported have a green background (for publishing on a website). When I do the export in Excel XP, everything looks fine (except for the automatic sizing), but when I use Excel 2007 there is a white border around the jpg.
Looks like this question was asked in 2009 with no replies. Is there a way to export your list of table names and refers to formulas from Name Manager?
I would like to bulk manipulate some of them in a spreadsheet.
I have seen many examples of trying to export sheets using VBA but cant seem to find a solution that works.
Essentially I have a sheet within a workbook which I wish to export and be offered to give it a file name. A pre-specified location is fine so I dont need anything fancy like an API etc....
I am working on a system conversion and the original program will only print to PDF and not export to a text file. Is there a way to export the PDF to excel? I only have Adobe Reader X at work, and unable to download any software to my computer.
View 1 Replies View RelatedHow can I export an Excel file to .txt following a pre-defined layout plus adding a space between the values of the columns?
Example
These are the columns:
NAME: 04 DIGITS
LOCATION: 03 DIGITS
FINAL LOCATION: 03 DIGITS
ZONE: 02 DIGITS
FINAL SUBZONE: 04 DIGITS
CODE: 02 DIGITS
"WHITE SPACE": 39 DIGITS
For my work we get people ordering various amounts codes and units, these units needs to be converted to boxes, this much i have managed to figure out and do.
But now i need to create a button on the order input page that when clicked will export the inputted data (and the auto populated data) to a .csv file ready to be uploaded to the in-house system.
This is where i have come up with no way to do this, the amount of rows could vary depending on how many different products are ordered, but the columns are always fixed (D:I).
Basically what it do is it'll extract the value in D2 and use it to saved as the .txt file name.
But I'm wondering if it's possible to write a addition code to extract the value in F2 to Part1 and G2 to Part2.
For short which means Column D is the file name but which file have 2 parts. First is store in F2 and the second part is in G2. I know it's something got to do with "ts.Write ActiveCell.Offset(, 1).Text"
Sub Export_To_TextFile()
Range("D2").Select
Do While Not ActiveCell = ""
Set fso = CreateObject("Scripting.Filesystemobject")
Set ts = fso.CreateTextFile("C:Documents and SettingschanyoDesktopUpload" & ActiveCell.Value & "_Part1", True)
Set ts = fso.CreateTextFile("C:Documents and SettingschanyoDesktopUpload" & ActiveCell.Value & "_Part2", True)
ts.Write ActiveCell.Offset(, 1).Text
Set fso = Nothing
Set ts = Nothing
Loop
End Sub
I want to save an autoshape as a .gif file and then reference it to an image box in my excel spread sheet. I can't seem to do this through excel or using VBA code.
View 8 Replies View RelatedPrivate Sub Database_Click()
Application. ScreenUpdating = False
masterfile = "S:OfficeMaster File.xls"
Answer = MsgBox("Do You want to export to Final Database?", Buttons:=vbYesNoCancel)
If Answer = vbYes Then
ThisWorkbook.Worksheets(2). Range("q9").Copy
masterfile.Worksheets(1).Range("a4").Paste
ThisWorkbook.Worksheets(2).Range("q9").Copy
masterfile.Worksheets(1).Range("d4").Paste
ThisWorkbook.Worksheets(2).Range("b3").Copy
masterfile.Worksheets(1).Range("b4").Paste
ThisWorkbook.Worksheets(2).Range("b9").Copy
masterfile.Worksheets(1).Range("c4").Paste
ThisWorkbook.Worksheets(2).Range("e9").Copy
masterfile.Worksheets(1).Range("e4").Paste
ThisWorkbook.Worksheets(2).Range("g9").Copy
masterfile.Worksheets(1).Range("f4").Paste
ThisWorkbook.Worksheets(2).Range("i9").Copy
masterfile.Worksheets(1).Range("g4").Paste
End If
End Sub
for some reason, it doesnt work as it said the masterfile.worksheets is not recognized, but as i go to the immediate thingee, i type in ?masterfile, it give me the exact address, i had been working on this thign for hours, and have no idea what i did wrong.
I have come across this code to export a worksheet to csv
Sub QuoteCommaExport_New()
Dim DestFile As String
Dim FileNum As Integer
Dim Col As Long
Dim Rw As Long
Dim sRowData As String
Dim rngText As Range
Dim Rng1 As Range
Set Rng1 = ActiveSheet.UsedRange
Set rngText = Cells.SpecialCells(xlCellTypeConstants, xlTextValues)
DestFile = InputBox("Enter the destination filename including .txt or .csv as the file extension e.g. C:Export1.csv")...........
my issue is that i have a worksheet B14: AG175 that could potentially be filled in with data but only want selected cells IF there is data in that row... so for example say row 20-25 have data & rows 40-50 have data... now i want column e,f,h,i, aa for those particular rows as a (.csv file )without any header info... Is there a fairly easy to explain answer to make the above code achieve this??
I had a search and look around, but couldn't find any information on how to quickly (automatedly) export all the modules in a workbook to text files.
View 3 Replies View RelatedI am using SAP to export files to a spreadsheet for Excel 2004. Whenever I do this, there would be a problem with numbers.
For eg, there is reference ids available like 02651977 and when the files is opened from excel, these reference Id's will lose its 0. And it becomes and ID of 2651977.
I need help from here if any and fast.. Or else I will have to use concantations for batch of files for my whole life with 372648235417612536712 columns of data.