Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 4 van 4

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

  1. #1
    Vraag is niet opgelost

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

    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

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    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 aangepast door edmoor : 16 april 2018 om 11:04
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

  3. #3
    Mega Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Roquetas de Mar
    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

  4. #4
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    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
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen