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

Automatisch 1 kolom verder opschuiven

Status
Niet open voor verdere reacties.

cptnalgren

Gebruiker
Lid geworden
20 dec 2007
Berichten
49
dag,

Had een vraagje:


Als ik in kolom A en rij nummer 2 een waarde zet via vba, en ik wil dan in A3 iets zetten doe ik dit gewoon door bij de rijnummer 1 op te tellen, maar hoe doe ik dat met kolommen?
dus kolom A + 1 gaat niet
 
dag,

Had een vraagje:


Als ik in kolom A en rij nummer 2 een waarde zet via vba, en ik wil dan in A3 iets zetten doe ik dit gewoon door bij de rijnummer 1 op te tellen, maar hoe doe ik dat met kolommen?
dus kolom A + 1 gaat niet

Via Offset
of met Cells
Bijv.
Range("A1").Offset(1,1) = "voorbeeld"

Met vriendelijke groet,


Roncancio
 
dag

hieronder mijn code : nu staat er kolom1 = F, ... maar de 2 de keer zou er automatisch kolom1 = K moeten komen

'declareren variabelen

Dim cel1, cel2, cel3, cel4 As String
Dim K1, K2, K3, K4 As String

'Initialiseren Variabelen

K1 = "F"
K2 = "G"
K3 = "H"
K4 = "I"

cel1 = K1 & nummer
cel2 = K2 & nummer
cel3 = K3 & nummer
cel4 = K4 & nummer

'printen waarden

Sheets("Zoek").Select
Range("E2").Select
Sheets("Zoek").Range(cel1) = waarde1
Sheets("Zoek").Range(cel2) = waarde2
Sheets("Zoek").Range(cel3) = waarde3
Sheets("Zoek").Range(cel4) = waarde4


End If
nummer = nummer + 1

Next
 
Je code roept een hele hoop vragen op.
De belangrijkste: Wat moet de code doen?
Ik zie bijvoorbeeld een NEXT maar geen FOR.
Welke krijgen waarde1 t/m waarde4 hun waardes?

Met vriendelijke groet,


Roncancio
 
Mijn probleem bestaat erin dat ik automatisch de volgende 4 kolommen wil selecteren. Nu zeg ik in welke kolom hij die waarde moet schrijven.

in bijlage de volledige code

het probleem staat in commentaar


mvg,

Jan
 

Bijlagen

Laatst bewerkt:
Je zou gebruik kunnen maken van Cells om te verwijzen naar de kolommen.
zoiets:

Kolom = "F"
WorkSheet("Test").Cells(1,Kolom)="Hallo"

Verder kan het volgende niet:
Code:
Sheets("persoon-dag-dagdeel").Range(a, d).Select
En... kan je code een stuk korter.

Met vriendelijke groet,


Roncancio
 
Sheets("persoon-dag-dagdeel").Range(a, d).Select

waarom kan dat niet? ik selecteer toch gewoon 4 kolommen of niet?

En hoe kan ik dat korter maken? Ik ben niet zo vertrouwd met vba . Ik volg nu op school vba en vb.net. Maar ben juist begonnen.


Je zou gebruik kunnen maken van Cells om te verwijzen naar de kolommen.
zoiets:

Kolom = "F"
WorkSheet("Test").Cells(1,Kolom)="Hallo"

snap ik niet, hoe krijg ik hiermee de volgende vier kolommen ?

mvg,

Jan
 
Zo kan het wel.
Code:
Kolom1="F"
Kolom4="I"
Sheets("persoon-dag-dagdeel").Range(Kolom1 & a & ":" & kolom4 & a).Value= "TEST"

In de cellen F1:I1 staat het woord TEST.

Géén of zo weinig mogelijk Activate e.d. gebruiken.
In de code zoek je de dag. Vervolgens doe je er niets mee in de verdere code.
Veel codes kan je vervangen door met een lus te werken.

Met vriendelijke groet,


Roncancio
 
ok, maar als ik in elke kolom een andere waarde wil zetten dus :

Kolom1 : waarde1
Kolom 2 : waarde 2
Kolom 3 : waarde 3
kolom4 : waarde 4


gaat dat dan ook met bovenstaande code ?


alvast bedankt
 
Laatst bewerkt:
ok, maar als ik in elke kolom een andere waarde wil zetten dus :

Kolom1 : waarde1
Kolom 2 : waarde 2
Kolom 3 : waarde 3
kolom4 : waarde 4


gaat dat dan ook met bovenstaande code ?


alvast bedankt

Nee, maar als ik zo door je code loop, zie ik dat de gegevens bij elkaar staan. Je zou met een Copy-function kunnen volstaan.

Met vriendelijke groet,


Roncancio
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan