Flyboy
[mod] everywhere
Sinds 18/6/2003
T:43 -
R:4373
|
6/5/2005 -
18:43u
| Quote
|
|
cdrem@yourwap.com
|
Losealot
Beachboy
Sinds 24/9/2004
T:55 -
R:1358
|
6/5/2005 -
23:04u
| Quote
|
|
Stack<MazePosition> pad = new Stack<MazePosition>();
|
CrazyWaiter
[sport-mod] The One
Sinds 24/9/2004
T:57 -
R:2506
|
7/5/2005 -
0:03u
| Quote
|
Alessandro Petacchi ( 101 )
hehe, bezig met GiroBike en Girostiek 
|
Flyboy
[mod] everywhere
Sinds 18/6/2003
T:43 -
R:4373
|
7/5/2005 -
1:19u
| Quote
|
|
http://www.opendirviewer.com/?url=http%3A%2F%2Fusers.pandora.be%2Fvlmva%2Fwzl%2Fbbq%2F&pagecount=100&tn=true
|
Losealot
Beachboy
Sinds 24/9/2004
T:55 -
R:1358
|
7/5/2005 -
11:32u
| Quote
|
muren.add(new MazeWall(a, a, a, a+1));
|
rellik
wzl-lid
Sinds 25/3/2004
T:0 -
R:11
|
7/5/2005 -
12:28u
| Quote
|
Bron: © http://forums.worldofwarcraft.com/screenshots/images/screenoftheday/ss0210.jpg
kwas ffe iets aant poste op een forum
|
Paff Daddy
wzl-lid
Sinds 10/9/2003
T:33 -
R:1784
|
7/5/2005 -
13:33u
| Quote
|
|
http://www.weatherbook.com/images/bird_web.jpg
|
Losealot
Beachboy
Sinds 24/9/2004
T:55 -
R:1358
|
7/5/2005 -
13:40u
| Quote
|
Bron: © http://img200.echo.cx/img200/7392/screenshot200505071334104ma.png
|
Morgoth
EllaPr0n
Sinds 14/2/2004
T:1 -
R:174
|
10/5/2005 -
15:33u
| Quote
|
Option Explicit
Sub AddNames()
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wbTarget As Workbook
Dim wsTarget As Worksheet
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim warranty As String
d = 500
c = 1
Set wbSource = ActiveWorkbook
Set wsSource = wbSource.Sheets(ActiveWorkbook.ActiveSheet.Name)
Set wbTarget = Workbooks.Add
Set wsTarget = wbTarget.Sheets("Sheet1"
wsTarget.Name = wsSource.Name
warranty = " "
For Each Sheet In wbSource.Sheets
Set wsSource = Sheet
MsgBox wsSource.Name
If wsSource.Name <> "Input Tape" Then
For b = 1 To 100
For a = 2 To 500
If InStr(1, wsSource.Cells(a, 1).Value, "Modified:" <> 0 Or InStr(1, wsSource.Cells(a, 1).Value, "In order" <> 0 Then Exit For
If InStr(1, wsSource.Cells(2, b).Value, "Out Of Warranty" <> 0 Then
warranty = "AW"
ElseIf InStr(1, wsSource.Cells(2, b).Value, "Warranty Upgrades" <> 0 Then
warranty = "DW"
ElseIf InStr(1, wsSource.Cells(2, b).Value, "Yearly License Charge" <> 0 Then
warranty = "yearly"
ElseIf InStr(1, wsSource.Cells(2, b).Value, "Inst" <> 0 Or InStr(1, wsSource.Cells(3, b).Value, "Inst" <> 0 Or InStr(1, wsSource.Cells(4, b).Value, "Inst" <> 0 Then
warranty = "_"
End If
If InStr(1, wsSource.Cells(2, b).Value, "Yearly License Charge" <> 0 Or InStr(1, wsSource.Cells(2, b).Value, "Inst" <> 0 Or InStr(1, wsSource.Cells(3, b).Value, "Yearly Maintenance" <> 0 Or b = d + 1 Or b = d + 2 Then
If InStr(1, wsSource.Cells(3, b).Value, "Yearly Maintenance" <> 0 Then
d = b
End If
If wsSource.Cells(a, 1).Value <> Empty And InStr(1, wsSource.Cells(a, 1).Value, "Maintenance" = 0 And InStr(1, wsSource.Cells(a, 1).Value, "Maintenance" <> "Null" Then
If InStr(1, warranty, "_" <> 0 Then
wsTarget.Cells(c, 1).Value = "install " + wsSource.Cells(a, 1).Value + " " + warranty
Else
wsTarget.Cells(c, 1).Value = wsSource.Cells(5, b).Value & " " & wsSource.Cells(a, 1).Value & " " & warranty
End If
wsTarget.Cells(c, 2).Value = wsSource.Cells(a, 2).Value
Select Case warranty
Case "AW"
wsTarget.Cells(c, 3).Value = "Out Of Warranty"
Case "DW"
wsTarget.Cells(c, 3).Value = "Warranty Upgrades"
Case "_"
wsTarget.Cells(c, 3).Value = "Installation Price"
Case "yearly"
wsTarget.Cells(c, 3).Value = "Yearly License Charge"
End Select
wsTarget.Cells(c, 4).Value = wsSource.Cells(a, b).Value
End If
c = c + 1
End If
Next
Next
End If
'If wsSource.Name = "Input Tape" Then
' For b = 1 To 200
'For a = 1 To 10000
'wsTarget.Cells(a, b).Value = wsSource.Cells(a, b).Value
'Next
' Next
'End If
Next
For a = 1 To 5000
If wsTarget.Cells(a, b) = Empty Then
e = 0
Do While wsTarget.Cells(a, 1) = Empty
wsTarget.Rows(a).Delete
e = e + 1
If e = 200 Then Exit For
Loop
End If
Next
End Sub
|
Losealot
Beachboy
Sinds 24/9/2004
T:55 -
R:1358
|
10/5/2005 -
15:43u
| Quote
|
@ bovenstaande eikes VB
klembord:
het geluid komt in surround via een 32-bit processor in 256 kanalen naar je toe.
|
bol
wzl-lid
Sinds 2/12/2004
T:39 -
R:1749
|
10/5/2005 -
16:45u
| Quote
|
|
.bol :: Swing Life Away <3 Sophie !
|
Flyboy
[mod] everywhere
Sinds 18/6/2003
T:43 -
R:4373
|
10/5/2005 -
17:11u
| Quote
|
|
/ctcp [mz]fusionx-146 xdcc send #2
|
sean
wzl-lid
Sinds 29/9/2004
T:18 -
R:867
|
10/5/2005 -
19:31u
| Quote
|
Employment
owkay ...
|
smasser
wzl-lid
Sinds 28/11/2003
T:7 -
R:305
|
10/5/2005 -
19:48u
| Quote
|
http://cache.boston.com/bonzai-fba/Globe_Graphic/2005/05/03/1115110287_2330.jpg
ik was aan het posten in fun
|
Losealot
Beachboy
Sinds 24/9/2004
T:55 -
R:1358
|
10/5/2005 -
20:19u
| Quote
|
|
http://www.wzl.be/freetime/index.asp?par=f_replies&ID=3616&#bottom
|
Bondt met dt
[mod] 007 ½
Sinds 2/5/2003
T:19 -
R:715
|
10/5/2005 -
20:32u
| Quote
|
|
www.fol-lan.be
|
Flyboy
[mod] everywhere
Sinds 18/6/2003
T:43 -
R:4373
|
10/5/2005 -
20:57u
| Quote
|
|
http://www.take2games.com/support/patches/stronghold2_v1.1_update_us.zip
|
Paff Daddy
wzl-lid
Sinds 10/9/2003
T:33 -
R:1784
|
10/5/2005 -
21:06u
| Quote
|
|
=SCHEEFHEID(A2:A11)
|
Bondt met dt
[mod] 007 ½
Sinds 2/5/2003
T:19 -
R:715
|
10/5/2005 -
21:34u
| Quote
|
|
..@tiscali.nl
|
Losealot
Beachboy
Sinds 24/9/2004
T:55 -
R:1358
|
10/5/2005 -
22:06u
| Quote
|
Bron: © http://www.afizicalpresence.com/files/msnimages/WaveColours.jpg
Laatst aangepast door
Losealot
op 10/05/2005 22:06:48u
(1x aangepast)
|
