Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > microsoft.public.excel.programming > #110463
| From | GS <gs@v.invalid> |
|---|---|
| Newsgroups | microsoft.public.excel.programming |
| Subject | Re: Enter value in compute cell location? |
| Date | 2018-01-24 19:29 -0500 |
| Organization | A noiseless patient Spider |
| Message-ID | <p4b8d3$ham$1@dont-email.me> (permalink) |
| References | <p3lu7i$btb$1@gioia.aioe.org> |
A bit easier to work with than my 1st version because it uses column labels...
Sub DisperseValues2()
Dim sCol$, LastRow&, n&
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
For n = 2 To LastRow
Select Case UCase$(Cells(n, "B"))
Case "A": sCol = "D"
Case "B": sCol = "E"
Case "C": sCol = "F"
'...
End Select
Cells(n, sCol) = Cells(n, "A")
Next 'n
End Sub
--
Garry
Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Find similar | Unroll thread
Enter value in compute cell location? dpb <none@none.net> - 2018-01-16 16:26 -0600
Re: Enter value in compute cell location? dpb <none@none.net> - 2018-01-18 13:56 -0600
Re: Enter value in compute cell location? "Jianguo Li" <2@1.com> - 2018-01-17 09:06 +0800
Re: Enter value in compute cell location? dpb <none@none.net> - 2018-01-22 08:39 -0600
Re: Enter value in compute cell location? dpb <none@none.net> - 2018-01-22 08:51 -0600
Re: Enter value in compute cell location? killme2008 <killme2008.14adfdf8@excelbanter.com> - 2018-01-24 08:11 +0000
Re: Enter value in compute cell location? Gerry Timber <swa2194@gmail.com> - 2018-01-24 03:34 -0800
Re: Enter value in compute cell location? dpb <none@none.net> - 2018-01-24 09:26 -0600
Re: Enter value in compute cell location? GS <gs@v.invalid> - 2018-01-24 10:37 -0500
Re: Enter value in compute cell location? GS <gs@v.invalid> - 2018-01-24 19:09 -0500
Re: Enter value in compute cell location? GS <gs@v.invalid> - 2018-01-24 19:12 -0500
Re: Enter value in compute cell location? Gerry Timber <swa2194@gmail.com> - 2018-01-24 12:07 -0800
Re: Enter value in compute cell location? GS <gs@v.invalid> - 2018-01-24 19:29 -0500
csiph-web