Eerst volgende lege regel

[Josno]

In mijn test VBA heb ik het navolgende staan;

Sub test()
'
' test Macro
' De macro is opgenomen op 10-3-2009 door josno.
'

'
    Windows("Barcodescannerbestand.xls").Activate
    Sheets("Destil").Select
    Range("A2").Select
    Selection.AutoFilter Field:=10, Criteria1:="<>"
    Range("A11:E11").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Workbooks.Open Filename:= _
        "G:\VOC-Elst\Magazijn\Barcodescanner data\Naleveringen.xls"
    Sheets("Nalev.Details").Select
    Range("A1").Select
    ActiveCell.SpecialCells(xlLastCell).Offset(1, 0).End(xlToLeft).Select
    ActiveSheet.Paste
    Windows("Barcodescannerbestand.xls").Activate
    Selection.AutoFilter Field:=10
    Range("A3:E3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Naleveringen.xls").Activate
    Sheets("Naleveringen").Select
    Range("A1").Select
    [COLOR="Red"]???????[/COLOR]
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Barcodescannerbestand.xls").Activate
    Range("J5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Naleveringen.xls").Activate
    Range("B1").Select
    [COLOR="Red"]????????[/COLOR]
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Barcodescannerbestand.xls").Activate
    Range("A8").Select
End Sub

Hiermee haal ik bepaalde waardes uit een ander bestand echter ik heb het probleem waar de vraag tekens staan. Hier moet voor dat er een waarde geplakt wordt eerst naar de eerste lege record in Kolm A in het ene geval en kolom B in het andere geval. De code die ik gebruikt heb "Range(Selection, Selection.End(xlDown)).Select" werk niet bij de vraag tekens wel in het andere tabblad. Kan iemand mij zeggen welke code ik hiervoor kan gebruiken. Heb het Forum afgezocht en alle formules vande lege regels gebruik niets werkt


Alvast bedankt
JoSno

 

[Roncancio]

Kan je het bestand (zonder gevoelige informatie) bijvoegen?

Met vriendelijke groet,


Roncancio

 

[Josno]

Kan je het bestand (zonder gevoelige informatie) bijvoegen?

Met vriendelijke groet,


Roncancio

Bedankt voor je reactie. Ik kan nu het bestandje niet bijsluiten, daar ik op onze server moet zijn. Maar zal morgen dit regelen echter het barcodebestand is groot dus zal ik iets moeten aanpassen. Alvast bedankt en tot morgen


JoSno

 

[Josno]

de gevraagde bestandjes

Kan je het bestand (zonder gevoelige informatie) bijvoegen?

Met vriendelijke groet,


Roncancio

ik heb ze uitgekleed maar de gele en groen gemarkeerde velden zijn de velden die van barcodebestand naar naleveringen moeten en dit elke aanvullen omdat dit elke dag anders vandaar dat ik automatisch deze gegevens in de het bestand naleveringen wil hebben.
Nu gaat het wel goede voor de gele velden nog niet voor de groene. Daarnaast zou ik willen dat het bestand naleveringen na dat deze is geupdate automatisch wordt opgelsagen en afgesloten.

JoSno

 

[snb]

Hiermee moet je toch een eind kunnen komen,
Vermijd Select en Activate in VBA (maak van 'opneem'code 'echte' VBA-code)

Sub tst()
  Workbooks.Open "G:\VOC-Elst\Magazijn\Barcodescanner data\Naleveringen.xls"
  With ThisWorkbook.Sheets("Destil")
    .[A3:E3].Copy Workbooks("Naleveringen.xls").Sheets("Naleveringen").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    With .Range("A8").CurrentRegion.Resize(, 10)
      .AutoFilter 10, "<>"
      .Offset(1).SpecialCells(xlCellTypeVisible).Copy Workbooks("Naleveringen.xls").Sheets("Nalev.Details").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    End With
  End With
End Sub

 

[Josno]

Data overhalen

Hiermee moet je toch een eind kunnen komen,
Vermijd Select en Activate in VBA (maak van 'opneem'code 'echte' VBA-code)

Sub tst()
  Workbooks.Open "G:\VOC-Elst\Magazijn\Barcodescanner data\Naleveringen.xls"
  With ThisWorkbook.Sheets("Destil")
    .[A3:E3].Copy Workbooks("Naleveringen.xls").Sheets("Naleveringen").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    With .Range("A8").CurrentRegion.Resize(, 10)
      .AutoFilter 10, "<>"
      .Offset(1).SpecialCells(xlCellTypeVisible).Copy Workbooks("Naleveringen.xls").Sheets("Nalev.Details").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    End With
  End With
End Sub

Dank je wel voor je reactie. Voor wat betreft het tabblad Nalev. werkt dit geweldig echter voor het tabblad naleveringen haalt hij de range a tot e over. Dit zou moeten zijn de waar de uit Barcodescanner werkblad destil a3 in kolom A van naleveringen en de waar de uit Barcodescanner werkblad destil I5 in in kolom B van naleveringen. Hoe kan je dit selecteren in het beide bestanden


JoSno