Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Private Sub TableUpdate(strShapeName As String, iRowCount As Integer, iColCount As Integer, iColCopy As Integer, iRowCopy As Integer, bFormat As Boolean) Dim rngFormat As Range rngFormat = False If bFormat = True Then rngFormat = Range("nrTableFormattingStart") i = 1 'Row Counter for Paste Section j = 1 'column Counter for Paste Section k = iRowCopy l = iColCopy ThisWorkbook.Sheets(SHEETMAIN).Activate 'Set oPPTShape = strShapeName Do Until i > iRowCount Do Until j > iColCount oPPTShape.Table.cell(i, j).Shape.TextFrame.TextRange.Text = Cells(k, l).Text Select Case rngFormat Case 0 Case 1 'shade the background of the cell grey Case 2 'Merge the first 4 cells of the table Case Else End Select j = j + 1 l = l + 1 Set rngFormat = rngFormat.Offset(1, 0) Loop i = i + 1 k = k + 1 j = 1 l = iColCopy Loop End Sub
|vba excel import data from another workbook||3||59|
|Setup specific permissions in Microsoft Access||9||48|
|keep track of different expiration dates for the same item by autogenerating sheets- how to fix the issues i am having?||10||60|
|VBA/SQL - Connect to SQL server and pull data||4||38|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
7 Experts available now in Live!