tijmen_4real
Gebruiker
- Lid geworden
- 20 apr 2005
- Berichten
- 338
Hoi,
Ik wil de waarden van 4 cellen met komma's ertussen opslaan in een cell op ander tabblad.
Dan wel op de eerste lege rij.
Foutmelding is 'ongeldige kwalificatie'.
Zit het fout in het type variabele?
Groet,
Tijmen
Ik wil de waarden van 4 cellen met komma's ertussen opslaan in een cell op ander tabblad.
Dan wel op de eerste lege rij.
Code:
Sub GegevensBestellingOpslaan()
Dim lst As Long
Dim i As Integer
i = Range("B16").Value & "," & Range("B18").Value & "," & Range("B20").Value & "," & Range("B22").Value
MsgBox (i)
i.Copy
With Sheets("Bestellingsoverzicht consument")
lst = .Range("C" & Rows.Count).End(xlUp).Row + 1
.Range("C" & lst).PasteSpecial xlPasteValues
End With
End Sub
Foutmelding is 'ongeldige kwalificatie'.
Zit het fout in het type variabele?
Groet,
Tijmen