Search results

It looks great. Many thanks your your time once again. Both prgrams are very usful to myself and I am sure to others working with data input and loading files for automation.

Also in testing I noticed that is a cell is empty in .xls with JB program that the whole row does not get saved. whilst shrivallabha program will allow for a field being blank. Would liek the row to be included if a blank cell in the row. Workig with both programs aas a learning curve. further...

Hi JB, What adjustment to your VBA program would I need to do to have : 1) a comma after the last column (title and data) 2) "tail" as an additional checker as a column or text (never has data in this column) Then this .txt file will we utilized as a business requirement. See Present...

PERFECT !!! Just make it look nice n happy. It works with what I require. Many thanks. Have a working example now to also learn from. Kind Regards as always..... Ian.

Many Thanks Sir JB. Will test this out today. Enjoyed the Sub name too !!! Happy to be at work with you...!!

Update 1. 1 File per data entry for multi rows. only when the vba program is run is the data entry finished. e.g. I will put a button on the excel spreadsheet.

Hi, 1 XLS file with headers and multi rows and columns *(some could be blank) 2 once all rows and columsn have been completed as they are entering data for multi users. 3. the amount of rows is 5 in total (all blank cells need to be blank) pass attempt puts "" in all the balnk cells which...

Hi Luke, 1. .XLS File (The Data Input File) 2. Yes, "Domain" 3. "Domain","User ID", 4. Click of a button and will save as : a) Output-11-04-2013-17:30.txt or Output-11-04-2013-17:30.csv Yes Yes Yes.... please.

More information supplied upon request.

Hi, I have an .xls file with columns A to D with title headers. What I am looking for is a module that I can run once a user has entered the data in each column. Simply the data will save into a file with a name and the date and time. The file will be .csv or .txt and around each of the...

Private Sub Worksheet_PivotTableUpdate(ByVal target As PivotTable) SyncPivotFields2 target End Sub This is what I started with and I update all pivot tables when I open the spreadsheet. This program above confilcts with the Opening Refresh of the pivot as this program links vpity tables...

VBA stands for Visual Basic for Applications and so is the small "for applications" scripting brother of VB. VBA is indeed available in Excel, but also in the other office applications. With VB, one can create a stand-alone windows application, which is not possible with VBA. It is possible...

Hi, I have a dashboard that updates upon opening. I also have in a sheet a program that I would like to run only if a list box is chnaged to Yes else No it will just exit sub. Can you advise on the changes please for this to work. Private Sub Worksheet_PivotTableUpdate(ByVal target As...

Mnay Thanks works perfectly. I can now do the NEXT and BACK Buttons for each Drop Down Box with Buttons in VBA. thanks.

Hi, Here is the Next Button option for Drop Downs. Works fine : Sub DropDownUpdateNext() Sheets("Dashboard").Select Application.Goto Range("a1") With Sheets("Dashboard") .Select With .DropDowns("Drop Down 1") Do If .ListIndex < .ListCount Then .ListIndex =...

I can do this individually for each of the tables that require font size changes thus all the charts will be at the correct font sizes... many thanks. Ian.

Many Thanks. I will try this. The charts are look good. with the new sync chart program Ian...

Hi Narayank, Have been trying to do this myself and I can not do the part for the data tables if the data tables does not exist hence all my charts end up with data tables which I do not require. same for Format Legends. I also after having an hour education on the web site you provided gained...

Here it is folks if any one is interested. Sub AdvancePivotTable() Dim piD As PivotItems Dim i As Integer Dim iDMax As Integer Set piD = ActiveSheet.PivotTables("PivotTable1").PivotFields("Dates").PivotItems iDMax = piD.Count For i = 1 To iDMax If piD.Item(i).Visible Then If...

This may assist you if you call this in a spreadsheet. it will email a person with the information they require. It is a start for you. Sub Mail_user1() Dim OutApp As Object Dim OutMail As Object Set Source = Nothing On Error Resume Next Set OutApp =...

Have also tried setting to a range and this did not work ; = Range("D3").Value Any advise or a program is most welcome. thanks.

I have tried adding to the program and I would like to just add if the chart already has : 1, Data Tables 2. Data Label Values 3. Format Legend Else do not adjust. I am getting closer. your expertise is greatly welcomed. Ian.

Thank you NARAYANK. I will try some of these commands in the program. If you know how to set : 1, Data Tables 2. Data Label Values You shall be most welcome.... Ian.

NARAYANK, Do you know the answer or can to direc me to a web site that lists all the chart definitions ?

Here it is for the List Boxes. Can any one do this for the pivot tables. Items will move to the next in sequence. Thanks. Sub UpdateOverviewNext() Sheets("Dashboard").Select Application.Goto Range("a1") With Sheets("Dashboard") .Select With .DropDowns("Drop Down 1") Do If .ListIndex...