I want the entire row and column of the active cell to be selected - now only column "A:A" gets selected.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.EntireRow.Select
ActiveCell.EntireColumn.Select
End Sub
I'm trying to write a simple VBA code to loop through values in the range A14:A138 and based on the value (of a possible four values) in any row of that range, populate the adjacent column in the same row with a conditional result. For example if A14 = "Cat", then B14 = "I"; if instead A14 = "Dog", B14 = "II", etc. If there is no value in column A, the result should be blank (i.e. "").
I believe are in coding the destination range since I can get it to work for just one cell in B! Below is my code that is not working...
[Code].....
I have 02 separate excel workbooks
01 = source file
02 = data list
The workbook "source file" contains all the data
The workbook "data list" contains data for work with Drop-down list. And i can easily select my required description by just dropping down the list.
In case, i have new description i add it in the source file and it is updated in the working "data list" sheet.
This applies to Field device column also. But i want to improve the selection criteria by creating such script or formula which could check the input of the description and automatically selects the field device and its relevant signal (output type).
Screen shot is attached : Automatic Selection.jpg‎
I am trying to find a macro that look for last non empty cell in column A and them paste a formula/comment in all cells of column B.
View 3 Replies View RelatedI know that this could be a stupid question, but was wondering if it could be possible. I would like to select a column by a keyboard shortcut. If I would press a key combination adding the letter of a column as example F, it would select the whole column. I was trying to search for this in google, but no luck.
View 10 Replies View RelatedI'm trying to make the below two column selections into a selected range to clear out formulas/values in the range.
Current code segments:
ActiveCell.EntireColumn.Select
Columns(ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column).EntireColumn.Select
Is there a way to combine the two code segments into one selected range?
In the attachment is a file, which allows me to specific a Column and hide. For Example enter "H" in the InputBox and Submit the Column "H" is hide.
What do i have to change in the code if i want to hide the "H" and the Column two columns next to "H". In this case "J".
HideColumn.xlsm
I have a sheet that begining in A3 and going down need to look for the First Instance of the text String "Loan Documents" and down to the last instance and select the corresponding range in column B.
Example: if the Text String appears in Range(A14:A32) I need the Range(B14:B32) to be my selected range.
i am trying to select column A and column B and apply a filter. however, I don't want the filter to be applied to row 1...
View 2 Replies View RelatedI am trying to select a reference cell value from a column that is LESS THAN.
1. My reference cell value is 22.
2. I look at first row and since 22 < 30, I want to pick values in column 3 (30)
3. Question, how would I get the output below my reference output 22, like i have below?
how can I just select every other (nth) column based on a selection?
So say I have data in columns A-G. I want to select the data block from A1-G100 and then run this macro so that it keeps just every other (or nth) column selected. So the process would be to highlight the data block, then run the macro and I would be left with the data block every other (nth) column selected so I could format all those cells the same way (column width adjustment so I can't use conditional formatting with =mod(),2).
To take it to another slightly more complicated step- I'd like to ultimately include a box that pops up and asks for how many columns I'd like in between.
So that I could select a data block, then hit a button for the macro, type in a 3 to indicate I want to select every 3rd column and then hit go, and then be left with excel having every 3rd column selected.
I am using EXCEL VBA and SQL statement to try to select some data in worksheet
Below is my worksheet sample
datee name product_name product_code
2014/6/1 Eric Toy_A C0001
2014/6/3 Stephen Toy_B C0003
2014/6/16 Calvin Toy_C C0003
2014/6/19 Perry Toy_D C0001
2014/6/23 Calvin Toy_E C0002
Here is my code segment for select data
strQuery = "SELECT * FROM[List$] where promoter_name = 'Calvin' and promoter_code = 'C0003'"
Set rs = cn.Execute(strQuery)
This is success to select data with no error
============================
But when I changed the condition to use datee column
strQuery = "SELECT * FROM[List$] where promoter_name = 'Calvin' and datee = '2014/6/23'"
It cannot work The error message said data type incorrect
Do I need to set any thing before run the sql?
The first code is on the top of the module.
Code:
Private Const OPEN_TIME_COL = 3
Private Const CLOSE_TIME_COL = 4
Code:
RowNum = .Cells(.Rows.Count, CLOSE_TIME_COL).End(xlUp).Row + 1
.Cells(RowNum, CLOSE_TIME_COL).Value = Now
So according to the second code, it records the closing time(now), in the CLOSE_TIME_COL(Which is D)
in the next availabe cell, from the CLOSE_TIME_COL....
But here is the part i am trying to change
Code:
RowNum = .Cells(.Rows.Count, CLOSE_TIME_COL).End(xlUp).Row + 1
So that, what it should do is find the last cell used in column C, (OPEN_TIME_COL) and shift right.
if the last cell used in C is C1, CLOSE_TIME.Value should be in D1
for example somthing like this... but this code doesnt work
Code:
RowNum = .Cells(.Rows.Count, OPEN_TIME_COL).End(xlUp).column + 1
First although it returns the correct column, it always returns Row 1. Beyond me! Secondly I could really use some help in a line or two of code to select the cell at the intersection of the column and row.
Sub test()
Dim name As String
Dim number As String
Dim col As Integer
Dim row As Integer
Dim RowNumber As Integer
Dim ColNumber As Integer
Dim rng As Range
ActiveWorkbook.Sheets("Sheet1").Activate
name = InputBox("type a name from Column A")...........
As the title sugests I would like to Select a cell and a macro will highlight the row and column
Sub Select_Entire_Row()
Dim RowNo As Integer
Dim ColNo As Integer
RowNo = Selection.Row
ColNo = Selection.Column
If RowNo.Value >= 1 Then
Cells(RowNo, ColNo).EntireRow.Select ' I want it to do both not one then the other
Cells(RowNo, ColNo).EntireColumn.Select
End If
End Sub
I would like to select the last few cells in a column, however the number of rows is not fixed, it changes. This can only select the fifth last cell:
Sheets("ABC").Range( 'A1:A150').End(xlDown).Offset(-5, 0).Select
Ultimately, i want to select the 5 cells from the fifth last to the last:
from this: Sheets("ABC").Range( 'A1:A150').End(xlDown).Offset(-5, 0).Select
to this: Sheets("ABC").Range( 'A1:A150').End(xlDown).Offset(0, 0).Select
If possible, with the cells selected, can i do something similar to this:
Range("B62:B67").Select
Selection.AutoFill Destination:=Range("B62:B114"), Type:=xlFillDefault
Range("B62:B114").Select
The underlined parts is the part which make me headache. How do i solve this?
I have found and selected the very last cell in a column (Say column A). What code do I select all the cells from A1 to that last cell?
View 4 Replies View RelatedI have five columns, everyone with a header.
ABCD E
HD1HD2HD3 HD4HD5
2xsdwkj
3xsaer
4xre
5xtrwhj
6xhj
7xdf
8x
9xww
I use filter on the headers, HD1, HD2, HD3, HD4, HD5
If I use Ctrl+Shift+Down(arrow down) on HD1, I manage to mark all the x from row 2 until 9. If I do the same on HD5, it’s stops after the first one(kj). But I want to mark all the way down to 9, even the empty one, but it must not go any further than to 9, last cell I column A. Is there a shortcut for this on the keyboard, or can someone give me some tips on writing a macro witch does this.
I know you can click a cell in a range, type ctrl-A, and select the current (used) region. Can you do this for a column? Select a cell in the column, type (?), and select the usedcells of that column.
View 3 Replies View RelatedI want to write VBA code to select a cell in a row if one of the cells in that row contains a pre-define text. e.g. In cell A15 the text is Blackbird and A25 the text is Redbird. Sometimes this changes and A33 contains the text Blackbird and A19 the text Redbird. I want a VBA code that will select the cell in column E in the row that contains the text Blackbird. I must be able to specify the text and the column.
View 3 Replies View Relatedcan a macro be used from the selected cell to select every other cell in same column? see attachment for before and after.
View 4 Replies View Relatedi am trying to figure out a vba code to select the last cell in column C that contains "Cgy".
View 3 Replies View RelatedBasically what I want to do is take any value that isnt "0" in column F and place it in another column in a nicely formatted table. So basically get rid of all the zeros...
Im sure this has been done and asked before but I have no idea what to search for or if there is some easy forumla in excel for situations like this.
the macro code to select the cell after the bottom of a column of data e.g. I have data in A1:A300 and I require the macro to automatically calculate the last row in the range (in this case A300) and then to select A301 (in this case)
(I know I can record a macro but the number of rows can potentially differ every time I run the macro)
N.B. Excel version 2003
. A B C D E
1 JanFebMarApr
2 Galle JGFGMGAG
3 Matara JMFMMMAM
4 KalutaraJKFKMKAK
5 PanaduraJPFPMPAP
6 ColomboJCFCMCAC
7
8 City Month
9 Kalutara Mar MK
When I type 'Kalutara' in A9 and 'Mar' in B9 I should get the answer as MK in cell E9
'Colombo' " " 'Feb' B9 " " " FC in cell E9 by refering the above table
can we use MATCH & INDEX or VLOOKUP & HLOOKUP
What is the formula I should write in cell E9 to get this done?
I want a simple macro which will go to the cell in row one in the active cell's column
View 2 Replies View RelatedI need to create a data base from figures extract everyday. I would like according the date to copy the figures in the sheet "Extractor" to paste in the column corresponding to the day of today in the sheet "Database". If possible as well, the figures of the dates before today must be delete (in the color tab)
I join a sample of what I have. I tried with the indirect function, but didn't find how to keep the figures of the previous dates.
[Code] .....
The above code works fine when I have information stored in multiple cells (C9, C10, C11, etc.). However, if I only have data stored in C9, my selection is expanded to the last row. I need a way to select all the data up to first empty cell even if the only cell containing data is C9.
I have an appoinment calendar that is one month per worksheet
- Column headings 09:00 - 20:00
- Row headings 'days and dates of the month' (split into two merged cells of two)
****************See attachment 'Calendar Format.jpg'****************
I have then created a UserForm which has two dropdown combo boxes
****************See attachment 'UserForm.jpg'****************
What I want to do is have a way of using the dropdown boxes to select a column and row reference to enter the other data into the four lines in the outlined box area (see Calendar Format.jpg)
I want to be able to select a date - and to have only the dates from the sheet showing would be a bonus! - and have the script use that as its row reference, followed by selecting the time and having it add the column reference, and so selecting the correct cell to be able to then add all the other pieces of data.
I would just set it up so that it all worked by selecting the first cell, then adding, but I'm worried about other users not doing that and so causing things to be misplaced or overwritten!
I'm more than willing to change most things, but I do need to have those four pieces of info, and I only need to have a simple calendar.
If anything is not clear, please ask and I'll try to clarify further!
Forgot to add - In the pics I'm using 2007, but I want to be able to run this on 2000/2003 as that's what's in the offices and it's going to be shared on the server.
If i have row 10-20 in column A filled, what vba code would i need to select a range in column C that selects rows 10-20
If that 10-20 rows in column A chnages to say 10-50 the vba code will select 10-50 in column C
