İşlevi Genişletmek

[akdir]

Arkadaşlar dün bir arkaşımız bana bir işlev gönderdi ama ben VBA konusunda bilgili olmadığım için bu formulü genişletemedim. ekteki dosyayı incelerseniz sevinirim Teşekkürler.

 

[leumruk]

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X As Byte
    If Intersect(Target, [D3:[COLOR="Red"]D65536[/COLOR]]) Is Nothing Then Exit Sub
    If Not IsEmpty(Target) Then
    For X = 3 To 100
    If Sheets("İstatistik").Cells([COLOR="red"]X, 4[/COLOR]) = "" Then
    Sheets("İstatistik").Cells([COLOR="red"]X, 4[/COLOR]) = Target
    Exit For
    End If
    Next
    End If
End Sub

Selamlar...
Sütuna girilen veriyi satıra sıralıyordu; onu birebir aktarmaya çevirdim. Sınırlamayı da sınırsız hale çevirdim. Yani 2 numaralı isteğiniz için birşeyeler yapmaya çalıştım. Sadece kırmızı renkli kısımlar orjinal kodlarınızdan farklı.