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

vba code in i regel

Status
Niet open voor verdere reacties.

bowlingman

Gebruiker
Lid geworden
17 okt 2007
Berichten
433
Kan je de volgende code (vba) in één regel schrijven
Code:
'Deze waarde wordt in kolom "A" weggeschreven
.Cells(x, Idlinks) = txtiD1.Value

'Deze waarden worden in Collums "D,E en F" weggeschreven
.Cells(x, GamesL).Resize(, 3) = Array(TextBox2, TextBox3, TextBox4)

Of gaat dit enkel als alle txt's dezelfde naam hebben.

Dit is de volledige code voor het wegschrijven
Code:
Private Sub cmbWegschrijven_Click()
Idlinks = 1
idRechts = 7
GamesL = 4

x = cboSpeeldag

With Sheets("Blad2")
    'Dit staat in kolom "A"
     .Cells(x, Idlinks) = txtiD1.Value
    'Deze d)staan in Collums 4,5 en 6
     .Cells(x, GamesL).Resize(, 3) = Array(TextBox2, TextBox3, TextBox4)
End With
End Sub

Grtjs.
Armand
 
Bedoel je zo?
Code:
Sheets("Blad2").Cells(x, 1).Resize(, 6) = Array(txtiD1.Value, , , TextBox2, TextBox3, TextBox4)
 
Laatst bewerkt:
Maak van de variabele x → cbospeeldag, dan is het precies 1 regel.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan