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.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Sub Doorvoeren()
If IsError(Evaluate("'" & Range("B5").Value & "'!A1")) Then
MsgBox "Blad: " & Range("B5") & " bestaat niet"
Else
Sheets(CStr(Range("B5"))).Range("B8:B10") = Range("B8:B10").Value
End If
End Sub
Sheets("Datablad Invoer").Range("C(indexgetal+4)") = Sheets("Invoer").Range("C5")
Sheets("Datablad Invoer").Range("D(indexgetal+4)") = Sheets("Invoer").Range("C6")
Sheets("Datablad Invoer").Range("E(indexgetal+4)") = Sheets("Invoer").Range("C7")
etc.
indexgetal = Sheets("Invoer").Range("B3").Value
' dus indexgetal is 7 in dit voorbeeld
for i=3 to 8
Sheets("Datablad Invoer").Range("[I]Column(i) (indexgetal+4)[/I]") = Sheets("Invoer").Range("[I]C (i+2)[/I]")
next i
oeps, wist ik nietBegin eens met de vraag als "NIET OPGELOST" te zetten.
heb ik (nog) niet. Ik heb het werkbestand van 9Gb nu zover klaar dat ik met het gegevens doorzetten bezig ben. Als het voor jullie handiger is kan ik wel een voorbeeldbestand gaan bouwenEn waar is het voorbeeldbestand.?
Sheets("Datablad Invoer").Cells(indexgetal + 4, i) = Sheets("Invoer").Range("C" & i + 2)
Sub VenA()
x = Application.Match(Sheets("Invoer").Cells(3, 2), Sheets("Datablad Invoer").Columns(1), 1)
If IsNumeric(x) Then Sheets("Datablad Invoer").Cells(x, 3).Resize(, 5) = Application.Transpose(Sheets("Invoer").Cells(5, 3).Resize(5))
End Sub
Sub Formules_terugzetten()
'
' Formules_terugzetten Macro
' Formules uit Invoer (origineel) naar Invoer
'
' Kolom "D" terugzetten
Sheets("Invoer (origineel)").Select
Range("D5:D72").Select
Selection.Copy
Sheets("Invoer").Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Private Sub CommandButtonInvoer_Click()
' Kolom "D" terugzetten
Sheets("Invoer (origineel)").Select
[COLOR="#FFFF00"]Range("D5:D72").Select[/COLOR]
Selection.Copy
Sheets("Invoer").Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.