• 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.

[EXCEL 2010 VBA] Waardes cellen in variabele, in één cel

Status
Niet open voor verdere reacties.
tijmen_4real

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.

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
 
De variabele i kan daar nooit een integer zijn als je er tekst zoals een komma in gebruikt.
De code kan geheel anders.
Plaats daarvoor je document.
 
Laatst bewerkt:
zoiets?
Code: 
Sub GegevensBestellingOpslaan()
Dim lst As Long
Dim i As String
i = Range("B16").Value & "," & Range("B18").Value & "," & Range("B20").Value & "," & Range("B22").Value

With Sheets("Bestellingsoverzicht consument")
    lst = .Range("C" & Rows.Count).End(xlUp).Row + 1
        .Range("C" & lst).Value = i
End With
End Sub
 
Zonder variabelen.
Code: 
Sub VenA()
  Sheets("Bestellingsoverzicht consument").Cells(Rows.Count, 3).End(xlUp).Offset(1).Value = Range("B16").Value & "," & Range("B18").Value & "," & Range("B20").Value & "," & Range("B22").Value
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan