Comments on: Writing To A Range Using VBA

By: Marco

Marco — Sat, 29 Oct 2011 12:49:00 +0000

Thanks a lot!

By: Fiaz Idris

Fiaz Idris — Thu, 25 Aug 2011 04:39:00 +0000

In Excel 2010, pasting range from vba works for upto 32,767 characters. (32,767 is the cell's character limit to hold)

And, if the text is longer than 32,767 characters, say 50,000... it will paste the first 32,767 in the cell (cell limit) and continue the rest of the pasting... The paste will just work normally for all the other cells (unlike Excel 2003, where the paste breaks at this point and the rest of the cells are left BLANK).

So, I would say this problem is fixed in Excel 2010.

By: Chris H

Chris H — Thu, 23 Jun 2011 13:56:00 +0000

Kevin:

The best website I've found for automating Outlook is here. http://www.codeforexcelandoutlook.com

By: Kevin

Kevin — Tue, 21 Jun 2011 23:13:00 +0000

I need a macro or script that an Outlook rule can execute. I need to Export Outlook E-mails to a particular folder as Tab delimited files. The Export function in Outlook does exactly what I need but I need it to happen automatically whenever the user sends or receives an E-mail.

By: Mark W

Mark W — Mon, 25 Apr 2011 23:06:00 +0000

Dick,

Thank you for your response. I tried copying and pasting your code but I was not able to get it work (although I only tried a couple of times). I was able to fix mine to work by changing the line:

Select Case ActiveCell.Offset(0, -2).Value

TO:

Cells(i, j).Offset(0,-2).Value

I didn't do anything with the store numbers because I actually put the # signs in before posting, I have actual numbers in my subroutine. I also changed what I am filling my array with to number values instead of strings, per your suggestion.

Again, your response was very much appreciated.

Mark

By: Dick Kusleika

Dick Kusleika — Sat, 23 Apr 2011 17:08:00 +0000

Mark:

I think you have a couple of problems. First, you are relying on the the Activecell, specifically the value in ActiveCell.Offset(0,-2). But the active cell doesn't ever change in your code. Your never finding a match so you're getting all zeros.

Also, your store numbers make me think you're want to compare using Like, so that 7623231 would be true for 76####1, but you're not comparing with Like. Even if your activecell offset returned a store, it wouldn't be a match.

You dim TempArray as Double, but fill it with Strings. Excel will convert, but if you were more explicit, it would be better.

Here's how I might write that code

Sub VariableIndicatorCode()

Dim vaStore As Variant
Dim lLastRow As Long
Dim rStores As Range
Dim rCell As Range
Dim aOutput() As String
Dim lRow As Long

'Put the store number masks in an array, just for brevity
vaStore = Array("76####1", "76####3", "76####5")

'Find the range of store numbers in column J
With Sheet1
Set rStores = .Range("J2", .Cells(.Rows.Count, 10).End(xlUp))
End With

'Make my output array the same size as the store number list
ReDim aOutput(1 To rStores.Cells.Count, 1 To 1)

'Loop through the store numbers
For Each rCell In rStores
lRow = lRow + 1
'Use Like to compare the store number to the mask and populate the array
Select Case True
Case rCell.Value Like vaStore(0): aOutput(lRow, 1) = "One"
Case rCell.Value Like vaStore(1): aOutput(lRow, 1) = "Two"
Case rCell.Value Like vaStore(2): aOutput(lRow, 1) = "Three"
End Select
Next rCell

'Write the array to a range
rStores.Offset(, 2).Value = aOutput

End Sub

By: Mark W

Mark W — Fri, 22 Apr 2011 17:43:00 +0000

Hello,

I have tried adapting this code to a subroutine of mine that uses a select case loop. I also only return zeros when I run my program. I am new at vba so I don't know where to start on where I am going wrong.

Here is my adaptation: (Where Column L is supposed to populate with values based on the value of column J)

Sub VariableIndicatorCode()

Dim Store1 As String * 7
Store1 = "76####1"
Dim Store2 As String * 7
Store2 = "76####3"
Dim Store3 As String * 7
Store3 = "76####5"
Dim LR As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
Dim CellsDown As Long, CellsAcross As Long
Dim i As Long, j As Long
Dim TempArray() As Double
Dim TheRange As Range

CellsDown = LR
CellsAcross = 12

ReDim TempArray(2 To CellsDown, 12 To CellsAcross)
Set TheRange = Range(Cells(2, 12), Cells(CellsDown, CellsAcross))

For i = 2 To CellsDown
For j = 12 To CellsAcross

Select Case ActiveCell.Offset(0, -2).Value
Case Store1: TempArray(i, j) = "1"
Case Store2: TempArray(i, j) = "2"
Case Store3: TempArray(i, j) = "3"
End Select

Next j
Next i

TheRange.Value = TempArray

End Sub

Does anyone have any ideas?

Thanks,

Mark

By: altin çilek

altin çilek — Mon, 24 Jan 2011 15:59:00 +0000

End With ‘alternatively for speed, the above could be written to the range in a single block ‘(see Daily Dose of Excel Blog Archive Writing To A Range Using VBA) ‘”For each” item in a collection is usually faster than using an index ‘(see Optimize VBA)

By: Ernie Keppler

Ernie Keppler — Mon, 24 Jan 2011 03:50:00 +0000

I am writing code to take data from three different spreadsheets and add the values for each cell from B2 to K11. Then I add the columns and the rows. This required a fairly long piece of code. I would like to write a do loop to do this, but am not sure if I need to treat the data as an array.

By: gonzola

gonzola — Mon, 15 Nov 2010 12:04:00 +0000

WOW !!!!!

TOTALLY AMAZING !!!!!!!!!

I had 100,000 rows of data with 13 columns.

I used a loop to read from an array to the cells.

It took 25 minutes.

I used application.screenupdating = false and it didn't make a significant difference at all. It still took around 25 minutes, maybe a couple of minutes sooner, but not much.

I used the technique you showed to move from an array to a range of cells and the total time it took was 1 second.

I doubled the rows to 200,000 and the total time it took was 2 second.

I no longer have to worry about whether I want to show the details or not.

I show them every time.

Thank you for this extremely valuable information.