En Son Aktif Verinin İstenen Hücreye Aktarılması.

[xternet]

Merhaba Arkadaşlar,

Yapmak istediğim işlemi örnek dosyada açıklamaya çalıştım. Resim de ekledim.
Müsait olan arkadaşlarımdan destek bekliyorum.
Bir şekilde zaman ayıracak arkadaşlara şimdiden teşekkür ederim.
İyi çalışmalar.

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayarak denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B12:B19]) Is Nothing Then Exit Sub
        Range("A1") = Target.Value
End Sub

.

 

[xternet]

Sayın Ömer, unvanınız size çok yakışıyor. Gerçekten uzmansınız. Teşekkürler.

İyi çalışmalar.

 

[Ömer]

Ben teşekkür ederim, iyi çalışmalar..

.