code zoeken

[Jack Nouws]

Hallo

Ik zoek een stukje code waarbij de gegevens niet naast elkaar maar onder elkaar worden gezet. Kan iemand me daar aan helpen? Ik heb al op het forum gezocht en er zal best wel iets bruikbaars tussen zitten maar ik krijg het maar niet gevonden. Dus als iemand me een eerste zetje kan geven ... graag.

Met vr gr
Jack

 

[HSV]

Zoiets misschien?

 

[Jack Nouws]

Zoiets misschien?

Hallo

Ik moet de kolom ook nog zoeken dmv een ComboBox,
kan het zijn dat de code er als volgt uit gaat zien

  Rij = Sheets("Etappes").Range(CboEtappe.Text).End(xlUp).Row + 1

Met vr gr
Jack

 

[HSV]

Helaas moet ik je het antwoord schuldig blijven Jack.
Ik ben meer een formule-man.
Dit is voor de VBA specialisten onder ons.
De combobox kun je koppelen met LinkedCell, die dan weer op zijn beurt in VBA gezet moet worden (maar hoe?)

Ik neem wel eens wat op met de recorder, en probeer het hier en daar wat aan te passen.
Of zie dingen hier op het forum, en dan aanpassen, maar verder?

Doch succes gewenst.

 

[Jack Nouws]

Helaas moet ik je het antwoord schuldig blijven Jack.
Ik ben meer een formule-man.
Dit is voor de VBA specialisten onder ons.
De combobox kun je koppelen met LinkedCell, die dan weer op zijn beurt in VBA gezet moet worden (maar hoe?)

Ik neem wel eens wat op met de recorder, en probeer het hier en daar wat aan te passen.
Of zie dingen hier op het forum, en dan aanpassen, maar verder?

Doch succes gewenst.

 

[Jack Nouws]

In ieder geval bedankt voor de inzet.:thumb:
Verder wacht ik nog wel even af

Met vr gr
Jack

 

[Roncancio]

Hallo

Ik moet de kolom ook nog zoeken dmv een ComboBox,
kan het zijn dat de code er als volgt uit gaat zien

  Rij = Sheets("Etappes").Range(CboEtappe.Text).End(xlUp).Row + 1

Met vr gr
Jack

Wat wil je precies zoeken?

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Wat wil je precies zoeken?

Met vriendelijke groet,


Roncancio

Ik heb in de eerste rij (van B1:V1) Etappe 1 t/m Etappe 21 staan
Onder etappe 1 t/m 21 moeten de 10 nummers van renners komen te staan (B2:B11),(C2:C11) ...t/m (V2:V11)

Dus als ik de juiste etappe heb moeten er 10 regels onder geplaatst worden.
Met vr gr
Jack

 

[Roncancio]

Ik heb in de eerste rij (van B1:V1) Etappe 1 t/m Etappe 21 staan
Onder etappe 1 t/m 21 moeten de 10 nummers van renners komen te staan (B2:B11),(C2:C11) ...t/m (V2:V11)

Dus als ik de juiste etappe heb moeten er 10 regels onder geplaatst worden.
Met vr gr
Jack

Ja, oké.
Code? Voorbeeldbestand?

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Ja, oké.
Code? Voorbeeldbestand?

Hierbij bestand

en ik denk dat ik zo in de goeie richting zit maar het werkt nog niet

Private Sub CommandButton1_Click()
Dim MyRange             As Variant
Dim c                   As Range
Dim lrij                As Long
    Set MyRange = Worksheets("Etappes")
For Each c In Worksheets("Etappes").Range("B1:V1")
        If c = FrmUitslag.CboEtappe.Text Then

    lrij = 2
 MyRange.Range((c.Value) & lrij) = FrmUitslag.Cbo1.Value
 MyRange.Range((c.Value) & lrij) = FrmUitslag.Cbo2.Value
 MyRange.Range((c.Value) & lrij) = FrmUitslag.Cbo3.Value
 MyRange.Range((c.Value) & lrij) = FrmUitslag.Cbo4.Value
 MyRange.Range((c.Value) & lrij) = FrmUitslag.Cbo5.Value
 MyRange.Range((c.Value) & lrij) = FrmUitslag.Cbo6.Value
 MyRange.Range((c.Value) & lrij) = FrmUitslag.Cbo7.Value
 MyRange.Range((c.Value) & lrij) = FrmUitslag.Cbo8.Value
 MyRange.Range((c.Value) & lrij) = FrmUitslag.Cbo9.Value
 MyRange.Range((c.Value) & lrij) = FrmUitslag.Cbo10.Value

End If
Next c
End Sub

Met vr gr
Jack

 

[Warme bakkertje]

Jack, met alle code die jij al gezien hebt zou je dit toch moeten weten

Private Sub CommandButton1_Click()
    With Sheets("Etappes").[B1:V1]
    Set c = .Find(CboEtappe, LookIn:=xlValues)
        For lLoop = 1 To 10
            c.Offset(lLoop, 0).Value = Me.Controls("Cbo" & lLoop).Value
        Next lLoop
    End With
End Sub

Mvg

Rudi