| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Split cells VBA
Thank you Per,
Cheers Diddy "Per Jessen" wrote: Hi Diddy, Try one of theese: With Worksheets(1) or With ActiveSheet Regards, Per "Diddy" skrev i meddelelsen ... Hi everyone, I've been using the following (kindly supplied by Rick Rothstein) to split address items. Sub SplitCells() Dim X As Long Dim Z As Long Dim LastRow As Long Dim Sections() As String With Worksheets("Sheet1") LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For X = 2 To LastRow Sections = Split(.Cells(X, "A").Value, "/") For Z = 0 To UBound(Sections) .Cells(X, Z + 2).Value = Sections(Z) Next Next End With End Sub I now have lots of single sheet wkbks which have named sheets. I've tried taking the " " out from the With Worksheets("Sheet1") and also calling it Activesheet getting very mixed up :-( If anyone can help (possibly explain what's foxing me) that would be great! Thanks Diddy . |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Split Cells | Excel Discussion (Misc queries) | |||
| How to Split the contents of cells across multiple cells | New Users to Excel | |||
| Split cells | New Users to Excel | |||
| Split Cells? | Excel Programming | |||
| Split Cells | Excel Programming | |||
Hybrid Mode
