Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: hulp met een code  (gelezen 6672 keer)

0 leden en 1 gast bekijken dit topic.

Offline flipper52

  • Ervaren lid
  • ***
  • Berichten: 297
  • Geslacht: Man
hulp met een code
« Gepost op: 01 november 2014, 09:41:30 »
Hallo, iedereen

In het volgende bestand heb ik in "Blad1" volgende gegevens.
In de cel "B4" een code nummer en in cellen "C4:C6" namen.
Nu is mijn vraag hoe kan ik de namen met bijgaande code wegschrijven in Blad2 .
De code in kolom "A" en de namen in kolom "B"


Groeten, Rudy
Standaard emailprogramma: Microsoft Outlook 2010
Standaard Operating System: Windows 7 Home 64-bits
Standaard Browser:Internet Explorer 9
Microsoft Office 2010

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: hulp met een code
« Reactie #1 Gepost op: 01 november 2014, 11:18:52 »
Even op een 'rechtstreekse wijze' ipv inladen in Array's...
Sub CodeNamen()

    With Sheets("Blad1")
        GroepCode = .Range("A2").Value
        GroepNamen = .Columns(3).SpecialCells(xlCellTypeConstants)
    End With
       
    For i = 2 To UBound(GroepNamen, 1)
        With Sheets("Lijst")
            .Cells(i, 1).Value = GroepCode
            .Cells(i, 2).Value = GroepNamen
        End With
    Next i

End Sub
Stap trouwens over je angst om gewoon netjes op regel 1 te beginnen. Zet de veldnamen in regel 1 en de data daaronder. Voor jouw sheet Blad1 ziet het er dan zo uit...
  A      B  C         
1 code      Namen     
2 1         de craene
3           de wolf   
4           vrancken 

Blad1

[Table-It] version 09 by Erik Van Geit

______________________________

Groet, Leo

Offline flipper52

  • Ervaren lid
  • ***
  • Berichten: 297
  • Geslacht: Man
Re: hulp met een code
« Reactie #2 Gepost op: 01 november 2014, 16:38:23 »
Bedankt RedHead
Standaard emailprogramma: Microsoft Outlook 2010
Standaard Operating System: Windows 7 Home 64-bits
Standaard Browser:Internet Explorer 9
Microsoft Office 2010

Offline flipper52

  • Ervaren lid
  • ***
  • Berichten: 297
  • Geslacht: Man
Re: hulp met een code
« Reactie #3 Gepost op: 02 november 2014, 12:51:54 »
Hallo RedHead

Ik heb jou code toegepast, maar het geeft niet het resultaat dat ik voor ogen heb.
Dit ligt niet aan jou maar ik heb mijn bedoeling niet goed uitgelegd.
Zoals reeds enkele malen heb ik een bestand te vroeg geplaats, daar voor mijn excuses.
Daarom heb ik een nieuw bestand gemaakt met wat eigenlijk de bedoeling is, werken met een UserForm.

De bedoeling is wanneer ik 1 of meerdere spelers heb ingevuld in het UserForm , deze worden opgeslaan in blad2 onder de des betreffende kolommen.
En dit per speeldag.
Na opslaan van gegevens de ComboBoxen leegmaken

vb Blad!2      
Speeldag   speler   tijd
1         Cordaro   15'
1         Claes           37'
1         Hanni           49'
2         Adesanya   87'

Standaard emailprogramma: Microsoft Outlook 2010
Standaard Operating System: Windows 7 Home 64-bits
Standaard Browser:Internet Explorer 9
Microsoft Office 2010

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: hulp met een code
« Reactie #4 Gepost op: 02 november 2014, 14:27:44 »
Flipper52, Ah, OK...
Het is mij ff een raadsel hoe je het vullen van je comboboxen op je formulier regelt. Ik zie geen verwijzing in de Eigenschappen van die objecten, maar ook geen procedure van het formulier bij het starten daarvan (= Initialize). Wáár precies regel je dat?
______________________________

Groet, Leo

Offline flipper52

  • Ervaren lid
  • ***
  • Berichten: 297
  • Geslacht: Man
Re: hulp met een code
« Reactie #5 Gepost op: 02 november 2014, 18:16:11 »
Hallo RedHead,

Achter de commandbutton staat de code "UserForm1.Schow".
In de eigenschappen van de spelers zie je staan bij RowSource "Blad2!R1:R30
en voor de tijd is dat "Blad1!AC2:AC92".
Standaard emailprogramma: Microsoft Outlook 2010
Standaard Operating System: Windows 7 Home 64-bits
Standaard Browser:Internet Explorer 9
Microsoft Office 2010

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: hulp met een code
« Reactie #6 Gepost op: 02 november 2014, 22:08:13 »
Ach natuurlijk... Ik pak 'm altijd op bij ControlSource maar deze bestaat uiteraard ook.  ;)
Maar goed, je probleem... Je hebt 't - vind ik - jezelf niet echt makkelijk gemaakt met al die comboboxen. Je kan prima alle controls aflopen, maar dan moet je er eerst voor zorgen dat alle TabStops (= ook een eigenschap van elk formulier-object) in de juiste volgorde staan. Dus 'Speler', 'Tijd', 'Speler', 'Tijd", enzovoorts. Pas dan ook gelijk de benaming (= eigenschap (Name)) van het object aan. Bijvoorbeeld CMB1, CMB2, CMB3 enzovoorts en dan uiteraard in dezelfde volgorde als je tab-stops.
Daarmee kan je via een procedure langs alle objecten lopen en de waarde opvragen. Maar ook dit blijft een heel gedoe. WAT wil je precies met je workbook bereiken?
Aangezien ik nog aan 't klussen ben met de vraag van de schietvereniging, kan ik deze er niet uitgebreid bij pakken. Evenwel heb ik de volgende procedure geschreven die je in je formulier-module moet plakken (dan wél éérst bovenstaande volgorde aanpakken!!!)
Private Sub CommandButton1_Click()
Dim ctrl As Control
   
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "ComboBox" Then
            With Sheets("Blad2")
            i = i + 1
            If i Mod 2 = 1 Then
                regel = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
                .Cells(regel, 1).Value = TextBox1.Text
            End If
                .Cells(regel, (i Mod 2) + 2).Value = ctrl.Value
            End With
        End If
    Next ctrl
   
End Sub
Ik hoop dat ik je hiermee een stukje die goede weg in heb geholpen...
______________________________

Groet, Leo

Offline flipper52

  • Ervaren lid
  • ***
  • Berichten: 297
  • Geslacht: Man
Re: hulp met een code
« Reactie #7 Gepost op: 03 november 2014, 19:39:51 »
Hallo,RedHead

Ik heb het ingevoegd in het bestand waarvoor het moet dienen.
Als je in "blad Wedstrijden" op de knop 'Inbreng' drukt verschijnt het Userform.
Verder zal het wel automatisch duidelijk worden waarvoor het moet dienen.
De eerste gegevens in "Blad doelpunten" heb ik manueel ingebracht.

Groeten, Rudy
Standaard emailprogramma: Microsoft Outlook 2010
Standaard Operating System: Windows 7 Home 64-bits
Standaard Browser:Internet Explorer 9
Microsoft Office 2010

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: hulp met een code
« Reactie #8 Gepost op: 03 november 2014, 20:45:22 »
OK, OK... Vooruit dan maar...   ;)

Ik zag dat je die procedure in een standaard module had geplaatst. Da's natuurlijk niet de bedoeling als deze een onderdeel is van het formulier. Hierbij dan de complete procedure die je nu wél in de formulier-module moet plakken. Vergeet dan niet om die uit die standaard module te deleten anders krijg je conflicten.
Private Sub CmbOpslaan_Click()
Dim ctrl As Control
   
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "ComboBox" And ctrl <> "" Then
            With Sheets("doelpunten")
            i = i + 1
            If i Mod 2 = 1 Then
                regel = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
                .Cells(regel, 1).Value = TextBox1.Text
            End If
                .Cells(regel, (-i Mod 2) + 3).Value = ctrl.Value
            End With
        End If
    Next ctrl
   
    Unload Me
   
End Sub
______________________________

Groet, Leo

Offline flipper52

  • Ervaren lid
  • ***
  • Berichten: 297
  • Geslacht: Man
Re: hulp met een code
« Reactie #9 Gepost op: 04 november 2014, 07:43:35 »
Hallo, RedHead

Dit werkt perfect, Bedankt voor je hulp.
Ik wou je niet onder druk zetten, lees je reactie, want dat was niet mijn bedoeling.
Citaat
OK, OK... Vooruit dan maar
Ik wist dat je met iets anders bezig was, dus ik plaatste de reactie voor wanneer je tijd had om dit te bekijken.
Maar nogmaals mijn dank.

Groeten, Rudy
Standaard emailprogramma: Microsoft Outlook 2010
Standaard Operating System: Windows 7 Home 64-bits
Standaard Browser:Internet Explorer 9
Microsoft Office 2010

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: hulp met een code
« Reactie #10 Gepost op: 04 november 2014, 09:11:33 »
Ha ha ha... no problemo! Ik zag in je bijlage dat je zo netjes alles op orde had gebracht, dat m'n code nog maar een kleine aanpassing nodig had. Dan is het geen moeite. Veel plezier d'r mee.
______________________________

Groet, Leo

 


www.combell.com