Yanıtlar:
Test edilmemiş kod, A3 hücresini (liste seçici) B3'e kaydedin:
Sub MemorizeCellA3
Aralık ("B3"). Değer = Aralık ("A3"). Değer 'yerine .Text gerekebilir
Aralık ("A3"). ClearContents 'A3'ü temizleyecektir.
son alt
Sayfadaki bir düğmeye atayın.
Bunu otomatik olarak yapmak istiyorsanız, bu makrosu, üzerinde çalışmak istediğiniz sayfanın çalışma sayfası modülüne yerleştirin.
Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(target, Range("A:A")) Is Nothing Then
If target.Offset(, 1) = "" Then
target.Offset(, 1) = target
End If
End If
End Sub
range("A:A")Kaydetmek istediğiniz aralık olduğunu. Bu değişirse ve yanındaki sütunu 1 sütun,, offset(,1)boştursa, seçilen değeri oraya koyun. Menzil içinde değilse veya yanındaki hücrenin zaten bir değeri varsa, hiçbir şey yapmaz.