Beste medetweakers,
Ik zit met 2 lastige situaties in mijn excel bladen.
Voor mijn werk moet er een tabel gemaakt worden met veel meet gegevens erin.
Die meetgegevens zijn opgebouwd uit losse txt bestanden die de uitleesunit geeft.
Elke txt is hetzelfde dat is het makkelijke.
Nu heb ik een macro gemaakt die de nodige data op de goede plek zet maar de data wordt steeds overscheven in de tabel.
Situatie:
op blad 1 staat de ruwe data.
De datum en tijdstip zijn 2 cellen die ik samenvoeg tot 1 cel.
Deze moet naar rij 1 in de tab ruwe data
De meetdata is kolom B rij 204 t/m 304
deze moet naar de ruwe data toe in rij 2 t/m 102
Als ik met de hand mijn gegevens in de goede plek wil ga ik in de goede rij staan in kolom A (datum is A1 en data A2) en druk dan op Ctrl pijl rechts. Dan gaat hij naar de meest rechter kolom toe. druk ik nog 1 keer op pijl naar rechts en ik sta op de goede plek en plak de data als waarde.
In de macro gaat hij steeds naar dezelfde rij toe waardoor alles overscheven wordt.
Zie code dikgedrukt..
Sub Invoeren()
'
' Invoeren Macro
'
' Sneltoets: Ctrl+i
'
Range("H9").Select
Sheets("Blad1").Select
ActiveCell.FormulaR1C1 = "=R[1]C[-6]+R[2]C[-6]"
Range("H9").Select
Selection.Copy
Sheets("ruwe data").Select
Range("A1").Select
Selection.End(xlToRight).Select
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Blad1").Select
ActiveWindow.SmallScroll Down:=180
Range("B204:B304").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ruwe data").Select
Range("A2").Select
Selection.End(xlToRight).Select
Range("D2").Selectt
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Wat moet ik neerzetten op de plek dat hij de eerste lege kolom pakt?
de 2e lastig heid maak ik een andere topic voor aan als ik dit werkend heb.
alvast bedankt
Ik zit met 2 lastige situaties in mijn excel bladen.
Voor mijn werk moet er een tabel gemaakt worden met veel meet gegevens erin.
Die meetgegevens zijn opgebouwd uit losse txt bestanden die de uitleesunit geeft.
Elke txt is hetzelfde dat is het makkelijke.
Nu heb ik een macro gemaakt die de nodige data op de goede plek zet maar de data wordt steeds overscheven in de tabel.
Situatie:
op blad 1 staat de ruwe data.
De datum en tijdstip zijn 2 cellen die ik samenvoeg tot 1 cel.
Deze moet naar rij 1 in de tab ruwe data
De meetdata is kolom B rij 204 t/m 304
deze moet naar de ruwe data toe in rij 2 t/m 102
Als ik met de hand mijn gegevens in de goede plek wil ga ik in de goede rij staan in kolom A (datum is A1 en data A2) en druk dan op Ctrl pijl rechts. Dan gaat hij naar de meest rechter kolom toe. druk ik nog 1 keer op pijl naar rechts en ik sta op de goede plek en plak de data als waarde.
In de macro gaat hij steeds naar dezelfde rij toe waardoor alles overscheven wordt.
Zie code dikgedrukt..
Sub Invoeren()
'
' Invoeren Macro
'
' Sneltoets: Ctrl+i
'
Range("H9").Select
Sheets("Blad1").Select
ActiveCell.FormulaR1C1 = "=R[1]C[-6]+R[2]C[-6]"
Range("H9").Select
Selection.Copy
Sheets("ruwe data").Select
Range("A1").Select
Selection.End(xlToRight).Select
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Blad1").Select
ActiveWindow.SmallScroll Down:=180
Range("B204:B304").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ruwe data").Select
Range("A2").Select
Selection.End(xlToRight).Select
Range("D2").Selectt
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Wat moet ik neerzetten op de plek dat hij de eerste lege kolom pakt?
de 2e lastig heid maak ik een andere topic voor aan als ik dit werkend heb.
alvast bedankt