code check

I copied this code from Excel VBA: by Nein Smith and I can't get it to work. The data is a mixed list of number from 1-10 in Column A, color line works but the text line does not I know there should be a Then in this macro to the author was just trying to show how Conditional logic works, at a...

I am using an Excel file to store primarily demographic data. I have two pieces of code imbedded in this workbook that allows me to use a Combobox to select demographic data and change to an abbreviation. For example Green -> GR, Purple ->PUR. The code has affected my ability to double click...

Anyone know why this line of code is failing? Private Sub GenerateRedsNights_Click() Sheets("Red Alerts").Range("A5:M500").ClearContents If Sheets("General Areas Sauce").Cells("D20:D59").Value = "R" Then Sheets("General Areas Sauce").Cells("G20:G59").cellcopy Destination:=Sheets("Red...

i keep getting an error can some1 look at this and help me fix this code? or help me with the notes in this code Sub sendemail(what_address As String, subject_line As String, mail_body As String) Dim olapp As Outlook.Application Set olapp = CreateObject("outlook.application")...

I am trying to create a pivot table, I would like the table on a diffrent tab then that of the data. Below is the code I am using, it is running all the way through not erroring out but my screen comes up as blank. Can some one tell me why my code is not pulling in the correct data or why the...

Hi, Not sure why this is happening. I have buttons located on column N and Column X. They show and hide Columns O-Q and Y-AG, respectively. I thine have code in the sheet to expand columns when activated so that the user can clearly read the choices in the data validation list. However, now...

Hi Everyone! My code is working perfect i guess for now but I have to make sure things are placed accordingly like error handling etc....as i dont want problem to occur latter. Thanks again! Pedie;) Sub try12() Application.ScreenUpdating = False Dim wb As Workbook, MyFile As String Dim sh...

I dont know why my code does not leave a row before pasting.... please check where is it wrong. Thanks ped;) sub try1() Selection.Copy Sheets("Data").Select Range("b2").Select Do Until ActiveCell.Value = "" ' i have place (1,0) to leave 1 row before...