#1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default please help


Hi, i have a list of values like this:

54
24
31
...

I want to place number 54 and then leave 4 blank spaces, the plac
number 24, and 4 blanks, and so on, so it would look like this

54


24


31
...

How can i do this automatically?, the list is too long to insert
cells and then press f4 for each value, is there an autofill that ca
skip rows , or something that can help me??

Thanks a lot for the hel

--
sams
-----------------------------------------------------------------------
samsg's Profile: http://www.excelforum.com/member.php...fo&userid=1624
View this thread: http://www.excelforum.com/showthread.php?threadid=27652

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default please help


not smart enough, but workable...

Sub Button1_Click()

Set rng = Range("A:A")
rng.Cells(1, 1).Select
i = 1

While Not IsEmpty(ActiveCell)

If i 1 Then
rng.Cells(i, 1).EntireRow.Insert
rng.Cells(i + 1, 1).EntireRow.Insert
rng.Cells(i + 2, 1).EntireRow.Insert
rng.Cells(i + 3, 1).EntireRow.Insert
rng.Cells(i + 5, 1).Select
i = ActiveCell.Row
Else
i = i + 1
End If
Wend

End Sub


- Manges

--
mangesh_yada
-----------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...fo&userid=1047
View this thread: http://www.excelforum.com/showthread.php?threadid=27652

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 11,272
Default please help

Dim cRows As Long
Dim i As Long

cRows = Cells(Rows.Count, "A").End(xlUp).Row
For i = cRows To 2 Step -1
Cells(i, "A").Resize(4, 1).EntireRow.Insert
Next i

--

HTH

RP
(remove nothere from the email address if mailing direct)


"samsg" wrote in message
...

Hi, i have a list of values like this:

54
24
31
..

I want to place number 54 and then leave 4 blank spaces, the place
number 24, and 4 blanks, and so on, so it would look like this

54


24


31
..

How can i do this automatically?, the list is too long to insert 4
cells and then press f4 for each value, is there an autofill that can
skip rows , or something that can help me??

Thanks a lot for the help


--
samsg
------------------------------------------------------------------------
samsg's Profile:

http://www.excelforum.com/member.php...o&userid=16245
View this thread: http://www.excelforum.com/showthread...hreadid=276521



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On



All times are GMT +1. The time now is 11:01 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"