Transfer Array To Range Of Comments
Apr 10, 2008
trying to speed up run time of legacy app, learned that setting a range = an array is a better strategy than manipulating cells one by one, no problem with this approach on cell values but getting errors trying same approach with comments as follows:
Range(Cells(lRow, lOrigCol), Cells(lRow, lCol)).Comment = aRowComment
I get the runtime error "Object variable or with block variable not set". When I try to append .Text to .Comment, I get a compile error.
aRowComment is an array of comments. I saw a post on doing this from range to range but cant find anything on array to range.
View 9 Replies
ADVERTISEMENT
Mar 13, 2007
Is there a limit to the size of an array that can be transposed in Excel '97?
The following works with an array size of 1000 by 4 but not 2000 by 4
Dim arrDetail() As Variant
Dim i As Long, Dim counter As Long
counter = 1
For i = 1 To 2000
If a certain condition Then
Redim Preserve arrDetail(1 To 4, 1 To counter)
arrDetail(1, i) = "string" & Rnd(i)
arrDetail(2, i) = i
arrDetail(3, i) = Cells(i, 1).Address
arrDetail(4, i) = IIf(i Mod 2 = 0, True, False)
counter = counter + 1
End If
Next i
Range(Cells(1,1), Cells(counter,4)) = Application.Transpose(arrDetail)...........
View 5 Replies
View Related
Oct 20, 2007
i write a micro. Just transfer the array into the excel table, but i do not know to do it. The question is that: Once the array has been filled,ask the user for a location to output it. when this has been obtained and verified then output the table. Provide the row and colomn headings and a suitable title fot the table.
so, ask the user for a location to output, what code can be used. if use
set range=application.inutbox(prompt,,,,,8), the user can choose the range, but how transfer the array into the choosed range? and the range choosed is not equal to the array, how to slow it?
View 3 Replies
View Related
Jul 15, 2009
I am dealing with large amount of data.
In the first worksheet, there are multiple comments and I need the property of the cell including the comment to be transferred to the second sheet using a formula.
Suppose in "Sheet1" in cell A5 it says "Number of Sales" with a comment "Check everyday".
Know I need to transfer this to say in "Sheet2" in cell A5. So in A5 of Sheet2 I can type
='Sheet1'!A5
This only brings the text and in this example it would say "Number of Sales" without the comment. All i need is for the comment to be joined with the cell.
I do not how to use Visual Basic and need your help
I cannot use Copy Paste in this case because the file is too large.
If there is no comment it should just write the value of the cell and if no value in cell than it should leave it blank. I will attach a file as a example
View 13 Replies
View Related
Aug 22, 2007
I have a report where, month in month out, i have to append columns on the right, to give a Year to date figure. Now there are many rows with different numbers but one of the columns is call [NOTES]. This is where the user can provide commentry on the weekly figures.
Now whats getting annoying is i have to copy this commentry and then create a comments box then paste the text in there and finally, hide the comment.
So what i want to be able to do is be able to Copy the cell, then, have a right click menu button saying "Paste As Comment", so it paste the selected cells contents into a comment and hides it.
View 9 Replies
View Related
Aug 5, 2009
I'm trying to transfer information I have held in a table format into a database format.
I'm using array variables to hold the table data and now I'm trying to use this data held within the array to produce a database.
For example:
A 1 2
B 2 3
C 3 4
into
A1
A2
B2
B3
C3
C4
My code would look like this:
View 9 Replies
View Related
Jan 8, 2014
I need to transfer selection(s) from slicer Country to Country1 (they cannot be connected due to workbook functionality).
User can make a single or a multiple selection in the country slicer.
So basically using CUBERANKEDMEMBER I got the output from slicer Country (in cell A1 for now) and used it as input in VBA for slicer Country1
ActiveWorkbook.SlicerCaches("Slicer_Country1").VisibleSlicerItemsList = _
Array("[01_Feed].[Dosage].&[" & Range("A1"]")
I have to use VisibleSlicerItemsList as it is an external data source (so cannot use ActiveWorkbook.SlicerCaches(Slicer Name).SlicerItems(Slicer Valuel).Selected = True/false)
Now, when user chooses 2,3 or more countries, they will be in cells A2, A3, A4... etc.
So, if the user selected 2 countries I would need to run a following code:
ActiveWorkbook.SlicerCaches("Slicer_Country1").VisibleSlicerItemsList = _
Array("[01_Feed].[Dosage].&[" & Range("A1"]", "[01_Feed].[Dosage].&[" & Range("A2"]")
Now, is there any way to loop this within the array, how many cells it should take?
For i = 1 to ..
code from above
Next i
won't work because then it only takes the last value, so I kind of have to loop it within the array.
View 2 Replies
View Related
Apr 27, 2007
I need to identify any cells in a range that do not contain text then colour and comment them. I intended to use the following code, however it doesn't work as I expected it to.
With rRange.SpecialCells(xlCellTypeBlanks)
If .Count > 0 Then
.Interior.ColorIndex = zErrorColour
.AddComment "This cell must contain a value"
End If
End With
The blanks cells are coloured OK but only the first blank cell gets a comment. Is there a reason why I can't add comments to all the cells in the range? And if there is a good reason, then I guess I'm going to have to write a loop to add the comments.
View 2 Replies
View Related
Jul 12, 2007
Reference the archives at:
http://www.mrexcel.com/archive/VBA/17448.html
How can I modify this sub to skip cells that are empty? I only want cells that are populated within the range to actually display the comment indicator, with the cell text transferred to the comment.
Ideally, I'd also like the text to be moved (not just copied) to the comment and leave an 'X' in the cell, in place of the text that was transferred to the comment, but I'll settle for the action above.
View 9 Replies
View Related
Jul 25, 2012
I want to know how to copy a range into an array then an array back into an range.
Code:
Dim a(3,3) As Double
a(3,3) = Range("C3:E5")
Range("C10:E12") = a(3,3)
View 1 Replies
View Related
Jan 18, 2007
I would appreciate someone having a look at this one.
Here is a screenshot of the sheet with the userform entry:
http://www.iturnrocks.com/excel/transfer01.jpg
What I need to do is enter a number in the user form and when I click the Transfer button, I need to Copy the cells from the 4 digit number to the next 4 digit number and Paste to A1: on Sheet 2. In the image above, that would be A7:C13. This file will eventually contain data from A1:C1000
File attached
Also if it would make it easier, I could have a row of blank cells between each set, or a row of text or whatever to indicate it is the end of the set.
View 10 Replies
View Related
Mar 12, 2009
why the last line below errors when the line before doesn't?
Error 1004 Method ' Range' of object '_Worksheet' failed
Sub tester
Dim wbThis As Workbook
Dim wsSrce As Worksheet
Dim wsDest As Worksheet
Dim lastSrceRow As Double
Dim lastDestRow As Double
Set wbThis = ActiveWorkbook
Set wsDest = Workbooks(wbThis.Name).Sheets("Detination")
Set wsTmpl = Workbooks(wbThis.Name).Sheets("Source")
I've been through countless threads, specified xlapp.... etc.
View 4 Replies
View Related
Oct 23, 2008
I have a s/s encompassing over 350,000 rows.
Data consists of a series of ranges from columns A:N and rows varying in number between 3 and 30.
There are two blank lines between each range of data.
Each range is (with exception) numerically ordered down column H (e.g, 1, 2, 3, etc).
Problem: there are around 1100 occasions when a range contains a row of data which is to be disqualified from consideration. On these occasions the data always appears in the top row of the range and is identifiable in column H by the nine codes 111, 222, 333, 444, 555, 666, 777, 888, and 999).
I wish to find a macro which will :
1. where the top row of a range in column H is one of the codes 111 to 999, transfer that row of data to the bottom of the range.
2. delete the now empty top row from which the transfer was made from.
3. insert a new blank row at the bottom of the range below the row which the data was transferred to (in order to maintain the two blank rows above and below each range).
View 12 Replies
View Related
May 7, 2009
I have a range of data that is compiled from various cells that I have named as Range1. I then have another named range - Range2 which should be items selected from range1 and copied into range2. This is to enable other work to take place.
I have created an example userform with Range 1 shown but do not know the code to copy it over using a command button. Range 1 should not change. Also vice versa if possible i.e. remove the selected item from Range2 with another button.
View 5 Replies
View Related
Oct 8, 2006
ListBox Transfer
I have created a Listbox with 300 products in it - The user can only select a maximum of 10 of them - these 10 products then need to be transferred to another worksheet beginning at the range B13 and ending a B22, Once these have been transferred the product number (eg 1 = Meadowmin 12) is then linked to a vlookup allowing further information of that particular product to be displayed.The vlookup is working
I have tried to use the Ozgrid sample (ListBox Transfer,xls) - works until the range B13, but does not continue to put the other 9 products below my first choice.
This is currently the code I am trying to work on. It keeps on counting 13 rows and then adding the product, it must count only to first 13 rows and thereafter remaining product below one another (max of 10)
Private Sub CommandButton1_Click()
Dim iListCount As Integer, iColCount As Integer
Dim iRow As Integer
Dim rStartCell As Range
View 9 Replies
View Related
Jan 15, 2010
I get an error message on the "Range(lstRow).Select line. (Method 'Range' of Object '_Global' failed). My goal is to transfer a specific range (C24:H24) to the first available row in Data Entry sheet.
View 2 Replies
View Related
Feb 4, 2014
How would you prevent the copy/paste of cells that have comments?
Also, how would you allow cells with comments to be copied and pasted without pasting the comments?
I also have an aside question about the forum advanced search. When searching for multiple search words, how would you type the search to include all words, for example, "prevent" & "paste" & "comments".
View 7 Replies
View Related
Oct 31, 2008
I have data in a spreadsheet that I would like to send to another sheet as follows:
Use the values in the range $D$2:$D$12 and $F$2:$F$12 to reference the column and row of a cell and the values in the range $G$2:$G$12 to reference a specific group of cells on another sheet into which would be inserted the value found in the range $C$2:$C$12. The best I have come up with is to place a formula in each of the cells in the second sheet that would state:
IF a value in the range $D$2:$D$12 matches the column # of the current cell AND IF the corresponding value in the range $F$2:$F$12 matches the row # of the current cell AND IF the corresponding value in the range $G$2:$G$12 matches the region of the current cell THEN the value of the current cell EQUALS the value of the corresponding cell in the range $C$2:$C$12.
I think this will work but I don’t have enough knowledge of Excel to write this formula.
View 9 Replies
View Related
Jun 9, 2009
This code works!
Dim rTmp As Range
Dim aTmp As Variant
Set rTmp = Range("A1:D21")
aTmp = rTmp.Value
Range("A1:D21") = aTmp
If you exchange Range("A1:D21") with rTmp.value it does not, why?
This code doesn't work?
Dim rTmp As Range
Dim aTmp As Variant
Set rTmp = Range("A1:D21")
aTmp = rTmp.Value
rTmp.Value = aTmp
View 9 Replies
View Related
Feb 7, 2014
Attached file should be self-explanatory.
I want to be able to set sum range using lookup or match.. For example if I change B2 value to Nov-13, I want it to sum column K.
View 5 Replies
View Related
Jun 19, 2014
I have a table that looks like this:
| A | B | C | D | ...
1 | fu | bar | lab |...
2 | rab| uf | luv |...
3 |...
All of my values are within the Range "A1:C2"
I would like to have a variant array which contains the addresses of this range.
Things I tried that didn't work:
If my variant is V and my range is R,
v = r returns an array which contains
fu|bar|lab
rab|uf |luv
V = R.Address gives me
A1:C2|A1:C2|A1:C2
A1:C2|A1:C2|A1:C2
What I actually want:
A1|B1|C1
A2|B2|C2
i know this can easily be done with a loop, but the table I want to use this on is huge, and a loop takes hours to execute.
View 1 Replies
View Related
Dec 29, 2008
Hi all, starting this as a new problem because it's so far different from what I was originally talking about; but this does relate in part to my previous thread.
Anyway. I'm trying to set an array to set Range objects so that I can define each one as a seperate With block. Here's what I "know" when starting out.
I developed the following. I keep thinking it should be multidimensional but my sleep deprived brain came up with this instead. The problem is, it's throwing a 1004 Method "Range of object '_Worksheet'" failed at the With statement.
View 6 Replies
View Related
Oct 20, 2009
I am trying sort a bunch of different ranges. So I am trying to use the same sort code but run an array of ranges through. This code is for only two ranges
CA3:CD200 and CF3:CI200. I want to pass the ranges as variables through the sort code but I cannot get it to work.
View 4 Replies
View Related
Jan 5, 2010
Through VBA is it possible to give a range of cells that should be converted to array formulas? As part of my macro I am copying a sheet from one book to another. This sheet contains a lot of formulas and so as not to keep the reference of the old book I find and replace "=" with "#" and then swap them back after the move. This works fine for all normal formulas but not the Array formulas.
If someone could tell me how to give and range and convert them all to arrays or can think of a better method of moving a sheet from one book to another without the formulas keeping the references to old book.
View 5 Replies
View Related
Sep 3, 2012
I have created several functions in VBA that operate on arrays created by other functions in VBA, however they don't recognize cell ranges as arrays. For example, the UBound function doesn't work with a range argument within my function.
How can I get my functions to recognize cell ranges as arrays, as well as arrays that I have created directly in VBA?
View 9 Replies
View Related
Oct 16, 2012
I am trying to set an Array to prompt user with a series of questions and input answers into a specific row. However, I want to skip over certain columns and leave those blank. How would I modify my code to do this?
Code:
Private Sub CommandButton2_Click()
Dim ArrQues() As Variant
Dim ArrInput(2) As Variant
Dim lngLstRow As Long
Dim strPNfromSales As String
ArrQues = Array("Enter the Part Number.", _ "Quantity Being Returned?", _ "What is the Reason for Rejection?")
For b = LBound(ArrQues) To UBound
[Code]...
I want the first two questions to be input into Column B & C, but then the third question to be input into column I.
View 2 Replies
View Related
Oct 9, 2013
I have a quick question in relation to filling a range with an array.
When I use the following code:
Code:
Sub justdoit()
s = Array(1, 2, 3)
Range("A1:C1") = s
End Sub
It works fine. but when I try to populate the range in rows instead of colums, the array value stays as the first value.
Code:
Sub justdoit()
s = Array(1, 2, 3)
Range("A1:A3") = s
End Sub
I'm experimenting with arrays and would like to get better at them, but this has me stumped for the moment. How to get the values to work going down, like they do going across.
The above code is a small sample of data, I am wating to replicate with using over 80K lines and cell by cell is too slow.
View 2 Replies
View Related
Jun 4, 2014
I have below code:
Code:
myRange = Range(Cells(5, 18), Cells(dRow, 30))
For Each cell In myRange
If IsError(cell) Then
cell = ""
Else
cell = Round(cell, 3)
End If
Next cell
Range(Cells(5, 18), Cells(dRow, 30))= myRange
The problem is that the range does not change after I paste modified array back to it.
View 9 Replies
View Related
Mar 15, 2004
Is type-casting possible in Excel ? For instance, can i typecast an array into a range, and vice-versa ?
View 6 Replies
View Related
Aug 10, 2007
In a Worksheet named "Input" and in Cells "B3:G?" I have 6 number groups. How can I ...
( 1 ) Put each of the 6 number groups into an array when I don't know what the last row number is.
( 2 ) Find the maximum value in any of those cells and attach it to a variable named MaxVal.
... so once I have done this I can then loop through each 6 number group and perform some calculations.
View 9 Replies
View Related
