Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub ImportNow()
Dim sv, r, i As Long, arr(8, 6), n As Long, j As Long, k As Long, Wb As Worksheet
Set Wb = ThisWorkbook.Sheets("blad1")
With GetObject("E:\Excel\Lossing\IJ_lossing " & Application.InputBox("typ het weeknummer + spatie + jaartal", "openen", "bv. 12 2019", , , , , 2) & ".xls")
sv = .Sheets("loslijst ijmuiden").Range("a16:j38")
For i = 1 To UBound(sv)
r = Application.Match(CLng(sv(i, 2)), Wb.Rows(2), 0)
If IsNumeric(r) Then
If k = 0 Then k = r
arr(n, j) = sv(i, 4)
arr(n + 1, j) = sv(i, 7)
arr(n + 2, j) = sv(i, 10)
n = n + 3
If n > 8 Then
n = 0
j = j + 1
End If
End If
Next i
Wb.Cells(45, k).Resize(9, 7) = arr
End With
End Sub
Sub ImportNow()
Dim sv, r, i As Long, arr(8, 6), n As Long, j As Long, k As Long, Wb As Worksheet
Set Wb = ThisWorkbook.Sheets("blad1")
[COLOR=#ff0000]Wb.unprotect "jewachtwoordhiertussendedubbelequotes" [/COLOR]
With GetObject("E:\Excel\Lossing\IJ_lossing " & Application.InputBox("typ het weeknummer + spatie + jaartal", "openen", "bv. 12 2019", , , , , 2) & ".xls")
sv = .Sheets("loslijst ijmuiden").Range("a16:j38")
For i = 1 To UBound(sv)
r = Application.Match(CLng(sv(i, 2)), Wb.Rows(2), 0)
If IsNumeric(r) Then
If k = 0 Then k = r
arr(n, j) = sv(i, 4)
arr(n + 1, j) = sv(i, 7)
arr(n + 2, j) = sv(i, 10)
n = n + 3
If n > 8 Then
n = 0
j = j + 1
End If
End If
Next i
Wb.Cells(45, k).Resize(9, 7) = arr
[COLOR=#ff0000]Wb.protect[/COLOR][COLOR=#ff0000] "[/COLOR][COLOR=#FF0000]jewachtwoordhiertussendedubbelequotes" [/COLOR]
End With
End Sub
Sub ImportNow()
Dim sv, r, i As Long, arr(8, 6), n As Long, j As Long, k As Long, Wb As Worksheet
[COLOR=#ff0000]if inputbox("wachtwoord invullen") = "jouwwachtwoord" then[/COLOR]
Set Wb = ThisWorkbook.Sheets("blad1")
With GetObject("E:\Excel\Lossing\IJ_lossing " & Application.InputBox("typ het weeknummer + spatie + jaartal", "openen", "bv. 12 2019", , , , , 2) & ".xls")
sv = .Sheets("loslijst ijmuiden").Range("a16:j38")
For i = 1 To UBound(sv)
r = Application.Match(CLng(sv(i, 2)), Wb.Rows(2), 0)
If IsNumeric(r) Then
If k = 0 Then k = r
arr(n, j) = sv(i, 4)
arr(n + 1, j) = sv(i, 7)
arr(n + 2, j) = sv(i, 10)
n = n + 3
If n > 8 Then
n = 0
j = j + 1
End If
End If
Next i
Wb.Cells(45, k).Resize(9, 7) = arr
End With
[COLOR=#ff0000]else
msgbox "verkeerd wachtwoord"
end if[/COLOR]
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.