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

gevegens wegschrijven uit form

Status
Niet open voor verdere reacties.
B

bowlingman

Gebruiker
Lid geworden
17 okt 2007
Berichten
433
Hallo,
Ik ben met nieuw projectje bezig.
Ik wil scores met behulp van een form wegschrijven en met de volgende code lukt het perfect
Code: 
Private Sub cmbWegschrijven_Click()
Application.ScreenUpdating = False
    If TextBox1 = "1" Then
    For Each c In Sheets("Spelers").Range("B3:B35")
        If c.Value = cboNaam.Value Then
            For i = 1 To 3
                c.Offset(, i) = Me("txtG" & i).Text
            Next
        End If
    Next
    End If
    If TextBox1 = "2" Then
    For Each c In Sheets("Spelers").Range("B36:B68")
        If c.Value = cboNaam.Value Then
            For i = 1 To 3
                c.Offset(, i + 3) = Me("txtG" & i).Text
            Next
        End If
    Next
    End If
    cboNaam.Value = ""
    Application.ScreenUpdating = True
End Sub
Nu heb ik er nog een tweede textbox (onder "Waar") staan.
Het is de bedoeling dat wanneer hier "Thuis" staat de scores worden weggeschreven onder de kolommen C tot E en wanneer er "Uit" staat onder F tot H
Dus eigenlijk met 2 voorwaarden onder "Speeldag" een getal van 1 tot 22 en onder "Waar" Thuis of Uit

Grtjs.
Armand
 

Bijlagen

  • Map1.xlsm
    25,4 KB · Weergaven: 38
Ik weet niet waar ik speeldag kan vinden maar voor uit of thuis kun je dit gebruiken.
Code: 
Private Sub cmbWegschrijven_Click()
    If TextBox2 = "Thuis" Then
        Sheets("Spelers").Columns(2).Find(cboNaam.Value).Offset(, 1).Resize(, 3) = Array(txtG1.Value, txtG2.Value, txtG3.Value)
    ElseIf TextBox2 = "Uit" Then
        Sheets("Spelers").Columns(2).Find(cboNaam.Value).Offset(, 4).Resize(, 3) = Array(txtG1.Value, txtG2.Value, txtG3.Value)
    End If
    cboNaam.Value = ""
End Sub
 
Bedankt Jack,

Op het Form staat ook nog textbox 1 onder "Speeldag"
Hierin komen handmatig per speeldag 1, 2, 3, enz..... te staan.
De bedoeling is dus dat de code die ik heb gebruikt dat, als wanneer hier een getal van 1 tot 22 in komt te staan EN in de textbox 2 Uit of Thuis, alles wordt weggeschreven naar de respetievelijke kolommen.
Zijnde kolom C t/m E voor de thuisscores en kolom F t/m H voor de uitscores

Grtjs.
Armand
 
@Jack:
Code: 
Sheets("Spelers").Columns(2).Find(cboNaam.Value).Offset(, IIf(LCase(TextBox2.Text = "uit"), 4, 1)).Resize(, 3) = Array(txtG1.Value, txtG2.Value, txtG3.Value)
 
Laatst bewerkt:
Code: 
Private Sub cmbWegschrijven_Click()
Dim speeldag As Range
  With Sheets("Spelers")
    Select Case TextBox1.Value
      Case 1
           Set speeldag = .Range("B3:B35")
      Case 2
           Set speeldag = .Range("B36:B68")
    End Select
    [speeldag].Find(cboNaam.Value).Offset(, IIf(LCase(TextBox2.Text = "uit"), 4, 1)).Resize(, 3) = Array(txtG1.Value, txtG2.Value, txtG3.Value)
  End With
cboNaam.Value = ""
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan