View Single Post
 
Old 07-27-2011, 02:31 PM
Novice Novice is offline Windows 7 64bit Office 2010 32bit
Novice
 
Join Date: Jul 2011
Posts: 6
Novice is on a distinguished road
Default Fill column with other columns info

Hi
i came across this macro, since its similar to what i want

Sub Encolumnar()
Dim C As Range
[p]. Delete
For Each C In Selection
If IsEmpty(C. Offset(1)) Then
C. Copy Range("p" & Cells.Rows.Count). End(xlUp). Offset(1)
Else
Range(C, C. End(xlDown)). Copy Range("p" & Cells.Rows.Count). End(xlUp). Offset(1)
End If
Next C
End Sub

is there a way to change this so that the selection is made in a column instead of a row, plus other columns on others sheets? :S

The main objective was to do something like this without macros, but if it cant then i'll use this macro.

The main idea here is in the excel im adding
Attached Files
File Type: xlsx example.xlsx (10.3 KB, 8 views)
Reply With Quote