Sheet invullen via een userform

[ACER10]

Beste,

Ik wil gegevens via een userform invullen op een sheet, het gaat om een NAAM en een BEDRAG.
Op het voorbeeld hierbij zie je alle namen waar je moet kunnen uit kiezen via het userform in de linkse kolom.
Het bedrag ingegeven via het userform zou in de kolommen C en verder moeten komen, met andere woorden alle bedragen die op de zelfde DAG aan de gekozen namen
worden toegewezen komen in dezelfde kolom.
wordt er op een andere dag een bedrag toegewezen, dan moet dit bedrag in de volgende LEGE kolom bijgeschreven worden.
Eventueel zou er boven de kolom de datum kunnen komen...

Ik heb al verschillende keer zelf getracht om dit waar te maken maar ik geraak er maar niet... ik ken niet genoeg van Visual Basic daarvoor.

Kan er iemand mij helpen ?Bekijk bijlage voorbeeld.xls

 

[HSV]

Een kolom met als koptekst "Datum 1" of "Datum 2" heb je natuurlijk niets aan als je op datum wilt wegschrijven.
In het formulier is ook geen keuze om op welke dag dan ook een bedrag weg te schrijven.

Of bedoel je datum vandaag()?

 

[ACER10]

Een kolom met als koptekst "Datum 1" of "Datum 2" heb je natuurlijk niets aan als je op datum wilt wegschrijven.
In het formulier is ook geen keuze om op welke dag dan ook een bedrag weg te schrijven.

Of bedoel je datum vandaag()?

Inderdaad, datum 1 en datum 2 is maar om aan te tonen, normaal zou daar =(vandaag() komen, dus de dag dat het bedrag is ingevoerd.

 

[HSV]

Test het maar eens.

 

[ACER10]

Bedankt

Bedankt hoor, dit was wat ik zocht, het werkt voortreffelijk en nu weet ik waar ik aan het sukkelen was....

Ed

 

[HSV]

Graag gedaan,

De code kan nog wel iets bondiger.

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex > -1 And TextBox1 <> "" Then
  With Sheets("blad1").Cells(2, Columns.Count).End(xlToLeft)
   .Offset(ComboBox1.ListIndex + 1, Abs(.Value <> Date)) = .Offset(ComboBox1.ListIndex + 1, Abs(.Value <> Date)) + CDbl(TextBox1.Value)
   .Offset(, Abs(.Value <> Date)) = Date
  End With
End If
End Sub

 

[ACER10]

nog iets...

Bedankt Harry,

Ik durf bijna niet, maar ik heb nog een dergelijk probleem...
Kun je daar ook eens naar kijken ?


Bekijk bijlage ingave schutter.xls


Via de knop INGAVE SCHUTTER zouden alle gegevens moeten kunnen ingevoerd worden in de lijst, de keuzes staan op het blad zelf.

Dit is iets meer ingewikkeld dan het vorige...

mvg

Eddy

 

[HSV]

Dit zijn de beide codes.
Om de comboboxes te vullen en voor het wegschrijven.

Private Sub CommandButton1_Click()
With Cells(Rows.Count, 2).End(xlUp)
   .Offset(1) = TextBox1.Value
   '.Offset(1, 1) = "" 'zelf aanpassen
   '.Offset(1, 2) = "" 'zelf aanpassen
   .Offset(1, 3) = ComboBox4.Value
   .Offset(1, 4) = ComboBox2.Value
   .Offset(1, 5) = ComboBox3.Value
   .Offset(1, 6) = ComboBox1.Value
   .Offset(1, 7) = ComboBox5.Value
End With
End Sub


Private Sub UserForm_Initialize()
 With Cells(6, 14).CurrentRegion.Columns(1).SpecialCells(2)
    ComboBox1.List = .Offset(1, 1).SpecialCells(2).Value
    ComboBox2.List = .Offset(1).SpecialCells(2).Value
    ComboBox3.List = .Offset(1, 2).SpecialCells(2).Value
    ComboBox4.List = .Offset(1, 3).SpecialCells(2).Value
    ComboBox5.List = .Offset(1, 4).SpecialCells(2).Value
 End With
End Sub

 

[ACER10]

Bedankt Harry, het werkt goed.
nog een andere vraag... nu de laatste...


Bekijk bijlage voorbeeld.xls


In het userform moeten 2 namen worden ingegeven uit de lijst op het blad.
naast de naam in de hokjes moet een "X" komen.

De ingevoerde naam onder pistool in het blok pistool en zo ook voor karabijn,
na klikken op knop wegschrijven .


Wil je nog eens uw kennis gebruiken als je wil....


Alvast bedankt,

Eddy

 

[HSV]

Misschien het verkeerde bestand geplaatst Eddy?

 

[ACER10]

fout

Oeps, inderdaad het verkeerde voorbeeld ingesloten, sorry
Hier dan het juiste...


Eddy

Bekijk bijlage voorbeeld.xls

 

[HSV]

Beide codes.

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex > -1 Then Cells(ComboBox1.ListIndex + 5, _
  IIf(Cells(ComboBox1.ListIndex + 5, 3) = "", 3, Cells(ComboBox1.ListIndex + 5, 21).End(xlToLeft).Column + 1)) = "x"
If ComboBox2.ListIndex > -1 Then Cells(ComboBox2.ListIndex + 5, _
  IIf(Cells(ComboBox2.ListIndex + 5, 23) = "", 23, Cells(ComboBox2.ListIndex + 5, 41).End(xlToLeft).Column + 1)) = "x"
End Sub


Private Sub UserForm_Initialize()
  ComboBox1.List = Range("a5", Cells(Rows.Count, 1).End(xlUp)).Value
  ComboBox2.List = ComboBox1.List
End Sub