İki ayrı kodun birleştirilmesi

[entegreinsaat]

Hüseyin Bey uygun görürsenin benimde sizden bir ricam olacak. Ekteki dosyada iki adet kod var. Ayrı ayrı kullanabiliyorum fakat ikisi birden hata veriyor. Wep sayfalarından anladığım kadarıyla birleştirilmesi lazımmış. Şimdiden teşekkür ederim.

İyi Çalışmalar...



'OTOMATİK TARİH ATMA
Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo son
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Offset(0, -1) = ""
Else
If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Date
End If
son:

End Sub

'TARİHE GÖRE OTOMAİK SIRALA
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B11:H" & Cells(65536, "B").End(xlUp).Row)) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 8 Then 'SIRALAMANIN YAPILMASI İÇİN TIKLANACAK SON HÜCRENİN SÜTÜN NUMARASI
Range("B11:H" & Cells(65536, "B").End(xlUp).Row).Sort key1:=Range("B11"), key2:=Range("H11")
End If
End Sub



Not: Sorunuzu ben (yurttaş) taşıdım. Lütfen ilgili ilgisiz her yere aynı soruyu sormayın.


.