Advertisement
Advertisement
| 02.07.2008 at 10:34AM PST, ID: 23145363 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
|
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
| Microsoft |
| Apple |
| Internet |
| Gamers |
| Digital Living |
| Virus & Spyware |
| Hardware |
| Software |
| ITPro |
| Developer |
| Storage |
| OS |
| Database |
| Security |
| Programming |
| Web Development |
| Networking |
| Other |
| Community Support |
| 02.07.2008 at 10:56AM PST, ID: 20843787 |
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: |
Sub copyData_1()
Dim SiteCol As Range, Cell As Range
Dim wsDest As Worksheet
Dim i As Long
Application.ScreenUpdating = False
Set wsDest = Workbooks("pcMaster.xls").Worksheets("Sheet1") 'Destination sheet
i = wsDest.Cells(Rows.Count, 1).End(xlUp).Row
If (i = 1) And (wsDest.Cells(1, 1) = "") Then i = 0
Set SiteCol = Range("B4") 'First cell containing pc names
Set SiteCol = Range(SiteCol, Cells(Rows.Count, SiteCol.Column).End(xlUp)) 'All your data in column
For Each Cell In SiteCol.Cells
If Cell.Value Like "PC00*" Then 'Copy colums a,b, d, h, j
i = i + 1
wsDest.Cells(i, 1).Resize(1, 5) = Array(Cell.Offset(0, -1), Cell, Cell.Offset(0, 2), _
Cell.Offset(0, 6), Cell.Offset(0, 8))
End If
Next
Application.ScreenUpdating = True
End Sub
|
| 02.07.2008 at 11:17AM PST, ID: 20844033 |
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: |
Sub copy_cells()
Dim SiteCol As Range, Cell As Object
Dim i As Integer
Set SiteCol = Range("B4:B700") 'Range containing pc names
For Each Cell In SiteCol
If IsEmpty(Cell) Then
Exit Sub
End If
If Cell.Value Like "PC00*" Then
Windows("pcMaster.xls").Activate
ActiveSheet.Range("A65536").End(xlUp).Select
Selection.Offset(1, 0).Select
Selection.Value = Cells(Cell.Row, 1).Value
Selection.Offset(0, 1).Value = Cells(Cell.Row, 1).Value ' A column
Selection.Offset(0, 1).Value = Cells(Cell.Row, 2).Value ' B
Selection.Offset(0, 3).Value = Cells(Cell.Row, 4).Value ' D
Selection.Offset(0, 7).Value = Cells(Cell.Row, 8).Value ' H
Selection.Offset(0, 9).Value = Cells(Cell.Row, 10).Value ' J
End If
Next
End Sub
|
