bowlingman
Gebruiker
- Lid geworden
- 17 okt 2007
- Berichten
- 433
Hallo,
Met onderstaande code kopieer ik een sheet en dit werkt perfect als ik de teams inbreng met een frm
maar wanneer ik dan de spelers met een frm inbreng krijg ik een foutmelding op de rode regel.
Wanneer ik de spelers handmatig inbreng in kolom F lukt het wel.
Frm zelf moet je niet naar de opmaak enzo kijken. Dit moet nog gebeuren
Grtjs.
Armand
Met onderstaande code kopieer ik een sheet en dit werkt perfect als ik de teams inbreng met een frm
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="#FF0000"]If Target = "" Or Target.Cells.Count > 1 Then[/COLOR] Exit Sub
If Target.Column = (2) Then
Sheets("Teamssheet").Copy , Sheets(Sheets.Count - 2)
With ActiveSheet
.Name = Target.Offset(, -1).Value
.Range("O1") = Target.Offset(, -1).Value
End With
End If
If Target.Column = (6) Then
Sheets("Spelerssheet").Copy , Sheets(Sheets.Count - 2)
With ActiveSheet
.Name = Target.Offset(, -1).Value
.Range("K2") = Target.Offset(, -1).Value
End With
End If
End Sub
Wanneer ik de spelers handmatig inbreng in kolom F lukt het wel.
Frm zelf moet je niet naar de opmaak enzo kijken. Dit moet nog gebeuren
Grtjs.
Armand