Sütunu ters kopyalama

[ins4n4ce]

Selamlar,
Forumda benzer bir konuya rastlayamadığım ve yardıma ihyitacım olduğundan sorumu cevaplandırabilirseniz sevinirim.

Aşağıdaki makro ile sabitlediğim A1 hücresine her veri girdiğimde B1 hücresinin altına satır satır yazmakta. Ör:A1 e 5 sonrasında 6 girdim B1 5 B2 6 oluyor...
Makrom kuvvetli olmadığından ötürü sizden isteğim A1 girdiğim son değer alta değilde ters bir biçimde üstte doğru sıralansın. veriğim örnekte B1 6 B2 5 olsun. Cevapar için şimdiden teşekkürler



Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
For i = 1 To Range("B65535").End(xlUp).Offset(1, 0).Row
If Range("B" + CStr(i)).Value = "" Then
Range("B" + CStr(i)).Value = Target.Value
Exit For
End If
Next i
End If
End Sub

 

[omemo]

Merhaba,
Aşağıdaki kodu dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Range("B1").Insert Shift:=xlDown
    Range("B1") = Range("A1")
End If
End Sub

 

[ins4n4ce]

Harika olmuş. çok teşekkür ederim.