copying sheet name
I want to copy the sheet name to row 1 of the first blank column after col 15
Oldjay |
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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 01:33 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com