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
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Mega Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    116 km
    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
    Giga 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.

  5. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

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