how to put together a macro for a command button that deletes rows with certain text in a docyment - which worked fine a week or so ago - but now the macro will not work.
I made changes to the document - but made sure i also made changes to the code.
I have a userform from which I need to be able to print a PDF document when the command button is pressed.
User enters the document number in docnum textbox (eg. 123)
On pressing the commandbutton printdoc, I need to be able to print document 123.PDF to default printer
All PDF Documents reside in a network folder mapped to the S:PDFdrive.
If the document is not found I need to display an error message stating this and return focus back to the textbox.
If the document is found I need to display a message stating document sent to printer.
i have this macro made by another member here that looks for "T" in column 10 and deletes entire row if in that row has a "T". I need it modified to also delete if it contains "FT" and also erase if cells is blank.
Sub Macro8()
Sheets("FORMERS").Select
'deletes entire rows based on a text on one row (this case errases all that have a "T" in column 10 (column J)
Dim DeleteValue1 As String
Dim rng1 As Range
Dim calcmode1 As Long
With Application
calcmode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With...........................................
I need help writing a macro. I only have experience recording them, not writing them in VBA.
I need to check columns A and B for blanks. If A and B are both blank, I want the macro to delete the row and move on to check the next row. I need to perform this macro for the entire worksheet.
I am trying to parse and remove unwanted rows from a very large text file using At the moment, the application runs rather slow and was wondering if the experts could give some pointers on how to make the code more efficient while still keeping it simple so others may be able to modify later. I am keeping the ScreenUpdating True as the alternative false will just show Excel as Not Responding to the user until the VB is finished.
Sub deleteReplaceRows()
Application.ScreenUpdating = True
Dim DeletedRows As Integer
Dim lastRow As Long
Dim Arr(7)
Arr(1) = "<PUZZLE>"
Arr(2) = "<%"
Arr(3) = "%>"
Arr(4) = "Response."
Arr(5) = "</PUZZLE>"
Arr(6) = "<HINT>"
Arr(7) = "<MESSAGE>"
For i = 1 To 7
Do
Set rng = Columns(1).Find(Arr(i))
If rng Is Nothing Then Exit Do
rng.EntireRow.Delete
DeletedRows = DeletedRows + 1...................
I currently am using a form button to create new rows.
I need two different kind of buttons. I have a button that does this-
VB:
Sub InsertRow()
'this inserts a row where the button is clicked.
Dim r As Range
[Code]....
However, when I try and create these codes using a Command button (I need it for the color), I get the error
"unable to get the buttons property of the Worksheet class"
P.S one other thing, say the button is in row 3, and Cells A1 and A2 are merged, when you click the button in row 3, it should extend the merge to A3.
This is probably really straight forward but cant see why it happens, the following macro works fine when called by a button created by the form toolbar but doesnt when called by a command button, get the runtime error 1004, "select method of range class failed"
ActiveSheet.Select
Range("B4:B37").Select
Selection.ClearContents
Range("G4:G37").Select
Selection.ClearContents
Range("B1").Select
Selection.ClearContents
Range("D1").Select
Selection.ClearContents
Range("F1").Select
Selection.ClearContents
Range("J1").Select
Selection.ClearContents
Range("M2:M3").Select
Selection.ClearContents
Range("B4").Select
ActiveWorkbook.Save
Application.Quit
I have a monthly log that I need to keep to track expenses and customers visited. The log is segmented into 12 parts corresponding with each month.
I need to be able to add multiple lines via an input box while maintaining the formulas and formatting of the 2 rows directly above the forms command button (because both lines are filled with a different color) but not the contents?
There will be 12 command buttons in all and the new rows should be added at the bottom (directly above where the button is)
I found this and it works to some extent.
Sub FromFormsCommandBar2()
Dim Btn As Button
with ActiveSheet
Set Btn = .Buttons(application.caller)
btn.topleftcell.entirerow.insert
end with
End Sub
I have a userform and want to disable the command button unless a text box contains text. what I need to do?
View 2 Replies View RelatedI have a command button that upon its click I would like to delete a specific row. I am using a vlookup which is giving me the row of the number I would like to delete. How do i go about deleting out this row?
this is also a radiobutton within the row that I would like to delete out as well. It is not named but it linked to column B within the row that I will be deleting.
I have a user form with combo boxes. The user selects items from the combo box and when they click the command button the selection is written to the spreadsheet. Each time the button is clicked it adds an item to the sheet making a list of items. I am trying to assign a number to each item when the command button is clicked so I have numbered list. Here is my code so far:
Private Sub cmdbtnAdd_Click()
Dim RowCount As String
'Writes user inputs to Active Worksheet when Add Item Button is clicked.
RowCount = Worksheets("Sheet1").Range
("A1").CurrentRegion.Rows.Count
With Worksheets("Sheet1").Range("A1")
.Offset(RowCount, 0).Value = ' This is where I have been trying to code in the numbering
.Offset(RowCount, 1).Value = Me.Combobox1
.Offset(RowCount, 2).Value = Me.ComboBox2
End With
End Sub
Need coding of command button to output text based on the contents of combobox1 and combobox2. The text should be placed in the next available cell starting in cell b3 for combobox1 and starting in cell c3 for combobox2. Each time submit is clicked the name and number associated with that name should go in the next free cell in the spreadsheet.
So for example the user choses name1 and number6 cell b3 would read name1 and cell c3 would read number6 after submit is clicked. The user then choses name58 and number12 and presses submit again cell b4 would read name58 and cell c4 would read number12.
I have created an ActiveX command button and the text on the button looks crude. I know that is not very descriptive but I am unsure how to describe it. The text looks jagged and some letters are missing chunks of their letters. The font I have chosen is Calibri.
If I create a Form Controls button I do not have this problem but I want the button to have a particular background color so I do not believe I can use a Form Controls button.
I do not know why the other Calibri text on the worksheet looks fine while the ActiveX Calibri text does not. The attached image shows the two buttons with the top one being the ActiveX button while the bottom is a Forms button.
I have a simple command button in my worksheet that will insert a blank row and copy formatting, but not the formulas. How do I adjust the code so that the formulas are copied to the new blank row? This is currently what I have:
Private Sub CommandButton2_Click()
Sheets("WAWF Track").Range("A9").Select
ActiveCell.EntireRow.Insert Shift:=x1Down
End Sub
I want to be able to have a link that uses cell data as the passed function parameter!
I want to do this so I can simply copy the formula down for new rows and not have to create a command button for each row?
Maybe there is an entirely much easier way to do what I want?
FOR EXAMPLE, the 1st column would be a link to an entry form passing the 2nd column which would be an ID field.
I have created a cover sheet with various command buttons linking into the available worksheets. I was wondering if it is possible to set the title of the command buttons by linking them to the text in a particular cell in each work sheet??
View 3 Replies View RelatedI have created a command button from the Excel 2003 from the Macros toolbar that I placed on my worksheet. I want to use this button to activate an existing macro. Currently I have no code entered for this button and the button when clicked on behaves as an object to be edited, moved, etc. How should I proceed?
View 6 Replies View RelatedI am trying to attach a recored macro to work via a command button - but keep getting the error message "select method of Range class failed.
When I run the macro through the normal way it works, but I want to be able to click on a Command button for it to work.
I have copied the recorded macro code to the command buttons code field
Do I need to use the code for the Cmd Btn to tell it to run the Macro -
I have a userform with a command button which fires a macro.
everything works fine so far.
my problem is:
I would like to add a msgbox at the end of the macro which confirmes "successfully completed".
I cannnot simply add the msgbox at the end of the macro. don't know what I'm doing wrong.
(see below)
Private Sub CommandButtonOK_Click().
If Me.OptionButton1.Value = True Then
ThisWorkbook.Worksheets("PropertyWorksheet").Range("A1").Value = "Government Securities"
ElseIf Me.OptionButton2.Value = True Then
ThisWorkbook.Worksheets("PropertyWorksheet").Range("A1").Value = "Corporate Bonds"
[Code].....
Unload Me
Application.ScreenUpdating = False
Sheets("MySheet1").Select
Application.ScreenUpdating = False
'run macro
MyMacro1 (adds, hides and deletes various sheets)
MyMacro2
[Code]....
In one spreadsheet, I want to have a command button that will hide all rows where the date column (column A) shows a date older than one week from today. When this button is clicked again, all rows will unhide again. Preferably the Command button title would change to reflect whether it is on the hide or show cycle (for example "Click to Hide all older than one week" and then "Click to Show all events") .
View 9 Replies View RelatedI'm trying to make a command button copy the text from a text box on a multipage control to the active cell in the sheet. I have been able to make it paste the text once it is manually selected and copied to the clipboard but that is all. I've tried recording a macro but that doesn't seem to work in the userform. I need it to copy the text from the active multipage tab (from a textbox) and paste into the sheet's active cell.
The sceanrio is that I use vba to create commandbutton and make that commandbutton call a macro
Code:
With ActiveSheet.Buttons.Add(183.75, 38.25, 96.75, 38.25)
.Name = "Test"
.OnAction = "anothermacro"
End With
ActiveSheet.Shapes("Test").Characters.Text = "Test"
i have created a very simple macro and wish to assign it to a command button i have placed on my worksheet.
View 9 Replies View RelatedUsing workbook A, I have created a new workbook (let's call it workbook B), and have copied a module over to workbook B using macros.
My question is, is there a way to assign the module to a command button using vba?
I need a macro for a command button to perform the following:
If B8 is the active cell and I click the command button,
transfer value from:
B3 to B8
D3 to D8
E3 to E8
F3 to F8
G3 to G8
H3 to H8
I3 to I8
Likewise, if B9 is the active cell and I click the command button,
transfer value from:
B3 to B9
D3 to D9
E3 to E9..........
I have created a command button so that the sheet asks for a password. Now I need to include that in an already created code. I have created a command button as:
Private Sub CommandButton1_Click()
If LCase(Me.TextBox2) = "password" Then
Run "Showall"
Else
Run "Hideall"
End If
End Sub
Can someone tell me how to call this macro in another macro. That is when another macro is running and if the condition fails, this macro should be called. Is it something like run "CommandButton1"?
I have a command button in a spreadsheet that for some reason each time I click it, the button and text gets larger. I can edit the button to shrink it down again, but can't stop the growth...
View 6 Replies View RelatedI am my excel worksheet (excel 2010) I have one cell that changes every day (number). I want this number to open my htm document and replace the same number in a string in the htm and save/close this.
An example:
My htm document is located at C:/ and named XX.htm
The number I want from excel is in cell A1 in sheet1, and the worksheet is located in D:/ named yy.xlsx
And the text(number) I want to replace is in the following string in the htm document, in this string it is 72, next day it can be 30:
src="Bilder/72.png"
I am trying to create a uniform stock database for my company. Thus far, I have 2 worksheets. The first is a face sheet, for the user to interact with. This face sheet has a number of drop down menus on it allowing them to select "Type" and "Size" of the item they need. This information is then translated (by a hidden table) into an item code.
The second sheet contains a list of all the uniform items currently in stock. Each item has its individual code that correlates to the code the face sheet generates.
My question is regarding a search macro.
I want the user to be able to click a command button on the face sheet, labelled "search". This would then take the generated "Item Code" and search for it on the second worksheet. I am aware that it would be very easy for them to simply copy the code into "find" on the second sheet, however it needs to be as easy and quick to use as possible.
I want to launch userform A when the user hits the command button on userform B, I already have a macro set up to launch UserForm A and tried adding it to the code but it doesn't work.
View 13 Replies View Related