2 programmacodes combineren in 1 werkblad

[mooske04]

Sorry, ik zie het echt niet. Als ik kolom f wijzig moet ie sorteren en als ik D wijzig moet ie een nieuw blad aanmaken. Maar de vertaalslag kom ik gewoon niet uit...

 

[edmoor]

Als ik je dan goed begrijp zou bij een wijziging in F8, F9 of F10 de sortering moeten plaatsvinden en bij een wijziging in D6, D7, D8, D9, D10, D11 of D12 het kopiëren.
Klopt dat? Dan zou het dit moeten zijn:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("F8:F10")) Is Nothing Then
        Sheets("Blad 1").Range("A18:K30").Sort _
	    Key1:=Range("B18"), Order1:=xlAscending, _
	    Header:=xlGuess, OrderCustom:=1, _
	    MatchCase:=False, Orientation:=xlTopToBottom
	    Range("A1").Select
        Exit Sub
    End If

    If Not Intersect(Target, Range("D6:D12")) Is Nothing Then
	Sheets("blad 2").Copy after:=Sheets(Sheets.Count)
	Sheets(Sheets.Count).Name = Target
    End IF

End Sub

 

[mooske04]

Helemaal GE-WEL-DIG!!!! Op een gegeven moment ben je er al zo lang mee bezig, dan zie je het gewoon niet meer. Thanks!!

 

[edmoor]

Graag gedaan