Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying sheet name
I want to copy the sheet name to row 1 of the first blank column after col 15
Oldjay |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying sheet name
If ActiveSheet.Range("O1").Offset(0,1) = "" Then
ActiveSheet.Range("P1") = ActiveSheet.Name Esle ActiveSheet.Range("O1").End(xlToRight).Offset(0, 1) = ActiveSheet.Name End If "oldjay" wrote in message ... I want to copy the sheet name to row 1 of the first blank column after col 15 Oldjay |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying sheet name
This should help.
Sub FindLastColumn() Dim lngLastColumn As Long lngLastColumn = ActiveSheet.Rows(1).Find(What:="", _ After:=Cells(1, 15), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=True, _ SearchFormat:=False).Column Cells(1, lngLastColumn) = ActiveSheet.Name End Sub If this helps let me know. Click "YES" below. -- Cheers, Ryan "oldjay" wrote: I want to copy the sheet name to row 1 of the first blank column after col 15 Oldjay |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying sheet name
corrected:
If ActiveSheet.Range("O1").Offset(0,1) = "" Then ActiveSheet.Range("P1") = ActiveSheet.Name Else ActiveSheet.Range("O1").End(xlToRight).Offset(0, 1) = ActiveSheet.Name End If "JLGWhiz" wrote in message ... If ActiveSheet.Range("O1").Offset(0,1) = "" Then ActiveSheet.Range("P1") = ActiveSheet.Name Esle ActiveSheet.Range("O1").End(xlToRight).Offset(0, 1) = ActiveSheet.Name End If "oldjay" wrote in message ... I want to copy the sheet name to row 1 of the first blank column after col 15 Oldjay |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying sheet name
Sub setsheetname()
With Cells(1, WorksheetFunction.Max(Cells(1, Columns.Count).End(xlToLeft).Column + 1, 15)) .Value = ActiveSheet.Name End With End Sub go to the rightmost column, then get the END/LEFT column number and add 1, use 15 or this if its larger "oldjay" wrote in message ... I want to copy the sheet name to row 1 of the first blank column after col 15 Oldjay |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Need help Taking alot data from one sheet (if not blank) and copying toa list on another sheet. | Excel Worksheet Functions | |||
copying a template sheet and inputting a formula into another sheetthat references the new sheet | Excel Programming | |||
HAVE ONE REPORT SHEET WITH LINKS FROM VARIOUS SHEETS. ON COPYING THIS LINKED SHEET FOR EXPORTING IT TO THE OFFICE GET ERRORS IN CELLS. HOW TO RESOLVE THIS? | Excel Programming | |||
Copying cells from on sheet to another sheet (via sheet module) | Excel Programming | |||
2 questions, copying data from sheet to sheet and assigning macro | Excel Worksheet Functions |