I want to combine the following two procedures, but I can�t figure out how . The purpose of the procedures is to warn the user to save data before importing and overwriting data that was already there.
Sub Is_sheet_empty()
If Range("your range") = vbNullString Then
Call Add_New_Data
Else: Call Sheet_Not_Empty
End If
End Sub
Sub Sheet_Not_Empty ()
Dim Response As VbMsgBoxResult
Response = MsgBox("Do you want to replace this data?", vbYesNo + vbQuestion)
If Response = vbYes Then
Call Add_New_Data
Else: Response = vbNo
�Do Nothing
End If
End Sub
Right now I have a script that will highlight any rows where columns "Unit1" and "Unit2" share the same value.
The script is below:
[Code] .....
How to modify this so that it only highlights rows where the same data is duplicated twice?
For example if both columns had "The dog runs" as their value in the same row, then this would only get highlighted if two or more rows on the sheet also had "The dog runs" for both their value.
I have a user form designed and now I would like to be able to program a Command Button to "SAVE" and when it is clicked, I would like to save the results of my fields to another worksheet. I have a defined range that I would like to have the inserted row into?
Is there any way that multiple user are using different excel based user form and update data using that. Is there a way that all the user save the data directly on the main database?
a code, that looks at range "A" (xls down) and then goes over that amount of columns in "I" and warns if there are any blank cells and ends the macro if so.
I have a row on a tab that I always want to hide before I print or save. Is it possible to get a message to pop up if I try and print the page while row 33 is not hidden?
Is it possible to check, with VBA code running some sort of "If" function in the background in an open workbook within which the VBA code is placed, whether a user is opening (or attempting to open) the VBA Editor? This should see any attempt being made, whether the user uses Tools>Macro>Visual Basic Editor, Alt + F11 or right clicking on the Excel icon top left to "View Code".
I have written a sub to open a txt file, but I want to then save it as Excel, with a filename (a variable). The variable is public, and is set by other subs. I have added the standard "save as..." button to my custom toolbar to use for this and the following code (taken from previous thread)
Public Sub SaveFile(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = True Then Application.EnableEvents = False Application.Dialogs(xlDialogSaveAs).Show MyVariable, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Cancel = True Application.EnableEvents = True
End If End Sub
But it comes up with the original filename in the save as dialogue and txt file type. Any help would be great, this is used by inexperienced users and I don't want the original file saved as it's prevoius name and type
I am having difficulty getting a script to work that manages duplicates being added to a worksheet from a userform. Each record is assigned a unique ID when it is added to the worksheet initially. The problem that I am having is that the user wants to add non-unique information to the worksheet in unique records periodically. I can do that, but I am looking to make the application more user-friendly by reducing the number of msgboxes he has to respond to in order to do this. I have some code below which works, but it needs to be smarter.
Private Sub UpdateContact() Dim strAnswer As String 'Copy values from Customer Form controls to Data array tbxWrkTel.Text = Format(tbxWrkTel, "000 000 0000") tbxMobile.Text = Format(tbxMobile, "000 000 0000") tbxHomeTel.Text = Format(tbxHomeTel, "000 000 0000") If Not WorksheetFunction.CountIf(Sheet1.Columns(1), tbxCompany) > 0 Or _ Not WorksheetFunction.CountIf(Sheet1.Columns(2), tbxContact) > 0 Then 'To avoid duplicate data If tbxCompany = "" Then tbxCompany = "-".........................
I wrote a code that is suppose to save the workbook every time a change is made but so far I have been unsuccessful at getting it to work. The workbook contians 7 worksheets.
This is the code I wrote to try and accomplish this task ....
I have a workbook that is shared between 10 users and this work book is known as Master, what I don't want to happen is for one of the users to over write and save it. So is there a way one not allowing the user to save but allow the user to save as.
i try to write a code to pop up input box with browse button to select the file path the code without browse button is workin corectly
Private Sub CommandButton3_Click() Dim N As Integer Dim Fname As String Fname = InputBox("Please enter the file name and path to save the output", "enter file name") Sheets( Array(Sheet2.Name, Sheet3.Name)).Copy ActiveWorkbook.SaveAs Filename:=Fname ActiveWorkbook.Close End Sub
Need to add browse button to make it easier than writting the file path
i have this code to run autofilter in protected sheet2, assigned to a check Box, but it gives me this Msg when i run the code by checking the check Box: File in use. The file is locked for editing by the (my name). However, when i excute the code by F5 in the VBE window, it works fine also when i excute the code from Worksheet_Activate , it works fine
Sub t() With Sheet2 . Protect "0", , , , userinterfaceonly:=True, Allowautofilter:=True .AutoFilterMode = False .Range("A5:DT5").AutoFilter End With End Sub
We have an excel file which is made every thursday for comparison purposes etc. I've made an macro (excel 2003) which - on start - asks via an inputbox for the extension in date format for saving purposes. Later on, the macro will search for the same file but from last week to open it and copy/paste a 'comments' column into this new one. All went well, everybody happy. However it may be well possible that file is made and saved but with an extra extension: example:
dir to save = C:file
file when starts runs inputbox "Please enter a date (e.g. 2008-06-20)" The macro records this string as mydate:
Sub Start() Dim AnyString Dim MyStr Dim DirString Dim mynum 'As String Dim resp As Long Dim get_mynum Dim mydate
'Define extension for the file name to be saved and the correct path (dir) where this file will be stored. get_mynum: mynum = Application.InputBox("Enter the filename's extension to save in yyyy-mm-dd (e.g. 2008-06-30)", vbOKCancel) If mynum = False Then msgbox ("You do not want to continue? Ok, programm stopped") Exit Sub ElseIf mynum = "" Then..............
I've recorded this code and am looking to include it in a button. I would like for when a user clicks the button assinged macro that the active sheet is cloned and saved as a CSV file. The user should be prompted before saving on where (file location) they'd like to save the file.
Sub CloneWorksheet() ' ' CloneWorksheet Macro ' ' Sheets("SDW&Customer Workshop scheduled").Select Sheets("SDW&Customer Workshop scheduled").Copy ActiveWorkbook.SaveAs Filename:= _ "C:Documents and Settings1167916My DocumentsTestBook1.csv", FileFormat:= _ xlCSV, CreateBackup:=False End Sub
I have a user form that has a combo box "City" two text boxes one called "Flight" and the other "Date". What I'm trying to do is to prevent the user from saving the data input from the user form if any of those three fields is left blank. The code that I have so far checks all of the required fields, if any are left blank a message notifys which field(s) is left blank and return the focus back to that field. But the rest of code also fires.
What I really need is either to stop the code if any fields are blank and return the focus back to the blank field, the user completes the field(s) and clicks the save again, or better yet, pause the code until all the required fields are completed and then complete the save. (There is actually another 200+ lines of code in this sub, but I deleted it to keep the post a little shorter.)
I have a workbook, "A", that while open I need to be able to detect any type of activity within other open Excel workbooks "B...Z" that are simultaneously open.
I understand that I would need to use the Class Module with a Public WithEvents function but I am stuck here.
i have a script to import a workbook which works fine, but when the data is imported i would like to have all the data in the cells aligned to the left of the cells, as im new to vba i can work this out.
Below is the script i'm using to import.
I would like this to aligned all cells to the left and centered when imported.
Sub tst() With workbooks.open("C:example.xls") with .sheets(1).usedrange thisworkbook.sheets(1).cells(rows.count,1).end(xlup).offset(1).resize(.rows.count,columns.count)=.value end with .close False End with End Sub
I want to import data from the web into Excel, but the data I want come from the result of a query - I have to enter a few parameters and get the results. I would like to import these results into Excel but although I can enter the website for Excel to look at I cannot figure out how I can enter the parameters to generate the results.
I am having a little trouble with this piece of simple code that just seems to be not working the way i want to. I can't figure why it won't work.
Private Sub CommandButton1_Click() Sheets("Global").Select Range("B5:F19").Copy Range("B25").PasteSpecial (xlPasteAll) Range("B5:E5").ClearContents Range("B7:E7").ClearContents Range("B11:E11").ClearContents Range("B13:F13").ClearContents Range("B17:D17").ClearContents Range("B19:D19").ClearContents End Sub
for some reason if i try to do Range("B5:F19").Select and then do Selection.Copy, I get an application error message. This has never happened before and for some reason it just started to act up. If you want to know what it does when I run this macro.. it actually doesn't go to Sheet "Global" it stays in the same sheet and does all the copying/pasting/clearing in the same sheet as the button is. I made sure that the tab is "Global" and i have confirmed caps. spaces everything.
I have been asked to develop a dashboard for my company. The data source for my dashboard is Tally ERP 9.The problem is I am not getting how to access this data into excel. I have tried MS Query but the imported data was not what I was expecting.
I have 5 or 6 macros set up to import stats from the internet to specific sheets. I want all of my imported data to be pasted starting at A1. However when i run these macros, the data IS pasted at A1, but when i run it a second time (or the next day after the pages have been updated), it pastes the data BESIDE the previously pasted stuff. here's what i mean..
say my imported data spans columns A to S.. everything's fine. but tomorrow i want to update the data so i run the macro again. well, it pastes the new data to A1 and again it spans from A to S like it's supposed to, but now it also tacks on the same paste job from S to, AG for instance.here's the code... There are currently 5 macros that have this problem. I thought by selecting A1 as the starting point, i could alleviate all of this but apparently not.
I have the following code that I cobbled together from various recordings of data imports and queries. The problem seems to be in my WHERE statment. I get a "Run-time error '1004': Data type mismatch in criteria expression."
I need to create an statement for my clients. Book A has all of the account balances. Still in book A, the account number is in column A, and balance is in column H. I just need to import from Book A into Book B, based on account number. Now on Book B, the account# is in column A and the balance needs to go to column B.
I am using Microsoft Excel 2003 and I am trying to import data from one worksheet to another. I found out how to import the data, but I can not find out how to get the data that I am importing to go into the labelled cells that I want them to go into. Is there any way that I can get Excel to do this, or am I searching for something that can't even happen?
