Hücrede yapılan değişiklik diğer sayfalara da yansımalı

[oguzka]

MErhabalar;

Sayfa1 deki Ali yazan hücrenin yanındaki sayı değeri değiştiğinde, diğer sayfalarda ali yazan hücrelerin yanındaki sayı değerinin otomatik değişmesini istiyorum. Yardımcı olabilirmisiniz? ( Diğer sayfalarda Ali yazısı aynı sütunda ancak satır sayısı farklı olabilir. )

 

[Ömer]

Merhaba,

Sayfa1'in kod sayfası bölümüne kopyalayınız..

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim S1 As Worksheet, c As Range, Addr As String
Set S1 = Sheets("Sayfa2")
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
   With S1.Range("A:A")
       Set c = .Find(Target.Offset(0, -1), LookIn:=xlValues, LookAt:=xlWhole)
       If Not c Is Nothing Then
           Addr = c.Address
           Do
               S1.Range("B" & c.Row) = Target
               Set c = .FindNext(c)
           Loop While Not c Is Nothing And c.Address <> Addr
       End If
   End With
End Sub

.

 

[oguzka]

Hocam çok teşekkür ederim. Bir rica daha bulunsam kodun bu kısmını biraz açıklayabilirmisiniz? Mantığını anlamadan boş boş kod yazmayı sevmiyorum da


Set c = .Find(Target.Offset(0, -1), LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Addr = c.Address
Do
S1.Range("B" & c.Row) = Target
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> Addr