Hoi,
Ik zat te twijfelen of ik het hier of in Programming moest posten.
Ik heb hier een excel sheet met 4 kolommen. De 4 kolommen lopen tot rij nr 76 op dit moment. Die zijn dus gevult met informatie. Echter ik zie in dit document ook nog rijen doorlopen t/m 89. Deze zijn leeg, en geven dus errors in mijn VB script.
Hoe kan ik ervoor zorgen dat de lege velden (rijen) dus verwijderd worden, of een VB script om lege velden over te slaan.
Ik gebruik op dit moment deze VB code om mijn velden te importeren;
Ik zat te twijfelen of ik het hier of in Programming moest posten.
Ik heb hier een excel sheet met 4 kolommen. De 4 kolommen lopen tot rij nr 76 op dit moment. Die zijn dus gevult met informatie. Echter ik zie in dit document ook nog rijen doorlopen t/m 89. Deze zijn leeg, en geven dus errors in mijn VB script.
Hoe kan ik ervoor zorgen dat de lege velden (rijen) dus verwijderd worden, of een VB script om lege velden over te slaan.
Ik gebruik op dit moment deze VB code om mijn velden te importeren;
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Case 2
borderelNr = txtBorderelNr.Text
For x = 2 To totRij
Print #1, x - 1 & sep;
Print #1, borderelNr & sep;
For y = 1 To totKol
Select Case y
Case 2, 3
waarde = Format(CStr(rng(x, y)), "###0.00")
waarde = KommaNaarPunt(waarde)
Case Else
waarde = CStr(rng(x, y))
End Select
Print #1, waarde & sep;
Debug.Print y
Next y
Print #1, Chr(34) & rng(x, y) & Chr(34)
Next x
Case 3........ |