Gegevens verplaatsen adhv Checkbox

Status
Niet open voor verdere reacties.
S

Segers

Gebruiker
Lid geworden
29 sep 2010
Berichten
30
Ik heb een bestand,
in sheet 1 staan er gegevens (in rijen)
als je de checkbox aanvinkt naast die rij, dan moet hij die rij kopi�ren naar sheet 2 en in een ander kleur plaatsen
Dit is geen probleem, MAAR wanneer je die checkbox terug uitvinkt, moet die rij verwijderd worden uit sheet 2 en terug in het zwart geplaatst worden.
Dan loopt het verkeerd met de positionering van de regels.
Kan iemand mij verder helpen

Private Sub CheckBox41_Click()

If CheckBox41.Value = True Then
[Export!D65536].End(xlUp).Offset(1).Resize(, 7) = ['3 GRAINERS'!A4].Resize(, 7).Value
Range("A4:G4").Font.Color = vbGreen
ElseIf CheckBox41.Value = False Then
[Export!D65536].End(xlUp).Offset(0).Resize(, 7) = ""
Range("A4:G4").Font.Color = vbBlack
End If

End Sub

Private Sub CheckBox42_Click()

If CheckBox41.Value = True Then
[Export!D65536].End(xlUp).Offset(1).Resize(, 7) = ['3 GRAINERS'!A5].Resize(, 7).Value
Range("A5:G5").Font.Color = vbGreen
ElseIf CheckBox41.Value = False Then
[Export!D65536].End(xlUp).Offset(0).Resize(, 7) = ""
Range("A5:G5").Font.Color = vbBlack
End If


End Sub
 
Het bestand is te groot, kan ik het mss naar uw mailadres doorsturen?
 
Segers,

Haal de data eruit die er niet toe doet.
Gooi tabbladen weg die niet nodig zijn.

Zip het bestand en dan moet je toch op 100kb uitkomen.
Waarom niet naar mijn mailadres omdat op dit forum een heel stel knappe koppen zit en met z'n allen weet je meer dan 1 persoon alleen.
 
Beste Superzeeuw,

In bijlage (mijn sterk uitgedunde) versie.

1. Tabblad 3 Grainers
wnn een chb onder Sold aangevinkt is, kleurt de verkeerde rij rood, dit omdat de x waarde gebruikt word voor de juiste checkbox aan te duiden en
voor de juiste rij-waarde zou je telkens de eerste keer x-1; de tweede x-2; de derde keer x-3 etc. dus daar een probleem
2. Wanneer een chb aangevinkt staat onder EXP; deze regel moet gekopieerd worden naar tabblad Export; maar wnn je het terug uitvinkt; volgen de lijnen in tabblad export niet meer op elkaar, zie onderstaande code

Private Sub CheckBox41_Click()

If CheckBox41.Value = True Then
[Export!D65536].End(xlUp).Offset(1).Resize(, 7) = ['3 GRAINERS'!A4].Resize(, 7).Value
Range("A4:G4").Font.Color = vbGreen
ElseIf CheckBox41.Value = False Then
[Export!D65536].End(xlUp).Offset(0).Resize(, 7) = ""
Range("A4:G4").Font.Color = vbBlack
End If

End Sub

3. Ik zou een knop moeten hebben op tabblad export die het mogelijk maakt om alle gegevens uit tabblad export te kopiëren naar een nieuw of bestaand excel bestand; is dit mogelijk?

Kan iemand mij aub op weg helpen?

Groetjes,
 
Laatst bewerkt:
Segers,

Ik kan momenteel geen files uploaden.

Een probleem is het nummeren van je Checkboxen
Nummer in de eerste kolom van Checkboxen maar eens van 1 t/m 6
Dat is dus in kolom H onder Sold.

Dan zul je zien dat het wel gaat werken.
 
Ja idd, dat heb ik dan uiteindelijk gevonden. De belangrijkste vraag is eigenlijk die ivm met exporteren naar een ander bestand
 
Segers,

Ik heb het programma eens flink aangepakt.
De checkboxen zijn nu anders genummerd.
De eerste kolom met checkboxen loopt van 1004 t/m 1009
De tweede kolom loopt van 2004 t/m 2009
Etc.

Waarom?
De duizend tallen daarmee kun je sturen.
De honderdtallen, tientallen en eenheden zijn om de regel aan te duiden.

Wat ik nu heb draaien is het rood kleuren van de regels als je een vinkt plaats onder Sold.

Over EXP heb ik nog vragen:
Als ik een vink plaats wat moet de kleur van de regel worden?
Moet de bewuste regel gekopieerd worden naar tabblad Export?
Als de vink verwijderd wordt moet dan de regel weer zwart worden en moet de regel dan weg op tabblad Export?

Tabblad Export kan gekopieerd worden naar een ander bestand.

Zie mijn bijgevoegde progje voor het eerste deel, het rood en zwart kleuren met de vinkjes Sold.
 

Bijlagen

Over EXP heb ik nog vragen:
Als ik een vink plaats wat moet de kleur van de regel worden? GroenMoet de bewuste regel gekopieerd worden naar tabblad Export? JaAls de vink verwijderd wordt moet dan de regel weer zwart worden en moet de regel dan weg op tabblad Export? Ja
Tabblad Export kan gekopieerd worden naar een ander bestand.

Alvast bedankt voor uw hulp, ik ben nu bezig met te leren van uw code ivm sold.

Kan het zijn dat er een foutje staat in uw code ipv 200x 300x?

Dank u
 
Laatst bewerkt:
Segers,

Eerst kort een antwoord op je vraag 200x vs 300x.

het is geprogrammeerd als 2xxx vs 3xxx.

Nee dat is geen fout want
1xxx is de eerste kolom onder sold
2xxx is de tweede kolom onder EXP
3xxx is de derde kolom onder Sold
4xxx is de vierde kolom onder EXP.

1xxx en 3xxx sturen dus enkel de rode verkleuring aan.
2xxx en 4xxx zullen de antwoorden op topic #10 aansturen.
 
Laatst bewerkt:
Wanneer je een checkbox in de 4000 aanvinkt, dan neemt hij de waarde uit kolom A & B terwijl deze waarden uit I en J zouden moeten komen. (Quality & Color dus eigenlijk)

de rest neemt hij juist
Ik heb de code eens bekeken en omdat ik toch wel wil begrijpen wat ik doe denk ik dat ik volgende moet veranderen (in het rood)

With Sheets("Export")
LstRow = .Range("D65536").End(xlUp).Row + 1
.Cells(LstRow, 4).Value = Cells(x, 1).Value moet 9 worden
.Cells(LstRow, 5).Value = Cells(x, 2).Value moet 10 worden
.Cells(LstRow, 6).Value = Cells(x, 12).Value
.Cells(LstRow, 7).Value = Cells(x, 13).Value
.Cells(LstRow, 8).Value = Cells(x, 14).Value

maar als ik nu die checkbox uncheck, verwijdert hij de lijn niet uit mijn exportlijst

Zou het mogelijk zijn om ook een totaal te krijgen op mijn exportpagina die automatisch verandert naargelang er lijnen bijkomen af verwijdert worden?

Alvast heel hartelijk bedankt, ik ben al een heel eind opgeschoven
 
Laatst bewerkt:
Segers,

Wil je voortaan de code in een codebox plaatsen dat maakt het lezen makkelijker.
Selecteer de code en klik dan op het symbool #.

Ik heb kolom A en B gebruikt omdat in kolom I en J geen waarden stonden.
Eigenlijk zou de code zo moeten zijn dat wanneer 1 of beide velden leeg zijn er niets wordt gedaan.
Waarom omdat de inhoud van deze velden bepalen welke regels er moeten worden verwijderd wanneer je de vink weghaalt, zie bijgevoegd voorbeeld.

Code: 
With Sheets("Export")
LstRow = .Range("D65536").End(xlUp).Row + 1
.Cells(LstRow, 4).Value = Cells(x, [COLOR="red"]9[/COLOR]).Value Is correct
.Cells(LstRow, 5).Value = Cells(x, [COLOR="red"]10[/COLOR]).Value Is correct
.Cells(LstRow, 6).Value = Cells(x, 12).Value
.Cells(LstRow, 7).Value = Cells(x, 13).Value
.Cells(LstRow, 8).Value = Cells(x, 14).Value
 

Bijlagen

Ik wil u heel hartelijk bedanken voor uw hulp, ik ben al een heel eind op weg geholpen.

Bedankt,
Josefien
 
Josefien,

Graag gedaan en suc6 ermee.

Als je weer tegen problemen aanloopt dan weet je waar je moet zijn.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan