VBA plakt in verkeerde cel

[tonissteiner]

Hallo,

ik heb volgende code samengesteld (met hulp en dank aan forum gebruikers die me hieraan geholpen hebben):

Sub tst()

Workbooks.Open "\\ms_technologies\TECHNOLOGIES\File1.xls"
Sheets("test").Select

Dim lr As Integer
With Sheets("Test")

lr = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A" & lr + 1).Value = .Range("A" & lr) + 1

End With

With Sheets("Test")
.[H3:H3].Copy Workbooks("File1.xls").Sheets("Test").Cells(Rows.Count, 1).End(xlUp).Offset(1)

End With
End Sub

maar nu plakt de macro de celinhoud onder de waarde waarbij in kolom 1 is opgeteld. hoe wijzigt de code het best zodat de waarde rechts ervan komt

en dan zou ik ook graag nog een lijn bijvoegen in de code waarbij de waarde uit cel H4 (ipv H3) geplakt zou worden rechts (dus in kolom C) in File1

 

[tonissteiner]

Denk dat ik het zelf gevonden heb. zal wel niet de meest juiste zijn maar het werkt. gevonden weer mede door andere gebruikers die hier wat gepost en oplossingen gegeven heb.
ik ken eigenlijk geen jota van VBA en probeer dus maar. is bij mij zoals een soep maken. dingen samenvoegen en als het lekker is (lees werkt) WOEHOEW

Sub tst()

Workbooks.Open "\\ms_technologies\TECHNOLOGIES\File1.xls"
Sheets("test").Select

Dim lr As Integer

With Sheets("Test")
lr = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A" & lr + 1).Value = .Range("A" & lr) + 1
End With

With Sheets("Test")
.[H3:H3].Copy Workbooks("File1.xls").Sheets("Test").Cells(Rows.Count, 1).End(xlUp).Offset(0, 1)
End With

With Sheets("Test")
.[H4:H4].Copy Workbooks("File1.xls").Sheets("Test").Cells(Rows.Count, 1).End(xlUp).Offset(0, 2)
End With


End Sub

 

[ExcelAmateur]

tonissteiner,

ik ken eigenlijk geen jota van VBA en probeer dus maar.

Nu je al zolang lid ben van Helpmij, moet je ook eens gaan proberen om de code, tussen de CodeTags te zetten.
Dit doe je door de code te selecteren en dan boven in het menu op # te klikken.
Nu komt de code netjes in een apart vak te staan.

 

[tonissteiner]

goede morgen ExelAmateur,

awel ik vroeg me al af hoe jullie dit deden. nu weet ik het dus. bedankt voor de tip.
ben toevallig een antwoord aan het schrijven naar Warme Bakkertje en ga het daar meteen uitproberen zie

thanks gasten